Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Tat'9na
0 / 0 / 0
Регистрация: 17.09.2011
Сообщений: 19
1

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

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

Из файла текстового типа переписать строки в порядке возрастания их длин в другой файл.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.09.2011, 19:55
Ответы с готовыми решениями:

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

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

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

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

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

4
denisneposeda
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
o-user
245 / 202 / 26
Регистрация: 03.02.2009
Сообщений: 786
01.10.2011, 10:02 3
Только надо учитывать, что количество строк в файле может быть больше массива:

Pascal
1
while (n<100) and (not eof(f)) do
1
Tat'9na
0 / 0 / 0
Регистрация: 17.09.2011
Сообщений: 19
01.10.2011, 12:12  [ТС] 4
для чего тогда форум если не для помощи)
0
Puporev
Модератор
57792 / 44033 / 30404
Регистрация: 18.05.2008
Сообщений: 105,289
01.10.2011, 12:31 5
Tat'9na, А чем Вы недовольны? Вам написали программу для сортировки файла с числом строк не более 100. Если не устраивает, напишите точное условие и требования к исходному файлу.
А помощь вообще-то подразумевает не написание программ на халяву, а подсказать если что-то непонятно или исправить ошибки в Вашем коде, при чем это совсем никого ни к чему не обязывает.
1
01.10.2011, 12:31
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.10.2011, 12:31

Содержимое текстового файла f, разделенное на строки, переписать в текстовый файл g
Содержимое текстового файла f, разделенное на строки, переписать в текстовый файл g, перенося при...

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

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


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

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

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