MyCity » Pascal » IF PETLJA

IF PETLJA

Napisano na dan: 2.11.2012

IF PETLJA
Sledeća strana Pagination

Idi na vrh

Poslao: 02 Nov 2012 15:37
Idi na vrh
offline
  • Pridružio: 22 Maj 2011
  • Poruke: 66

Koristite IF petlju. napraviti program koji ce nakon unosa godine rodjenja pokazati da li smo punoljetni. Molim vas da mi sto prije napisete kod, Dev-Pascal



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Poslao: 02 Nov 2012 15:43
Idi na vrh
offline
  • Pridružio: 14 Feb 2008
  • Poruke: 12423

Dok se neko ne javi i svari ti kod, ja mogu da pokušam da ti pomognem procesom.

Unese korisnik broj godine rođenja
Oduzmeš sadašnju godinu od godine koja je uneta
Napišeš proveru (IF) koja je u suštini : "Ako je rezultat oduzimanja veći ili jednak 18 onda je osoba punoletna".



Poslao: 02 Nov 2012 18:02
Idi na vrh
offline
  • daxytt  Male
  • Zaslužni građanin
  • Pridružio: 30 Okt 2012
  • Poruke: 623

Napisano: 02 Nov 2012 15:51

Ako sam dobro razumeo, hocesh da taj kod ubacish u neku svoju web-stranicu koju radish od nule zar ne?
Ako je tako, verovatno postoji neki template i za to. Dev-paskal mi je nepoznat ali autohotkey mi poznat, pa ako ti ne smeta, poslacu ti autohotkey skriptu. Po meni autohotkey je najlakshi za programiranje

Dopuna: 02 Nov 2012 18:02

[Link mogu videti samo ulogovani korisnici]
GUZ - Glavom U Zid Pa ja da ti radim zadatak !!!

Poslao: 02 Nov 2012 21:16
Idi na vrh
offline
  • Na odmoru xD
  • Na odmoru xD
  • Pridružio: 15 Feb 2012
  • Poruke: 430

Napisano: 02 Nov 2012 21:15

Program Datum; uses   sysutils; var   Godina:word; { Trenutna godina }   DatumRodj:word; {Godina rodjenja }   BrojGodina:word;   a,b:word;{ Varijable za funkciju DecodeDate (beskorisne)} begin   DecodeDate(date,Godina,a,b);   writeln('Unesite godinu rodjenja: ');   readln(DatumRodj);   BrojGodina := Godina - DatumRodj;   if(BrojGodina > 18) then   begin     writeln('Osoba je punoletna!!!')   end   else   begin     writeln('Osoba je maloletna!!!');   end;   readln; end.
@daxytt jel to sto si napisao u asembleru trebalo je da bude u pascalu?

Dopuna: 02 Nov 2012 21:16

E da odakle ti ona ikonica za exe file odakle mogu da jeskinem Mr. Green

Poslao: 02 Nov 2012 21:29
Idi na vrh
offline
  • daxytt  Male
  • Zaslužni građanin
  • Pridružio: 30 Okt 2012
  • Poruke: 623

Slab sam ti ja programer, vidi se po duzini koda, nije to ni jedan ni drugi vec
[www.autohotkey.com Version 1.0.46.08 ©2003-2007 Chris Mallett, portions ©AutoIt Team]
ikonica je moja prerada png slike
[Link mogu videti samo ulogovani korisnici]

Poslao: 02 Nov 2012 21:41
Idi na vrh
offline
  • Na odmoru xD
  • Na odmoru xD
  • Pridružio: 15 Feb 2012
  • Poruke: 430

Zahvaljujem Very Happy

MyCity » Pascal » IF PETLJA

Ko je trenutno na forumu
 

Ukupno su 1781 korisnika na forumu :: 88 registrovanih, 6 sakrivenih i 1687 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 13297 - dana 20 Jan 2026 17:42

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: ALEKSICMILE, AleksSE, amadeus, Andrija357, Asteker, Bojan85, brkan1, Bushek, BZ, cifra, Denaya, DENIRO, desmeki, Df410, Dimitrise93, Django777, djonsule, DM1994, Donneraj, doom83, Dovla 1980, draganca, Draganeli, dunavzed, Džekson, eagle.rs, foka106, FOX, ginjica, Glavni Oružni, Hardenberg, ILGromovnik, Ivica1102, Ivoo, Jan, Jaxupa, Jester, JimmyNapoli, kalens021, Kaponi, kokodakalo, kori, Kozi-RS, Kubovac, Lazur_01, loon123, Manjane, Mercury, Metanoja, Mickey12345, milenko crazy north, Milometer, MiloradKomadic, milutin134, Misirac, Mićko, nebidrag, novator, OgnjenMitric, pein, Pilence, prasinar, precan, Rok A Bit, Romuluss, SamostalniReferent, sasics, shiro, Sinisa76, Sićko, Solunac na steroidima, sosko, tamno.nebo, Tila Painen, tooljan, Vanderx, vathra, VJ, vladetije, Voice1, voja64, Weah88, Wepp, ZlatniRez, Zorge, zrno, Žoržo, Žrnov