Отчет по практике: Редактирование и отладка программ с помощью Pascal

v:=a*a*a;

s:=4*a*a;

writeln(‘объем=’,v,’площ.бок.пов.=’,s);

readln;

end.

(Вводим значение 5)

Ответ:v=125,s=100

Задание 8. Составить алгоритм вычисления y=2² *((a +b)/2)

program as; Блок-схема

uses crt;

var a,b,c:integer; d,y:real;

begin clrscr;

writeln('Введи значение а,b');

readln(a,b);

C:= a +b

c:=a+b;

D:=c/2

d:=c/2;

y:=sqr(2)*d;

Y:=(2*2)*d

writeln(y:5:2);

readln;

end.

(Вводим значение 5,5)

Ответ: 20

Задание 9.Известна длина окружности.Найти площадь круга, огранич. этой окружностью

program as; Блок-схема

uses crt;

var a,b:real;

begin clrscr;