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
mod/div
Вычисление e^x с помошью ряда Тейлора
[DE/GER] Vigenere Chiffre (Verschlüsselung)
j en ai marre
135
corza71
zadan 2
test15
Fibonacijev niz
buscar_numero_V2_divisible_5