Форумы Modlabs.net: Паскалик - Форумы Modlabs.net

Народ а кто нибудь может написать вот такую прогу в паскале?:
Каждый из N опрошенных (N-заданное число) назвал 3-х любимых животных.Определить, какие животные заняли три первых места по популярности (получить названия всех животных-"призёров",набравших одинаковое число голосов).Предусмотреть, что каждый из опрошенных должен назвать трёх разных животных.
Результат надо вывести на экран.
короче чтение животных надо производить из текстового файла.
тоесть будет так примерно
! опрошенный кошка
2 опрошенный собака
.......
Количество там я думаю мона чтук 5 взять,Потом мы сохраняем файл допусстим как P1.txt
И поехали
Program p1;
type
mas=array....
var
.
.
.
begin
assign(f,'p1.txt');
reset(f);
ну и дальше.
вроде так должно начинаться

а что конкретно не ясно?
как из файлав файл читать?
хелп к паскалю есть?

Добавлено спустя 1 минуту 52 секунды:

кстати, влекам на форум!

Карлсон сказал:

да блин когда на лекции сидишь, она на доске пишет(училка), вроде бы всё понятно, придёшь домой, начнёшь, что-то не получается ни фига.А какой хелп?!
Спасибо

ну как какой, встроенный в компилятор.
пишете в турбо паскале или где?

вас блок-схемы учили составлять?

да в 7 паскале пишем.
Блок-схема?!приведи пример

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

Добавлено спустя 39 минут 18 секунд:

да, если хелп на инглише, могу кинуть версию паскаля с русифицированным хелпом.

В твоём случае лучше не использовать массив, а просто тройку переменных, скажем, vodka,pivo,pivovodka.
do
WriteLn('1-vodka,2-pivo,3-pivovodka,0-hvatit');
Readln(x);
If x=1 THEN vodka:=vodka+1;
If x=2 THEN pivo:=pivo+1;
If x=3 THEN pivovodka:=pivovodka+1;
loop while x<>0;
....
тааак.... щаз перечитал условие... А сколько всего животных ? Если их бесконечное число, то лучше использовать типизированный массив, состоящий из строчки и количества ответов по этой строчке, делать поиск по текстовой части. Придётся делать уравниловку по регистру, иначе чей-то любимец "Sobaka" не будет являться обычным "sobaka", продумать как-то исправление ашибок, "sabaka" ведь тоже зверь...
А потом сортировка уже введённых по количеству попаданий. Файл-то зачем ? в задании он не фигурирует. С типизированным вообще гораздо проще работать чем с текстовым....
Паскаль язык без больших затыков, с натяжкой можно назвать английским, поэтому сначала полностью сформулируй нормально задачу, как говорил Карлсон. Вообще он очень всё правильно написал!