Консультация онлайн # 160920

Раздел: Pascal / Delphi / Lazarus
Автор вопроса: Омельченко Анастасия Сергеевна
Дата: 19.02.2009, 19:06 Консультация неактивна
Поступило ответов: 1
помогите плиз с задачей по программированию!!!3. Описать функцию TextSize(Name) целого типа, возвращающую число строк в текстовом файле с именем Name. Если файл не существует, то функция возвращает –1. С помощью этой функции определить размер трех файлов с данными именами.

Ответ # 1, Minin (Посетитель)

Здравствуйте, Омельченко Анастасия Сергеевна!

Ответ представленнный на мини-форуме неправильный, т.к. он будет работать в Delphi, а здесь вопрос по Pascal

Приложение:


Minin

Посетитель
19.02.2009, 20:30
Нет оценки ответа

Мини-форум консультации # 160920

Roman Chaplinsky / Химик CH

Модератор

ID: 156417

177014

= общий =    19.02.2009, 19:35

Код
Function TextSize(Name:String):integer;
var F:text; i:integer;
begin
try  // начало защищённого блока 
assign(F,Name);
reset(F);    //считываем файл
i:=0;
while not EOF(F)   //пока файл не кончился
do begin readln(F); i:=i+1; end; // считаем строки
close(F);
except i:=-1; end; //в случае ошибки (если файл не найден)
TextSize:=i;
end;
Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.