Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Лабораторна робота №11
Інформація про навчальний заклад
ВУЗ:
Ужгородський національний університет
Інститут:
Не вказано
Факультет:
Програмна Інженерія
Кафедра:
Не вказано
Інформація про роботу
Рік:
2018
Тип роботи:
Лабораторна робота
Предмет:
Основи програмування та алгоритмічні мови
Частина тексту файла (без зображень, графіків і формул):
ДЕРЖАВНИЙ ВИЩИЙ НАВЧАЛЬНИЙ ЗАКЛАД
“УЖГОРОДСЬКИЙ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ”
Факультет інформаційних технологій
Лабораторна робота №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.
/
ВИСНОВОК.
За допомогою даної лабораторної роботи я вивчила структури процедур та функцій та їх використання в програмі.
03.05.2018 21:37
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора