Определить список из 10-ти названий товаров в магазине

@Wilson · 18.04.2016, 17:31

Студворк — интернет-сервис помощи студентам

Здравствуйте, нужна помощь.
Задали сделать лабораторную работу на Паскале, а именно:
Определить список из 10-ти названий товаров в магазине. Построить 5 множеств из различных элементов этого списка. Вывести на экран названия объектов, которые находятся во всех множествах одновременно. Вывести объекты, которые не входят ни в одно множество. Вывести объекты , которые входят в 3,4 и 5 множество. Программу я сделал, но сказали немного переделать.
Множества должны быть случайными, а не заданными так, как это сделано у меня.
Кто может помочь с данной программой?

@Wilson · 18.04.2016, 17:38

(Фотография текста удалена)

@ZX Spectrum-128 · 18.04.2016, 18:46

Wilson, зачем вы скрин программы выкладываете? Положите текст программы.

@Wilson · 18.04.2016, 20:43

Да я не знаю просто как, еле еле так хоть выложил.

@ZX Spectrum-128 · 18.04.2016, 21:02

Откройте программу Блокнотом, скопируйте текст программы и вставьте.

@Wilson · 19.04.2016, 10:45

Дело в том, что программа была написана на паре в колледже, а не на домашнем компьютере.

@capricornus CF · 19.04.2016, 12:31

Сообщение от Wilson

была написана на паре в колледже

Перепишите руками в сообщение, не забыв поставить теги pascal.

@Wilson · 19.04.2016, 14:47

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
program laba;
uses crt;
 
const nf=10; ns=5;
list: array [1..nf] of string[15]=('Молоко','Хлеб','Яйца','Макароны','Мясо','Йогурт','Сок','Кефир','Капуста','Творог');
sets:array[1..ns] of set of 1..10=(2..7],[2,4,6,8,10],[3,4,5,7,9],[4..10],[2..8]);
 
var i:Integer;
s:set of 1..10;
begin
clrscr;
writeln('Во всех множествах: ');
s:=[1..10];
begin
for i:=1 to ns do s:=s*sets[i];
for i:=1 to nf do if i in s then
writeln(list[i]);
writeln(' ');
writeln('Ни в одном из множеств: ');
s:=[1..10];
for i:=1 to ns do s:=s-sets[i];
fir i:=1 to nf do if i in s then
writeln(list[i]);
writeln(' ');
writeln('В 3,4 и 5 множество входят: ');
s:=sets[3]*sets[4]*sets[5];
for i:=1 to nf do if i in s then
writeln(list[i]);
readln;
end;
end.

Новые блоги и статьи Все статьи Все блоги /
Из невошедшего на форум (диалог с ИИ-гугла) zorxor 29.07.2026 А вот, что интересно, сказал мне ИИ-гугла: Этот текст — эмоциональный пост пользователя под ником zorxor на интернет-форуме (вероятно, посвященном мистике, непознанному или альтернативной науке). . . .	Был праздник вчера, а я и не знал. kumehtar 28.07.2026 27. 07. 2026г. Intel Core 2 Duo исполнилось 20 лет Новости компьютерного мира и их обсуждение (4) Салют, шампанское, овации! :drink:
Нейтральные знания, чистый код - бла-бла-бла-бла, на самом деле кликбейт и самореклама, плагиат, и вот почему Hrethgir 27.07.2026 То-есть отклонение такой публикации говорит само за себя, и пусть только возьмут на вооружение после отклонения публикации - это будет чистейшим актом плагиата. Отклонял Хабр. Дословно, отклонённая. . .	тв 16 бой ии anaschu 27.07.2026 Великий Перелом ИИ: Как уравнения ОДУ Radau дожали цензурные фильтры Алисы Фиксируем в мемофонде Теории Всего беспрецедентный факт в истории ИИ-зондирования. В затяжном многораундовом. . .
мв 15. непроверенное, возможно, глюк anaschu 27.07.2026 НАУЧНО-АНАЛИТИЧЕСКИЙ ОТЧЕТ. РАЗДЕЛ 1. 1: «НАУКА» (РАСШИРЕННАЯ СТЕХИОМЕТРИЧЕСКАЯ И ГЕНЕТИЧЕСКАЯ ВЕРСИЯ)Тема: Теоретическое обоснование инвариантности 19-мерного тензорного ядра непрерывных ОДУ и. . .	Очистка реквизитов и табличных частей документа при копировании (вариант 2) Maks 26.07.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРаботу", разработанного в КА2. Задача: Заменить алгоритм запрета копирования документов для сотрудников с ролью "Стажер",. . .

Опции темы