Задание и порядок выполнения работы

Написать программу, в которой с помощью функции будет найдено среднее арифметическое двух переданных ей аргументов (параметров).

Для этого: Выберите Пуск / Все программы / PascalABC. Наберите текст программы по образцу:

Program W;

Var

a, b: real;

function average (c,d: real): real;

Begin

average:= (c + d) / 2;

end;

begin

writeln ('введите числа a b');

readln(a,b);

writeln (average (a,b));

end.

Выполнить компиляцию и запуск программы на выполнение. Выбрать пункт меню Программа ® Компилировать (Ctrl+F9). Исправить ошибки, если нужно. Выбрать пункт меню Программа ® Выполнить (клавиша F9). Сохранить программу в папку своей группы.

2. Выполнить самостоятельное решение задач:

Средний уровень

Дописать процедуру, используя язык программирования Паскаль, вычисляющую корни квадратного уравнения.

_________________________

Var

a, b, c: real;

procedure sq (a,b,c: _______);

var d, x1, x2: real;

begin

d:= ______ - 4 * _____;

______ d >= 0 then begin

x1:= (-b ________) / (2 * a);

x2:= (-_____ - ________) / (2 * a);

if x1 = x2 then

writeln ('x1 = ', x1)

else

writeln ('x1 = ', x1, '; x2 = ', x2)

end

else

____________ ('Корней нет!')

end;

Begin

write ('a = '); readln (a);

write ('b = '); readln (b);

write ('c = '); readln (c);

writeln (a:6:2,'x*x + ',b:6:2,'x + ',c:6:2,' = 0');

sq (a, b, c);

Readln

End.

Достаточный уровень

Написать программу, используя подпрограмму-функцию, которая будет вычислять значение y(x) по формуле:

Высокий уровень

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

Дополнительное задание

Составить программу вычисления площади выпуклого четырехугольника, заданного длинами четырех сторон и диагонали, используя процедуру.

Контрольные вопросы

4. Что представляют собой подпрограммы?
5. Какие виды подпрограмм вам известны?
6. Какие процедуры бывают?
4. Какие параметры называются формальными?
4. Какова структура оператора, вызывающего процедуры?