Модуль DOS. Вывести на экран размеры всех файлов, находящихся в текущем каталоге

@masimka001 · Регистрация: 20.03.2012

Студворк — интернет-сервис помощи студентам

Вывести на экран размеры всех файлов, находящихся в текущем каталоге, имена которых начинаются на заданную букву.

@Puporev · 31.03.2012, 13:00

Pascal

uses crt,dos;
var name:string;
    c:char;
    f:file;
    sch:Searchrec;
    size:longint;
    k:byte;
begin
clrscr;
writeln('Введите первую букву файла:');
readln(c);
clrscr;
FindFirst('*.*',Anyfile,sch);
k:=0;
if DosError=0 then
repeat
  name:=sch.name;
  size:=sch.size;
  if name[1]= c then
   begin
    writeln(name,'  ',size/1024:0:2,' кбт');
    k:=1;
   end;
  FindNext(sch)
until DosError<>0;
if k=0 then write('Файлов на букву ',c,' нет');
readln
end.

@masimka001 0 / 0 / 0 Регистрация: 20.03.2012 Сообщений: 25
		1
	Модуль DOS. Вывести на экран размеры всех файлов, находящихся в текущем каталоге 31.03.2012, 02:02. Показов 1392. Ответов 1 Метки нет (Все метки) Вывести на экран размеры всех файлов, находящихся в текущем каталоге, имена которых начинаются на заданную букву. 0

	31.03.2012, 13:00

Опции темы

Модуль DOS. Вывести на экран размеры всех файлов, находящихся в текущем каталоге

Решение