Задача

Составить программу для  нахождения площади  равнобедренной трапеции.

Решение

program Ploshad;

var S,r,sinA:real;

begin

writeln('radius okryzhosti i sinA');

readln(r);

readln(sinA);

S:=4*r*r/sinA;

writeln('ploshad=', S:2:2);

end.

Выполнение

Alt+F9 – компиляция, проверка на ошибки.

Ctrl+F9-выполнение программы.

Вводим переменные(r=2. sinA=1/2).

Alt+F5 – просмотре результатов.

Получаем на экране ответ S=32.

Объяснение

program Ploshad; (название программы)

var S,r,sinA:real; (переменные в программе)

begin(начало рабочей области)

writeln('radius okryzhosti i sinA'); (оператор ввода оповещает о необходимости ввести переменные)

readln(r);

readln(sinA); (считывается значение переменных в память компьютера)

S:=4*r*r/sinA; (рассчитывается площадь равнобедренной трапеции)

writeln('ploshad=', S:2:2); (вывод результата на экран)

end. (конец рабочей области)