10-Лекция 05-06 Процедуры

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

Соблюдаем следующие правила:
В каждой строчке одна

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

дискриминант D}
{Если D>=0, то}
{Считаем корни квадратного уравнения

X1 и X2}
{Выводим значения корней X1 и X2}
{иначе}
{Сообщаем, что действительных корней нет}
end.

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

При этом
Одной фразе

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

 A, B, C, D, X1, X2:real;
begin
vvod(A,B,C);
D:=sqr(B)-4*A*C;

if D>=0 then
   begin
     calc(A,B,D,X1,X2);
     print(X1,X2);
 end
else
    writeln(‘Not real roots’);
readln 
end.

{ Вводим коэффициенты A,B,C}
{ Считаем дискриминант D}
{  Если дискриминант >=0, то}
 
{ Считаем корни x1,x2 }
{ Выводим значение корней x1, x2}
 
{ Иначе}
{Сообщаем, что действительных корней нет }

процедура сложная, то снова пишем алгоритм и так далее.

Writeln( 'x2=‘, xs);
end;
9
4
`
Print (X1, X2 )
Параметры - значения

writeln(‘Enter A’);
readln(K1);
writeln(‘Enter

B’);
readln(K2);
writeln(‘Enter C’);
readln(K3);
end;

vvod (A, B, C)

K1

K2

K3

-2

3

1

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

x2:=(-B – sqrt(D))/(2*A);
end;

значением с переменной B, а переменная C - с переменной

D. При решении определите процедуру, осуществляющую обмен значениями двух переменных.
Задание 2
Даны стороны двух треугольников. Найти сумму их периметров и сумму их площадей. Определить процедуры для расчета периметра и площади треугольника по его сторонам.
Задание 3
Найти площадь кольца, внутренний радиус которого равен R1, а внешний - R2. Определить и использовать процедуру вычисления площади круга.
Задание 4
Найти площадь выпуклого четырехугольника, вершины которого заданы своими координатами.
Задание 5.
Дано целое положительное число А, значение которого вводится с клавиатуры.
Напишите программу, позволяющую:
найти минимальную цифру среди первых трех цифр числа
вывести на экран найденную цифру
если цифр меньше трех, то выдать сообщение «невозможно выполнить заданную операцию»