Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
ПРОЦЕДУРИ ТА ФУНКЦІЇ
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Кафедра інформаційних систем та мереж
Інформація про роботу
Рік:
2010
Тип роботи:
Лабораторна робота
Предмет:
Інші
Група:
КН
Частина тексту файла (без зображень, графіків і формул):
МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ „ЛЬВІВСЬКА ПОЛІТЕХНІКА”
Кафедра інформаційних
систем та мереж
Лабораторна робота №7
на тему
ПРОЦЕДУРИ ТА ФУНКЦІЇ
Львів-2010
Мета роботи Набуття практичних навиків у роботі з процедурами та функціями в Pascal, особливостями їх оголошення, організації та виклику.
Перший рівень Напишіть програму для пошуку максимального елемента матриці А(4,3), де зчитування і виведення матриці організоване з допомогою процедур чи функції.
program laba7_1;
type matrix = array [1..4,1..3] of integer;
procedure
readmatrix (var a: matrix);
var i,j :integer;
begin
for i:=1 to 4 do
for j:=1 to 3 do readln(a[i,j]);
end;
procedure writematrix (var a: matrix);
var i,j :integer;
begin
for i:=1 to 4 do begin
for j:=1 to 3 do write (a[i,j]:5); writeln ; end;
end;
var
a: matrix;
max : integer;
i,j : integer;
begin
readmatrix (a);
Max := a[1,1];
for i:=1 to 4 do begin
for j:=1 to 3 do
if a[i,j] > Max then Max := a[i,j]; end;
writematrix (a);
writeln (max);
readln;
end..
Другий рівень Напишіть програму для заміни місцями мінімального та максимального
елемента масиву В(7). Створіть функції та процедури, які б:
- Зчитали масив В;
- Елементи масиву В заповнили з допомогою функції Random(х), де х=Номер студента за списком+5;
- Замінили місцями максимальний та мінімальний елемент масиву В;
- Вивели змінений масив В на екран в рядок;
- Вивели змінений масив В на екран в стовпець.
program laba7_2;
uses crt;
const n=7;
type mas = array [1..n] of integer;
procedure readmas (var b: mas);
var i :integer;
begin
for i:=1 to n do readln(b[i]);
end;
procedure writemas (var b: mas);
var i :integer;
begin
for i:=1 to n do write (b[i]:5);
end;
procedure writelnmas (var b: mas);
var i :integer;
begin
writeln;
for i:=1 to n do writeln (b[i]);
end;
procedure change (var b: mas) ;
var temp,i,beg,maxi,mini : integer;
begin
beg:=b[1]; mini:=1;
for i:=1 to n do if beg>b[i] then
begin
beg:=b[i]; mini:=i;
end;
beg:=b[1]; maxi:=1;
for i:=1 to n do if beg<b[i] then
begin
beg:=b[i]; maxi:=i;
end;
temp:=b[maxi];
b[maxi]:=b[mini];
b[mini]:=temp;
end;
procedure randomi (var b:mas);
var i: integer;
begin
for i:=1 to n do b[i]:=random(10);
end;
var
b: mas;
begin
randomize; clrscr;
readmas (b);
change (b);
writemas (b);
randomi (b);
writelnmas (b);
readln;
end.
Висновок: на лабораторній роботі набув практичних навиків з процедурами та функціями в Pascal, особливостями їх оголошення, організації та виклику.
15.03.2012 12:03-
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора