Szín és koordináta bekérése és használata! Hogyan?

nem csak a CRT-t kell használnod, hanem graph-ot is. akkor van értelme. itt egy példa amiben bekéred a koordinátákat és megrajzolja a háromszöget:

program haromszograjz;

uses crt, graph;

var gd, gm: integer;

pontok:array[1..6] of word;

a,b,c:byte;

procedure vonal(x1,y1,x2,y2: integer);

begin

line(x1,x2,y1,y2);

end;

begin

clrscr;

c:=1;

writeln('add meg a haromszog pontjainak koordinatait');

for a:=1 to 3 do

begin

writeln(a, '. pont:');

write('x = ');

readln(b);

pontok[c]:=b;

c:=c+1;

write('y = ');

readln(b);

pontok[c]:=b;

c:=c+1;

end;

gd:=detect;

initgraph(gd, gm, 'd:\tp7\bgi');

vonal(pontok[1],pontok[2],pontok[3],pontok[4]);

vonal(pontok[1],pontok[2],pontok[5],pontok[6]);

vonal(pontok[3],pontok[4],pontok[5],pontok[6]);

readln;

closegraph;

end.

a szint meg különböző helyeken felhasználhatod. vonalakat befesteni, hátteret, iylesmit. vannak rá parancsok. számot elég bekérned. ez szerint értelmezi:

0 = black

1 = dark blue

2 = green

3 = blue green

4 = red

5 = violet

6 = dark yellow

7 = light gray

8 = gray

9 = blue

20 = maroon

21 = light violet

22 = red orange

27 = yellow green

28 = light blue

29 = pink

vagyis egy byte elég. TextColor és TextBackGround-ot CRTben használhatod. azt hiszem egyértelmű mit csinálnak.

googlen utánnakereshetsz a parancsoknak az szerint mit akarsz befesteni :)

jó ez csak pár javítás szükséges :)

itt az egész:

program soroszlop;

uses crt;

var

a,s:integer;

begin

clrscr;

writeln('Melyik sorba írjak?');

Readln(a);

writeln('Melyik oszlopba?');

readln(s);

clrscr;

gotoxy(a,s);

writeln('valami');

readln;

end.

a clrscr-t használtam hogy eltünjön minden felesleges dolog a képernyőről.

readnl meg azért kell a végére hogy miután kiírja a szavad, ne zárja be magát, hanem vár még egy billentyű leütésére (másképp nem lenne időd megtekinteni az eredményt :)

TextColor(x);

x helyett a szám amit bekértél. ez után a parancs után kiírt szöveg olyan szinű lesz.