Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Kotak_Adit
//fpc 3.0.0 program Kotak; uses SysUtils, crt; Var T,L,B,R : Integer; x,d : Integer; Label a1,a2,a3,a4; begin T := 5; L := 5; R := 20; B := 15; d := 1; GotoXY(L,T); write ('B'); x := L+1; a1:; GotoXY(x,T); Write('a'); sleep(d); x := x+1; if x < R then goto a1; //---- GotoXY(R,T); write('B'); x := T+1; a2:; GotoXY(R,x); Write('a'); sleep(d); x := x+1; if x < B then goto a2; //---- GotoXY(R,B); Write('B'); x := R-1; a3:; GotoXY(x,B); write('a'); Sleep(d); x := x-1; if x > L then goto a3; //---- GotoXY(L,B); Write('B'); x := B-1; a4:; GotoXY(L,x); write('a'); sleep(d); x := x-1; if x > T then goto a4; end.
run
|
edit
|
history
|
help
0
test01
formato_real
Tri1
НОД через функцию с возможностью вычисления для трёх и более чисел
Mat
Бассейн-5
solar sysmtem 6 (with random mass m1)
Régua do Tanque Cilindrico Horizontal
считалочка05
zadacha2