Question

Мне нужно чтобы измененное слово выводилось не в столбик а заменялось новым
Программа:
Uses GraphAbc;
Var i:integer;
const slovo = 'Misha';
begin
for i:= 1 to 100 do
begin
SetFontColor(rgb(random(225),random(225),random(225)));
SetFontSize (random (20));
SetBrushColor(rgb(random(225),random(225),random(225)));
writeln(slovo);
sleep (100);
end
end.

Answer 1

Uses GraphAbc;

Var i:integer;

const slovo = 'Misha';

begin

for i:= 1 to 100 do  

begin

SetFontColor(rgb(random(225),random(225),random(225)));

SetFontSize (random (20)+1);

SetBrushColor(rgb(random(225),random(225),random(225)));

textout(0,0,slovo);

sleep (100);

Clearwindow()

end

end.

P.s когда функция SetFontSize (random (20)) равно 0, то выходит ошибка, поэтому я написал "+1".