Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
0 / 0 / 0
Регистрация: 26.02.2012
Сообщений: 13
1

Работа с файлами. Переписать из одного файла в другой строки, длина которых меньше 10 символов

30.05.2012, 08:12. Просмотров 1118. Ответов 7
Метки нет (Все метки)

Переписать из одного файла в другой длина которого меньше 10 символов помогите плиз у меня чет работать не хочет в чем ошибка вот код

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program sdsk;
const dd = 'D:/text1.txt';
const dd2='D:/text2.txt';
var f,g:text;
    s:string;
begin
assign(f,dd);
assign(g,dd2);
reset(f);
rewrite(g);
while not seekeof(f) do
readln(f,s);
begin
if length(s)<=3 then writeln(g,s);
 
close(f);
close(g);
end;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.05.2012, 08:12
Ответы с готовыми решениями:

Из одного массива в другой переписать элементы, модуль которых меньше среднего значения
Помогите пожалуйста!=) Из массива а(100) в массив b(100) переписать элементы модулькоторых...

Удаление из строки слов, длина которых меньше К символов
Удалить слова из заданного текста, длина которых меньше К символов. Добавлено через 17 часов 56...

Удалить из третьей строки все слова, длина которых меньше пяти символов
С клавиатуры вводится строка, состоящая из слов и чисел (целых и вещественных), отделенных друг от...

Записать в другой файл все строки, длина которых больше 5 символов
Дан текстовый файл. Записать в другой файл все строки, длина которых больше 5 символов. Помогите...

7
Фрилансер
3404 / 2801 / 3000
Регистрация: 08.02.2012
Сообщений: 7,777
Записей в блоге: 1
30.05.2012, 08:54 2
Pascal
1
not Eof(f)
вместо seekeof(f)
0
Модератор
61131 / 45831 / 31643
Регистрация: 18.05.2008
Сообщений: 110,376
30.05.2012, 09:06 3
Artem7, Это одно и тоже.

Добавлено через 1 минуту
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program sdsk;
const dd = 'D:/text1.txt';
const dd2='D:/text2.txt';
var f,g:text;
    s:string;
begin
assign(f,dd);
assign(g,dd2);
reset(f);
rewrite(g);
while not seekeof(f) do
 begin
  readln(f,s);
  if length(s)<10 then writeln(g,s);
 end;
close(f);
close(g);
end.
0
Фрилансер
3404 / 2801 / 3000
Регистрация: 08.02.2012
Сообщений: 7,777
Записей в блоге: 1
30.05.2012, 09:06 4
Puporev, не знал
Pascal
1
2
3
4
5
6
7
8
while not seekeof(f) do
begin
readln(f,s);
if length(s)<10 then writeln(g,s);
end;
close(f);
close(g);
end.
0
Модератор
61131 / 45831 / 31643
Регистрация: 18.05.2008
Сообщений: 110,376
30.05.2012, 09:07 5
Artem7, И все равно ты неправильно написал....
0
Фрилансер
3404 / 2801 / 3000
Регистрация: 08.02.2012
Сообщений: 7,777
Записей в блоге: 1
30.05.2012, 09:08 6
Цитата Сообщение от Puporev Посмотреть сообщение
Artem7, И все равно ты неправильно написал....
поправил.
0
Модератор
61131 / 45831 / 31643
Регистрация: 18.05.2008
Сообщений: 110,376
30.05.2012, 09:10 7
Цитата Сообщение от Artem7 Посмотреть сообщение
поправил.
Что ты поправил? >10? и все? А структура программы? Посмотри хоть как у меня...
0
Фрилансер
3404 / 2801 / 3000
Регистрация: 08.02.2012
Сообщений: 7,777
Записей в блоге: 1
30.05.2012, 09:11 8
ну да не заметил надо вытащить Close за цикл
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.05.2012, 09:11

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Подсчитать строки, переписать их из одного файла в другой
Здравствуйте! Дан текстовый файл, в нем записаны строки. Длина каждой строки не превышает 255...

Работа с текстовыми файлами. С одного файла переписать в другой все строки, которые не содержат латинские буквы
Помогите пожалуйста !!:wall::-/:gsorry::tender: У меня не получается перебирать все строки, после...

Переписать содержимое файла А в файл В. Удалить слова,длина которых меньше заданной
Завтра мне задачу сдавать.Помогите плиз Условие: Дан текстовый файл А.Переписать содержимое файла...

Переписать из одного массива в другой все элементы, значения которых больше -1.8 и меньше 2.7
Сформировать вещественный массив A,элементами которого являются случайные числа из диапазона...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.