Тема: Pascal

1)

program zaDacha1;

var a,b,P:integer;

begin

writeln('vvod 2 chisel');

readln(a,b);

P:=2*(a+b);

writeln('perimetr=',P);

readln;

end.

2)

program zaDacha1;

var a,b:integer; P: real;

begin

writeln('vvod 2 chisel');

readln(a,b);

P:=(a+b)/2;

writeln('srednee=',P:5:2);

readln;

end.

3)

program zaDacha1;

var a,x,b:real;

begin

writeln('vvod 2 chisel');

readln(a,b);

x:=-b/a;

writeln('znachenie=',x:5:2);

readln;

end.

4)

program zadacha;

var x,y:real;

begin

writeln(x);

readln(x);

y:=15*x*x+8*x-9;

writeln('znacenie=',y:5:2);

readln;

end.

5)

program zadacha;

var a:string;

begin

writeln('my name is peniyk');

writeln('What is yuor name');

readln(a);

writeln('hello i' ,a);

readln;

end.

Вывод: познакомился с интерфейсом программы TurboPascal. Научился составлять код программы.

Практическая работа №6

Тема: Pascal

Цель:Познакомиться с интерфейсом программы TurboPascal. Научиться составлять код программы.