一个小循环语句的写法 [ 求助] 输入m1,m2,m3,m4.............一直到n 假设他们都 小于 100 实现 m1+m2+..... 如果结果〉=100 停止 循环 用 do......while 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 do......while相对于repeat......until program Project1;{$APPTYPE CONSOLE}uses SysUtils; Var s1 : integer; sum : integer;begin sum := 0; while (sum < 100) do Begin Write('Input a num '); Readln(s1); sum := sum + s1; end; Writeln(Format('Sum is %d',[sum])); Readln;end. 输入m1,m2,m3,m4.............一直到n 假设他们都 小于 100 实现 m1+m2+..... 如果结果〉=100 停止 循环 用 do......while假设他们都 小于 100 这个歧异,假设??如果之意?还是先作后判断 Delphi里没有DO WHILE吧?应该是While Do Var iS : Integer; iSum : Integer;Begin iSum := 0; While iSum < 100 Do Begin //输入值到iS,方法很多 If iS < 100 Then iSum := iSum + iS Else Break; End; 谁有个个风格的图标啊 求。。。 跪求用HTTPS协议向网站提交参数的方法 ADO连接出错,居然提示“密码无效”。 介绍几本delphi的书好吗?具体偏重方向请详看 在Delphi中四舍五入的函数是什么 简单问题 打包问题?搜索了N页帖子,找了3天,没找到答案,郁闷(想给150都没办法给) 关于钩子 关于windows API函数的问题!!急急 谁有自己做软件并销售的,无论成功,进来交个朋友吧! 前些天去了几家公司笔试,有些题不会~ 现在名字好难取啊,^_^
SysUtils; Var
s1 : integer;
sum : integer;
begin sum := 0;
while (sum < 100) do
Begin
Write('Input a num ');
Readln(s1);
sum := sum + s1;
end;
Writeln(Format('Sum is %d',[sum])); Readln;end.
假设他们都 小于 100
实现 m1+m2+..... 如果结果〉=100 停止 循环
用 do......while假设他们都 小于 100 这个歧异,假设??如果之意?还是先作后判断
iS : Integer;
iSum : Integer;
Begin iSum := 0;
While iSum < 100 Do Begin
//输入值到iS,方法很多
If iS < 100 Then
iSum := iSum + iS
Else
Break;
End;