procedure TForm1.Button1Click(Sender: TObject);

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

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

procedure TForm1.Button1Click(Sender: TObject);

var a,b,c,d:real;

v:string;

begin

a:=StrToFloat(Edit1.Text);

b:=StrToFloat(Edit2.Text);

c:=StrToFloat(Edit3.Text);

If (a=b)and(b=c)and(c=d)then

v:='четырехугольник является ромбом '

else v:='четырехугольник не является ромбом ';

Label3.Caption:=v;

end;

end.

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

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

var a,b,c,d:Real;

v:string;

begin

a:=StrToInt(Edit1.text);

b:=StrToInt(Edit2.text);

c:=StrToInt(Edit1.text);

d:=(a+b)/2;

if c=d then v:='Равен'

else

v:='Не равен';

Label3.Caption:=v;

end;

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

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

var

a: integer;

b: string;

begin

if Edit1.text<>'' then

a:=StrToInt(Edit1.Text);

case a of

0: b:='zero';

1: b:='one';

2: b:='two';

3: b:='three';

4: b:='four';

5: b:='five';

6: b:='six';

7: b:='seven';

8: b:='eight';

9: b:='nine';

end;

Edit2.Text:=b;

end;

end

2,4,4 контрольный пример

2.4.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;

2,5,2 Пример программы

2, 5,4 Листинг прграммы

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.6.4 Контрольный пример

2, 6,5 Листинг прграммы

Program pr1;

Uses crt;

Var i:integer; ch,max_ch:real;

Begin

Clrscr;

I:=1;

Writeln(‘Введите элемент последовательности #’,I,’(0 для окончания ввода)’);

Readln(ch);

Max_ch:=ch;

While ch<>0 do begin

I:=i+1;

Writeln(‘Введите элемент последовательности #’,I,’(0 для окончания ввода)’);

Readln(ch);

If max_ch<ch then max_ch:=ch;

End;

End;

Writeln(‘Максимальный элемент последовательности=’,max_ch:1:4);

Readkey;

End.

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

2, 7,5 Листинг прграммы

Program pr2;

Uses crt;

Var s:string; n,i:integer;

Begin

Writeln(‘Введите сообщение:’);

Read(s);

N:=length(s);

For I:=1 to n do

Begin

Write(s[i]);

Delay(500);

End;

End

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

2, 8,5 Листинг прграммы

Program pr3;

Uses crt;

Var s:string;

I:byte;

Begin

Clrscr;

Writeln(‘Введите строку, содержащую начальные(ведущие) пробелы:’);

Read(s);

If s[1]=’ ‘ then

While s[1]=’ ‘ do

Delete(s,1,1);

Write(s);

End.

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