Digitron

• 1Ovo se svidja korisniku: DenisUA98
  
  Registruj se da bi pohvalio/la poruku!

Program Calculator; uses crt; var a,b,c:real;     ok:char; begin clrscr; Writeln ('Kalkulator je tacan samo do 4 decimale'); Writeln; Writeln ('Kalkulator je samo za osnovne aritmeticke operacije '); Writeln; Writeln ('Unesite prvi broj '); readln (a); Writeln; Writeln ('Unesite znak racunske operacije + - * /'); readln (ok); Writeln; Writeln ('Unesite drugi broj '); readln (b); Writeln; if (ok = '/') or (ok = '*') or (ok = '-') or (ok = '+') then begin if ok = '/' then begin if b<>0 then begin c := a/b; Writeln ('Rezultat je ',c:8:4); readln; end else writeln ('Deljenje 0 nije definisano '); readln; end; if ok = '*' then begin c := a*b; Writeln ('Rezultat je ',c:8:4); readln; end; if ok = '+' then begin c := a+b; Writeln ('Rezultat je ',c:8:4); readln; end; if ok = '-' then begin c := a-b; Writeln ('Rezultat je ',c:8:4); readln; end; end else writeln ('Niste uneli odgovarajuci znak za operaciju '); readln; end.
Moj prvi digitron u pascal-u I ako se dugo bavim pascal-om nikad nisam imo potrebu da isprogramiram tako nesta. Pogledaj te pa mi recite vasa misljenja npr. da li je nesta moglo lakse ili brzem itd