Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.85/13: Рейтинг темы: голосов - 13, средняя оценка - 4.85
7 / 7 / 0
Регистрация: 26.12.2009
Сообщений: 31
1

Добавить в конец файла строку, содержащую количество строк исходного файла

06.02.2010, 10:50. Показов 2688. Ответов 1
Метки нет (Все метки)

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

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

Добавить в конец каждой строки файла Name1 соответствующую строку файла Name2.
Даны два текстовых файла с именами Name1 и Name2. Добавте в конец каждой строки файла Name1...

Добавить в конец каждой строки первого файла соответствующую строку второго файла
1) Даны два текстовых файла. Добавить в конец каждой строки первого файла соответствующую строку...

Добавить в конец каждой строки первого файла соответствующую строку второго файла
Даны два текстовых файла. Добавить в конец каждой строки первого файла соответствующую строку...

1
Почетный модератор
64069 / 47481 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
06.02.2010, 11:04 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
uses crt;
var f:text;
    name,s:string;
    k:integer;
begin
clrscr;
write('Введите имя файла: ');
readln(name);
name:=name+'.txt';
assign(f,name);
{$I-}reset(f);{$I+}
if IOResult<>0 then
 begin
  writeln('Файл ',name,' не найден!');
  writeln('Работа программы завершена.');
  readln;
  exit;
 end;
k:=0;
while not eof(f) do
 begin
  readln(f,s);
  if s[1]=s[length(s)] then k:=k+1;
 end;
close(f);
append(f);
writeln(f,'');
writeln(f,'Kolichestvo strok s odinakovym 1 i poslednim simvolami=',k);
write('Файл переписан!');
close(f);
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.02.2010, 11:04

Добавить в конец каждой строки первого файла соответствующую строку второго файла
Даны два текстовых файла. Добавить в конец каждой строки первого файла соответствующую строку...

Файл: Добавить в конец каждой строки первого файла соответствующую строку второго файла
Даны два текстовых файла. Добавить в конец каждой строки первого файла соответствующую строку...

Как добавить в конец каждой строки одного файла соответствующую строку из другого файла
Как добавить в конец каждой строки одного файла соответствующую строку из другого файла?

Добавить в конец каждой строки файла Name1 соответствующую строку файла Name2 (Pascal -> C++)
Помогите переписать для C++. Даны два текстовых файла с именами Name1 и Name2. Добавить в конец...


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

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

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