MyCity » Pascal » Digitron

Digitron

Napisano na dan: 15.3.2012

Digitron
Sledeća strana Pagination

Idi na vrh

Poslao: 15 Mar 2012 10:23
Idi na vrh
offline
  • Na odmoru xD
  • Na odmoru xD
  • Pridružio: 15 Feb 2012
  • Poruke: 430

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 Mr. Green 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



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.

MyCity » Pascal » Digitron

Ko je trenutno na forumu
 

Ukupno su 1756 korisnika na forumu :: 99 registrovanih, 8 sakrivenih i 1649 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 5623 - dana 13 Dec 2025 19:56

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: -[CoA]-, Ailton, ajo baba, Badja, Belac91, blue, bojank, cvrle312, cyprus, Daba75, darkkran, DejvTroter, deLacy, dovby, draganl, EXIT78, fireball021, FULCRUM1389, Goran 0000, GrammaticalAnalysis, Hardenberg, hatman, iceburn, ikan, Ilija Grubor, ivancica1790, jodzula, Jovan1983, K-1A, kaisarevic1, Kajzer Soze, kovinacc, Kruger, KUZMAR, Lelemood, Lester Freamon, Ljusa, Lucije Kvint, luka35, M74AB3, madza, mačković, miki kv, Milan A. Nikolic, milbos, Miletić Zoran, miljannis, MiljanXD, milutin134, Moldovan, moldway, Natuzzi, nebkv, nekdo, nelezele, nenad81, Neutral-M, neutrino, niksa517, Nobunaga, Parker, pceklic, pedja.st, Pekman, Petarvu, Pilence, ping15, powSrb, Prečanin30, radoznao, raptorsi, raso76, Resad76, RileHerc, sabros, Samo gledam, SamostalniReferent, savaskytec, sekretar, Sevatar, Shadows1, Sonic, sova72, sspp, stegonosa, synergia, tanakadzo, tomo2, tuf, Uros Cuore Sportivo, vensla, Voice1, Wehicle, Yekaterinburg, zeka013, zemljanin, Žoržo, Đurđevdan, 79693