Pascal hlasi že je špatně napsaná podminka Vyřešeno

[Akrej]

Učim se s pascalem a chtěl jsem si udělat takoou zajimavou aplikaci a je tu toho potřeba mít podminky
Potřebuji když je slovo1 stejna jak slovo3 tak je to dobře a pak na opak

if (slovicko1 = slovicko3) then
begin
writeln('Je spravene :) ');
readln();
end
else if
begin
writeln('Neni pravne');
end;

[Reklama]

[faraon]

else if CO?

Máš tam načnutou druhou podmínku, ale nic v ní... Řekl bych že tohle neděláš podle dobrého tutoriálu

Takže tam nech jen to else, a příště tady kód orámuj tlačítkem Code, ono se to pak lépe čte.

[Akrej]

ale stale to hlasi chybu
13 / 8 ajtest~1.pas
Fatal: Syntax error, ; expected but IF found

--- Doplnění předchozího příspěvku (28 Dub 2014 17:14) ---

v tomto řadku

Kód: Vybrat vše

if (slovicko1 = slovicko3) then

[faraon]

Nechybí ti na předchozím řádku středník?

[Akrej]

Ano měl jsi pravdu chybělo mi to tam
ale tet mam další problém udělla jsem si jako tako test sloviček zatim to neni dokolaé ale je problem v tom že to porovná česke slovičko jaké bylo zadano jaké si napsal ty a jestli je to spravěn hodí to že je to dobře a když ne tak že je to špatně ale nefunguje je to naopak navim v čem je probem rači se na to podivej

Kód: Vybrat vše

program Aj;

var slovicko1,slovicko2,slovicko3:string;

begin
     write('Napis slovicko v aj:  ');
      readln(slovicko1);
     write('Napis cesky slovicko:  ');
      readln(slovicko2);
     writeln('Jak zni preklad slova: ',slovicko1);
      readln(slovicko3);

       if (slovicko1 = slovicko3) then
      begin
     writeln('je spravne');
      readln();
      end
      else
       begin
       writeln('neni pravne');
       readln();
       end;



end.

[faraon]

Mě to funguje: http://ideone.com/SXnTwu

Určitě jsi první a třetí slovo napsal stejně? Ono stačí když před nebo za něj uděláš mezeru a už se řetězce budou lišit!

[Akrej]

A jak by si udělal že by se skryl ten text co tam je že by si neviděl spravnou odpověď

--- Doplnění předchozího příspěvku (28 Dub 2014 17:53) ---

ale mě to stale nebere napišu
hi potom ahoj a potom ahoj a nemam to spravně

--- Doplnění předchozího příspěvku (28 Dub 2014 17:56) ---

mě to nejde leda že všude napišu A potom to da že to je dobře

[faraon]

Tak já bych hlavně použil pole a z nich slova náhodně vybíral, ale to ještě neumíš

Zkus po zadání prvního slova smazat obrazovku: http://www.trsek.com/pascal/ClrScr

A nemáš to třetí slovo mít zase přeložené zpátky do angličtiny?

Kód: Vybrat vše

hi
ahoj
hi

[Akrej]

Ano měl jsem tam chybu tet jsem se na to podival srovnavat se maji slovicko2 a slovicko 3

--- Doplnění předchozího příspěvku (28 Dub 2014 18:08) ---

nefunguje hlasi to chybu

11 / 1 ajtest~1.pas
Error: Identifier not found CLRSCR
11 / 7 ajtest~1.pas
Error: Illegal expression
27 ajtest~1.pas
Fatal: There were 2 errors compiling module, stopping

[faraon]

A připojil jsi jednotku CRT? Je otázka jestli jí v tom tvém IDE máš, to se hned pozná. Udělej tohle:

Kód: Vybrat vše

program Aj;

uses Crt;

var slovicko1,slovicko2,slovicko3:string;


A dál zbytek programu jak ho máš...

[Akrej]

o diky tet to aspon vypada lepe
PS: to víš ja jsem začatečník ale jsem rad že mi pomužež

--- Doplnění předchozího příspěvku (28 Dub 2014 18:23) ---

tady ještě čtu http://www.zshorakhk.cz/tvorba/ucitele/ ... 20crt.html že to jde dopnit zvukem jenom mě se tam nedaří dat USES; co je duležite hlasi to tam chybu

--- Doplnění předchozího příspěvku (28 Dub 2014 18:30) ---

ne je to v pohodě už to jde

--- Doplnění předchozího příspěvku (28 Dub 2014 18:32) ---

a jak určim barvu textu jenom třeba je spravě zeleně a neni spravně červeně

[faraon]

Stejná jednotka, příkaz textcolor: http://www.freepascal.org/docs-html/rtl ... color.html