program sectors;
uses crt;
const bytes_per_sector = 512;
var bs,final : Integer;
disk : string;
yo : Char;
begin
repeat {*** enter the details ***}
clrscr;
write('Enter your disk details: ');
readln(disk);
writeln;
write('Enter the number of bytes in bad sectors: ');
readln(bs);
writeln;
{ *** Here's where we work out how many bad clusters are on the disk ***}
final:=bs div bytes_per_sector;
writeln('Your ',disk,' disk has ',final,' bad clusters on it.');
gotoxy(1,24);
write('Again? ');
readln(yo);
until yo in ['n','N'];
end.
Comments
0 B
|👍
/👎
0 B
|👍
/👎
0 B
|👍
/👎
0 B
|0 👍
/0 👎