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

Исключить пробелы, стоящие в концах строк текстового файла.

02.03.2010, 13:20. Показов 1114. Ответов 1
Метки нет (Все метки)

Дан текстовый файл f. Исключить пробелы, стоящие в концах его строк. Результат поместить в файл f1.
не могу решить задачу....
Помогите пожалуйста решить задачу.... без модулей.
Заранее спасибо!!!!
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.03.2010, 13:20
Ответы с готовыми решениями:

Исключить пробелы, стоящие в концах строк файла
2 Дан текстовый файл f, состоящий из нескольких строк. Исключить пробелы, стоящие в концах его...

Исключить пробелы, стоящие в концах его строк. Результат поместить в файл f1.
Дан текстовый файл f, состоящий из нескольких строк. Исключить пробелы, стоящие в концах его строк....

Дан текстовый файл f. Исключить пробелы, стоящие в концах его строк. Результат поместить в файл f.
Дан текстовый файл f. Исключить пробелы, стоящие в концах его строк. Результат поместить в файл f.

Дан текстовый файл f. Исключите пробелы, стоящие в концах его строк. Результат поместите в файл f1
1.Даны символьные файлы f1 и f2. Перепишите с сохранением порядка следования компоненты файла f1 в...

1
Модератор
63381 / 47074 / 32446
Регистрация: 18.05.2008
Сообщений: 114,106
02.03.2010, 13:53 2
Лучший ответ Сообщение было отмечено Кооошечка как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
uses crt;
var f,f1:text;
    i:byte;
    name,s:string;
begin
clrscr;
write('Имя файла для чтения: ');
readln(name);
name:=name+'.txt';
assign(f,name);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Не могу открыть файл ',name);
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
write('Имя файла для записи: ');
readln(name);
name:=name+'.txt';
assign(f1,name);
rewrite(f1);
while not eof(f) do
 begin
  readln(f,s);
  if s[length(s)]=' ' then
   begin
    i:=length(s);
    while(s[i]=' ') and(i>0)do
     begin
       delete(s,i,1);
       i:=i-1;
     end;
   end;
  writeln(f1,s);
 end;
close(f);
close(f1);
write('Fail perepisan!');
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.03.2010, 13:53

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

Составить программу, исключающую пробелы, стоящие в концах строк текстового файла p и помещающую результат в файл g.
Создайте текстовый файл р. Составьте программу, исключающую пробелы, стоящие в концах его строк и...

Исключить слова из текстового файла
дано некоторое множнство слов. Исключить их из текстового файла. например, из файла с текстом...

Лишние пробелы при выводе текстового файла на экран
var f:text; Procedure Print; var s:string; begin reset(f); while not EOF(f) do begin...

Изъять из текстового файла f все однобуквенные слова и лишние пробелы
Здравствуйте. изъять из текстового файла f все однобуквенные слова и лишние пробелы. результат...


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

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

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