Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
CALCULATE FILE
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.
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
test13
CON YÊU MẸ
janja - naloga 2 - 9.2.2011
translator number system
1
Cek dua pangkat
5 2 8
Solving Quadratic Equation
6
Régua do Tanque Cilindrico Horizontal
Please log in to post a comment.