Презентация на тему Процедуры. Как писать программы. (Лекция 8)

три стороны треугольника. Если такой треугольник существует, то вычислить

и вывести на экран площадь треугольника, иначе сообщить, что треугольник не существует.

Сформулируем алгоритм решения задачи.

Соблюдаем следующие правила:
В

каждой строчке одна фраза (одно действие)
Действие должно иметь результат (нельзя, например, написать «проверяем», так как что в данном случае будет результатом?)
Сам алгоритм записываем между словами begin и end
Алгоритм описывается в виде комментариев.

Если треугольник существует, то
//Вычисляем площадь треугольника

//Выводим площадь треугольника
//иначе
//сообщаем, что треугольник не существует
end.

Сопоставим каждой фразе алгоритма оператор языка Паскаль.

При этом
Одной фразе должен соответствовать один оператор . Если такого оператора нет, то придумываем новый (пишем вызов процедуры)
Сразу же указываем параметры процедур в скобках.
Оператор языка паскаль (или процедура) пишется слева от соответствующей фразы алгоритма.

этой программе
 var
   A, B, C, S:real;
begin
vvod(A,B,C);
if (a

then
   begin
     sq(a,b,c,s);
     writeln(s);
 end
else
    writeln(‘Не существует’);
end.

// Вводим коэффициенты A,B,C
//  Если сущ. треугольник, то
 

// Считаем площадь
// Выводим площадь треуг
 
// Иначе //Сообщаем, что треуг нет

вызывающей процедуры.
Если процедура сложная, то снова пишем алгоритм и

так далее.

writeln(‘Введите A’);
readln(K1);

writeln(‘Введите B’);
readln(K2);
writeln(‘Введите C’);
readln(K3);
end;

vvod (A, B, C)

K1

K2

K3

2

3

4

Параметры - переменные