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 1122 korisnika na forumu :: 107 registrovanih, 17 sakrivenih i 998 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 015, ajo baba, Aleksa-, Alexa77, amaterSRB, AndrejPetar, Areal84, babaroga, baltazar01, bavar357, bbelic, bogart81, bojanstros9, bolenbgd, Boris BM, BOXRR, Bubimir, bukefal, Cvijo_ue, dearg, dejno, Dimitrise93, Dioniss, Django777, Djokislav, Djota1, Doc, Dorcolac, draganl, Dragon Order, Drugsparrow, dukajov, Dzoni70, Folkstar, gacesam, gale48, galerija, GrobarPovratak, ILGromovnik, jalos, jeen yuhs, Joksss, Kaplar2, kNikS, Koridor, Kozara1, kreker, Kruger, kybonacci, Leonov, LjutaGuja, LostInSpaceandTime, Lucije Kvint, mango, Manjane, Mcdado, Meklejn, mercedesamg, Metanoja, Mi lao shu, Milan Miscevic, milanpb, milbos, milenko crazy north, milutin134, MiroslavD, mocnijogurt, mux, Mzee, nazgul75, nebidrag, nelezele, nemkea71, Nomica, OgSa, Orc, panzerwaffe, pceklic, pein, pirke96, precan, predragc, Relixiran, saki80, Saša1989, Seeker, sekretar, septembar, Shinobi, Singidunumac, Sir Budimir, Soncogor, sspp, Stefi888, stegonosa, Str2022, Suhi, synergia, tamno.nebo, TBoy, tecataki, Veless, Visionary, vjetar, Vlada78, Vlado82, zrno