Ma`lumotlar : 1091
Xabarlar soni: 196
Bugun: 21.1.2021
Soat: 7:30
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
1789 marta o`qildi.
![]() |
![]() |