关闭

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

542人阅读 评论(0) 收藏 举报

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.
1
0
查看评论

A+B的各种写法(不是cout<<a+b;)

A+B其实是一个博大精深的问题,以下是各种写法#include<bits/stdc++.h> #define INF 0x7fffffff using namespace std; int a,b,cnt; int ans[10],h[10],head[10],father[10],bi...
  • bbbblzy
  • bbbblzy
  • 2018-01-03 20:45
  • 81

酒吧类型与其娱乐项目设置

1)酒吧分类       根据服务方式分类  立式酒吧       立式酒吧即为传统意义上典型的酒吧,客人不需要服务人员服务,一般自己直接到吧台上喝饮料。“立式”并非指客人必...
  • xmjbzp
  • xmjbzp
  • 2013-02-04 11:41
  • 904

360娱乐号?又一个互联网自媒体平台这次有收益?

360自媒体平台是有挺多的 例如:北京时间 例如:众媒平台 可是不管怎样,都离不开一个特点:没有收益! 360的自媒体抠了吧?还不如申请东方头条号呢,对吧? 昨晚有人通过AR追风的公众号来咨询,360是不是又推出了一个娱乐号?问我有没有通过?AR追风我有...
  • zmsn1990
  • zmsn1990
  • 2017-04-21 15:40
  • 1246

几个美国娱乐业公司

漫威MARVEL:创建于1939年,旗下拥有蜘蛛侠、金刚狼、美国队长、钢铁侠、绿巨人、等超级英雄,和复仇者联盟、X战警、神奇四侠、银河护卫队等超级英雄团队。2008年被迪士尼收购。HBO Home Box Office:有线电视网络媒体公司,母公司时代华纳。好莱坞八大影业公司主要包括:华纳兄弟公司、...
  • x18835129278
  • x18835129278
  • 2017-12-11 10:59
  • 273

android车载娱乐系统跟android平板的分析比较

转自:http://blog.csdn.net/edsam49/article/details/8103893 随着android系统风靡世界,艳冠全球,逐渐进入了各个电子应用领域,车载电子在android系统的应用上属于稍微晚一点的行业。近一年多来,市面上的android车载导航主机已有...
  • luoyouren
  • luoyouren
  • 2015-10-09 10:18
  • 1067

【C语言】题目1000:计算a+b

刷一下九度网的题,王道的题还是可以的,本科代码量太少了,所以各位初学者们,我们一起学习进步吧。
  • u012318329
  • u012318329
  • 2017-02-06 01:25
  • 1587

互联网汽车信息娱乐系统基础框架

在互联网思维大潮下,汽车行业也随之变革加入了互联网元素,称之为互联网汽车。目前成熟且已经量产面市的互联网汽车主要体现在它的车载设备(中控部分的信息娱乐系统)。这种车载互联体现主要在几个方面:TSP(Telematics Service Providers)服务、移动网络(4G)\WIFI、手机互联。...
  • AixChina
  • AixChina
  • 2016-10-08 16:26
  • 737

让你一张图看懂布局 游戏公司的泛娱乐战略布局

所谓“泛娱乐”战略,最早由腾讯提出,按照腾讯副总裁P程武(微博)的解释,是以IP授权为核心,以游戏运营和网络平台为基础,展开的电影、音乐、动漫等多领域、跨平台的商业拓展。 为何提出泛娱乐战略? 电子游戏作为第9艺术,虽然发展有一段时间,但相对其他娱乐文化而言还是年轻的...
  • Function_JX_
  • Function_JX_
  • 2016-07-25 11:28
  • 734

什么是泛娱乐--摘自百度词条

http://baike.baidu.com/link?url=g1VHalC9VIgpf4wTX_oNgc-gXI1umHWiSUQKkWhqNgYfxdLnqomglig_9zvJrfFF3EclCa2Vb6_K8t0BNozazK简介泛娱乐,指的是基于互联网与移动互联网的多领域共生,打造明星I...
  • mouse1598189
  • mouse1598189
  • 2016-07-15 10:31
  • 1216

sin(a+b)的展开式证明

其它证明类似。
  • wodownload2
  • wodownload2
  • 2017-05-23 19:25
  • 487
    个人资料
    • 访问:93348次
    • 积分:4574
    • 等级:
    • 排名:第7650名
    • 原创:317篇
    • 转载:1篇
    • 译文:0篇
    • 评论:67条