娱乐向——a+b 的数种写法

原创 2016年08月28日 14:32:33

1.正常写法

var
  a,b:longint;
begin
  readln(a,b);
  writeln(a+b);
end.

2.随机数

就是强行把结果算出来以后看人品。。。

var
  a,b,c:longint;
begin
  randomize;
  readln(a,b);
  while true do
  begin
    c:=random(100000000);
    if c=a+b
      then
        begin
          writeln(c);
          halt; 
        end;
  end;
end.

3.深搜

吧a和b当成两个节点一共有三个,从第一个开始往下搜,搜到不能搜为止

var
  f,l:array[1..10] of longint;
  i,j,k,n,m,a,b,ans:longint;
procedure dfs(dep:longint);
var
  i,j,k:longint;
begin
  if dep=3 then exit;
  for i:=1 to 3 do
    if (l[dep]=0) then
    begin
      ans:=ans+f[dep];
      l[dep]:=1;
      dfs(dep+1);
    end;
end;
begin
  readln(f[1],f[2]);
  dfs(1);
  writeln(ans);
end.

4.spfa

三个点,没两个点之间的边权位a和b,求出从1到3的最短路

type
  arr=record
        x,y,w,next:longint;
      end;
var
  edge:array[0..10000] of arr;
  ls,t,state:array[0..100000] of int64;
  exits:array[0..10000] of boolean;
  i,j,k,n,m,q,p,o,s,l,a,b:longint;
procedure spfa;
var
  head,tail,i,j:longint;
begin
  state[1]:=0;
  head:=0; tail:=1;
  exits[1]:=true;
  t[1]:=1;
  repeat
    inc(head);
    i:=ls[t[head]];
    while i<>0 do
      begin
        with edge[i] do
          begin
            if state[x]+w<state[y] then
              begin
                state[y]:=state[x]+w;
                if exits[y]=false then
                  begin
                    inc(tail);
                    t[tail]:=y;
                    exits[y]:=true;
                  end;
              end;
            i:=next;
          end;
      end;
      exits[t[head]]:=false;
    until head=tail;
end;
begin

  fillchar(state,sizeof(state),63);
  readln(a,b);
  n:=2; m:=3;
  edge[1].x:=1; edge[1].y:=2; edge[1].w:=a; edge[1].next:=0;
  edge[2].x:=2; edge[2].y:=3; edge[2].w:=b; edge[1].next:=0;
  ls[1]:=1; ls[2]:=2;
  spfa;
  writeln(state[3])
end.
版权声明:欢迎参考和抄标

程序猿装B指南(娱乐一下)

一、准备工作 “工欲善其事必先利其器。” 1.电脑不一定要配置高,但是双屏是必须的,越大越好,能一个横屏一个竖屏更好。一个用来查资料,一个用来写代码。总之要显得信息量很大,效率很高。 ...

飘影娱乐搜索引擎 v2.0 B版

  • 2005年07月21日 06:30
  • 0B
  • 下载

B78写法加公式

  • 2014年06月22日 18:38
  • 717B
  • 下载

娱乐视频直播背后的技术支持——DASH重构

电视直播是历史悠久的业务,这也是PayTV市场的主要收入来源,每年全球超过2500亿美金的收入依赖于电视直播这个业务产生。新生代可能已经逐渐远离了电视机,更多选择Mobile Terminal、PAD...

第14章 3D娱乐游戏——3D迷宫

  • 2014年03月24日 17:27
  • 2.18MB
  • 下载

学习OpenCV——Fast检测与Surf&Brief匹配(娱乐)

这几天一直徘徊在Fast,Surf,Shift,Brief,ORB几种特征检测算法之中,被搞得焦头烂额!!! 各个实验都在前面的blog中。 OpenCV已经实现了他们,所以就用OpenCV试验一...

快速上手Ubuntu之安装常用软件篇——打造一个满足基本娱乐办公的Ubuntu

**转载至:http://blog.csdn.net/qq_28205153/article/details/52212431** 该博客是紧接着上一篇的:快速上手Ubuntu之安装篇...

娱乐视频直播背后的技术支持——DASH重构

娱乐视频直播为什么需要DASH? 电视直播是历史悠久的业务,这也是PayTV市场的主要收入来源,每年全球超过2500亿美金的收入依赖于电视直播这个业务产生。 新生代可能已经逐渐远离了电视机...
  • dj0379
  • dj0379
  • 2017年04月01日 11:12
  • 1125

路由器的世界的背景——纯属娱乐请勿当真

就当玄幻小说看吧嘿嘿 ———————————— 在遥远的某星球上,有一块神奇的大陆,在这里建立起了文明。 我们的故事,就从这里开始。 魔法纪元元年,一位老人翻越了崇山峻岭,在最西面的山洞中探险,...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:娱乐向——a+b 的数种写法
举报原因:
原因补充:

(最多只允许输入30个字)