ГДЗ до підручника «Інформатика» Й.Я. Ривкінда. 8 клас

Практична робота № 12

Стор. 220

1. Подвійний клік на ярлику Lazarus.

2. Меню Файл → Створити проект або меню Проект → Створити проект

3. Частина 1.

Код програми:

procedure TForm1.Button1Click(Sender: TObject);

var

a1,b1,a2,b2,s1,s2,s:integer;

begin

a1:=StrToInt(Edit1.Text);

b1:=StrToInt(Edit2.Text);

a2:=StrToInt(Edit3.Text);

b2:=StrToInt(Edit4.Text);

s1:=a1*b1;

s2:=a2*b2;

s:=s1-s2;

Edit5.Caption:=FloatToStr(s);

end;

procedure TForm1.Button2Click(Sender: TObject);

var

d1,d2,a1,b1,a2,b2:extended;

begin

a1:=StrToInt(Edit1.Text);

b1: =StrToInt(Edit2.Text);

if CheckBox1.Checked

then begin

d1:=a1*sqrt(2);

d2:=b1*sqrt(2);

if d1=d2

then Label4.Caption:=’Цей прямокутник є квадратом’

else Label4.Caption:=’Цей прямокутник не є квадратом’;

end

else if CheckBox2.Checked

then begin

d1:=(a1*sqrt(2))/2;

d2:=(b1*sqrt(2))/2;

if d1=d2

then Label4.Caption:=’Цей прямокутник є квадратом’

else Label4.Сарtion:='Цей прямокутник не є квадратом’;

end

else Label4.Caption:=’Цей прямокутник не є квадратом’;

a2:=StrToInt(Edit3.Text);

b2:=StrToInt(Edit4.Text);

if CheckBox1.Checked

then begin

d1:=a2*sqrt(2);

d2:=b2*sqrt(2);

if d1=d2

then Label10.Сарtion:=’Цей прямокутник є квадратом’

else Label10.Сарtion:=’Цей прямокутник не є квадратом’;

end

else if CheckBox2.Checked

then begin

d1:=(a2*sqrt(2))/2;

d2:=(b2*sqrt(2))/2;

if d1=d2

then Label10.Caption:=’Цей прямокутник є квадратом’

else Label10.Сарtion:=’Цей прямокутник не є квадратом’;

end

else Label10.Caption:=’Цей прямокутник не є квадратом’;

end;

procedure TForm1.Button3Click(Sender: TObject);

var

a1,b1,a2,b2,s1,s2:integer;

begin

a1:=StrToInt(Edit1.Text);

b1:=StrToInt(Edit2.Text);

a2:=StrToInt(Edit3.Text);

b2:=StrToInt(Edit4. Text);

s1:=a1*b1;

s2:=a2*b2;

if RadioButton1.Checked

then begin

if s1<s2

then Label5.Сарtion:=’Так’

else Label5.Caption:=’Hi’;

end

else if RadioButton2.Checked

then begin

if s1>s2

then Label5.Caption:=’Taк’

else Label5.Caption:=’Hi’;

end;

end;

3. Частина 2.

Код програми:

procedure TForm1.Button1Click(Sender: TObject);

var

{:word;} p,x:integer; n,h:extended;

begin

h:=StrToInt(Edit1.Text); {piвень води до повені}

p:=StrToInt(Edit2.Text); {відсоток збільшення води за годину}

n:=StrToІnt(Edit3.Text); {чac, за який рівень води збільшиться}

h:=(h+h+(h*p)/100)*n;

Edit4.Caption:=FloatToStr(h);

x:=StrToІnt(Edit5.Text); {межа для рівня води}

while х<=0 do

begin

n:=h/(h+h+(h*p)/100);

x:=x+1;

end;

Edit6.Caption:=FloatToStr(n);

end;