|
Poslao: 02 Nov 2012 15:37
|
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
|
offline
- Srki94
- Mod u pemziji
- 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
|
offline
- daxytt
- 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]
 Pa ja da ti radim zadatak !!!
|
|
|
|
|
|
|
Poslao: 02 Nov 2012 21:16
|
offline
- Aleksandr1996
- Ugledni građanin
- 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 
|
|
|
|
|
|
|
Poslao: 02 Nov 2012 21:29
|
offline
- daxytt
- 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]
|
|
|
|
|
|
|
|
