0 / 0 / 0
Регистрация: 22.02.2015
Сообщений: 27
1

Скопировать из первого файла во второй все строки, длина которых больше 1 символа

12.04.2015, 11:21. Показов 3180. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Написать программу, открывающую один текстовый файл (file1.txt) на чтение, и другой текстовый файл (file2.txt) на запись. Программа должна копировать из первого файла во второй все строки, длина которых больше 1 символа, переворачивая эти строки задом наперёд.
Например, если исходный файл имел вид:

алгебра полиномов

инициализация 2-мя способами
- полиномом
- двумя массивами

Операции:

=
+
*
+=
*=
максимальный показатель степени

То записанный программой файл должен выглядеть так:

вомонилоп арбегла
имабосопс ям-2 яицазилаицини
момонилоп -
имависсам ямувд -
:иицарепО
=+
=*
инепетс ьлетазакоп йыньламискам
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.04.2015, 11:21
Ответы с готовыми решениями:

В функции вывести на экран все слова строки длина которых больше длины первого слова
Вывести символьную строку. В функции вывести на экран все слова строки длина которых больше длины...

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

Извлечь из текстового файла строки, длина которых больше заданной
Добрый день. Прошу помощи так как в прологе полный 0. Поиск помог мне найти рабочий код от...

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

1
Почетный модератор
64304 / 47599 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
12.04.2015, 11:34 2
Лучший ответ Сообщение было отмечено VLlad2005 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var f,g:text;
    s,s1:string;
    i:integer;
begin
assign(f,'file1.txt');
reset(f);
assign(g,'file2.txt');
rewrite(g);
while not eof(f) do
 begin
  readln(f,s);
  if length(s)>1 then
   begin
    s1:='';
    for i:=length(s)downto 1 do
    s1:=s1+s[i];
    writeln(g,s1);
   end;
 end;
close(f);
close(g);
writeln('Файл file1 переписан в файл file2')
end.
0
12.04.2015, 11:34
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.04.2015, 11:34
Помогаю со студенческими работами здесь

Вывести на экран те строки исходного файла, длина которых больше 10 символов
Тема: "Файлы" Вывести на экран те строки исходного файла, длина которых больше 10 символов

Вывести на экран те строки исходного файла, длина которых больше 10 символов .
Вывести на экран те строки исходного файла, длина которых больше 10 символов .

Вывести на экран те строки исходного файла, длина которых больше 10 символов
Вывести на экран те строки исходного файла, длина которых больше 10 символов(Тема:Файлы) Заранее...

Вывести на экран те строки исходного файла, длина которых больше 10 символов
Вывести на экран те строки исходного файла, длина которых больше 10 символов. Добавлено через 1...


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

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

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