Программирование линейных алгоритмов на языке Pascal ABC

Программирование линейных алгоритмов на языке Pascal ABC

1.      Составить программу, для вычисления площади круга.

Program Primer_4;

Const pi = 3.14;

Var

r,S:real;

Begin

writeln ('введите радиус');

readln (r);

S:=pi*sqr(R);

writeln('S=',S:3:3);

end.

2.      Разработать программу для ввода 4-х целых чисел и подсчитать их среднее арифметического значение.

Program Primer_4;

Var

a,b,c,d,x:real;

Begin

writeln ('введите a');

readln (a);

writeln ('введите b');

readln (b);

writeln ('введите c');

readln (c);

writeln ('введите d');

readln (d);

x:=(a+b+c+d)/4;

writeln('x=',x:3:3);

end.

3.      Разработать программу, для вычисления дискриминанта квадратного уравнения.

Program Primer_4;

Var

a,b,c,D:real;

Begin

writeln ('введите a');

readln (a);

writeln ('введите b');

readln (b);

writeln ('введите c');

readln (c);

D:=sqr(b)-4*a*c;

writeln('D=',D:3:3);

end.

4.      Разработать программу для вычисления S=(2x+y)*(x-y)

Program Primer_4;

Var

S,x,y:real;

Begin

writeln ('введите x');

readln (x);

writeln ('введите y');

readln (y);

S:=(2*x+y)*(x-y);

writeln('S=',S:3:3);

end.