Pascal - help (noob)

MichalAngello · Napísal **MichalAngello**: 05.10.2008 21:09

ahojte, najskôr sa chcem ospravedlniť za vytvorenie takejto novej, lacnej témy... Som začiatočnik a potreboval by som poradiť

Ako mam pokračovať?

Kód:

program eurokalkulacka;
uses crt;
var sk,euro,x1,x2:real;
   klaves:char;
begin;
      clrcsr;
      writeln('Vyber pozadovanu operaciu stlacenim cisla 1 alebo 2: ');
      writeln('1 - EURO -> SK');
      writeln('2 - SK -> EURO');
      klaves:readkey;
      case klaves of
          '1':
          '2':
end;

neutronmind · Napísal **neutronmind**: 05.10.2008 22:09

Ja by som to spravil asi takto

Kód:

program eurokalkulacka; 
var
      suma:real;
      klaves:char;
begin;

      write('Zadajte sumu: ');
      readln(suma);
      writeln('Vyber pozadovanu operaciu stlacenim cisla 1 alebo 2: ');
      writeln('1 - EURO -> SK');
      writeln('2 - SK -> EURO');
      readln(klaves);
      case klaves of
          '1': suma:=suma*30.126;
          '2': suma:=suma/30.126
      end;
      writeln('Vysledna suma je ', suma:0:3);
      readln;
end.

MichalAngello · Napísal autor témy **MichalAngello**: 05.10.2008 22:21

nj dik, takto som to aj ja pôvodne myslel.. ale chcel by som, aby som sumu zadaval až potom, ako si vyberiem typ prevodu (sk-euro, euro-sk)

neutronmind · Napísal **neutronmind**: 06.10.2008 17:22

Tak to len jednoducho vymenis...

Kód:

program eurokalkulacka; 
var 
      suma:real; 
      klaves:char; 
begin; 

      writeln('Vyber pozadovanu operaciu stlacenim cisla 1 alebo 2: '); 
      writeln('1 - EURO -> SK'); 
      writeln('2 - SK -> EURO'); 
      readln(klaves); 
      write('Zadajte sumu: '); 
      readln(suma); 
      case klaves of 
          '1': suma:=suma*30.126; 
          '2': suma:=suma/30.126 
      end; 
      writeln('Vysledna suma je ', suma:0:3); 
      readln; 
end.

Pascal - help (noob)

Podobné témy