Prekladač pascalu

MrGizmof

Môžte mi poradiť nejaká program v ktorom spravil exe súbor z môjho zdrojáku? Nejak nemôžem nájsť nič funkčné

A prezirite kod či ho mam dobre plz. Je to s učebky jeden

//audiotrack: http://www.hojko.com/post886973.html#886973

A kde si tie kompilátory hľadal? Určite je ich dosť veľa a niektoré sú aj zadarmo (napr. freepascal).

PS: Nechce sa mi ten tvoj program pozerať, ale všimol som si, že tam máš writenl a readnl (má to byť writeln a readln).

MrGizmof

Aha dikec.. idem to opraviť, možno iba to bola tá chyba

EDIT: No takže som to upravil ale ono to hádže chybu na "program ..." Unknow indetifier a keď to zmažem tak zase na "var ......" Error in statement...

No a free pascal mi dáva: Error parameter: -Opentium3, Turbo pascal zase tie horné..

Kód: Vybrať všetko

begin
progam LacnejsiaChata;
var Cena1,Doprava1,Cena2,Doprava2,PocetDni: integer;
    Chata1,Chata2,Naklady1,Naklady2: integer;
writeln ('Zadaj cenu stravy a ubytovania na prvej chate');
readln (Cena1);
writeln ('Zadajte cenu dopravy na prvú chatu');
readln (Doprava1);
writeln ('Počet dní na výlete');
readln (PocetDni);
Chata1:=Cena1*PocetDni;
Naklady1:=Chata1+Doprava1;
writeln ('Zadaj cenu stravy a ubytovania na druhej chate');
readln (Cena2);
writeln ('Zadajte cenu dopravy na druhú chatu');
readln (Doprava2);
Chata2:=Cena2*PocetDni;
Naklady2:=Chata2*Cena2;
If Naklady1 < Naklady2 then writeln ('1. chata je lacnejšia');
If Naklady1 > Naklady2 then writeln ('2. chata je lacnejšia');
If Naklady1 = Naklady2 then writeln ('Obe chaty sú na hovno');
end.

pheo · Príspevok od používateľa **pheo** » 06 sep 2008, 12:00

mate v tom zdrojaku syntakticke chyby begin nema byt na zaciatku ale hned pre prvym writeln dalej mas chybu v slove program

MrGizmof

No tak to mám.. ale mám jeden prekladač čo to robí iba na DOS a jeden čo to nerobí pre istotu vôbec... poradte nejaký free

robí iba do DOS? a aké iné by si to chcel mať? s tlačidlami a zvukovými efektami? Jasné že je to iba konzolová aplikácia (výsledné exe), ak to chceš s win oknom, musíš siahnuť po delphi

Nemusí. Stačí aj Borland Pascal (prípadne Borland Pascal pre Windows) a knižnica pre windows (je k BP). Potom nie je problém robiť programy, ktoré majú "klasické" Windows okná... (samozrejme pomocou WinAPI a ak si dobre spomínam, je tam aj nejaká objektová knižnica, ktorá to WinAPI zapúzdruje).

IkemeR

filip102 napísal: No a free pascal mi dáva: Error parameter: -Opentium3, Turbo pascal zase tie horné..

FreePascal mi vypisoval to isté, pričom som mal všetko dobre. Skús Borland Pascal, ten mi ide v poho.

A skúšal si v niektorom z konfiguračných súborov ten nepodporovaný parameter odstrániť?

MrGizmof

Takže tu je program.. snáď je už dobre

Kód: Vybrať všetko

program LacnejsiaChata;
var Cena1,Doprava1,Cena2,Doprava2,PocetDni: integer;
    Chata1,Chata2,Naklady1,Naklady2: integer;
Begin
writeln ('Zadaj cenu stravy a ubytovania na prvej chate');
readln (Cena1);
writeln ('Zadajte cenu dopravy na prvú chatu');
readln (Doprava1);
writeln ('Počet dní na výlete');
readln (PocetDni);
Chata1:=Cena1*PocetDni;
Naklady1:=Chata1+Doprava1;
writeln ('Zadaj cenu stravy a ubytovania na druhej chate');
readln (Cena2);
writeln ('Zadajte cenu dopravy na druhú chatu');
readln (Doprava2);
Chata2:=Cena2*PocetDni;
Naklady2:=Chata2*Cena2;
If Naklady1 < Naklady2 then writeln ('1. chata je lacnejšia');
If Naklady1 > Naklady2 then writeln ('2. chata je lacnejšia');
If Naklady1 = Naklady2 then writeln ('Obe chaty sú na hovno');
end.

I idem skúsiť ten Borland Pascal.