
Tukaj si lahko downloadate exe file.
Tukaj pa si lahko downloadate source kodo.
Hvala
Koliko si star?timj010 napisal/-a:Odlocil sem se, da se bom naucil porgramirati..
Kaj pa če bi probal z..timj010 napisal/-a: ..obstaja kaksen ukaz ki ne bi narisal crte ampak premico?
Koda: Izberi vse
MoveTo(x, y);
LineTo(x, y);
Star sem 14 let.GJ napisal/-a: Koliko si star?
Z prevajalnik uporabljam FPC (Free Pascal) in ja aplikacijo hocem naredit pod DOS WIN32, bom probal ta ukaz pa ti povem kako se obnese. Kaj si lahko prosim ogledas source kodo pa mi poves ce je lazji nacit risanja grafov funkcij, kot pa vsi ti if loopiGJ napisal/-a: PS:
Predpostavljam, da hočeš narediti aplikacijo pod DOS WIN32.
Pa vsaj povej ker prevajalnik uporabljaš. Pascal je zelo širok..
Na splošno vsi programski jeziki kličejo API (application paralel interface) preko svojih unitov. Microsoft WIN32 API ukazi so javno dostopni na MSDN strani.
Od ostalih operacijskih sistemov pa tut.
Lahko noč..
Zaradi tega ker imamo tekmovanje na soli iz Pascala in bi rad dobil srebrno ali pa zlato priznanje, saj bi si tako lahko pridobil Zoizovo stipendijo.azi napisal/-a:Nevmesno, ampak vseeno :
Pascal is sick.. Zakaj raje C-ja ne ucis ?
Koda: Izberi vse
MoveTo(x, y);
LineTo(x, y);
Koda: Izberi vse
program funkcije;
Uses
crt, Graph;
var
Grdriver, Grmode: Integer;
ch: char;
y: array[1..3] of real;
x: array[1..3] of real;
r: array[1..6] of integer;
k, n: real;
begin
ClrScr;
Grdriver := 0;
Grmode := 0;
Writeln ('Vpisi vrednost -k in pritisni enter');
Readln(k);
Writeln ('Vpisi vrednost -n in pritisni enter');
Readln(n);
Writeln ('Za izhod iz programa pritisni ESC');
Writeln;
Writeln ('Created by JT.Br34k3r a.k.a T-man');
Readln;
y[1] := 0;
x[2] := 0;
x[3] := 20;
x[1] := (y[1] - n) / k;
y[2] := k * x[2] + n;
y[3] := k * x[3];
r[1] := Round(x[1]);
r[2] := Round(x[2]);
r[3] := Round(y[1]);
r[4] := Round(y[2]);
r[5] := Round(x[3]);
r[6] := Round(y[3]);
Writeln ('Tocka M(',r[2],',',r[4],')');
Writeln ('Tocka N(',r[1],',',r[3],')');
Writeln ('Tocka A(',r[5],',',r[6],')');
Readln;
InitGraph (Grdriver, Grmode, '');
If Graphresult <> 0 then
begin
Writeln (' Error ');
Halt (0);
end;
line (512,0,512,768);
line (0,384,1024,384);
if (r[1]>512) or (r[3]>512) or (r[2]>384) or (r[4]>384) then
begin
Writeln ('Tocka ima previsoko vrednost');
Halt(0);
end;
if (r[2]>0) and (r[4]>0) then
line (r[1] + 512,384 - r[2],r[3] + 512,384 - r[4])
else line (r[1] + 512,384 + r[2],r[3] + 512,384 + r[4]);
if (n=0) and (r[6]>0) then
line (r[5] + 512,384 - r[6],512,384);
if (n=0) and (r[6]<=0) then
line (r[5] + 512,384 + r[6],512,384);
Repeat
ch := Readkey
Until ch = #27;
Closegraph;
FPC je za šolske primerčke čisto uredu. Za kaj bolj zahtevnega pa si raje omisli Delphi, ni primerjave.timj010 napisal/-a:Z prevajalnik uporabljam FPC (Free Pascal) in ja aplikacijo hocem naredit pod DOS WIN32.
Jaa, hm..timj010 napisal/-a: Kaj si lahko prosim ogledas source kodo pa mi poves ce je lazji nacit risanja grafov funkcij, kot pa vsi ti if loopi?
Nebi rad zacel flamewara, ker itak tudi drugace vsi vemo, da se v vsakem programskem jeziku da "vse" narest, osebno mi pa Pascal iz vec razlogov NI vsec (grda koda, omejitve........).Roman napisal/-a:Saj res, zakaj bi bil C boljši od Pascala?
Pa ti nisi resen azi..azi napisal/-a:.. lahko si pa preberes tekst Briana W. Kernighan-a ("Why Pascal is Not My Favorite Programming Language"):
Se nebi strinjalGJ napisal/-a: Pascal danes ne zaostaja skoraj nič za C-jem. Za navadne smrtnike (ne programerje) pa je pascal mnogo preglednejši in razumljivejši.
GJ napisal/-a: Razlog zakaj je C med programerji tako priljubljen?
C je bil dolgo časa prvi in edini standardizirani programski jezik! Kar pomeni, da lahko C programsko kodo seliš iz ene platforme na drugo brez večjih problemov.