Файл: Инструкция по решению некоторой задачи. Как и формулу, подпрограмму можно использовать для различных данных, передаваемых из главной программы или других подпрограмм.docx
ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 06.11.2023
Просмотров: 21
Скачиваний: 2
ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.
program E28;
var a1, b1, e, y: real; {a1, b1 - концы отрезка, е - точность, у -результат вычислений}
procedure precise ( a, b, eps: real; var c : real); {процедура уточнения корня}
begin
while abs ( b - a ) > eps do
begin
c : = ( a + b ) /2;
if f ( a ) * f ( c ) > 0
then a := c
else b := c
end;
c := ( a+ b) /2
end; { конец процедуры }
function f ( x : real ) : real; { заголовок функции }
begin
f := x * x - cos (x) + 0.5
end; { конец описания функции }
begin { начало главной программы }
write (‘ введите значения концов отрезка‘);
readln ( a1, b1);
write (‘ введите точность‘) ;
readln ( e );
precise ( a1, b1, e, y);
write ( ‘ корень f(x) на отрезке ‘ , a1, ‘,’ , b1, ‘равен ’ , y)
end.{конец главной программы }
Вопросы и задания.
1. Что такое подпрограмма и для чего она используется?
2. Объясните назначение локальных и глобальных переменных.
3. Как происходит обмен данными с процедурой без параметров?
4. Что такое формальные и фактические параметры?
5. К чему относится описание типа в конце заголовка подпрограммы-функции?
6. Чем отличается вызов функции от вызова процедуры?
7. Как задать значения элементов массива без использования оператора ввода?
8. Примеры программ предыдущих параграфов, кроме рассмотренных в данном, оформить с использованием процедур.