В Delphi создать программу «Ввести и распечатать сумму квадратов 11-ти чисел».

(Должны быть использованы компонент StringGrid (1), кнопка (1) и метки (4))

Процедура для кнопки «ВЫЧИСЛИТЬ»:

procedure TForm1.Button1Click(Sender: TObject);

var

i,sum : integer;

begin

sum := 0;

For i:= 0 To 10 do

sum := sum +

StrToInt(StringGrid1.Cells[i,0])*StrToInt(StringGrid1.Cells[i,0]);

Label4.Caption := IntToStr(sum);

end;
13.В Delphi создать программу «Напечатать среднее 20-ти чисел».

(Должны быть использованы компонент StringGrid (1), кнопка (1) и метки (4))

Процедура для кнопки «ВЫЧИСЛИТЬ»:

procedure TForm1.Button1Click(Sender: TObject);

var

i,sum : integer;

sred : real;

begin

sum := 0;

For i:= 0 To 9 do

sum := sum + StrToInt(StringGrid1.Cells[i,0]);

For i:= 0 To 9 do

sum := sum + StrToInt(StringGrid1.Cells[i,1]);

sred := sum/20;

Label4.Caption := FloatToStr(sred);

end;

14.В Delphi создать программу «Подсчитать факториал » (N!).

(Должны быть использованы кнопки (2), окна редактирования (1) и метки (4))

Процедура для кнопки «ВЫЧИСЛИТЬ»:

procedure TForm1.Button1Click(Sender: TObject);

var

a, i : integer;

b : real;

begin

a := StrToInt(Edit1.Text);

b := 1;

For i:=1 to a do

b := b*i;

Label4.Caption := FloatToStr(b)

end;

Процедура для кнопки «ВЫХОД»:

procedure TForm1.Button2Click(Sender: TObject);

begin

close;

end;

15.В Delphi создать программу, вычисления функции у=х2/хЗ+1

(Должны быть использованы кнопки (3), окна редактирования (1) и метки (4))

Процедура для кнопки «ВЫЧИСЛИТЬ»:

procedure TForm1.Button2Click(Sender: TObject);

var

x:real;

y:real;

begin

x:=StrToFloat(Edit1.Text);

Y:=(x*2)/(x*3+1);

label4.Caption:=FloatToStrF(y,ffFixed,4,2);

end;

Процедура для кнопки «ОЧИСТИТЬ»:

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

label4.caption:='';

edit1.clear;

end;

Процедура для кнопки «ВЫХОД»:

procedure TForm1.Button1Click(Sender: TObject);

begin

close;

end;

16.В Delphi создать программу вычисления функции у=х2/(хЗ+2)

(Должны быть использованы кнопки (3), окна редактирования (1) и метки (4))

ОТВЕТ:

28а. Процедура для кнопки «ВЫЧИСЛИТЬ»:

procedure TForm1.Button2Click(Sender: TObject);

var

x:real;

y:real;

begin

x:=StrToFloat(Edit1.Text);

Y:=(x*2)/(x*3+2);

label4.Caption:=FloatToStrF(y,ffFixed,4,2);

end;

28б. Процедура для кнопки «ОЧИСТИТЬ»:

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

label4.caption:='';

edit1.clear;

end;

28в. Процедура для кнопки «ВЫХОД»:

procedure TForm1.Button1Click(Sender: TObject);

begin

close;

end;

17.В Delphi создать программу вычисления функции y=tg(x).

(Должны быть использованы кнопки (3), окна редактирования (1) и метки (4))

ОТВЕТ:

29а. Процедура для кнопки «ВЫЧИСЛИТЬ»:

procedure TForm1.Button2Click(Sender: TObject);

var

a,tg:real;

fun1,fun2:real;

begin

a:=StrToFloat(Edit1.Text);

fun1:=sin(a*3.14/180);

fun2:=cos(a*3.14/180);

if fun2<>0 then

tg:=fun1/fun2;

label4.Caption:='Tg: ' + FloatToStrF(tg,ffFixed,4,2);

end;

29б. Процедура для кнопки «ОЧИСТИТЬ»:

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

label4.caption:='';

edit1.clear;

end;

29в. Процедура для кнопки «ВЫХОД»:

procedure TForm1.Button1Click(Sender: TObject);

begin

close;

end;

18.В Delphi создать программу вычисления функции y=ctg(x).

(Должны быть использованы кнопки (3), окна редактирования (1) и метки (4))

ОТВЕТ:

30а. Процедура для кнопки «ВЫЧИСЛИТЬ»:

procedure TForm1.Button2Click(Sender: TObject);

var

a,сtg:real;

fun1,fun2:real;

begin

a:=StrToFloat(Edit1.Text);

fun1:=sin(a*3.14/180);

fun2:=cos(a*3.14/180);

if fun2<>0 then

сtg:=fun2/fun1;

label4.Caption:='Tg: ' + FloatToStrF(сtg,ffFixed,4,2);

end;

30б. Процедура для кнопки «ОЧИСТИТЬ»:

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

label4.caption:='';

edit1.clear;

end;

30в. Процедура для кнопки «ВЫХОД»:

procedure TForm1.Button1Click(Sender: TObject);

begin

close;

end;