Paskal ABC da disk hajmi

Muallif: Mengliyev Sh.

Qo`shilgan sana: 2014-12-04

Paskal ABC da disk hajmi

Kompyuterdagi disk hajmini hisoblash dasturi quyidagicha

program disk;

uses Utils;

var
i: integer;
mb,b: integer;

begin
cls;
i:=3;
repeat
mb:=DiskSize(i).Megabytes;
b:=DiskSize(i).bytes;
if b=-1 then exit;
write('Disk hajmi '+Chr(i+Ord('C')-3),': ',mb:6,' mb ',b,' bayt ');
mb:=DiskFree(i).Megabytes;
b:=DiskFree(i).bytes;
writeln(' bo`sh joy: ',mb:6,' mb ',b,' bayt ');
Inc(i);
until False;
end.

Natija:

Disk hajmi C: 49899 mb 1044480 bayt bo`sh joy: 36615 mb 167936 bayt
Disk hajmi D: 188472 mb 1044480 bayt bo`sh joy: 13377 mb 495616 bayt

1684 marta o`qildi.