0 / 0 / 0
Регистрация: 21.09.2012
Сообщений: 74
|
|
1 | |
Переделать из паскаля в делфи31.05.2013, 11:59. Показов 382. Ответов 0
Метки нет (Все метки)
В озере водится несколько видов рыб. Три рыбака поймали рыб, представляющих некоторые из имеющихся видов. Определить:
• какие виды рыб есть у каждого рыбака; • какие рыбы есть в озере, но нет ни у одного из рыбаков. Код
uses Crt; type fish=(karp,karas,okun,sazan,shuka,som); mnz=set of fish; const n=3; naz:array[0..5] of string=('карп','карась','окунь','сазан','щука','сом'); var a:array[1..n] of mnz; i,f,w:byte; k:fish; begin clrscr; for i:=1 to n do begin writeln('Какие виды рыб поймал рыбак ',i); writeln('0-карп 1-карась 2-окунь 3-сазан 4-щука 5-сом 6-выход'); repeat readln(w); if w in [0..5] then a[i]:=a[i]+[fish(w)]; until w=6; end; writeln('Виды рыб есть у всех рыбаков:'); f:=0; for k:=karp to som do begin w:=0; for i:=1 to n do if k in a[i] then w:=w+1; if w=3 then begin write(naz[ord(k)],' '); f:=1; end; end; writeln; writeln; if f=0 then writeln('Таких видов рыб нет!'); writeln('Есть в озере, но нет у рыбаков:'); f:=0; for k:=karp to som do begin w:=0; for i:=1 to n do if k in a[i] then w:=w+1; if w=0 then begin write(naz[ord(k)],' '); f:=1; end; end; if f=0 then writeln('Таких видов рыб нет!'); readln end.
0
|
31.05.2013, 11:59 | |
Ответы с готовыми решениями:
0
Переделать из Паскаля в Делфи Из Паскаля в делфи переделать Переделать код с паскаля на делфи Переделать программу с Паскаля в Делфи |
31.05.2013, 11:59 | |
31.05.2013, 11:59 | |
Помогаю со студенческими работами здесь
1
Переделать программу из паскаля в делфи Переделать под с Паскаля в Делфи Переделать код турбо паскаля в делфи Нужно код из Паскаля, переделать под Делфи Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |