Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

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

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


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


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