Написать программы для нахождения площадей: ромба трапеции круга параллелограмма​

Параллерограмм: S = a · h; трапеция: S = 1 (a + b) · h;

Площадь параллелограмма:

program chet;

var

sq, a , b : integer;

begin

writeln('Введите стороны параллелограмма ');

readln(a,b);

sq := a * b;

writeln('Площадь параллелограмма равна ', sq);

end.

Площадь трапеции:

program chet;

var

sq,h, a , b : real;

begin

writeln('Введите длину оснований ');

readln(a,b);

writeln('Введите высоту трапеции');

read(h);

sq := (a+b)/2 * h;

writeln('Площадь трапеции равна ', sq);

end.

Площадь круга:

program chet;

const

PI = 3.14;

var

sq,r : real;

begin

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

readln(r);

sq := PI * sqr(r);

writeln('Площадь круга равна ', sq);

end.

И площадь ромба:

program chetdsa;

var  

sq,d,g : real;

begin

writeln('Введите чему равны диагонали ромба');

readln(d,g);

sq := (d*g)/ 2;

writeln('Площадь ромба равна ', sq);

end.

Смотри картинку

Объяснение:

Крестик - начало слова, стрелка - конец.

Абак - счётные доски для вычислений в Древней Греции, Древнем Риме, Древнем Китае и т.д.

Арифмометр - настольная или портативная механическая вычислительная машина.

Перфокарта - носитель информации. Тонкий картон с отверстиями или без них в определённых местах.

Транзистор - полупроводниковое устройство, которое используется для усиления, генерации и преобразования электрических сигналов. Транзисторы заменили вакуумные лампы в большинстве электронных устройств, свершив революцию в создании интегральных схем и компьютеров.

ЭНИАК – первая электронная вычислительная машина.

Бэббидж Чарлз - изобретатель первой аналитической вычислительной машины.

Лавлейс Ада - написала первые программы для аналитической вычислительной машины Беббиджа.

Лейбниц - предложил двоичную систему счисления, автор первой механической счётной машины производившей сложение, вычитание, умножение и деление чисел.

Возняк Стив - один из основателей компании Apple. Разработал первый массовый домашний компьютер и первый массовый персональный компьютер.

Холлерит Герман - создатель электрической статистической табулирующей системы (оборудования для работы с перфокартами).

Непер Джон - изобретатель логарифмов, для их вычисления он предложил устройство под названием «палочки Непера».

Шиккард Вильгельм - придумал «Считающие часы», первый арифмометр, умевший выполнять четыре арифметических действия.

Паскаль Блез - автор первой механической счётной машины, выполнявшей сложение и вычитание чисел. (Паскаль - один из наиболее известных языков программирования.)

Лебедева Сергей - под его руководством была создана МЭСМ (малая электронная счётная машина).

{с клавиатуры вводится число до тех пор, пока не будет введено 3-х значное, сумма первых двух цифр записывается в a, сумма десятков и единиц - в b. Сравнивается какое из них больше и выводится в порядке возрастания}
Uses Crt;
var
a,c,b:integer;
begin
   ClrScr;
      repeat
          writeln('INPUT 3-x znachoe');
           readln(b);
      until (b>=100)and(b<=999);
a:=b div 100+(b div 10)mod 10;
c:=(b div 10)mod 10+b mod 10;
     if a<c then
         writeln(a,c)
else
         writeln(c,a);
Readkey;
end.