|
Written by Administrator
|
|
Monday, 22 December 2008 16:22 |
Ecrire un programme qui convertit en Octets, Kilo octets, Mega octets et Giga octets un nombre donnée en bits.
Correction :
En Pascal
Program capacite;
Uses WinCrt;
Var
bit:integer;
o,Ko,Mo,Go:real;
begin
writeln('Capacité en bits'); Readln(bits);
o:= bit / 8;
Ko:= o / 1024;
Mo:= Ko / 1024;
Go:= Mo / 1024;
writeln(bits,' bits = ',o:7:3,' o = ',Ko:7:4,' Ko = ',Mo:7:5,' Mo = ',Go:8:6,' Go');
end.
|
