2 / 2 / 2
Регистрация: 22.04.2012
Сообщений: 106
1

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

03.06.2012, 12:10. Показов 3894. Ответов 8
Метки нет (Все метки)

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

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

Буду очень благодарен за решение! и могу тоже помочь чем смогу...
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.06.2012, 12:10
Ответы с готовыми решениями:

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

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

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

Файлы/потоки: удалить из текстового файла первую строку, в конце которой стоит вопросительный знак
Имеется текстовый файл. Удалить из него первую строку, в конце которой стоит вопросительный знак....

8
4299 / 1421 / 463
Регистрация: 16.12.2010
Сообщений: 2,939
Записей в блоге: 3
03.06.2012, 13:43 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
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.
Прим. обязательно создать текстовые файлы с соответствующими названиями в папке с исходником.
1
2 / 2 / 2
Регистрация: 22.04.2012
Сообщений: 106
06.06.2012, 08:03  [ТС] 3
она не работает
0
4299 / 1421 / 463
Регистрация: 16.12.2010
Сообщений: 2,939
Записей в блоге: 3
06.06.2012, 17:03 4
Цитата Сообщение от Predgornoe Посмотреть сообщение
она не работает
Конкретный пример и какая выходит ошибка?
0
2 / 2 / 2
Регистрация: 22.04.2012
Сообщений: 106
08.06.2012, 18:20  [ТС] 5
Программа не запускается....вообще...
0
4299 / 1421 / 463
Регистрация: 16.12.2010
Сообщений: 2,939
Записей в блоге: 3
08.06.2012, 19:40 6
А что по-вашему должно выводится, если весь процесс происходит в файле? В Вашем случае просто экран моргнет, и если не вышло ошибок, значит стоит посмотреть во второй текстовый файл на наличие результата.
1
2 / 2 / 5
Регистрация: 21.11.2013
Сообщений: 20
09.02.2014, 18:36 7
что бы она заработала в корневой папке паскаля создай файл text1.txt
0
2 / 2 / 2
Регистрация: 22.04.2012
Сообщений: 106
09.02.2014, 19:19  [ТС] 8
Благодарю за ответ, я уже пол года как закончил обучение, получил диплом, удачно обмыл его... и этот долгожданный ответ, на столь интересующий меня вопрос очень кстати, спасибо огромное....
1
2 / 2 / 5
Регистрация: 21.11.2013
Сообщений: 20
09.02.2014, 20:37 9
на самом деле это было для тех кто в дальнейшем будет использовать этот код
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.02.2014, 20:37
Помогаю со студенческими работами здесь

Внесите во второй файл все строки из первого, в конце которых стоит вопросительный знак
1.В редакторе создайте два текстовых файла, внесите в каждый файл по 10 строк произвольного текста....

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

Дан непустой текстовый файл. Удалить из него первую строку
Дан непустой текстовый файл. Удалить из него первую строку. на С++

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru