Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ задача на файлы

Автор: Игорь2 1.02.2010 13:04

Условие задачи :
"В текстом файле необходимо вывести первую букву во второй строке"
Подскажите как перейти ко второй строке и вывести на печать первый символ, вот наработка моей задачи

program f375;
var f : text;
s : string;
begin
assign(f, 'C:\1.txt');
reset(f);
readln(f,s);
writeln (copy(s,1,2)) ;
close(f);
end.


М
Тэги!


Автор: Ozzя 1.02.2010 13:32

program f375;
var
f : text;
s : string;
begin
assign(f, 'C:\1.txt');
reset(f);
readln(f,s);
readln(f,s);
writeln (s[1]) ;
close(f);
end.

Автор: Игорь2 1.02.2010 13:51

В данном решении выведится на печать первый символ в первой строке, а мне надо во второй строке, в этом вся и проблема. Это решение неверно
В файле несколько строк

Автор: volvo 1.02.2010 14:10

Цитата
одскажите как перейти ко второй строке и вывести на печать первый символ
Пропустить первую строку, что Оззя и сделал... С чего это там
Цитата
выведится на печать первый символ в первой строке
, если ReadLn присутствует ДВА раза?

Добавлено через 46 сек.
Цитата
Это решение неверно
А ты соизволил его запустить, или так, навскидку?

Автор: Игорь2 1.02.2010 14:28

извеняюсь , запустил задачу программа прошла,
спасибо

Добавлено через 13 мин.
Работаю учителем информатики в школе , составляю сборник задач по ОИВТ, надеюсь на вашу помощь, если какие задачи не будут проходить.

Автор: Ozzя 1.02.2010 18:47

Цитата
Работаю учителем информатики в школе ,

Приветствую, колллега ;)
Цитата
составляю сборник задач по ОИВТ,

Э-э-э, не вижу смысла, ибо есть задачники Пильщикова, Абрамова, и проч.
Уверяю Вас, их вполне достаточно rolleyes.gif

Цитата
надеюсь на вашу помощь, если какие задачи не будут проходить.

С удовольствием