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

Слайд 2

Решим следующую задачу С клавиатуры вводятся три числа – три стороны

Решим следующую задачу

С клавиатуры вводятся три числа – три стороны треугольника.

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

При написании программы выполняются следующие шаги Шаг 1. Сформулируем алгоритм решения

При написании программы выполняются следующие шаги

Шаг 1.
Сформулируем алгоритм решения

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

Пишем алгоритм решения Begin //Вводим стороны треугольника A, B, C //

Пишем алгоритм решения

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

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

При написании программы выполняются следующие шаги Шаг 2. Сопоставим каждой фразе

При написании программы выполняются следующие шаги

Шаг 2.
Сопоставим каждой фразе

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

Шаг 3. Опишем переменные, встретившиеся в этой программе var A, B,

Шаг 3. Опишем переменные, встретившиеся в этой программе

 var
   A, B, C,

S:real;
begin
vvod(A,B,C);
if (a   begin
   sq(a,b,c,s);
   writeln(s);
 end
else
  writeln(‘Не существует’);
end.
// Вводим коэффициенты A,B,C
//  Если сущ. треугольник, то
// Считаем площадь
// Выводим площадь треуг
// Иначе //Сообщаем, что треуг нет
Слайд 7

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

Шаг 4 Опишем все процедуры.

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

то снова пишем алгоритм и так далее.
Слайд 8

Procedure vvod(var K1, K2, K3:real); begin writeln(‘Введите A’); readln(K1); writeln(‘Введите B’);

Procedure vvod(var K1, K2, K3:real);
begin
writeln(‘Введите A’);
readln(K1);
writeln(‘Введите B’);


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

vvod (A, B, C)

K1

K2

K3

2

3

4

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