pascal 4 2nd

Kal-El · Napísal **Kal-El**: 12.05.2007 20:58

no potrebujem helpa opat Napíšte algoritmus, ktorý nakreslí graf funkcie y = sin x najskôr inicializuj grafiku (unit Graph) použite cyklus a funkciu PutPixel
nezabudnite, že obrazovka má rozmery 640x480 a funkcia sínus nadobúda
hodnoty <-1;1> .

p360t · Napísal **p360t**: 13.05.2007 9:03

Až na to inicializovanie jednotky Graph by som to vedel (použil som Grafiku).

Kód:

Program Sinus;
Uses Crt, Grafika;
Var x, y, i: integer;
    z: real;
Begin
ClrScr;

SetColor(black);
FilledRectangle(0, 0, 640, 480);
SetColor(white);
Line(0, 240, 640, 240);
Line(275, 0, 275, 480);
For x:= -275 To 365 Do
Begin
     {sinus}
     z:= Sin(x*Pi/180);
     y:= Trunc(100*z);
     PutPixel(275+x,240-y, Red);
End;

ReadKey;
End.

Kal-El · Napísal autor témy **Kal-El**: 13.05.2007 10:44

nzd v com si to robil? v pascale mi to nechce spustit

audiotrack · Napísal **audiotrack**: 13.05.2007 10:50

zrejme máš iné knižnice na grafiku

Kal-El · Napísal autor témy **Kal-El**: 13.05.2007 10:57

no neviem o nicom z pascalu kde je FilledRectangle nenasiel som ho ani v helpe

audiotrack · Napísal **audiotrack**: 13.05.2007 11:00

Fillrectangle, line a iné sú príkazy na prácu s grafikou (Fillrectangle nakreslí obdlžnik daných súradnic s predom definovanou farbou cez setcolor)
Ak si nepripojil danú knižnicu (alebo sa volá inak a pripojil si inú) tak ti tieto príkazy nepôjdu. A keďže to nie sú štandartné príkazy samotného pascalu, tak nie sú ani v helpe

Kal-El · Napísal autor témy **Kal-El**: 13.05.2007 11:02

ale kniznica grafika by mi mala ist divno

p360t · Napísal **p360t**: 13.05.2007 12:27

Ono ten FilledRectangle je tam len na to, že keď do programu zapojím Grafiku a napíšem ClrScr (tj vymazanie obsahu obrazovky a kurzor do ľavého horného rohu), tak to tam spraví taký škaredý šedý obdĺžnik. Neviem prečo, ale toto je najjednoduchšie riešenie, ako sa toho zbaviť. Takže, ak ho tam nedáš, nakreslí sa ti to rovnako, len budeš mať šedý podklad (teda aspoň ja ho mám).

Potom najkreslí osi x a y, ten stred má preto také súradnice, aby sa na kladnú časť osi x zmestila celá perióda a na zápornú čo najviac (tuším to je 1,5 periódy). Preto je aj cyklus for pre x od -275 do +365 (-275° je -1,5Pi aj niečo a +365° je +2Pi aj niečo).

Následne sa vypočíta sínus - v Pascali je funkcia sínus pre radiány, takže to prehodíš (to je ten vzorec x*Pi/180) a dostaneš reálne číslo. Aby si ho vedel previesť do tohoto príkladu, vynásobíš ho stovkou a odstrániš desatinú časť (y:= Trunc(100*z)).

Nakoniec nakreslíš každý jeden bod, keďže stred súradnicovej sústavy nie je v bode [0; 0], ale v bode [275; 240], musíš aj tie súradnice adekvátne upraviť.

Ak by som vedel rozbehať Graph, tak by som to robil v tom, ale žiaľ nepodarilo sa a netuším prečo (vlastne netuším AKO sa to robí, niekto by mohol pomôcť, čo ty na to, audiotrack?

).

audiotrack · Napísal **audiotrack**: 13.05.2007 14:23

Kód:

Program nieco;
uses graph;
 
var
 gd,gm : integer;
 
begin
 detectgraph(gd,gm);
 InitGraph(Gd, Gm, '');
 rectangle(270,200,370,400);
 line(270,200,300,150);
 .
 .
 .
 closegraph;
end.

Inicializovať to môžeš manuálne, ja si dávam zistiť optimálne hodnoty do dvoch premenných typu integer ktoré potom použijem pri inicializácii.

môžeš sa s tým aj trošku viac pohrať:

Kód:

 if RegisterBGIdriver(@egavga_dr) < 0 then ErrCode:=1;
 gd:=9;gm:=1;
 initgraph(gd,gm,'');
 ErrCode := GraphResult;
 if not(ErrCode = grOk) then begin
     WriteLn('Chyba inicializacie grafiky:',GraphErrorMsg(ErrCode));
     halt(1);
    end;

prípadne takto nejak:

Kód:

  Gd:=Detect;
  Initgraph(Gd,Gm,'');
  ErrorCode := GraphResult;
 
  { vznikla chyba pri inicializacii }
  if ErrorCode <> grOk then
  begin
    Writeln('Chyba grafiky: ', GraphErrorMsg(ErrorCode));
    Halt(1);
  end;

ale to už je o inom, také veci ti asi netreba

viac o dvoch spomínaných funkciách ktoré sú alfa a omega (skôr len alfa) pri tejto knižnici nájdeš tu:
http://www.freepascal.org/docs-html/rtl ... graph.html
http://www.freepascal.org/docs-html/rtl ... graph.html

pascal 4 2nd

Podobné témy