Вывести вторую и предпоследнюю строки файла

@элигорь · Регистрация: 29.09.2015

Ввести вторую и предпоследнюю строки файла. Если в файле только одна строка, то выводить сообщения нет решения

@ZX Spectrum-128 · 26.02.2016, 11:58

Вывести вторую и предпоследнюю строки файла. Если в файле только одна строка, то выводить сообщение «нет решения»

@bormant · 26.02.2016, 13:00

ZX Spectrum-128,
нельзя подобное советовать, тем более в Turbo Pascal...
Все намного проще

Pascal

procedure Error; begin WriteLn('Нет решения'); Halt; end;
var a, b: String;
begin
  Assign(input,'input.txt'); Reset(input);
  if EOF then Error else ReadLn(a);
  if EOF then Error else ReadLn(b);
  WriteLn(b);
  while not EOF do begin
    a:=b; ReadLn(b);
  end;
  WriteLn(a);
end.

@элигорь · 29.02.2016, 11:17 **[ТС]**

что означает 5-6 строчка?

@bormant · 29.02.2016, 12:10

если конец файла input то вызвать процедуру Error (ошибка) иначе прочитать a
если конец файла input то вызвать процедуру Error (ошибка) иначе прочитать b

Добавлено через 1 минуту
Процедура Error выводит "нет решения" и завершает выполнение программы.

@элигорь · 29.02.2016, 12:13 **[ТС]**

спасибо)

@элигорь 0 / 0 / 0 Регистрация: 29.09.2015 Сообщений: 44
		1
	Вывести вторую и предпоследнюю строки файла 26.02.2016, 10:34. Показов 1798. Ответов 5 Метки нет (Все метки) Ввести вторую и предпоследнюю строки файла. Если в файле только одна строка, то выводить сообщения нет решения 0

@ZX Spectrum-128 6804 / 4563 / 4817 Регистрация: 05.06.2014 Сообщений: 22,438
	26.02.2016, 11:58	2
	Вывести вторую и предпоследнюю строки файла. Если в файле только одна строка, то выводить сообщение «нет решения» 0

@элигорь 0 / 0 / 0 Регистрация: 29.09.2015 Сообщений: 44
	29.02.2016, 11:17 [ТС]	4
	что означает 5-6 строчка? 0

@bormant Модератор 7519 / 4383 / 2781 Регистрация: 22.11.2013 Сообщений: 12,543 Записей в блоге: 1
	29.02.2016, 12:10	5
	если конец файла input то вызвать процедуру Error (ошибка) иначе прочитать a если конец файла input то вызвать процедуру Error (ошибка) иначе прочитать b Добавлено через 1 минуту Процедура Error выводит "нет решения" и завершает выполнение программы. 0

@элигорь 0 / 0 / 0 Регистрация: 29.09.2015 Сообщений: 44
	29.02.2016, 12:13 [ТС]	6
	спасибо) 0

Опции темы

Вывести вторую и предпоследнюю строки файла

Решение