В обеих программах было использована модуль Crt. А также использовались условия с циклами. Написали и процедуру Delay в целях более медленного выполнения программы

Блок схема моей программы

Програмирование:

Я выбрала Паскаль как язык программирования.Вот мой код програмирования:

uses crt;

const n=79;

Var

x:array[1..n] of byte;

i,k:byte; c:char;

Begin

clrscr;

for i:=1 to n do

begin

x[i]:=0;

end;

repeat

k:=random(80);

if x[k]=0 then x[k]:=1;

for i:=1 to n do

begin

if x[i]>0 then

begin

gotoxy(i,x[i]);

write(' ');

x[i]:=x[i]+1;

gotoxy(i,x[i]);

write('*');

if x[i]>23 then x[i]:=0;

end;

delay(100);

until keypressed;

end.

И это только первоначальный вид.В дальнейшим я хочу изменить этот код программирование.Вот несколько скриншотов моего кода.

Понравилась статья? Добавь ее в закладку (CTRL+D) и не забудь поделиться с друзьями: