Хід роботи.
Завантажити середовище Pascal.
Набрати текст програми по роботі підпрограми функції
Program LR31;
Var a, b : integer;
x, y : real;
function Fx(x: real): real;
begin
Fx:=sin(x)+sqrt(x)
end;
Begin
b:=20; a:=5;
writeln(‘x=’); read(x);
y:=Fx(x);
writeln(‘y=’,y)
End.
Занести результат роботи до протоколу
Y=_________.
Набрати текст програми по роботі підпрограми функції
Program LR31;
Var a, b : integer;
x, y : real;
procedure Fx(x: real; var y:real);
begin
y:=sin(x)+sqrt(x)
end;
Begin
b:=20; a:=5;
writeln(‘x=’); read(x);
Fx(x,y)
writeln(‘y=’,y)
End.
Занести результат роботи до протоколу
Y=_________.
6. Написати програму по обрахунку значення у функції (підпрограма функція з п.2), в якій значення х змінюється в циклі з кроком 1 від 5 до 15. В кожному кроці циклу виводи значення у.
7. Занести значення х та у до протоколу
Х:
______|______|______|______|______|______|______|______|______|______|
Y:
______|______|______|______|______|______|______|______|______|______|
Звіт повинен містити назву роботи, мету, короткі теоретичні відомості, тексти виконуваних програм п.2, 4, 6 та їх результати роботи.
Контрольні запитання
1. Навести приклад заголовку підпрограми-функції ?
2. Навести приклад заголовку підпрограми-процедури ?
3. Де в наступному рядку помилка ?
Function Fx (x:real; var y:real) :integer;
4. Де в наступному рядку помилка ?
Procedure ABC(x:integer, y:real): real;
Лабораторна робота №5
Побудова графіків елементарних функцій.
Мета роботи : Дослідити графічний режим в Pascal на прикладі побудови графіка функції однієї змінної.
Теоретичні відомості
Підключаючи модуль Graph користувач може працювати в графічному режимі. B даній роботі відбувається побудова графіка функції, на прямокутну ділянку розміром L пікселів по горизонталі та H пікселів по вертикалі відображується прямокутна область площини Х0Y, обмежена по горизонталі значеннями Xmin, Xmax, а по вертикалі, Ymin та Ymax, відповідно до заданого варіанту Nvr.
Визначення параметрів системи координат починаємо з обчислення Dx – ціни одного пікселя по горизонталі та Dy – по вертикалі, за умови, що ширина L та висота H заданої області на екрані використовуються повністю (це характерно для God=false).
Dx=(Xmax-Xmin)/L;
Dy=(Ymax-Ymin)/H.
Після визначення фактичних розмірів прямокутника L0 х H0, він розміщується в центрі екрана (координати Хu, Yu визначають лівий верхній кут прямокутника). Розраховуються також Х0, Y0 – екранні координати точки, куди відображується початок системи координат Х0Y. Для подальшої розмітки шкал, нанесення координатної сітки та оцифровування шкал визначаються початкові значення Xn, Xk, Yn, Yk.
Процедура Clear - призначена для стирання зображення в межах прямокутної області, яка задається координатами Х1,Y1 лівого верхнього та X2,Y2 правого нижнього її кутів.
Горизонтальні та вертикальні прямі для зображення відповідних осей системи координат формує процедура SystCoor.
Формування на екрані ламаної, що зображує графік функції, заданої масивом Мо:CoefL, кольором С реалізується процедурою Graphic (type CoefL = array[-1..601] of real).
В нижньму рядку екрана розміщено інформаційний рядок, що інформує користувача про поточне значення змінних функції. Формується інформаційний рядок в змінній Ts:String[80], звільняє місце для неї і виводить Ts у відповідному місці процедура Info.
Модуль Groms відповідає за оцифровку та нумерацію графіка.