20 Listopad 2010

XwOLF · 2010-11-20 11:25:54

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.

Drejko · 2010-11-20 11:34:56

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;

XwOLF · 2010-11-20 12:36:35

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.

#1 2010-11-20 11:25:54

20 Listopad 2010

Spoiler:

#2 2010-11-20 11:34:56

Re: 20 Listopad 2010

Spoiler:

#3 2010-11-20 12:36:35

Re: 20 Listopad 2010

Spoiler:

Stopka forum