Dzisiejsze zajęcia.
Pierwsza część.
Kto zrobił wykresy Partii proszę dopisać.
Spoiler:
Uses graph;
Var karta,tryb:integer;
Begin
Detectgraph (karta,tryb);
Initgraph(karta,tryb,'C:\tp\bgi');
Line(100,100,200,200);
Line(100,200,200,200);
Line(200,200,200,100);
Line(100,100,100,200);
Line(100,100,200,100);
circle(150,150,71);
rectangle(400,300,350,450);
setcolor(4);
setlinestyle(1,0,1);
setfillstyle(1,1);
bar3D(100,300,150,400,25,topon);
settextstyle(4,0,3);
outtextxy(400,50,'TEST');
readln;
closegraph;
end.
Offline
PARTIA
Spoiler:
Uses graph, crt;
var karta, tryb:integer;
i,s,r :integer;
p: array[1..4] of Integer;
label Glosy;
begin
Glosy:
begin
i:=0;
s:=0;
clrscr;
repeat
i:=i+1;
writeln('podaj poparcie dla ',i,' parti');
readln(p[i]);
s:=s+p[i];
if s > 100
then
begin
writeln('przekroczono 100% gˆos˘w wprowad« liczby raz jeszcze.');
readln;
goto Glosy;
end;
until i = 4;
end;
i:=0;
r:=100-s;
Detectgraph(karta,tryb);
initgraph(karta,tryb, 'c:\tp\bgi');
line(0,300,650,300);
repeat
i:=i+1;
setfillstyle(i,1);
bar(25+i*50,300,50+i*50,300-p[i]*2);
until i=4;
setfillstyle(1,2);
bar(25+5*50,300,50+5*50,300-r);
readln;
Offline
Koło BIAŁO CZERWONE
Spoiler:
Uses graph;
Var karta,tryb:integer;
Begin
Detectgraph (karta,tryb);
Initgraph(karta,tryb,'C:\tp\bgi');
line(240,300,360,300);
ellipse(300,300,0,180,60,60);
setfillstyle(1,15);
floodfill(300,299,15);
setcolor(12);
line(240,301,360,301);
ellipse(300,301,180,360,60,60);
setfillstyle(1,12);
floodfill(300,302,12);
readln;
closegraph;
end.
Offline