Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 18.06.2007, 16:56   #1
Homka
Новичок
Джуниор
 
Регистрация: 18.06.2007
Сообщений: 1
Вопрос Поиск чисел в текстовом файле

Программа следующая : дан текстовый файл, содержащий целые числа. Найти количество элементов, кратных А(заданному числу) в каждой строке.
я сделала , а она только одну строчку считает, а остальные игнорирует! помогите , люди!!!
Homka вне форума Ответить с цитированием
Старый 18.06.2007, 17:07   #2
bill
Форумчанин
 
Аватар для bill
 
Регистрация: 26.04.2007
Сообщений: 436
По умолчанию

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.
bill вне форума Ответить с цитированием
Старый 19.06.2007, 08:31   #3
Сильванович Михаил
Студент
Форумчанин
 
Регистрация: 10.11.2006
Сообщений: 196
По умолчанию

Код:
var
 f: text;
 i,A,j: integer;
begin
 Write('Введиет A: ');
 Readln(A);
 j:=0;
 Assign(f,'input.txt');
 Reset(f);
 repeat
  Read(f,i);
  if i mod A =0 then Inc(j);
 until eof(f);
 Close(f);
 Write('Таких чисел оказалось: ',j);
end.
Не проверял, но работать должна
Visita Interiorem Terrae Rectificando Operae Lapidem...
Сильванович Михаил вне форума Ответить с цитированием
Старый 25.06.2007, 19:14   #4
Tayfun
Форумчанин
 
Аватар для Tayfun
 
Регистрация: 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.
Tayfun вне форума Ответить с цитированием
Старый 25.06.2007, 19:15   #5
Tayfun
Форумчанин
 
Аватар для Tayfun
 
Регистрация: 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.
Tayfun вне форума Ответить с цитированием
Ответ
Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Поиск определённого текста в текстовом файле vitawt Общие вопросы Delphi 4 20.01.2008 23:12
Поиск символов в текстовом файле. Uomo Общие вопросы Delphi 8 24.10.2007 15:57
Поиск данных в текстовом файле BizON Помощь студентам 1 06.06.2007 18:17