IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Задача на работу с текстовым файлом
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 13
Пол: Мужской

Репутация: -  0  +


Добрый день. Очень прошу помочь с такой задачей: "Составить программу решения задачи. Каждый из N (N задано) опрошенных членов жюри спортивного состязания назвал 5 фамилий возможных претендентов на первое место. Определить фамилию спортсмена, который является, по мнению жюри, наиболее вероятным победителем. Получить список фамилий, если несколько спортсменов получат равное количество голосов. Предусмотреть, что опрашиваемый должен назвать 5 разных фамилий."
Сдать должен работу 17-го января.
Вот то, что есть на сегодняшний день:
program laba;
uses crt;
var
ftxt:text;
i,j,cod:integer;
st:string;
st1,st2,st3,st4,st5,st6:string;
n:integer;
found:boolean;

begin
clrscr;
assign(ftxt,'Sports.txt');
{SI-} reset(ftxt); {SI+}
if IOResult<>0 then
begin
writeln('­Ґв д ©« ');
halt
end;

close(ftxt);
reset(ftxt);

while not eof(ftxt) do
begin
readln(ftxt,st);
st1:=copy(st,1,2); {номер жюри}
st2:=copy(st,4,8);
st3:=copy(st,13,8);
st4:=copy(st,22,8);
st5:=copy(st,31,8);
st6:=copy(st,40,8);
writeln(st1,' ',st2,' ',st3,' ',st4,' ',st5,' ',st6);
end;
close(ftxt);
end.

И сам текстовый файл...

Сообщение отредактировано: Доцент -


Прикрепленные файлы
Прикрепленный файл  Sports.txt ( 470 байт ) Кол-во скачиваний: 285
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Доцент   Задача на работу с текстовым файлом   15.01.2008 21:12
feniks25   Ну а в чём проблема? Подсчитать количество появле…   15.01.2008 22:14
Доцент   В том и дело что я не знаю как это реализовать. Пр…   15.01.2008 22:47
feniks25   pascal?-год не залазил. Попробую.   15.01.2008 23:47
feniks25   Вроде работает. (без динамических массивов и автоз…   16.01.2008 1:10
Доцент   Спасибо огромное. Вроде работает. Только не понятн…   16.01.2008 6:26
feniks25   Только не понятно, а как сделать тест, чтобы было…   16.01.2008 13:23
Доцент   Ты не правильно меня понял. Я имел в виду чтобы са…   16.01.2008 20:37
feniks25   Ну тогда так. А условие отчёта сам правь.   16.01.2008 21:59
Доцент   Спасибо огромное!!! :good: :4: Напи…   16.01.2008 22:12
Yevgeny   trec=record count:byte;ima:stringend; count и ima …   17.01.2008 3:13
feniks25   trec=record count:byte;ima:string[9]end; count и …   17.01.2008 3:37
Доцент   Решил я остановиться на такой проге. Только препод…   18.01.2008 20:22
Michael_Rybak   А сам что-нибудь делать собираешься?   18.01.2008 20:30
Доцент   А сам что-нибудь делать собираешься? Сравни текс…   18.01.2008 20:42
Доцент   Я и сам делаю что могу...   18.01.2008 21:08
Michael_Rybak   Откуда мне об этом знать? Ты пишешь - "доба…   18.01.2008 21:30
Доцент   ну мне не задание добавили. Просто сказали что я э…   18.01.2008 21:33
Доцент   Не получается. Поможет кто-нибудь?   19.01.2008 2:30
Michael_Rybak   В конце вместо вывода maxfam сделай еще один цикл,…   19.01.2008 3:01
Доцент   Ну а вывод как будет выглядеть?... :blink:   19.01.2008 15:14
Michael_Rybak   Напиши типа такого: И дальше список, по одному …   19.01.2008 16:40
feniks25   Я имел в виду чтобы сама прога спрашивала сколько…   19.01.2008 19:42
Michael_Rybak   Где ты видишь у него условие "(if mas[z].co…   19.01.2008 20:10
feniks25   Где ты видишь у него условие "(if mas[z].cou…   19.01.2008 20:52
Michael_Rybak   Хм, Доцент, оказывается в проге, которую давал fen…   19.01.2008 21:19
Доцент   Да, только совместить у меня не получается. Как до…   19.01.2008 21:58
feniks25   Да, только совместить у меня не получается. Как д…   19.01.2008 22:19
Доцент   Текстовый файл для того чтобы просто брать из него…   19.01.2008 22:31


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 8:41
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name