Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Лабораторна робота №12
Інформація про навчальний заклад
ВУЗ:
Ужгородський національний університет
Інститут:
Не вказано
Факультет:
Програмна Інженерія
Кафедра:
Не вказано
Інформація про роботу
Рік:
2015
Тип роботи:
Лабораторна робота
Предмет:
Основи програмування та алгоритмічні мови
Частина тексту файла (без зображень, графіків і формул):
ДЕРЖАВНИЙ ВИЩИЙ НАВЧАЛЬНИЙ ЗАКЛАД
“УЖГОРОДСЬКИЙ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ”
Факультет інформаційних технологій
Лабораторна робота №12
Лабораторна робота №12.
Тема: Робота з множинами.
Мета: Застосування операцій над множинами для розв'язування задач.
Вивчити питання: Множина. Опис типу. Операції над множинами.
Завдання до роботи:
Скласти програму на мові Pascal для розв'язування задачі за індивідуальним завданням. Оформити звіт про виконання роботи та завантажити його в системі електронного навчання ДВНЗ «УжНУ» в установлений термін.
Варіант 3
Дано N множин. Визначити елементи, які існують у всіх множинах.
ХІД РОБОТИ
Дано N множин. Визначити елементи, які існують у всіх множинах.
uses crt;
type mnz=set of byte;
var a:array[1..100] of mnz;
n,i,j,x:byte;
m:mnz;
begin
clrscr;
write('Kilkist mnozun n=');
readln(n);
writeln('Enter elements ',n,' mnozun, end enter-number mnozunu:');
for i:=1 to n do
begin
writeln('mnozuna',i);
a[i]:=[];
repeat
repeat
readln(x);
until x in [0..255];
a[i]:=a[i]+[x];
until x=i;
end;
clrscr;
writeln('Vuxidna mnozuna:');
for i:=1 to n do
begin
write(i:2,'-> ');
for j:=0 to 255 do
if j in a[i] then
write(j:4);
writeln;
end;
m:=a[1];
for i:=1 to n do
m:=m*a[i];
writeln('Elements all mnozun:');
if m=[] then write('No elements!')
else
for j:=0 to 255 do
if j in m then write(j:4);
readln
end.
/
/
ВИСНОВОК
За допомогою даної лабораторної роботи я навчилася застосовувати операцій над множинами для розв'язування задач.
03.05.2018 21:05-
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора