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

Записать все строки файла в новый файл, изменив порядок следования букв в каждой строке на противоположный

21.11.2012, 21:50. Показов 1092. Ответов 5
Метки нет (Все метки)

Дан текстовый файл. Записать все строки файла в новый файл, изменив порядок следования букв в каждой строке на противоположный. Посчитать количество букв в каждой строке и строк.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.11.2012, 21:50
Ответы с готовыми решениями:

Дан текстовый файл. Записать все строки файла в новый файл, изменив порядок следования букв в каждой строке на противоположный
Дан текстовый файл. Записать все строки файла в новый файл, изменив порядок следования букв в...

Записать все строки файла в новый файл, изменив порядок следования букв в каждой строке на противоположный
Дан текстовый файл. Записать все строки файла в новый файл, изменив порядок следования букв в...

Записать все строки файла в новый файл, изменив порядок следования букв в каждой строке на противоположный.
Помогите пожалуйста с вот этой задачей: Дан текстовый файл. Записать все строки файла в новый...

Записать все строки файла в новый файл, изменив порядок следования букв в каждой строке на противоположный
дан текстовой файл. Записать все строки файла в новый файл, изменив порядок следования букв в...

5
34 / 34 / 19
Регистрация: 17.11.2012
Сообщений: 109
Записей в блоге: 2
21.11.2012, 22:12 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var 
 n,i,j:integer;
 s,b:string;
 a:array [1..100] of string; 
 f1,f2:text; 
 begin 
 assign(f1,'input.txt'); 
 assign(f2,'output.txt'); 
 reset(f1); 
 rewrite(f2); 
 readln(f1,n);   {Читаем количество строк}
 for i:=1 to n do begin
             writeln(f1,a[i]);s:=a[i];b:='';
             for j:=1 to length(s) do b:=s[j]+b;
             writeln(f2,b);
             writeln(f2,length(s));
 end;
 close(f2); 
 close(f1); 
 end.

Извиняюсь может что не так понял спешу на работу!!!
0
0 / 0 / 0
Регистрация: 07.11.2012
Сообщений: 44
21.11.2012, 22:19  [ТС] 3
крута

Добавлено через 20 секунд
а еще какие варианты есть
0
296 / 274 / 194
Регистрация: 03.05.2012
Сообщений: 567
21.11.2012, 23:01 4
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
const cs=['A'..'Z','a'..'z','А'..'Я','а'..'п','р'..'ё'];
 
var f1,f2:text;
    s,st:string;
    i,j,k:integer;
begin
  assign(f1,'C:\Files for Program Pascal\file123.txt');
  reset(f1);
  assign(f2,'C:\Files for Program Pascal\123file.txt');
  rewrite(f2);
  st:='';j:=0;k:=0;
  while not eof(f1) do begin
    readln(f1,s);
    inc(j);
    for i:=1 to length(s) do begin
      st:=s[i]+st;
      if s[i] in cs then
        inc(k);
    end;
    writeln('в ',j,' строке ',k,' букв');
    writeln(f2,st);
    st:='';k:=0;
  end;
  close(f1);
  close(f2);
  readln
end.
1
0 / 0 / 0
Регистрация: 07.11.2012
Сообщений: 44
22.11.2012, 20:37  [ТС] 5
чет не идет
0
296 / 274 / 194
Регистрация: 03.05.2012
Сообщений: 567
23.11.2012, 15:12 6
Цитата Сообщение от ШОРОХ Посмотреть сообщение
чет не идет
Нормально всё работает.Для начала,нужно создать текстовый файл,затем указать путь к нему.Если файл лежит в одной папке с программой,то нужно только указать название файла.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.11.2012, 15:12

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

Записать строки файла f в файл g, поменяв порядок их следования на противоположный
1. Дан текстовый файл f. Записать строки файла f в файл g, поменяв порядок их следования на...

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

Преобразовать строку, изменив порядок следования слов в строке на обратный
Помогите пожалуйста разобраться с решением. Такое условие "Преобразовать строку, изменив порядок...

Преобразовать строку, изменив порядок следования слов в строке на обратный
Помогите пожалуйста решить такую задачу: Преобразовать строку, изменив порядок следования слов в...


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

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

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