KeyFC欢迎致辞,点击播放
资源、介绍、历史、Q群等新人必读
KeyFC 社区总索引
如果你找到这个笔记本,请把它邮寄给我们的回忆
KeyFC 漂流瓶传递活动 Since 2011
 

再问一个VB题……OTL(已解决^_^)

[ 8100 查看 / 21 回复 ]

回复:再问一个VB题……OTL

...........不用vb用basic可以吗...........只在小学是学过...现在被迫改语言了...
字符里的空格用_表示
new
DIM  T%,A$,J%,F$ 
  for  T=1    to  6 
  A$="_";IF  T    MOD    2=1  THEN    F$="_ _"        ELSE    F$="_ -"
  FOR  J=1  TO  T   
  A$=A$+RIGHT$(STR$(J),1)
  PRINT  F$;A$
  NEXT  J
  PRINT 
  NEXT  T
  END
RUN
似乎是这样  basic的编译器不知飞到哪里去了无法确认(而且没用过vb...当年学校的机都是386......)
大概是两个变量 T是从1 到6 另一个J是 1  到 T
把 J变成字符放到A行成"  1","    12","    123".......(用两个循环我想不到不把数字变字符就可以做出的方法);由你的样例不难看出奇数行全是空  偶数行全有减号 所以给个判断偶数都加上"-"就这样输出似乎就可以 了
我学的时候程序中除了定义要用$  程序中字符型都要加上$  如果vb不需要就去掉

还有程序首部该加什么就加什么吧...忘记要不要加new了...

啊!!!!!!!!信息学联赛  又一次提高组失利  保送无望拉!!!!!!!!![:Orz:]
分享 转发
TOP

回复:再问一个VB题……OTL(已解决^_^)

................vb  ..........basic ............

看来语言过时了............................  有点对不起的样子

.......发泄一下.

program lt;
var  i,j,p:integer;
begin
    for i:=1 to  6 do
  begin
      if  i  mod  2=0  then    f:='    -'  else  f:='      ';
      for j:=1 to i do
      begin
      write(f, '    ');
      for p:=1 to j do
      write(p);
    end;
      writeln;
    end;
end.  [:Wakeup:]
TOP

回复:再问一个VB题……OTL(已解决^_^)

....万恶的Pascal  (....不知为什么用一个发明压强的人做程序的名字....)
TOP

回复:再问一个VB题……OTL(已解决^_^)

...............虽然说delphi和pascal已经退出历史舞台了........但是能拿分就可以了....[:^^1:]
(保送啊[:Cry:] )

小pa自从3.  4年前被老师从basic诱拐转入  用这个搞算法已经习惯了  看来一时间是改不了了............                上了大再改也不迟..........
最后编辑Yellowmices 最后编辑于 2007-11-28 18:09:40
TOP

回复:再问一个VB题……OTL(已解决^_^)

..............是什么年代的........

我现在无论在哪里找到的都是c版的数据结构
pascal的似乎已经绝迹了..........
TOP

回复:再问一个VB题……OTL(已解决^_^)

回复: 再问一个VB题……OTL(已解决^_^)



引用:
原帖由 粘土火星 于 2007-11-28 19:11:00 发表
1992年的第2版……非常嫩的草绿色…………囧

我认为这本还是超经典=v=bbb,TMD上个月某个考试居然还考B-树这种基本上不看的内容。。。。当年NOIP哪需要这么复杂的玩意……


B-树可是NTFS用的存放模型=v=
普通的二叉树随着叶子增多,如果不用平衡算法调节的话,很容易出现单枝过长,检索速度变慢的现象
B-树主要是横向发展的,所以检索速度在B-树变得很大后也不会过慢

虽然平时用不找(可以说数据结构的大部分东西都用不到...C类库,.NET的Collection下都有完整可以使用的各种数据结构模型),但有助于理解数据结构实现和笔试顺利通过=v=
(小声:最近批了几张新人的笔试考卷,实现堆栈竟然有N多人PUSH,POP都写不出来......这批学生还是学校推荐过来的......orz现在的教育啊....



...........就是因为考试里把那些乱七八遭的代码全部禁掉了...市赛上机试里的庞大数据量搜索量的东西 被迫要看那些 什么二叉搜索树  什么求二叉值域....什么trie算法...什么avl平衡树....什么B+B-树[:Wakeup:] (92年那本是数据结构吗..........我看算法书多一点)

虽然说现在的noip一年比一年弱Z了  但是noi  却一年比一年变态了...........果然是因为成绩的待遇问题啊.................

ps  王'二前辈是招什么人啊..............=  = |||  说起来push和pop是什么东西啊.....
TOP

回复:再问一个VB题……OTL(已解决^_^)

......原来如此 
学堆栈时 我记得但是那老师都只说进栈出栈...........
我还以为只有队列有描述入列与出列的专有名词.............

PS  原来有这么多职业招收要用到这些的吗.............我以为算法语言只能拿来赚分的..........OTL
TOP

回复:再问一个VB题……OTL(已解决^_^)

........所以说 不怎么看数据结构  而且我一贯没有对标准运算的概念  只是靠自己的理解然后自己写(所以说时间上很吃亏)


..........其实noip的保送名额对我来说没什么诱惑力.............只是一直这样没什么成绩的话  会有一点浪费时间的感觉  noip的保送的以现在成绩高考肯定没问题...........

所以这不是什么功利问题(虽然说我不否认目前noip是越来越功利化)但至少给我点心理平衡啊....[:Wakeup:] ...
TOP