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

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

https://www.mycity.rs/must-login.png
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
https://www.mycity.rs/must-login.png

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 800 korisnika na forumu :: 54 registrovanih, 5 sakrivenih i 741 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: AleksSE, AMCXXL, amonsrb, Andrija357, antonije64, bokisha253, Boris90, Brana01, BSD, CikaKURE, Dimitrise93, djboj, djo97, drimer, dushan, Excalibur13, FOX, galerija, Georgius, Griffon vulture, Hans Gajger, Instruktor 1223, Kibice, kjkszpj, Krvava Devetka, Kubovac, kybonacci, laki_bb, Leonov, Lieutenant, Luka Blažević, Metanoja, Mi lao shu, milutin134, MiroslavD, moldway, MrNo, NoOneEver Dreams, nuke92, operniki, pristinski korpus, rovac, Sirius, Srle993, Tas011, vathra, VJ, vladulns, Vlajman1957, wizzardone, x9, yrraf, Zoca, |_MeD_|