PROGRAM Z1; Образец
VAR A, H: INTEGER;
S: REAL;
BEGIN
WRITELN (‘ВВЕДИ ОСНОВАНИЕ ТРЕУГОЛЬНИКА’);
READLN (A);
WRITELN (‘ВВЕДИ ВЫСОТУ ТРЕУГОЛЬНИКА’);
READLN (H);
S:=A*H/2;
WRITE (‘ПЛОЩАДЬ ТРЕУГОЛЬНИКА РАВНА ‘, S);
END.
Составьте программы, которые позволят решать задачи:
1) Вычислить периметр треугольника
Переменные:
А, В, С – стороны треугольника (целые числа)
P – периметр (целое число)
Входные данные Выходные данные
3
4
5
12
2) Вычислить периметр и площадь квадрата
Переменные:
А - сторона квадрата (целые числа)
P – периметр квадрата (целое число)
S – площадь квадрата (целое число)
Входные данные Выходные данные
3 12
9
3) Вычислить площадь трапеции
Переменные:
А, В – основания трапеции (целые числа)
H – высота трапеции (целое число)
S – площадь трапеции (вещественное число)
Входные данные Выходные данные
10
7
4
34

Тут все

const
    handsfree = true;

var
    a: array[1..100] of real;
    i, n: integer;
    min, max: real;
    sum, product, harmonic: real;
    k: integer;

begin
    {ввод массива}
    if handsfree then
        n := random(20) + 5
    else begin
        write('n = ');
        readln(n);
    end;
   
    writeln('Данные массива:');
    for i := 1 to n do
    begin
        if handsfree then begin
            a[i] := random(100) - 50;
            write(a[i], ' ');
        end
        else readln(a[i]);
    end;
    writeln();
   
    {подсчет элементов}
    k := 0;
    for i := 1 to n do
        if a[i] > 5 then k := k + 1;
    writeln(k);
   
    {минимум и максимум}
    max := a[1];
    min := a[1];
    for i := 1 to n do
    begin
        if max < a[i] then max := a[i];
        if min > a[i] then min := a[i];
    end;
    writeln('max = ', max);
    writeln('min = ', min);
   
    {подсчет суммы и произведения и агригатов}
    sum := 0;
    product := 1;
    harmonic := 1;
    k := 0;
    for i := 1 to n do
    begin
        if true then {если нужен фильтр}
        begin
            sum := sum + a[i];
            product := product * a[i];
            harmonic := harmonic + 1 / a[i];
            k := k + 1;
        end;
    end;
    writeln('sum = ', sum);
    writeln('product = ', product);
    writeln('average = ', sum / n);
    writeln('average (selected) = ', sum / k);
    writeln('harmonic mean = ', n / harmonic);
    writeln('harmonic mean (selected) = ', k / harmonic);
   
    {изменение элементов}
    for i := 1 to n do
    begin
        if a[i] < 0 then
            a[i] := abs(a[i]);
        write(a[i], ' ');
    end;
end.

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