Напишите программу которая вычислит площадь фигур в )круг 2)прямоугольник 3)квадрат 4)паралеллограм

1) по заданному радиусу:

 

program n1; uses crt; var r,s: real; beginclrscr; writeln('vvedite radius'); readln(r); s: =r*r*pi; writeln('ploshad =',s: 4: 4); readlnend.

 

2) по заданным сторонам:

program n1; uses crt; var a,b,s: real; beginclrscr; writeln('vvedite storoni'); readln(a,b); s: =a*b; writeln('ploshad =',s: 4: 4); readlnend.

 

3) по заданной стороне

program n1; uses crt; var a,s: real; beginclrscr; writeln('vvedite storony'); readln(a); s: =a*a; writeln('ploshad =',s: 4: 4); readlnend.

 

3) по одной стороне и высоте к ней:

program n1; uses crt; var a,b,s: real; beginclrscr; writeln('vvedite storony i vysoty k nei'); readln(a,b); s: =a*b; writeln('ploshad =',s: 4: 4); readlnend.

Так,сначала теория.

В формуле Герона (коя используется в этой программе) используется полупериметр!

Это означает, что надо ввести переменную полупериметра ( pp, к примеру). Тогда программа примет вид:

program P1;

var

a, b, c, p: integer;

pp, s: real;

begin

write('Введите сторону a = ');

readln(a);

write('Введите сторону b = ');

readln(b);

write('Введите сторону c = ');

readln(c);

p := a + b + c;

writeln('Периметр треугольника P = ', p);

pp := p / 2;

s := sqrt(pp * (pp - a) * (pp - b) * (pp - c));

writeln('Площадь треугольника S = ', s);

end.

Также замечу, что полупериметр и площадь относятся не к целочисленному типу данных.

И да, обращайте внимание на оформление.

Табуляции в программе, "сторона" вместо "координата", пробелы до и после равно, чтобы всё не выглядело слипшимся.

Сортировка массива — это процесс распределения всех элементов массива в определенном порядке. Очень часто это бывает полезным. Например, в вашем почтовом ящике электронные письма отображаются в зависимости от времени получения; новые письма считаются более релевантными, чем те, которые вы получили полчаса, час, два или день назад; когда вы переходите в свой список контактов, имена обычно находятся в алфавитном порядке, потому что так легче что-то найти. Все эти случаи включают в себя сортировку данных перед их фактическим выводом.

Объяснение:

думаю правильный ответ