Вводится 2 множеств. Каждое из 5 цифр. Напечатать числа второго множества, входящие в первое множество - Turbo Pascal
Формулировка задачи:
Не работает. В чём может быть причина?
Решение задачи: «Вводится 2 множеств. Каждое из 5 цифр. Напечатать числа второго множества, входящие в первое множество»
textual
Листинг программы
Program N1; Uses crt; const c=[0..9]; var n,z,x:set of 0..9; i,j:integer; Begin clrscr; writeln('Введите 5 цифр в первое множество'); n:=[]; for i:=1 to 5 do begin repeat readln(j); until(j in c)and not(j in n); n:=n+[j]; end; writeln('Введите 5 цифр во второе множество'); z:=[]; for i:=1 to 5 do begin repeat readln(j); until(j in c)and not(j in z); z:=z+[j]; end; clrscr; writeln('Первое множество'); for i:=0 to 9 do if i in n then write(i:2); writeln; writeln('Второе множество'); for i:=0 to 9 do if i in z then write(i:2); writeln; x:=n*z; if x=[] then write('Во втором множестве нет цифр из первого') else begin writeln('Цифры второго множества, которые есть в первом'); for i:=0 to 9 do if i in x then write(i:2); end; readln end.
Объяснение кода листинга программы
Программа начинается с объявления необходимых переменных и констант. Затем происходит ввод 5 цифр в первое множество и сохранение их в переменной n. После этого происходит ввод 5 цифр во второе множество и сохранение их в переменной z. Далее происходит очистка экрана и вывод содержимого обоих множеств. Если второе множество не содержит цифр из первого, выводится сообщение об этом. В конце программы вычисляется произведение двух множеств и выводится результат.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д