Szukam informacji na temat Turbo pascala. Interesuja mnie czy mozna drukowac grafike w TP i jak ta grafike zrobic. mam klopot z biblioteka- funkcja nie wchodzi, bo nie ma jej w bibliotece. Czy mozna sciagnac gdzies w sieci TP? slyszalem ze miesci sie na 7 dyskietkach
Absolutny amator.
turbo pascal
- Undre
- Użytkownik
- Posty: 1430
- Rejestracja: 15 lis 2004, o 02:05
- Płeć: Mężczyzna
- Lokalizacja: UĆ
- Podziękował: 3 razy
- Pomógł: 92 razy
turbo pascal
no grafika to w Pascalu jest, ino taka .... no .... badziewna, o !
po pierwsze co załączamy :
a dalej to można już szaleć ... fragment jakiegoś pliku z czasów licealnych :
edit
już wiem :
po pierwsze co załączamy :
po drugie co trza zrobić, żeby to poszło :program Grafique;
uses crt, graph;
orazvar
GraphDriver, GraphMode: integer;
Oczywiście w tym ostatnim podajesz ścieżkę do katalogu Pascala na swoim dyskuBegin
detectgraph (GraphDriver, GraphMode);
InitGraph(GraphDriver, GraphMode, 'C:\BP\Bgi');
a dalej to można już szaleć ... fragment jakiegoś pliku z czasów licealnych :
a w sieci to na pewno jest free pascal (), zaś oldsqlowego Turbo Pascala to używaliśmy w LO, a czy jest gdzieś za free legalnie, to nie wiemsetcolor(3); {House}
line(70,200,70,480);
line(410,200,410,480);
line(40,200,440,200);
line(100,110,380,110);
line(40,200,100,110);
line(380,110,440,200);
SetFillStyle(1,8); {Door}
bar(200,300,300,480);
line(180,70,180,110);
line(220,70,220,110);
line(180,70,220,70);
setColor(6);
for a:=1 to 10 do {Fence}
begin
line(230+a*40,360,230+a*40,480);
line(230+a*40,360,250+a*40,340);
line(250+a*40,340,270+a*40,360);
end;
setColor(14); {Sun}
for b:=1 to 20 do
circle(620,20,b*3);
readln;
closegraph;
end.
edit
już wiem :