|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.06.2007, 16:56 | #1 |
Новичок
Джуниор
Регистрация: 18.06.2007
Сообщений: 1
|
Поиск чисел в текстовом файле
Программа следующая : дан текстовый файл, содержащий целые числа. Найти количество элементов, кратных А(заданному числу) в каждой строке. я сделала , а она только одну строчку считает, а остальные игнорирует! помогите , люди!!!
|
18.06.2007, 17:07 | #2 |
Форумчанин
Регистрация: 26.04.2007
Сообщений: 440
|
1.Есть функция такая-eof(end of file)-. Просто надо поставить цикл while и =>
while not eof(f) do begin readln(f,a); {будет считывать строчку за строчкой пока не наступит конец файла} ит.д. в var - f:textfile;a:string. Естественно сделать assign надо, указав f где находится этот файл Остальное думаю писать не надо. 2. Быть может у вас где-то случайно стоит break,exit. Стоит проверить. P.s если я не ошибся, то в паскале должна быть eof точно. Последний раз редактировалось bill; 18.06.2007 в 18:01. |
19.06.2007, 08:31 | #3 |
Студент
Форумчанин
Регистрация: 10.11.2006
Сообщений: 196
|
Код:
Visita Interiorem Terrae Rectificando Operae Lapidem...
|
25.06.2007, 19:14 | #4 |
Форумчанин
Регистрация: 24.06.2007
Сообщений: 351
|
Попробуй этот вариант
program zad;
uses crt; var f:text; i,a,t:integer; begin clrscr; assign(f,'zad.txt'); reset(f); writeln('VVEDITE A'); readln(a); t:=0; while not eof(f) do begin readln(f,i); if i mod a then t:=t+1; end; writeln('KOL-VV->',t); clsoe(f); readkey; end. Я не маюсь бездельем, я от него тащусь!
Последний раз редактировалось Tayfun; 25.06.2007 в 19:16. |
25.06.2007, 19:15 | #5 |
Форумчанин
Регистрация: 24.06.2007
Сообщений: 351
|
Попробуй этот вариант
program zad;
uses crt; var f:text; i,a,t:integer; begin clrscr; assign(f,'zad.txt'); reset(f); writeln('VVEDITE A'); readln(a); t:=0; while not eof(f) do begin readln(f,i); if i mod a then t:=t+1; end; writeln('KOL-VV->',t); close(f); readkey; end. Я не маюсь бездельем, я от него тащусь!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Поиск определённого текста в текстовом файле | vitawt | Общие вопросы Delphi | 4 | 20.01.2008 22:12 |
Поиск символов в текстовом файле. | Uomo | Общие вопросы Delphi | 8 | 24.10.2007 15:57 |
Поиск данных в текстовом файле | BizON | Помощь студентам | 1 | 06.06.2007 18:17 |