Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 6314
Последний выпуск: 19.06.2015

Файлы в паскале

69K
01 марта 2012 года
Ebon
13 / / 07.11.2011
Надо 2 программы написать на паскале, которые с файлами работают, помогите:
- сформировать текстовый файл из строк, которые должны быть введены с клавиатуры;
- вывести на экран строки с наибольшим количеством слов.
52K
02 марта 2012 года
Sabit
42 / / 29.10.2010
звучит как заказ.
если тебе интересно можешь поискать примеры работы с файлами на паскале.

Код:
var
  f: File of String; // обьявление переменного f типом как файл из строк
  s: String;
  max_word, // в этой переменной например будешь хранить максимальное кол-во найденных слов
  i, temp: byte; // это запасные переменная
begin
  assign(f, 'c:\primer.txt'); // связываешь файлу имя и путь
  {$I-} reset(f); {$I+} // reset(f) пытаешься открыть существующий такой файл
  if IOResult <> 0 then // если произошла ошибка (нет такого файла, или еще чтонибудь)...
    rewrite(f); // создаешь такой файл

  read(s); // считать значение в переменную s с клавиатуры (или readln(s) тогда после него будет перевод каретки)
  write(s); // вывести значение переменной s на экран  (или writeln(s) тогда после него будет перевод каретки)
  write(f, s); // записываешь в файл переменную s
  read(f, s); // читаешь из файла в переменную s
 
  seek(f, 1); // устанавливаешь курсор в нужное место в файле
  while not eof(f) do // это цикл будет выполнятся пока не достигнется конец файла
    read(f, s); // читаешь следующую строку
    length(s); // эта функция возвращает длинну строки (кол-во символов)
    for i:= 1 to length(s) do // этот цикл повторится столько же сколько сиволов в переменной s
      if s = ' ' then // это условие проверяет является ли i-ный символ переменной s пробелом?
        begin

        end;
  end;


  close(f); // закрываешь файл
end.

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог