帮表弟做题,不知道将利用D7如何实现下面程序?!不放任何控件,只往上面打字,这样快些.(20)

楚

楚辞

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-04-07

• #1

直接输,出结果.. 某函数如下： Function check(n,k:Integer):Integer; Var m:Integer; Begin Repeat m:=n mod 10; n:=n div 10; K:=k-1 Until k=0; Check:=m End; 若调用语句y:=check(3725,3),运行后y值为：（） A、 7 B、 5 C、 2 D、 0

 

楚

楚辞

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-04-07

• #2

就是说,不用各种控件,如何将这些语句利用D7来显示结果.

 

D

dark_power

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-04-07

• #3

控制台程序。

 

S

szhcracker

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-04-07

• #4

可以做到不用任何控件，但是完全没有那个必要，可能也超出了你目前的水平，那既然可以简单的实现，为什么要折腾超出自己能力的事呢？而且还是这么一件没啥大不了的小事！祝你好运。

 

L

LuckyFox

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-04-07

• #5

函数都写好了，把它弄到控制台程序里不就得了

 

S

stlont

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-04-07

• #6

新建一个项目,类型选console application,代码就直接放在program 下面,这是最基本的标准pascal程序,输出用write, writeln语句例rogram Project1;{$APPTYPE CONSOLE}uses SysUtils;begin { TODO -oUser -cConsole Main : Insert code here } write(1); writeln('ok'); readln;end.

 

楚

楚辞

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-04-08

• #7

试了试,没有弄过去.报错如下:FW们在帮我看看吧....这个东西是表弟的试题,根程序写结果.他们先生出了四大张.我的水平也差,结果总弄不对.所以就想了这个办法.uses SysUtils; { TODO -oUser -cConsole Main : Insert code here } Function check(n,k:Integer):Integer;Var m:Integer;BeginRepeatm:=n mod 10;n:=n div 10;K:=k-1Until k=0;Check:=m end; y:=check(3725,3)end.[Error] Project1.dpr(22): Declaration expected but identifier 'y' found

 

Z

zhengrong117

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-04-08

• #8

program Project1;{$APPTYPE CONSOLE}uses SysUtils; Function check(n,k:Integer):Integer;Var m:Integer;BeginRepeatm:=n mod 10;n:=n div 10;K:=k-1Until k=0;Check:=m end;var y:integer;beginy:=check(3725,3);write; readln; { TODO -oUser -cConsole Main : Insert code here }end.//简单的不用，非得不让用控件，你还是用C吧，用delphi，还不让用他的强项

 

楚

楚辞

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-04-08

• #9

代表弟谢谢各位FW们了!

 

楚

楚辞

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-04-08

• #10

多人接受答案了。