Question

Proszę o pomoc! Potrzebuję grafikę wykonaną w PASCALU. W załączniku jest wzór na kwadrat. Natomiast ja potrzebuję zamiast kwadratów KOŁO I TRÓJKĄT. Program nie może mieć żadnego błędu i musi być wykonany w programie Dev-Pascal.

Daję naj.

Answer 1

koło

uses crt,graph;

var
a,b:integer;

Procedure kolo;
var
x,y,r:integer;
i:word;

begin
x:=200;
y:= 200;
r:= 50;

for i:=1 to 10 do;

begin
x:=x + 200;

circle(x,y,r);
end;
end;

begin
clrscr;
detectgraph(a,b);
initgraph(a,b,'c:\fpc\winbgi');

kolo;

writeln;
readln;
closegraph;

end.




Trójkąt

program trojkat; 
var i,j,d :integer; 
begin 
d:=1; 
for i:=1 to 5 do begin 
for j:=1 to d do 
write('*'); 
Writeln; 
d:=d+1; 
end; 
Readln; 
end.