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

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

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

> чтение чисел из файла..., начинаю изучать файлы
сообщение
Сообщение #1


Человек
*****

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

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


Добрый день!
надо написать программу выполняющую чтение из текстового файла целых чисел и вывод на печать только четных чисел. собственно вот...
Var
f : text;
Put : string;
a : integer;
Begin
Put := 'D:\-stas\del\fi1.txt';
assign(f, Put);
reset(f);
while not Eof(f) do
begin
readln(f, a);
if not odd(a)
then
writeln(a);
end;
close(f);
readln
End.

теперь хотелось бы внести не большие изменения
1) можно ли вместо Полного пути к файлу использовать путь из текущей деректории?
2) можно ли обрабатывать не только первые числа в строке, а все...
по идее должно быть как-то так..
...
while not Eof(f) do
begin
while not eoln do
begin
readln(f, a);
if not odd(a)
then
writeln(a);
end;
end;
...

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

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


--------------------
Спасибо!
Удачи!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


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

 





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