Контрольная работа - 2
КОНТРОЛЬНАЯ РАБОТА.
ПЕРВЫЙ ВАРИАНТ КОНТРОЛЬНОЙ РАБОТЫ
1. Вычислить Y=A+B+C , применив:
а) - процедуру ввода данных;
- процедуру вычисления Y;
- процедуру вывода результата;
- глобальные переменные;
б) - заменить глобальные переменные на формальные;
в) - заменить процедуру вычисления суммы на функцию.
ВТОРОЙ ВАРИАНТ КОНТРОЛЬНОЙ РАБОТЫ
Получить таблицу значений аргумента и функции
на интервале от -5 до 15 с шагом 2
Повторяющуюся часть описать в функции, а получение таблицы описать в процедуре.
Program Primer;
Uses crt;
Function R(x:integer):real; {x – формальная переменная}
Begin
R:=sqrt(x+8);
End;
Procedure Tab;
Var x, n, h: integer; {x,n,h – локальные переменные}
Begin
X:=-5; n:=15; h:=2;
While x<=n do
Begin
Writeln(‘x=’,x,’ Y=’,(r(x)+2*(r(x)-2))/(4*(5-r(x))-r(x)) )
X:=x+h;
End;
End;
Begin
Clrscr;
Tab;
Readkey;
End.