Как зделать прогу в Paskal ABC?
Нам в школе задали зделать прогу чтоб ты задал количество кругов а она тибе их нарисовала. Помогите плиз. Зарание спасибо))))
Нам в школе задали зделать прогу чтоб ты задал количество кругов а она тибе их нарисовала. Помогите плиз. Зарание спасибо))))
{Ну и вот звездное небо: }
program grnebo;
uses graphABC,crt;
var
x,y:integer;
n,i,r,k:integer;
m:array [1..6] of integer;
begin
randomize;
m[1]:=clred;
m[2]:=clyellow;
m[3]:=clgreen;
m[4]:=clblue;
m[5]:=clolive;
m[6]:=clsilver;
for i:=1 to 50 do begin
x:=300 + random(510)-200;
y:=250 + random(400)-200;
r:=10;
delay(100);
k:= random(6)+1;
SetBrushColor(m[k]);
circle(x,y,r);
end;
end.
while (true) do writeln('Я буду учить русский язык');
Эта прога какая-то фиговая. По-мойму, здесь даже компилировать нельзя. Используй лучше FreePascal
var
a: string; //количество кругов
procedure TForm1.FormActivate(Sender: TObject);
begin;
form1.caption:='Какие еще тебе тут круги?! ';
label1.caption:='Да, да, кругов не будет, идем учить рус. яз. ';
a:='Пытаемся рисовать первый круг';
label2.caption:=a;
end;