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: 12431

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 1372 korisnika na forumu :: 131 registrovanih, 13 sakrivenih i 1228 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 15694 - dana 01 Feb 2026 12:23

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 015, A.R.Chafee.Jr., alke12, ambra, ArchaBasha, Aristotle2002, atmel, avijacija, Baždaranac, bigfoot, blatruc82, bobo85, Bobrock1, Bodin86, bojank, bolimejoli, BOXRR, bpvl, Bubimir, CCCP, CikaKURE, cyprus, darionis, darkkran, Darko Jovanovic, Dejan_vw, deLacy, dexter77, Dioniss, DJUNTA, Djuza, Doc, draganca, draganl, DS01, dunavzed, dushan, ElvisP, Fliper, fokac, FOX, Fulcrum-A, galerija, Goxy1, Great White, Herman Terrance Aubrey, HrcAk47, hrkaz, Jager715510, Jakonjveliki, Jaxupa, Jeremiah, Johny Sack, Kajzer Soze, kapela, king111, krasta, lanishtefm, Luke Pathfinder, M74AB3, MarijaC84, Marko1238, markolopin, mačković, Mikisha, Miletić Zoran, MiloradKomadic, Milos82, milutin134, Mirage 2000N, MiroslavD, misa2, mishkooo, moldway, nelezele, nenad81, nenooo, Niki2024, nobutado, Nomica, novator, opt1, Orlova, Paki, paladin71, Panter, Papadubi, picknick, PITT, Povratak1912, Prašinar, raf87, RajkoB, raso76, rebcooil, rebro1974, rodoljub, S2M, sap, Sevatar, Shadows1, shiro, Sone0883, Srle993, stegonosa, StepskiVuk, tachinni, tecataki, TripleMMM, Tristan_Bantam, Uros Cuore Sportivo, vathra, Veless, Velizar Laro, vensla, Visionary, vlada13874, vladetije, vlahale, Vrač, vzd1389, Wehicle, zdrebac, Zemunikola, Zgembo78, zixmix, zoran-ruma, Zoran1959, zoran77, Zrcalo, ZZZ