TID-CALCULATOR, Pascal

Language: Layout:

program td;

Var
Carte,C , N :real;
T :integer;

begin
Readln (T);

if T >= 1584  then

begin

T:= (T-1584);
Carte := ((T+1)/48);
C :=((frac (Carte))*48);
N :=((T/48)+1);
if c = 0 then
begin
Writeln ('Circuit Numéro :' ,48 );
Writeln ('La carte Numéro:' ,trunc (N) );
Writeln ('Shelf Numéro: 3' );
end
else 
begin
Writeln ('Circuit Numéro :' ,Round(C) );
Writeln ('La carte Numéro:' ,trunc (N) );
Writeln ('Shelf Numéro: 3' );
end
end

else 
if T >= 768  then
begin

T:= T-768;
Carte := ((T+1)/48);
C :=((frac (Carte))*48);
N :=((t/48)+1);
if c = 0 then
begin
Writeln ('Circuit Numéro :' ,48 );
Writeln ('La carte Numéro:' ,trunc (N) );
Writeln ('Shelf Numéro: 2' );
end
else 
begin
Writeln ('Circuit Numéro :' ,Round(C) );
Writeln ('La carte Numéro:' ,trunc (N) );
Writeln ('Shelf Numéro: 2' );
end
end

else

begin
Carte := ((T+1)/48);
C :=((frac (Carte))*48);
N :=((t/48)+1);
if c = 0 then
begin
Writeln ('Circuit Numéro :' ,48 );
Writeln ('La carte Numéro:' ,trunc (N) );
Writeln ('Shelf Numéro: 1' );
end
else 
begin
Writeln ('Circuit Numéro :' ,Round(C) );
Writeln ('La carte Numéro:' ,trunc (N) );
Writeln ('Shelf Numéro: 1' );
end
end

end.

Show compiler warnings [ - ] Show input
Compilation time: 0.12 sec, absolute running time: 0.13 sec, cpu time: 0 sec, memory peak: 3 Mb, absolute service time: 0,34 sec