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

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

27.12.2015, 22:08. Просмотров 840. Ответов 1
Метки нет (Все метки)

Переписать в другой текстовый файл самую короткую и самую длинную строки.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.12.2015, 22:08
Ответы с готовыми решениями:

В другой файл записать самую длинную последовательность положительных элементов массива,
Приветствую всех! Помогите с задачкой: В файле 1.txt есть одномерный массив. В...

Удалить из файла самую короткую строку (сформировать новый файл)
Удалить из файла самую короткую строку (сформировать новый файл).

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

Получить самую короткую строку файла
Здравствуйте, если кто-нить может, пожалуйста, помогите! Дан текстовый файл...

Дан текстовый файл f и две строки s1 и s2. Получить текстовый файл g заменой ввода в файл f строки s1 на s2
Дан текстовый файл f и две строки s1 и s2. Получить текстовый файл g заменой...

1
schoolteacher
39 / 39 / 49
Регистрация: 18.12.2015
Сообщений: 127
28.12.2015, 10:47 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
program tf1627196;
 var fdat,frez:text;
     s1,s2,smin,smax:string;
begin
  assign(fdat,'dat.txt');reset(fdat);
  assign(frez,'rez.txt');rewrite(frez);
  readln(fdat,s1);
  readln(fdat,s2);
  if length(s1)>length(s2)
   then begin smin:=s2; smax:=s1 end
   else begin smin:=s1; smax:=s2 end;
  while not(eof(fdat)) do
   begin
    readln(fdat,s1);
    if length(s1)>length(smax)
     then smax:=s1
     else if length(s1)<length(smin)
           then smin:=s1;
   end;
  writeln(frez,smin);
  writeln(frez,smax);
  close(fdat);close(frez)
end.
Добавлено через 10 часов 36 минут
Можно немного проще:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program tf1627196;
 var fdat,frez:text;
     s,smin,smax:string;
begin
  assign(fdat,'dat.txt');reset(fdat);
  assign(frez,'rez.txt');rewrite(frez);
  readln(fdat,smax);
  readln(fdat,s);
  if length(s)>length(smax)
   then begin smin:=smax; smax:=s end
   else smin:=s;
  while not(eof(fdat)) do
   begin
    readln(fdat,s);
    if length(s)>length(smax)
     then smax:=s
     else if length(s)<length(smin)
           then smin:=s;
   end;
  writeln(frez,smin);
  writeln(frez,smax);
  close(fdat);close(frez)
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.12.2015, 10:47

Вывести на экран самую короткую непустую строку в ней
Программа читает свой собственный текст и выводит на экран самую короткую...

Сформировать массив строк. Удалить из него самую короткую строку
Сформировать массив строк. Удалить из него самую короткую строку

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


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

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

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