Файлы в паскале
Надо 2 программы написать на паскале, которые с файлами работают, помогите:
- сформировать текстовый файл из строк, которые должны быть введены с клавиатуры;
- вывести на экран строки с наибольшим количеством слов.
- сформировать текстовый файл из строк, которые должны быть введены с клавиатуры;
- вывести на экран строки с наибольшим количеством слов.
звучит как заказ.
если тебе интересно можешь поискать примеры работы с файлами на паскале.
если тебе интересно можешь поискать примеры работы с файлами на паскале.
Код:
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.
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.