Как заменить программму в турбо паскале чтоб она решалась в паскале ABC? program kRUGI;uses crt;var gd,gm,c,i,r,x,y,n:integer;beginclrscr;randomize;writeln('введите колличество окружностей->');readln(n);gd:=0;for i:=1 to n do begin r:=random(80);x:=random(600);y:=random(400); c:=random(15);setcolor(c); circle(x,y,r); setfillstyler(1,c);floodfill(x,y,c); end;readkey;closegraph;end.
Как заменить программму в турбо паскале чтоб она решалась в паскале ABC? program kRUGI;uses crt;var gd,gm,c,i,r,x,y,n:integer;beginclrscr;randomize;writeln('введите колличество окружностей->');readln(n);gd:=0;for i:=1 to n do begin r:=random(80);x:=random(600);y:=random(400); c:=random(15);setcolor(c); circle(x,y,r); setfillstyler(1,c);floodfill(x,y,c); end;readkey;closegraph;end.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
Для того чтобы программа была написана на Pascal ABC, необходимо просто скопировать код и вставить его в среду разработки Pascal ABC. Необходимо также заменить функцию randomize на sr.Randomize и функцию random на sr.Random. В остальном код останется таким же.