|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
01.02.2007, 20:18 | #1 |
Пользователь
Регистрация: 01.02.2007
Сообщений: 12
|
ПОМОГИТЕЕЕЕЕЕЕ!!!!!!!
В озере водится несколько видов рыб. Три рыбака поймали рыб, представляющих некоторые из имеющихся видов. Определить:
ПОМОГИТЕ ПОЖАЛУЙСТА!!!! ЗАРАНЕЕ СПАСИБО и БОЛЬШОЙ РЕСПЕКТ... ---------- Тем с подобными названиями болше не создавать - буду удалять. Достали. AVer Последний раз редактировалось AVer; 02.02.2007 в 17:22. |
02.02.2007, 11:31 | #2 |
Пользователь
Регистрация: 01.01.2007
Сообщений: 52
|
|
02.02.2007, 13:58 | #3 |
Владимир М.
Участник клуба
Регистрация: 30.10.2006
Сообщений: 1,289
|
на Delphi или просто Pascal ?
+ все задание напиши
Берегите друг друга!
|
02.02.2007, 14:00 | #4 |
Александр
Администратор
Регистрация: 28.10.2006
Сообщений: 17,522
|
Virtson, на паскале, я перенёс из того раздела...
|
02.02.2007, 16:30 | #5 |
Пользователь
Регистрация: 01.02.2007
Сообщений: 12
|
А бесплатно слабо сделать **Начинающим прогерам надо помогать**....... ПОМОГИТЕ ПОМОГИТЕ ПОМОГИТЕ ПОМОГИТЕ.....
|
02.02.2007, 16:50 | #6 | |
Delphi/C++/C#
Участник клуба
Регистрация: 29.10.2006
Сообщений: 1,972
|
Цитата:
Если честно, я игнорирую темы с названием Help, Помогите, Хелп, сделайте одолжение и прочее... |
|
02.02.2007, 17:30 | #7 | |
Пользователь
Регистрация: 01.01.2007
Сообщений: 52
|
Цитата:
Другое дело, если б ты написал что ты наработал, что у тебя в результате твоих мучений получилось и где у тебя возникли трудности. Тогда б, я думаю, тебе помогли бы. З.Ы. Я не считаю тебя "Начинающим прогерам". Я думаю ты поступил по блату на какой-нить программерский факультет потому что это модно, а теперь хочешь чтоб за тебя выполняли задания. Также я думаю, что из-за таких как ты некоторые люди, которые не смогли забашлять останутся без образования.... а от тебя в результате толка всё-равно не будет. Это, конечно, моя имхастая ИМХА.... может я и неправ. -------------------- Вообще я категорически против ругани на форуме, но это сообщение удалять не буду из-за справедливости сказанных слов. Пусть это будет поучением для людей с подобными вопросами. AVer Последний раз редактировалось AVer; 02.02.2007 в 17:37. |
|
02.02.2007, 17:54 | #8 |
Пользователь
Регистрация: 01.02.2007
Сообщений: 12
|
На счет халявного поступления ты ГЛУБОКО ошибаешься, если бы я был мажором я бы не лазил по форумам, а заплатил бы деньги и жил бы спокойно.......
|
02.02.2007, 17:59 | #9 |
Пользователь
Регистрация: 01.02.2007
Сообщений: 12
|
Я попытался сделать,но показав преподу он сказал, что она не правельна......
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. |
02.02.2007, 17:59 | #10 |
Пользователь
Регистрация: 01.01.2007
Сообщений: 52
|
Извиняюсь. Не буду ругаться
Количество задаётся жёстко, генерируется случайным образом или вводится пользователем? Как определяется эта информация? |