|
Вопрос # 3 700/ вопрос открыт / |
|
Приветствую, уважаемые эксперты!
помогите пожалуйста решить последнюю лабораторную работу, по чтению и записи текстовых файлов. задачи:
1) вывести вторую и предпоследнюю строки файла. если в файле только одна строка, то выводить сообщение "нет решения"
2) строки исходного файла записать в новый файл, добавить знак ? после первого слова строки.
 |
Вопрос задал: alex2580 (статус: Посетитель)
Вопрос отправлен: 27 января 2010, 13:05
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Егор
Здравствуйте, alex2580!
Задачи-то, в целом, несложные. :)
Ответ на задания см. в приложении.
Будут вопросы - задавайте.
Приложение: Переключить в обычный режим-
-
- --------------------------------------
- var
- f : text;
- i : integer;
- s, sSecond, sPred : string;
- begin
- Assign(f,'1.txt');
- {$I-}
- Reset(f);
- {$I+}
- if IOResult<>0 then
- begin
-
- readln;
- exit;
- end;
- i:=0;
- s:='';
- sSecond:='';
- sPred:='';
- while not EOF(f) do
- begin
- sPred:=s;
- readln(f,s);
- i:=i+1;
- if i=2 then sSecond:=s;
- end;
- Close(f);
- if i<=1 then
-
- else
- begin
-
-
- end;
- readln;
- end.
- --------------------------------------------
-
-
- --------------------------------------------
- var
- fIn, fOut : text;
- i : integer;
- s, firstWord, EndString : string;
- begin
- Assign(fIn,'1.txt');
- {$I-}
- Reset(fIn);
- {$I+}
- if IOResult<>0 then
- begin
-
- readln;
- exit;
- end;
- Assign(fOut,'2.txt');
- {$I-}
- Rewrite(fOut);
- {$I+}
- if IOResult<>0 then
- begin
-
- readln;
- exit;
- end;
- while not eof(fIn) do
- begin
- readln(fIn, s);
- i:=pos(' ',s);
- if i>0 then
- begin
- FirstWord:=Copy(s,1,i-1);
- EndString:=Copy(s,i,length(s)-i+1);
- end
- else
- begin
- FirstWord:=s;
- EndString:='';
- end;
- writeln(fOut,FirstWord,'?',EndString);
- writeln(FirstWord,'?',EndString);
- end;
- Close(fIn);
- Close(fOut);
- readln;
- end.
- ------------------------------------------------
 |
Ответ отправил: Егор (статус: 10-ый класс)
Время отправки: 28 января 2010, 22:58
Оценка за ответ: 5
Комментарий к оценке: спасибо
|
Мини-форум вопроса
Всего сообщений: 0.
27 января 2010, 13:15: Вопрос перемещён из тематического раздела Pascal » Программирование на Pascal в раздел Лабораторный практикум » Pascal модератором Ерёмин А.А. Причина: пора бы уже правильно выбирать раздел
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
