ДЕРЖАВНИЙ ВИЩИЙ НАВЧАЛЬНИЙ ЗАКЛАД “УЖГОРОДСЬКИЙ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ” Факультет інформаційних технологій Лабораторна робота №11 Лабораторна робота №11. Тема: Процедури та функції. Мета: Вивчення структур процедур та функцій та їх використання в програмі. Вивчити питання: Загальні відомості. Опис процедур користувача. Визначення і виклик функцій. Параметри. Рекурсивні підпрограми. Процедурний тип даних. Підпрограми як параметри. Завдання до роботи: Скласти програми на мові Pascal для розв'язування задач за індивідуальним завданням. Оформити звіт про виконання роботи та завантажити його в системі електронного навчання ДВНЗ «УжНУ» в установлений термін. Варіант 3 1. Дано дійсні числа s, t. Обчислити
, де
. 2. Дано масив Х(8). Скласти процедуру для утворення матриці А(8,8):
. ХІД РОБОТИ 1. Дано дійсні числа s, t. Обчислити
, де
. program E11; function G(a,b:real):real; begin G := (a*a+b*b)/(a*a+2*a*b+3*b*b+4); end; function Summ(a,b,c:real):real; begin Summ:=a+b-c; end; var s,t,g1,g2,g3,sm:real; begin write('s='); readln(s); write('t='); readln(t); sm:= G(1.2,s) + G(t,s)+ G(2*s-1,t); writeln('Summa=',sm:0:5); end. / 2. Дано масив Х(8). Скласти процедуру для утворення матриці А(8,8):
. const n=8; type TVector = array [1..n] of Longint; MatrixA = array [1..n] of TVector; procedure mGen(const v:TVector; var m:MatrixA); var i, j: Integer; begin m[1]:=v; for i:=2 to n do for j:=1 to n do m[i,j]:=m[1,j]*m[i-1,j]; end; var x: TVector; a: MatrixA; i,j:Integer; begin for i:=1 to n do x[i]:=i; mGen(x,a); WriteLn('A ='); for i:=1 to n do begin for j:=1 to n do Write(a[i,j]:9); WriteLn; end; end. / ВИСНОВОК. За допомогою даної лабораторної роботи я вивчила структури процедур та функцій та їх використання в програмі.