Помощь - Поиск - Пользователи - Календарь
Полная версия: задача на файлы
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Игорь2
Условие задачи :
"В текстом файле необходимо вывести первую букву во второй строке"
Подскажите как перейти ко второй строке и вывести на печать первый символ, вот наработка моей задачи

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я
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
В данном решении выведится на печать первый символ в первой строке, а мне надо во второй строке, в этом вся и проблема. Это решение неверно
В файле несколько строк
volvo
Цитата
одскажите как перейти ко второй строке и вывести на печать первый символ
Пропустить первую строку, что Оззя и сделал... С чего это там
Цитата
выведится на печать первый символ в первой строке
, если ReadLn присутствует ДВА раза?

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

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

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

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

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

С удовольствием
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.