Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
2.1.4 Контрольный пример
2.1.5 Листинг программы
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c:integer;
begin
a:=strtoint(edit1.Text);
b:=strtoint(edit2.text);
c:=a+b;
if c<32767 then label4.caption:=inttostr(c);
end;
end.
2.2.4 Контрольный пример
2.2.5 Листинг программы
procedure TForm1.Button1Click(Sender: TObject);
var n:integer; b,c:string;
begin
repeat
n:=STRTOINT(edit1.text);
until (n>1000) and (n<=9999);
if ((n mod 10)<>(n div 10 mod 10)) and ((n mod 10)<>(n div 100)) and ((n div 10 mod 10)<>(n div 100)) then
showmessage('Цифры не равны') else showmessage('Цифры равны') ;
end;
end.
2.3.4 Контрольный пример
2.3.5 Листинг программы
procedure TForm1.Button1Click(Sender: TObject);
var x,y,z,w:real;
begin
x:=strtofloat(edit1.Text);
y:=strtofloat(edit2.text);
z:=strtofloat(edit3.text);
w:=sqr(cos(x)-cos(y))*(1+z+sqr(z)/2+(sqr(z)*(z))/3+(sqr(z)*(z)*(z))/4);
label5.Caption:=floattostr(w);
end;
end.
2.4.4 Контрольный пример
2.4.5 Листинг программы
procedure TForm1.Button1Click(Sender: TObject);
var a:array[0..9] OF INTEGER;
sum,i:integer;
begin
sum:=0;
for i:=0 to 4 do
begin
a[i]:=strtoint(memo1.Lines[i]);
sum:=sum+a[i];
end;
edit1.text:=inttostr(sum);
end;
end.
2.5.4 Контрольный пример
2.5.5 Листинг программы
procedure TForm1.Button1Click(Sender: TObject);
var a:integer;
begin
a:=listbox1.ItemIndex;
case a of
0: label3.caption:='Привет 1-классник';
1: label3.caption:='Привет 2-классник';
2: label3.caption:='Привет 3-лассник';
3: label3.caption:='Привет 4-классник';
4: label3.caption:='Привет 5-классник';
5: label3.caption:='Привет 6-классник';
6: label3.caption:='Привет 7-классник';
7: label3.caption:='Привет 8-классник';
8: label3.caption:='Привет 9-классник';
9: label3.caption:='Привет 10-классник';
10: label3.caption:='Привет 11-классник';
end;
end;
end.