Pascal problem

[nfko]

Ahojte dnes som sa zacal učiť v pascale a dostal som sa ku podmienkam. tak som skusil napisať jednoduchy program no v turbo pascale mi vypisuje chybu. Vedeli by ste mi povedať kde je ?

Kód: Vybrať všetko

program uloha_podmienky;

var
         a,b:integer;

begin

         write('Zadajte hodnotu prveho cisla');
         readln(a);

         write('Zadajte hodnotu druheho cisla');
         readln(b);

         if a>b then writenl('Vecsje je prve cislo: ',a)
         else if a=b writenl('Cisla su si rovnake')
         else writenl('Vecsie je druhe cislo: ',b);
end.

[Skiller18]

no čo ma ako prve napadlo mal by si použiť prácu s obrazokou to je základ (uses crt) čiže

uses crt;
begin clrscr;
a chyba ti tuto dalsie THEN

else if a=b writenl('Cisla su si rovnake')

takže

program uloha_podmienky;
uses crt;
var
a,b:integer;

begin clrscr;

writeln('Zadajte hodnotu prveho cisla:');
readln(a);

writeln('Zadajte hodnotu druheho cisla:');
readln(b);

if a>b then writenl('Vecsje je prve cislo: ',a)
else if a=b then writenl('Cisla su si rovnake')
else writenl('Vecsie je druhe cislo: ',b);
delay(5000)
end.

a musi ti to ist, sam som to skusal

[nfko]

zistil som že som zabudol napisať 3 riadky ale ajtak to nejde

writeln;
writeln('------------------------------------------');
writeln;

[smotek7]

Ak si to sem nakopiroval presne ako to mas, tak skus zmenit writenl na writeln.

[Skiller18]

Odpíš to presne tak ako som to ja napísal, a musí ti to ísť ! :O Nezabudni na Uses CRT pre prácu s obrazovkou, begin CLRSCR na vymazanie predošlej obrazovky, a delay(cas v ms) (tj. delay(1000)-1sekunda) pre zastavenie programu na 1 sekundu, aby si ten vysledok stihol aj precitat nie ze on ti ho vyhodi a hned zmizne.Skús to tak ako som to ja napísal !

A dávaj pozor kde oužívaš READ a READLN a kde WRITE A WRITELN, Write ti vypíše v danom riadku čo chceš, a writeLN ti to vypíše do dalšie riadku pod tým, to isté aj readln, ale v prípade read a readln je to jedno.

No skús, a daj vedieť potom sa pohneme, ako dalej.

[smotek7]

Skiller ved ty tam mas writenl to je nejaky novy prikaz?
Ako ti to mohlo ist?

[nfko]

:D:D:D
na turbo pascal to nejde a na Lazarus ano :D:D:D

[Skiller18]

Sorry menší preklep to som si nevšimol, vela hodín
Tak to prepíš na WRITELN a je musí ísť Veď nekopíroval som to presne zo softu ale celé opisoval, čiže chybička se vloudila