stringgrid1.Cells[i,j]:=inttostr(n[i,j]);

Контрольный пример

2.1.4 Листинг программы

var

n:array [0..4,0..10] of integer;

k1,k2,i,j,r,d:integer;

begin

randomize;

for i:=0 to 4 do

for j:=0 to 10 do

begin

n[i,j]:=random(100)-30;

stringgrid1.Cells[i,j]:=inttostr(n[i,j]);

k1:=j;

k2:=j;

end;

for i:=0 to 4 do

d:=n[i,k1];

n[i,k2]:=n[i,k2];

n[i,k1]:=d;

r:=n[0,0];

n[0,0]:=n[3,0];

n[3,0]:=r;

for i:= 0 to 4 do

for j:= 0 to 10 do

stringgrid2.cells[i,j]:=floattostr(n[i,j]);

end;

Контрольный пример

2.1.5 Листинг программы

var s:string;

k,i:integer;

begin

s:=edit1.Text;

k:=0;

for i:=1 to length(s) do

begin

if(s[i] = ' ') or (s[i] = '.') then

k:=k+1;

end;

label1.caption:=inttostr(k);

end;

procedure TForm1.Button2Click(Sender: TObject);

var s:string;

k,i:integer;

begin

s:= Edit1.Text;

if s [length(s)]='.' then

label2.Caption:='повествовательное';

if s [length(s)]='!' then

label2.Caption:='Восклицательное';

if s [length(s)]='?' then

label2.Caption:='Вопросительное';

end;

2.2.4 Контрольный пример

2.2.5 Листинг программы

procedure TForm1.Button1Click(Sender: TObject);

var

min,max,x:Real;

i:Byte;

begin

for i:=0 to Memo1.lines.count-1 do

begin

x:=strtoint(Memo1.Lines.Strings[i]);

if x>0 then min:=x;

if x<0 then max:=x;

end;

for i:=0 to Memo1.lines.count-1 do

begin

x:=strtoint(Memo1.Lines.Strings[i]);

if (x>0) and (x<min) then

min:=x;

if (x>0) and (x>max) then

max:=x;

end;

label1.Caption:=FloatToStr(min);

label2.Caption:=FloatToStr(max);

end;

Контрольный пример

Листинг программы

procedure TForm1.Button1Click(Sender: TObject);

var a:array [0..9] of integer;

n:array [0..9] of integer;

i,k:integer;

begin

k:=strtoint(Edit1.text);

for i:=0 to 9 do

begin

a[i]:=strtoint(Memo1.Lines[i]);

if (a[i]<k) then

a[i]:=0;

memo2.lines.add(inttostr(a[i]));

end;

end;

Дата добавления: 2015-09-29