Завдання 1. Перелічувальний та інтервальний типи даних.Скласти схему алгоритму і програму по для індивідуального завдання згідно таблиці 6.1
Завдання № 2. Тип даних множина.Даний список деяких об’єктів. Побудувати 5 множин, які складаються з різних комбінацій елементів цього списку. Виведісти на екран назви об’єктів, які знаходяться в усіх множинах одночасно. Визначити, які об’єкти не входять до жодної множини. Виконати додаткове завдання:
ПРИКЛАД ВИКОНАННЯ ЗАВДАННЯ:
Приклад № 1 Скласти программу, яка виводить на екран дисплею текст правил дорожного руху, які вказують на сигнали світлофора.
Program primer;
TYPE svet_= (red, yellow, green);
Var signal: svet;
Begin
For signal :=red to green do
Case signal of
Red: begin
Writeln(‘Червоний сигнал ’);
Writeln(‘забороняєть рух’);
End;
Yellow : begin
Writeln(‘Жовтий сигнал’);
Writeln(‘попереджує про наступну зміну сигналів’);
End;
Green: begin
Writeln(‘Зелений сигнал’);
Writeln(‘дозволяє рух’);
End;
End;
End.
Приклад № 2 Описати множину М (1 .. 50). Зробити ії порожньої. Вводячи цілі числа з клавіатури, заповнити множину 10-ма елементами.
Program InputMno;
Var
M : set of 1..50;
X, i : integer;
Begin
M := [ ];
i :=1;
repeat
write('Введіть ',i,'-й елемент множини');
readln(X);
if (X in M)
then
writeln(Х, ' вже присутній у множіні')
else
if (X < 1) or (X > 50)
then
writeln('Недопустиме значення ', Х)
else
begin
writeln(Х, ' у множині');
M := M+[X];
i := i+1;
end;
until i>10;
End.
