Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 160920
19.02.2009, 19:06
0.00 руб.
0 2 1
Компьютеры Программирование
помогите плиз с задачей по программированию!!!3. Описать функцию TextSize(Name) целого типа, возвращающую число строк в текстовом файле с именем Name. Если файл не существует, то функция возвращает –1. С помощью этой функции определить размер трех файлов с данными именами.

Обсуждение

давно
Roman Chaplinsky / Химик CH
Модератор
156417
2175
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;
Неизвестный
19.02.2009, 20:30
общий
это ответ
Здравствуйте, Омельченко Анастасия Сергеевна!

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

Приложение:
program ex3;
Uses WinDos;
function TextSize(Name:string):integer;
var f:text;
s:array[1..256] of char;
DirInfo : TSearchRec;
i,n:integer;
begin
n:=-1;
FindFirst(@Name[1], 0, DirInfo);
if DosError=0 then {если файл найден}
begin
n:=0;
assign(F,Name);
reset(F); {считываем файл}
while not EOF(F) {пока файл не кончился}
do
begin
readln(F);
n:=n+1;
end; { считаем строки}
close(F);
end;
TextSize:=n;
end;
var n:string;
i:integer;
begin
for i:=1 to 3 do
begin
write('Введите имя файла ');
readln(n);
writeln('В Файле ',Textsize(n), ' строк');
end;
readln;
end.
Форма ответа