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

Из файла текстового типа переписать строки в порядке возрастания их длин в другой файл.

30.09.2011, 19:55. Просмотров 850. Ответов 4
Метки нет (Все метки)

Из файла текстового типа переписать строки в порядке возрастания их длин в другой файл.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.09.2011, 19:55
Ответы с готовыми решениями:

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

Переписать строки текстового файла в обратном порядке (справа налево) в другой файл
Имеется текстовый файл. Переписать его строки в обратном порядке (справа налево) в другой файл....

Переписать в другой файл строки файла в соответствии с ростом их длин
Условие: Дан текстовый файл. Переписать в другой файл его строки в соответствии с ростом их длин....

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

4
46 / 46 / 36
Регистрация: 18.10.2010
Сообщений: 212
01.10.2011, 02:50 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
uses crt;
var
f,f1: text;
s: array [1..100] of string;
i,j,max,n: integer;
x: string;
begin
assign(f,'e:\1.txt'); {файл со строками}
assign(f1,'e:\2.txt');
reset(f);
rewrite(f1);
 
while not eof(f) do
begin
inc(n);
readln(f,s[n]);
end;
 
for i:=1 to n-1 do
 for j:=i+1 to n do
if length(s[i])>=length(s[j])
 then
  begin
   x:=s[i];
   s[i]:=s[j];
   s[j]:=x;
  end;
  
for i:=1 to n do
writeln(f1,s[i]);
 
writeln('Vse sdelano!');
close(f);
close(f1);
end.
2
245 / 203 / 26
Регистрация: 03.02.2009
Сообщений: 786
01.10.2011, 10:02 3
Только надо учитывать, что количество строк в файле может быть больше массива:

Pascal
1
while (n<100) and (not eof(f)) do
1
0 / 0 / 0
Регистрация: 17.09.2011
Сообщений: 19
01.10.2011, 12:12  [ТС] 4
для чего тогда форум если не для помощи)
0
Модератор
60609 / 45583 / 31471
Регистрация: 18.05.2008
Сообщений: 109,592
01.10.2011, 12:31 5
Tat'9na, А чем Вы недовольны? Вам написали программу для сортировки файла с числом строк не более 100. Если не устраивает, напишите точное условие и требования к исходному файлу.
А помощь вообще-то подразумевает не написание программ на халяву, а подсказать если что-то непонятно или исправить ошибки в Вашем коде, при чем это совсем никого ни к чему не обязывает.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.10.2011, 12:31

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

Как из файла переписать в другой файл строки в соответствии с возрастанием их длин
Вот то что имеем #pragma once namespace Lab { using namespace System; using namespace...

Переписать строки с одного текстового файла в другой в обратном порядке
Здравствуйте. Задача следующая : Имеется текстовый файл. Переписать его строки в другой файл....

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

Переписать строки файла в обратном порядке в другой файл по отношению к порядку строк
Имеется текстовый файл. переписать его строки в обратном порядке в другой файл порядок строк во...


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

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

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