Текстовый файл. Удалить из него первую строку, в конце которой стоит вопросительный знак

@Predgornoe · Регистрация: 22.04.2012

НЕмогу решить пару простых задач...НУЖНА ПОМОЩЬ!!!

10. Имеется текстовый файл. Удалить из него:
б) первую строку, в конце которой стоит вопросительный знак. В обоих случаях результат записать в другой файл.

Буду очень благодарен за решение! и могу тоже помочь чем смогу...

@BumerangSP · 03.06.2012, 13:43

Pascal

uses crt;
var i: integer;
    s: string;
    f1,f2: text;
begin
 assign(f1,'text1.txt');
 assign(f2,'text2.txt');
 reset(f1);
 rewrite(f2);
 while not eof(f1) do
  begin
   readln(f1,s);
   if s[length(s)]<>'?' then
    writeln(f2,s)
   else
    if i=0 then
     inc(i)
    else
     writeln(f2,s);
  end;
  close(f1);
  close(f2);
end.

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

@Predgornoe · 06.06.2012, 08:03 **[ТС]**

она не работает

@BumerangSP · 06.06.2012, 17:03

Сообщение от Predgornoe

она не работает

Конкретный пример и какая выходит ошибка?

@Predgornoe · 08.06.2012, 18:20 **[ТС]**

Программа не запускается....вообще...

@BumerangSP · 08.06.2012, 19:40

А что по-вашему должно выводится, если весь процесс происходит в файле? В Вашем случае просто экран моргнет, и если не вышло ошибок, значит стоит посмотреть во второй текстовый файл на наличие результата.

@BabushkaTP · 09.02.2014, 18:36

что бы она заработала в корневой папке паскаля создай файл text1.txt

@Predgornoe · 09.02.2014, 19:19 **[ТС]**

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

@BabushkaTP · 09.02.2014, 20:37

на самом деле это было для тех кто в дальнейшем будет использовать этот код

@Predgornoe 2 / 2 / 2 Регистрация: 22.04.2012 Сообщений: 106
		1
	Текстовый файл. Удалить из него первую строку, в конце которой стоит вопросительный знак 03.06.2012, 12:10. Показов 3894. Ответов 8 Метки нет (Все метки) НЕмогу решить пару простых задач...НУЖНА ПОМОЩЬ!!! 10. Имеется текстовый файл. Удалить из него: б) первую строку, в конце которой стоит вопросительный знак. В обоих случаях результат записать в другой файл. Буду очень благодарен за решение! и могу тоже помочь чем смогу... __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@Predgornoe 2 / 2 / 2 Регистрация: 22.04.2012 Сообщений: 106
	06.06.2012, 08:03 [ТС]	3
	она не работает 0

@BumerangSP 4299 / 1421 / 463 Регистрация: 16.12.2010 Сообщений: 2,939 Записей в блоге: 3
	06.06.2012, 17:03	4
	Сообщение от Predgornoe она не работает Конкретный пример и какая выходит ошибка? 0

@Predgornoe 2 / 2 / 2 Регистрация: 22.04.2012 Сообщений: 106
	08.06.2012, 18:20 [ТС]	5
	Программа не запускается....вообще... 0

@BumerangSP 4299 / 1421 / 463 Регистрация: 16.12.2010 Сообщений: 2,939 Записей в блоге: 3
	08.06.2012, 19:40	6
	А что по-вашему должно выводится, если весь процесс происходит в файле? В Вашем случае просто экран моргнет, и если не вышло ошибок, значит стоит посмотреть во второй текстовый файл на наличие результата. 1

@BabushkaTP 2 / 2 / 5 Регистрация: 21.11.2013 Сообщений: 20
	09.02.2014, 18:36	7
	что бы она заработала в корневой папке паскаля создай файл text1.txt 0

@Predgornoe 2 / 2 / 2 Регистрация: 22.04.2012 Сообщений: 106
	09.02.2014, 19:19 [ТС]	8
	Благодарю за ответ, я уже пол года как закончил обучение, получил диплом, удачно обмыл его... и этот долгожданный ответ, на столь интересующий меня вопрос очень кстати, спасибо огромное.... 1

@BabushkaTP 2 / 2 / 5 Регистрация: 21.11.2013 Сообщений: 20
	09.02.2014, 20:37	9
	на самом деле это было для тех кто в дальнейшем будет использовать этот код 1

Опции темы