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

Задача с файлом, нужно написать в конец каждой строки, сколько символов в строке

03.02.2013, 17:18. Показов 540. Ответов 2
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var s:string;
    f:text;
    k,c:integer;
begin
assign(f,'laba4.txt');
reset(f);
while not eof(f) do
  begin
  k:=0;
    while not eoln(f) do
    begin
    readln(f,s);
     k:=k+1;
     c:=length(s);
      writeln(k ,' строка ', 'символов', length(s),c); - он только вывод на экран
     end;
end;
  close(f);
end.

как сделать так, чтобы он мне записал в файл, в каждую строчку, в конец число символов в этой строке
некоторые говорят нужно делать через массив.
хэлп братаны
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.02.2013, 17:18
Ответы с готовыми решениями:

Написать процедуру, добавляющую в конец строки столько восклицатель-ных знаков «!», сколько символов в строке
Написать процедуру, добавляющую в конец строки столько восклицатель-ных знаков «!», сколько...

Даны 4 строки. В каждой строке по 6 целых 4-ех значных чисел. Нужно найти среднее арифметическое чисел у каждой строки и определить в какой строке сре
Даны 4 строки. В каждой строке по 6 целых 4-ех значных чисел. Нужно найти среднее арифметическое...

Написать программу, которая считывает исходный текст программы и записывает длину строки в виде комментария в конец каждой строки
Помогите пожалуйста. Написать программу, которая считывает исходный текст программы на Паскале...

Записать в конец каждой строки текстового файла количество слов в этой строке
Начинаю писать программы в Паскале, можете помочь с этой задачей? "Записать в конец каждой строки...

2
Фрилансер
3414 / 2811 / 3000
Регистрация: 08.02.2012
Сообщений: 8,266
Записей в блоге: 1
04.02.2013, 07:34 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var s:string;
    f,g:text;
begin
assign(f,'laba4.txt');
reset(f);
assign(g,'out.txt');
rewrite(g);
while not eof(f) do
  begin
   readln(f,s);
   writeln(g,s,' символов = ',Length(s));
  end;
close(f);Erase(f);
Close(g);Rename(g,'laba4.txt');
end.
1
0 / 0 / 0
Регистрация: 03.02.2013
Сообщений: 3
04.02.2013, 15:44  [ТС] 3
Спасибо!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.02.2013, 15:44

Написать программу копирования файла. В конец каждой строки файла дописать количество пробелов в строке
Чтение происходит блоками. Обработать ошибки Я пока просто смогла скопировать один файл в...

В каждой строке строке файла найти самое длинное слово и дописать его в конец строки
Ввести строки с клавиатуры. Создать файл определить количество строк файла в каждой строке строке...

работа с тектовым файлом. Очень большое кол-во строк. В каждой строке есть 3 числа. Первое чисол нужно изменять в каждой строчке по одной и той же фор
Добрый день. В общем задача такова: Есть Текстовый файл. Содержимое вот такое: ...

В конец каждой строки текстового файла дописать количество символов этой строки
Помогите, нужно : "В конец каждой строки текстового файла дописать количество символов этой...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru