PROBLEM RIJEŠEN!!! HVALA SVIMA KOJI SU POMOGLI!!!
Ako moze netko provjerit kod, ja nisam uspio naci greske... Kada pokusam pokrenut program, javljaju mi dvije greske... Heeeelp...
PROGRAM PretvorbaValuta;
USES CRT;
LABEL Return;
CONST eud=1.3, due=0.73, eum=1.9, mue=0.51, euk=7.3, kue=0.14;
VAR u,i: real; o: char;
BEGIN
CLRSCR;
Return: WRITELN('Unesite slovo:');
WRITELN('- A: ukoliko zelite preracunavati eure u dolare');
WRITELN('- B: ukoliko zelite preracunavati dolare u eure');
WRITELN('- C: ukoliko zelite preracunavati eure u marke');
WRITELN('- D: ukoliko zelite preracunavati marke u eure');
WRITELN('- E: ukoliko zelite preracunavati eure u kune');
WRITELN('- F: ukoliko zelite preracunavati kune u eure');
WRITELN('i potom pritisnite <ENTER>.');
READLN(o);
IF o=A THEN
BEGIN
WRITELN('Odabrali ste pretvorbu eura u dolare.');
WRITELN('Unesite kolicinu u eurima: ');
READLN(u);
WRITELN(u,'eura= ',u*eud,'dolara');
END;
ELSE IF o=B THEN
BEGIN
WRITELN('Odabrali ste pretvorbu dolara u eure.');
WRITELN('Unesite kolicinu u dolarima: ');
READLN(u);
WRITELN(u,'dolara= ',u*due,'eura');
END;
ELSE IF o=C THEN
BEGIN
WRITELN('Odabrali ste pretvorbu eura u marke.');
WRITELN('Unesite kolicinu u eurima: ');
READLN(u);
WRITELN(u,'eura= ',u*eum,'maraka');
END;
ELSE IF o=D THEN
BEGIN
WRITELN('Odabrali ste pretvorbu maraka u eure.');
WRITELN('Unesite kolicinu u markama: ');
READLN(u);
WRITELN(u,'maraka= ',u*mue,'eura');
END;
ELSE IF o=E THEN
BEGIN
WRITELN('Odabrali ste pretvorbu eura u kune.');
WRITELN('Unesite kolicinu u eurima: ');
READLN(u);
WRITELN(u,'eura= ',u*euk,'kuna');
END;
ELSE IF o=F THEN
BEGIN
WRITELN('Odabrali ste pretvorbu kuna u eure.');
WRITELN('Unesite kolicinu u kunama: ');
READLN(u);
WRITELN(u,'kuna= ',u*kue,'eura');
END;
ELSE
BEGIN
WRITELN('Molimo vas da unesete slova A, B, C, D, E ili F.');
GOTO Return;
END;
READLN;
END.
