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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 25.12.2017, 13:22   #1
Vlad-Belarus
Пользователь
 
Регистрация: 25.12.2017
Сообщений: 15
По умолчанию Работа с текстовыми файлами

Надо написать программу которая в начале выводит запрос на ввод адреса (например D:\people\...) а потом в логический тип boolean выводит True если таковой файл есть, иначе False.
Vlad-Belarus вне форума Ответить с цитированием
Старый 25.12.2017, 13:43   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Код:
var fn : string;
  is_file_exist : boolean;
begin
  WriteLn('Укажите имя файла: ');
  ReadLn(fn);
  is_file_exist := FileExists(fn);
  WriteLn('файл ',fn,' логическая переменная = ',is_file_exist)
end.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 25.12.2017, 13:44   #3
Vlad-Belarus
Пользователь
 
Регистрация: 25.12.2017
Сообщений: 15
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
Код:
var fn : string;
  is_file_exist : boolean;
begin
  WriteLn('Укажите имя файла: ');
  ReadLn(fn);
  is_file_exist := FileExists(fn);
  WriteLn('файл ',fn,' логическая переменная = ',is_file_exist)
end.
а можно с коментариями
Vlad-Belarus вне форума Ответить с цитированием
Старый 25.12.2017, 13:49   #4
Vlad-Belarus
Пользователь
 
Регистрация: 25.12.2017
Сообщений: 15
По умолчанию

Спасибо
Vlad-Belarus вне форума Ответить с цитированием
Старый 25.12.2017, 13:59   #5
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от Vlad-Belarus Посмотреть сообщение
а можно с коментариями
можно.
какая строчка в коде непонятна, спрашивайте.


Цитата:
Сообщение от Vlad-Belarus Посмотреть сообщение
Спасибо
пожалуйста.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 25.12.2017, 19:37   #6
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,534
По умолчанию

непонятны все, кроме begin end ?
digitalis вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
работа с текстовыми файлами arai uzbekova Паскаль, Turbo Pascal, PascalABC.NET 10 11.04.2013 20:53
Работа с текстовыми файлами. BlooDk Помощь студентам 3 27.04.2012 15:20
Работа с текстовыми файлами KatruKot Паскаль, Turbo Pascal, PascalABC.NET 4 16.02.2011 18:47
Работа с текстовыми файлами Dareami Общие вопросы C/C++ 3 20.04.2010 10:21
Работа с текстовыми файлами hascker Паскаль, Turbo Pascal, PascalABC.NET 6 14.09.2009 19:01