Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
0 / 0 / 0
Регистрация: 04.11.2013
Сообщений: 7

Нужно поправить код

23.11.2013, 20:13. Показов 618. Ответов 0
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
В городе N, 100 кондитерских магазинов. Известно что в каждом из магазинов не более 20 видов сластей в ассортименте. Какие виды сластей есть во всех магазинах. Существует ли магазин торгующий уникальной продукцией. Перечислите 5 видов сластей которые есть в большинстве магазинов города N. (ассортимент кондитерских магазинов рассматривается как длинна перечисляемого типа).
Выручайте срочно нужно сделать. Сделать нужно через множества.
В общем я сделал некую часть кода - поправьте пожалуйста, потому что он не правильно работает + нужно доделать еще условие последнее. Буду очень благодарен.
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
32
33
34
35
36
37
38
39
40
41
42
43
44
Program v2;
uses CRT;
const n=3; m=5;
type asort=set of 1..m;
var
    A:array[1..n] of asort;
    i,j,x,z:byte;
    c:1..m;
    b:boolean;
begin
   for i:=1 to n do
     begin
         write('Ìàãàçèí ¹',i,'(ñëàñòåé äî 5)=');
         Readln(x);
         if x<=m then
               for j:=1 to x do
                   begin
                     write('Cëàñòü ¹',j,'=');
                     Readln(c);
                     include(A[i],c);
                   end;
       end;
    write('Ìàãàçèíû òîðãóþùèå óíèêàëüíîé ïðîäóêöèåé=');
    for i:=1 to n do
     begin
       b:=true;
       for  j:=1 to n do
          if (A[i]=A[j]) and (i<>j) then b:=false;
        if b then write(i,' ');
     end;
 
    writeln;
    write('Âèäû ñëàñòåé êîòîðûå åñòü âî âñåõ ìàãàçèíàõ=');
    for i:=1 to m do
     begin
       b:=false;
       for j:=1 to n do
          if (i in A[j]) then
               begin
                b:=true;
               end;
       if b then write(i,' ');
      end;
end.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
23.11.2013, 20:13
Ответы с готовыми решениями:

Массивы и процедуры. Поправить код!
Дан целочисленный массив A. Написать программу, включающую две процедуры с параметрами. Первая процедура считает количество повторений...

Нужно перевести код из С++ в Паскаль
Язык С++ совершенно не знаю, а времени чтобы понять его -нет. Завтра уже нужно сдавать программу. Помогите, пожалуйста! #include...

Нужно перевести код из с++ в pascal
#include &lt;iostream&gt; #include &lt;ctime&gt; #include &lt;cmath&gt; using std::cout; using std::cin; using std::endl; int main() ...

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
23.11.2013, 20:13
Помогаю со студенческими работами здесь

Нужно переделать код из Паскаля в C++
Составьте циклический алгоритм и программу для вычисления результата по формуле. Для проверки программы задать X=0,5, n=20. (3 формула)

Поправить код
Нужно чтобы при запуске программы можно было ввести число N,если это возможно. Я пока ток сделал так, чтобы заранее число было введено. ...

Нужно изменить программу, нужно тоже самое, только чтобы код программы был другим
unit Unit1; interface uses System, System.Drawing, System.Windows.Forms; type Form1 = class(Form) procedure...

Нужно оптимизировать код
Не могу понять как можно оптимизировать данную программу: var s: string; s1, s2, s3, i, n: integer; a: arrayof string; ...

3 задания, нужно поправить код!
Доброго времени суток, я новичок в паскале и пока ещё не во всём разобрался и вот возникли проблемки в прогах, помогите пофиксить плиз! ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Новые блоги и статьи
1С: Контроль уникальности заводского номера
Maks 23.03.2026
Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .
Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения
anaschu 22.03.2026
e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git
1С: Программный отбор элементов справочника по группе
Maks 22.03.2026
Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .
Как я обхитрил таблицу Word
Alexander-7 21.03.2026
Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a
AmbA 21.03.2026
без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
1С: Программный отбор элементов справочника по значению перечисления
Maks 21.03.2026
Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .
Переходник USB-CAN-GPIO
Eddy_Em 20.03.2026
Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru