ПОМОГИТЕЕЕЕЕЕЕ!!!!!!!

[stalker]

В озере водится несколько видов рыб. Три рыбака поймали рыб, представляющих некоторые из имеющихся видов. Определить:

1. какие виды рыб есть у каждого рыбака;
2. какие рыбы есть в озере, но нет ни у одного из рыбаков.

Решить с помощью МНОЖЕСТВЕННЫХ ТИПОВ ДАННЫХ.


ПОМОГИТЕ ПОЖАЛУЙСТА!!!! ЗАРАНЕЕ СПАСИБО и БОЛЬШОЙ РЕСПЕКТ...

----------

Тем с подобными названиями болше не создавать - буду удалять. Достали. AVer

[NightmareZ]

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

ПОМОГИТЕ ПОЖАЛУЙСТА!!!

10$ ( можно через WebMoney )

[Virtson]

на Delphi или просто Pascal ?
+ все задание напиши

[Alar]

Virtson, на паскале, я перенёс из того раздела...

[stalker]

А бесплатно слабо сделать **Начинающим прогерам надо помогать**....... ПОМОГИТЕ ПОМОГИТЕ ПОМОГИТЕ ПОМОГИТЕ.....

[zetrix]

А бесплатно слабо сделать **Начинающим прогерам надо помогать**....... ПОМОГИТЕ ПОМОГИТЕ ПОМОГИТЕ ПОМОГИТЕ

Просто человек во столько оценил своё время для решения этой задачи.
Если честно, я игнорирую темы с названием Help, Помогите, Хелп, сделайте одолжение и прочее...

[NightmareZ]

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

А бесплатно слабо сделать **Начинающим прогерам надо помогать**....... ПОМОГИТЕ ПОМОГИТЕ ПОМОГИТЕ ПОМОГИТЕ.....

Слабо. Потому что это наглость. Ты приходишь на форум и предлагаешь на тебя поработать.... нахаляву.

Другое дело, если б ты написал что ты наработал, что у тебя в результате твоих мучений получилось и где у тебя возникли трудности. Тогда б, я думаю, тебе помогли бы.

З.Ы. Я не считаю тебя "Начинающим прогерам". Я думаю ты поступил по блату на какой-нить программерский факультет потому что это модно, а теперь хочешь чтоб за тебя выполняли задания. Также я думаю, что из-за таких как ты некоторые люди, которые не смогли забашлять останутся без образования.... а от тебя в результате толка всё-равно не будет.
Это, конечно, моя имхастая ИМХА.... может я и неправ.

--------------------

Вообще я категорически против ругани на форуме, но это сообщение удалять не буду из-за справедливости сказанных слов. Пусть это будет поучением для людей с подобными вопросами. AVer

[stalker]

На счет халявного поступления ты ГЛУБОКО ошибаешься, если бы я был мажором я бы не лазил по форумам, а заплатил бы деньги и жил бы спокойно.......

[stalker]

Я попытался сделать,но показав преподу он сказал, что она не правельна......

program stalker;
uses crt;
var m1,m2,m3,m4,m5:set of char;
a:array[1..100] of string;
s1,s2,s3,s4,s5:string;
ms1,ms2,ms3,ms4,ms5,m:set of char;
i,j,x,o,n,k,l,v,q,g:integer;
c:char;
begin
clrscr;
s1:='окунь';
m1:=[];
for i:=1 to length(s1) do
m1:=m1+[s1[i]];
s2:='карп';
m2:=[];
for i:=1 to length(s2) do
m2:=m2+[s2[i]];
s3:='карась';
m3:=[];
for i:=1 to length(s3) do
m3:=m3+[s3[i]];
s4:='налим';
m4:=[];
for i:=1 to length(s4) do
m4:=m4+[s4[i]];
s5:='пискарь';
m5:=[];
for i:=1 to length(s5) do
m5:=m5+[s5[i]];
writeln('в списке имеются следующие рыбы:');
writeln(s1,' ',s2,' ',s3,' ',s4,' ',s5);
o:=3;
for x:=1 to o do
begin
writeln('введите количество рыб пойменных ',x,' рыбаком');
readln(n);
for i:=1 to n do
begin
writeln('введите название ',i,' рыбы');
readln(a[i]);
end;
for i:=1 to n do
begin
write(a[i],' ');
end;
for i:=1 to n do
begin
m:=[];
for j:=1 to length(a[i]) do
m:=m+[a[i][j]];
if m=m1 then k:=k+1;
if m=m2 then l:=l+1;
if m=m3 then g:=g+1;
if m=m4 then q:=q+1;
if m=m5 then v:=v+1;
end;
end;
writeln('рыбы которые есть у каждого рыбака:');
if k=o then writeln(s1);
if l=o then writeln(s2);
if g=o then writeln(s3);
if q=o then writeln(s4);
if v=o then writeln(s5);
writeln('рыбы которые есть в озере, но нет ни у одного из рыбаков:');
if k=0 then writeln(s1);
if l=0 then writeln(s2);
if g=0 then writeln(s3);
if q=0 then writeln(s4);
if v=0 then writeln(s5);
readkey;
end.

[NightmareZ]

Извиняюсь. Не буду ругаться

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

В озере водится несколько видов рыб.

Количество задаётся жёстко, генерируется случайным образом или вводится пользователем?

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

Три рыбака поймали рыб, представляющих некоторые из имеющихся видов.

Как определяется эта информация?