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

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

Ответ: 2м

Задание12. Составить алгоритм вычисления y=7x² -3x+6

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

uses crt;

var x,y:integer;

begin clrscr;

writeln('Bведи значение х ');

C:=7*x*x D:=3*x

readln(x);

y:=7*(sqr(x))-3*x+6;

writeln('Y=',y);

Y:=C-D+6

readln;

end.

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

Ответ: 240

Задание13.Каков объем кислорода, содержащегося в комнате размером a*b*c, если кислород составляет 21% объема воздуха?

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

uses crt;

var a,b,c,v:real;

begin clrscr;

writeln('Bвeди a,b,c');

readln(a,b,c);

V:=0.21*a*b*c

v:=0.21*a*b*c;

writeln('объем кислорода=',v);

readln;

end.

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