|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
13.05.2009, 19:53 | #1 |
Регистрация: 06.05.2009
Сообщений: 7
|
Продукты
Помогите дописать программу:
В некотором районе города находится 5 продовольственных магазинов. В каждый из них завезли некоторые продукты из тех, что есть на базе: хлеб, масло, молоко, мясо , рыба, соль, сыр, чай, кофе, творог, мука. Определить, какие продукты есть во всех магазинах, какие- хотя бы в одном; каких нет нигде. Не могу разобраться с выводом. Вот код: program lab32; uses crt; type m = (xleb,maslo,moloko,myaso,pblba,colb ,cblp,caxap,chai,kofe,tvorog,muka); mn = set of m; mas = array [1..10] of mn; Procedure spisok; begin Writeln ('spisok produktov '); writeln ('X-xleb':10,'M-maslo':10,'Q-moloko':10); writeln ('W-myaso':10,'P-pblba':10,'E-colb':10); writeln ('C-cblp':10,'R-caxap':10,'Y-chai':10); Writeln ('K-kofe':10,'T-tvorog':10,'U-muka':10); end; var n,i,q: byte; a:mas; str:string; f:char; d,nr:mn; j: set of m; begin clrscr; writeln ('skolko magazinov? '); Readln (n); spisok; for i:=1 to n do begin write (i,'-i magazin: '); readln (str); for q:=1 to length(str) do begin f:=str[q]; case f of 'X': a[i]:=a[i]+[xleb]; 'M': a[i]:=a[i]+[maslo]; 'Q': a[i]:=a[i]+[moloko]; 'W': a[i]:=a[i]+[myaso]; 'P': a[i]:=a[i]+[pblba]; 'E': a[i]:=a[i]+[colb]; 'C': a[i]:=a[i]+[cblp]; 'R': a[i]:=a[i]+[caxap]; 'Y': a[i]:=a[i]+[chai]; 'K': a[i]:=a[i]+[kofe]; 'T': a[i]:=a[i]+[tvorog]; 'U': a[i]:=a[i]+[muka]; end; end; end; j := [xleb,maslo,moloko,myaso,pblba,colb, cblp,caxap,chai,kofe,tvorog,muka]; d:=[]; nr:=[]; for i:=1 to n do begin d:=d*a[i]; nr:=nr*a[i]; end; j:=j-nr; writeln ('produktov net nigde: '); writeln ('produktbl vo vseh magazinah :'); readln; end. Заранее благодарен. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Проектирование электронных устройств (о том, как создаются новые продукты) | Askofen | Обсуждение статей | 0 | 12.04.2009 18:21 |
подсчитать все продукты с одинаковыми кодами, вывести количество в Едит | 4321 | БД в Delphi | 12 | 12.11.2007 11:52 |
Цены на продукты взвинтили прожорливые перекупщики А не бедные азиаты, как раньше уверял россиян министр | Alar | Свободное общение | 13 | 13.10.2007 03:17 |