DELPHI编程题用Object Pascal语言编写关于十个小孩分糖的问题。

[复制链接]
查看11 | 回复1 | 2013-3-27 09:23:28 | 显示全部楼层 |阅读模式
procedure TForm1.Button1Click(Sender: TObject);var糖数,糖数的一半:array[1..10] of Integer;i,j:Integer;分糖次数:Integer;str1:String;begin糖数[1]:=10;糖数[2]:=2;糖数[3]:=8;糖数[4]:=22;糖数[5]:=16;糖数[6]:=4;糖数[7]:=10;糖数[8]:=60;糖数[9]:=14;糖数[10]:=20;分糖次数:=0;repeat
Inc(分糖次数); ...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行