Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.01.2015, 22:45   #1
kolian87
Пользователь
 
Регистрация: 25.01.2015
Сообщений: 12
По умолчанию работу с текстовым файлом

Пример. Программа демонстрирует работу с текстовым файлом, тип файла и его обработку задаёт пользователь, выбрав соответствующий режим. Необходимо помнить, что прежде чем использовать режим 2, нужный файл должны быть записан на ГМД.
Код:
Program VT_1;
Var F1:text;
St : string[80];
Stf : string[12];
Kol , I : byte;
J : byte;
Count : integer;
K : char;
Procedure Crttext ;
begin
Rewrite( F1 ) ;
writeln( ' вводите исходный текст ' ) ;
readln( St ) ;
while St <> ' конец ' do
begin
Writeln( F1 , St ) ;
        readln( St )
end;
Close( F1 );
end;
Procedure Vivtext ;
Begin
writeln('вывод текстового файла');
    Reset( F1 ) ;
while not Eof(F1) do
begin
while not eoln(F1) do
begin
Readln( F1 , St );
writeln( Lst , St );
end
end
end;
Begin
while True do
begin
ClrScr;
writeln('МЕНЮ :');
writeln('      1-создание текстового файла');
writeln('      2-чтение и печать текстового файла');
writeln('      3-выход из программы');
write(' введите имя файла');
readln( Stf );
write(' введите режим ');
readln( I );
Assign( F1 , Stf );
case I of
1: Crttext;
2: Vivtext;
3: Halt
end;
Read( Kbd , K );
end
End.


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

Последний раз редактировалось Serge_Bliznykov; 29.01.2015 в 23:08.
kolian87 вне форума Ответить с цитированием
Старый 30.01.2015, 07:55   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Нормуль )
И что не так?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа с текстовым файлом schkiper Общие вопросы C/C++ 2 02.05.2013 15:45
Работа с текстовым файлом schkiper C# (си шарп) 11 02.05.2013 13:56
Задача на работу с текстовым файлом. Константинн Помощь студентам 7 30.03.2011 18:55
Работа с текстовым файлом )Игнат( Помощь студентам 4 13.11.2010 16:29
Работа с текстовым файлом Vasya Помощь студентам 28 24.01.2008 01:15