Tut u4ilka na menja vase naehala skazala eta rabota na edinitsu ne tjanet >:(... Nado stob v proge vse ezdilo, prigalo, migalo i krsivo bilo bi. Ja v Paskale ese zelenii i ne znaju 4e dobavit' stob hot' kak-to rabotala bi.
Pomogite kto mozet, v zaranee blagodarju!
Vot tekst progi:Код
Program xXx;
Uses crt;
const
a:array[1..8] of char=('H','E','L','P',' ','M','E','!');
var
i,j,x,y:integer;
procedure vlevo;
begin
window(x,y,x+8,y);
for i:=1 to 8 do
begin
text color(i);
Write(a[i]);
end;
Window(x+8,y+2,x+9,y+2);
for i:=1 to 8 do
begin
write(' ');
end;
delay(3000);
end;
procedure vpravo;
begin
window(x-1,y,x,y);
for i:=1 to 8 do
write(' ');
Window(x,y,x+8,y);
for i:=1 to 8 do
begin
text color(i);
Write(a[i]);
end;
delay(3000);
end;
procedure vverh;
begin
window(x,y,x+8,y);
for i:=1 to 8 do
begin
text color(i);
Write(a[i]);
end;
Window(x,y+1,x+8,y+1);
write(' '); {8 probelov}
delay(3000);
end;
procedure vniz;
begin
window(x,y,x+8,y);
for i:=1 to 8 do
begin
text color(i);
Write(a[i]);
end;
window(x-1,y,x,y);
for i:=1 to 8 do
write(' ');
delay(3000);
end;
begin
randomize;
clrscr;
x:=37;
for i:=1 to 8 do
begin
textcolor(i);
If (i mod 2)=1 then
for y:=1 to 15 do
begin
window(x+i,y,x+i,y);
write(a[i]);
window(x+1,y-1,x+1,y-1);
write(' ');
delay(3000);
end;
else
begin
for y:=30 down to 15 do
begin
window(x+i, y,x+i,y);
write(a[i]);
window(x+i,y+1,x+i,y+1);
Write(' ');
delay(3000);
end;
end;
writeln;
end;
y:=15;
for x:=37 down to 1 do vlevo;
for y:=15 down to 1 do vverh;
for x:=1 to 72 do vpravo;
for y:=1 to 25 do vniz;
for x:=72 down to 1 do vlevo;
for y:=25 down to 15 do vverh;
repeat
textcolor(random(10)+1);
window(x+10,y.x+24,y);
write('help !!!');
until keypressed;
readln
end.
Ispolzovat' mozno vse sto ugodno. Ja nemnogo razobralsa v tekste, no stob krasivo tekst po ekranu ezdil ne polu4aetsa (On ezdit kak-to haoti4no).
P.S. Glavnoe stob bukvi ili uzor na ekrane ezdil, polzal ili migal ili sto ugodno v etom rode. (mne po4emu-to ni4e ne pridumat', navernoe menja obdelili s voobrazeniem :-/).