Greske u Paskal programiranju

Negde mu je greska,a lak program....

var
suma,bh,bs,bd,bp,bdva,bjedan:integer;

{ Program za odredjivanje najmanjeg broja novcanica u nekoj sumi novca X }

write ( 'Molim upisite neku sumu novca: ');
readln(suma);

bh := suma div 1000 ;
bs := bh div 100 ;
bd := bs div 10 ;
bp := bd div 5 ;
bdva := bp div 2 ;
bjedan := bdva div 1 ;

readln;

writeln ( 'Broj hiljadarki je: ',bh);
writeln ( 'Broj stotki je: ',bs);
writeln ( 'Broj desetica je: ',bd);
writeln ( 'Broj petica je: ',bp);
writeln ( 'Broj dvojki je: ',bdva);
writeln ( 'Broj jedinica je: ',bjedan);

readln

Ovaj program mi pokazuje samo broj hiljadarki,ali ne i stotinarki,desetica,petodinarki,dvodinarki i (jednog)dinara...,za njih pokazuje 0.

Davno sam radio paskal, pa nisam siguran, ali mislim da div beše celobrojno deljenje, a mod ostatak pri celobrojnom deljenju. Ako je tako, onda ne računaš dobro...

Ako sam dobro skontao šta hoćeš da uradiš onda ovako nešto treba da sračunaš za bs (broj stotina, pretpostavljam):

bs := (suma mod 1000) div 100;

analogno i za ostale...

Dakle, ideja je da kad sumu podeliš celobrojni sa 1000 dobićeš broj hiljada. E sad, da bi dobio broj stotna treba OSTATAK od 1000 da deliš sa 100. Tako ćeš, ako imaš sumu recimo 2356 za hiljade dobiti 2, a za stotine 3... Sad ti računaj dalje :)

Hvala
Zaboravio sam na MOD...
malo ga razradih i sad je bolje,al nikao da mi da dvodinarke i dinare....
evo sta uradih

write ( 'Molim upisite neku sumu novca: ');
readln(suma);
bh := suma div 1000 ;
writeln ( 'Broj hiljadarki je: ',bh);
bs := (suma mod 1000) div 100 ;
writeln ( 'Broj stotki je: ',bs);
bd := (suma mod 100) div 10 ;
writeln ( 'Broj desetica je: ',bd);
bp := (suma mod 10) div 5 ;
writeln ( 'Broj petica je: ',bp);
bdva := (suma mod 10) div 2 ;
writeln ( 'Broj dvojki je: ',bdva);
bjedan := bdva div 1 ;
writeln ( 'Broj jedinica je: ',bjedan);
readln ;

Najjednostavniji način:

Potpis

"There is a theory which states that if ever anybody discovers exactly what the
Universe is for and why it is here, it will instantly disappear and be replaced by
something even more bizarre and inexplicable. There is another theory which states
that this has already happened."
-- Douglas Adams

Hvala Deki
radi,a uspeo sam da mu dodam i broj pedesetica sa ovim kodom

bpd := (suma mod 100) div 50;
writeln ( 'Broj pedesetica je: ',bpd);

Konacan izgled programa je ova ,Radi!!!



program ProjectMinNovac;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
suma,bh,bs,bpd,bd,bp,bdva,bjedan:integer;
begin
try
{ Program za odredjivanje najmanjeg broja novcanica u nekoj sumi novca X }

write ( 'Molim upisite neku sumu novca: ');
readln(suma);
bh := suma div 1000 ;
writeln ( 'Broj hiljadarki je: ',bh);
bs := (suma mod 1000) div 100 ;
writeln ( 'Broj stotki je: ',bs);
bpd := (suma mod 100) div 50;
writeln ( 'Broj pedesetica je: ',bpd);
bd := ((suma mod 100)- (bpd * 50 ))div 10 ;
writeln ( 'Broj desetica je: ',bd);
bp := (suma mod 10) div 5 ;
writeln ( 'Broj petica je: ',bp);
bdva := ((suma mod 10) - (bp * 5)) div 2;
writeln ( 'Broj dvojki je: ',bdva);
bjedan := ((suma mod 10) - (bp * 5 ) - (bdva * 2)) div 1 ;
writeln ( 'Broj jedinica je: ',bjedan);
readln ;





except
on E:Exception do
Writeln(E.Classname, ': ', E.Message);
end;
end.

Hm... ovo jako lici na jedan davni programski zadatak na testu kandidata u poznatoj novobeogradskoj softverskoj firmi.

Rajko

Rajko,ako ti nije problem ,postavi ovde neke od resenih zadataka,mislim ceo kod,ali slicno ovome i da je Pocetnicki nivo.

Evo jos jednog veoma prostog,najprostijeg pocetnickog zadatka.Napisao sam program koji trazi da se upise ime,a potom i prezime ,a paskal daje kao rezultat puno ime.
Sve sam ispravno napisao,barem tako mislim,ali on nece da mi da rezultat ,da ispise PUNO IME!!!
Gde sam sad pa ovde pogresio???


program Project3;

{$APPTYPE CONSOLE}

uses
SysUtils;
var
ime,prezime,punoime:string;
begin
try
writeln('Upisi svoje ime: ');
readln;
writeln ('upisi svoje prezime ');
readln;
punoime := ime + prezime ;
readln;
writeln ( 'Vase puno ime je ' , punoime);
readln;


except
on E:Exception do
Writeln(E.Classname, ': ', E.Message);
end;
end.

Nigde nisi dodelio vrednost za ime i prezime. Umesto prvog ReadLn treba:

a umesto drugog:


dodatak: Bolje je da stavis:


i da, slobodno obrisi readLn koje stoji ispod dodeljivanja vrednosti promenljivoj punoime, nije ti potrebno.

Hvala Bojane
Taman sam uspeo da otkrijem svoju gresku,kad ti ga vec resio.Ovaj zadatak je poceo vec da me obeshrabruje.Tek kad sam se vratio na proizvod i kolicnik sa readln(broj1)itd,shvatio sam da sam to nacisto ispustio sa imenom i prezimenom,a potom kad mi se puno ime pojavilo zajedno,pogledah u knjigu i videh ono za space ' ', i za nul niz i za apostrof. Izgubih par sat za ovako prost zadatak.Umalo da se nacisto obeshrabrim.
Hvala jos jednom na brzini.Trebaces mi ponovo.




edit (savkic): Koristi code tagove da uokviriš kod, olakšavaju praćenje.

Zadatak selektovanja sa or-ukljucivo

napisati program koji ce proveriti da li se broj koji je korisnik napisao nalazi izmedju brojeva 21 i 29(Ukljucivo),i prikazati odgovarajucu poruku.

Ne znam svrhu ovog zadatka jer po logici dovoljno je da je jedan iskaz tacan (drugi moze biti i netacan).
Evo kako sam ga ja uradio,ali mu ne znam svrhu.Koji god broj da upisem odkucava mi istu poruku...


program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;
var
broj1:integer;
begin
try
{ poredjenje brojeva radi iskaza ukljucivo }
writeln( 'Molim upisite jedan broj ');
readln (broj1);
if (broj1 >=21) or (broj1 <=29) then
writeln ('Broj se ne mora nalazi u trazenoj vrednosti izmedju brojeva 21 i 29 ukljucivo ')
else
writeln ('Broj se ne nalazi na listi trazenih vrednosti');
readln;




except
on E:Exception do
Writeln(E.Classname, ': ', E.Message);
end;
end.

Ovo 'ukljucivo' se valjda odnosi na to da se posmatra zatvoreni interval [21, 29] - sto u prevodu znaci da brojevi 21 i 29 ispunjavaju uslov da se nalaze izmedju brojeva 21 i 29.
Ako analiziras tvoj kod, shvatices da je vrednost IF iskaza uvek tacna (ako je broj veci od 20 onda je prvo tacno, ako je manji od 20 onda sledi i da je manji od 30, pa je u tom slucaju i drugo tacno - uvek dobijas tacno kao rezultat).
Posto treba da koristis OR onda je logicno da proveravas da li se broj nalazi sa "leve" ili "desne" strane intervala. Ako se ne nalazi, onda pripada intervalu. Dakle:

_________________________________________________________________
Windows Live: Keep your friends up to date with what you do online.
http://www.microsoft.com/middl...AGL:ON:WL:en-xm:SI_SB_1:092010
--_9b549211-a756-4308-91c9-ffed4b118d73_
Content-Type: text/html; charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Verdana
}
--></style>
</head>
<body class='hmmessage'>
Hvala Bojane<br>ja zapeo ko mutav na telefon.Resio da ubacim i znak jednakosti,=,pa ispadalo &gt;= i &lt;= i to me pokopalo u samom startu.<br>Sitnice koje zivot znace. Ovde bas treba dobro mozgati.<br><br>&gt; To: [email protected]<br>&gt; Subject: Re: Greske u Paskal programiranju [elitesecurity.pracenje.teme]<br>&gt; From: [email protected]<br>&gt; Date: Sun, 6 Dec 2009 00:57:47 +0100<br>&gt; <br>&gt; Ovo '*ukljucivo*' se valjda odnosi na to da se posmatra zatvoreni interval [21, 29] - sto u prevodu znaci da brojevi 21 i 29 ispunjavaju uslov da se nalaze izmedju brojeva 21 i 29. <br>&gt; <br>&gt; Ako analiziras tvoj kod, shvatices da je vrednost IF iskaza uvek tacna (ako je broj veci od 20 onda je prvo tacno, ako je manji od 20 onda sledi i da je manji od 30, pa je u tom slucaju i drugo tacno - uvek dobijas *tacno* kao rezultat).<br>&gt; <br>&gt; Posto treba da koristis *OR* onda je logicno da proveravas da li se broj nalazi sa "*leve*" ili "*desne*" strane intervala. Ako se ne nalazi, onda pripada intervalu. Dakle:<br>&gt; <br>&gt; <br>&gt; <br>&gt; <br>&gt; <br>&gt; --<br>&gt; http://www.elitesecurity.org/p2458319<br>&gt; <br>&gt; Prijave/odjave: http://www.elitesecurity.org/pracenje#383222<br>&gt; <br>&gt; Ne menjajte sledece dve linije ukoliko odgovarate putem emaila!<br>&gt; esauth:383222:b6aa198125d5dedb68408f814070f45c<br>&gt; Odgovor pisite *iskljucivo* ispod ove linije:<br> <br /><hr />Windows Live: Keep your friends up to date <a href='http://www.microsoft.com/middl...AGL:ON:WL:en-xm:SI_SB_1:092010' target='_new'>with what you do online.</a></body>
</html>
--_9b549211-a756-4308-91c9-ffed4b118d73_--

evo ga isti ,ali prosiren zadatak.
Upisivanje brojeva izvan opsega treba da pise poruka da li je broj iznad ili ispod opsega.

Evo ga uradjen ,ali imam neka pitanja u vezi ovoga zadatka

program prosirenoukljuvo;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
broj1:integer;
begin
try
{ selektovanje ukljucivo izmedju 21 i 29 prosiren iskaz }
writeln ('Molim upisite broj ');
readln (broj1);
if (broj1<21) then
writeln('Broj je ispod ranga ');
if (broj1>29) then
writeln('Broj je iznad ranga ') ;
if (broj1<21) or (broj1 > 29) then
writeln ('Broj nije u rangu ')

else
writeln ('Broj je u rangu 21-29 ');
readln;



except
on E:Exception do
Writeln(E.Classname, ': ', E.Message);
end;
end.


I to me namuci.
probao sam uzaludno nova 4 reda da stavim ispod iskaza OR
(if (broj1<21) then
writeln('Broj je ispod ranga ');
if (broj1>29) then
writeln('Broj je iznad ranga ')
Stalno mi je bila greska kad unesem manji broj od 21,pisalo je i da je ispod ranga i da je u rangu,ostalo je bilo ok.
Samo zato sam morao ta 4 reda da stavim ispred iskaza OR,i proradilo je.
Da li mi je ispravan ovaj nacin razmisljanja,ili je moglo to i bolje?

Razmisljas suvise "neprirodno". Shvati ovo kao dobronamernu kritiku, ja nemam nista od toga da ti ne naucis da programiras kao profesionalac.
Ako opet pogledas svoj algoritam, on se sastoji iz tri dela:



Evo ti zadatak:

Ti si u skoli, prvi cas je cas fizickog vaspitanja. Stizes u skolu, ukapiras da treba da ides na fizicko i kazes u sebi: "Ma ko shisha fizicko, gde da ga radim na
ovakvoj hladnoci". Krenes u ucionicu da prespavas taj cas, ali avaj, u'vati te profesor i kaze: "Biraj - ili da ti upisem jedinicu ili da mi resis zadatak". Ti mislis:
"bolje da resavam zadatak, u suprotnom dobijam keca ko vrata, onog betonskog. Ako ne resim, bar sam pokusao".
I profesor ti napise tri broja na tabli i kaze:
"Reci mi, da li je treci broj iznad, ispod ili u intervalu kojeg cine prva dva broja?"

Sigurno mu neces pisati Pascal kod na tabli, vec ces logicki resiti zadatak. E to je ono sto ti treba: nacin na koji si resio zadatak "usmeno" kod profesora sad treba samo da
pretvoris u kod - redom kako si mislio i dosao do resenja.

Evo kako si mogao to mnogo elegantnije da resis:



Samo nastavi da vezbas, i za mesec dana ces se smejati ovome

Ma bunilo me ono "OR ",sto je trazeno da bude u zadatku,pa sam probao sablonski.Primetio sam i ja da je to sabloniziranje,bez razmisljanja ,pa sam zato i trazio logicniju postavku.
Cujemo se i hvala.

Posto se dimnicar pozdravio verovatno ovu poruku neće skoro pročitati, a meni je ostala nedoumica šta je tačno bila postavka drugog zadatka i(li) u kakvoj je vezi sa prvim.

Ako je prvi zadatak rešava sa OR, a drugi je: "isti, ali prosiren zadatak". Onda je:



1. zadatak (kopirano od gore):



2. zadatak (drugi je isti kao 1. zadatak ali prosiren, sto znaci da je OR obavezno + prosirenje):

program prosirenoukljuvo;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
broj1:integer;
begin
try
{ selektovanje ukljucivo izmedju 21 i 29 prosiren iskaz }
writeln ('Molim upisite broj ');
readln (broj1);
if (broj1<21) then
writeln('Broj je ispod ranga ');
if (broj1>29) then
writeln('Broj je iznad ranga ') ;
if (broj1<21) or (broj1 > 29) then
writeln ('Broj nije u rangu ')

else
writeln ('Broj je u rangu 21-29 ');
readln;



except
on E:Exception do
Writeln(E.Classname, ': ', E.Message);
end;
end.


zadatak je prosiren,uz obavezno "Or

Sada tek vidim da je ovo rešenje i u poruci u kojoj je i ovo pitanje:



To jeste rešenje zadatka. Koliko je dobro i kakav je način razmišljanja treba da da onaj ko bude ocenjivao rešenje.

Program nece da mi odradi racunsku operaciju,ne znam,da li zbog zagrada ili neceg drugog...?



program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;
const
satnica = 50 ;
var
brojsati,zarada:integer;
begin
try
{ Napisati program koji od korisnika zahteva da upise broj sati odradjenih u sedmici
i zaradu po satu(satnici).Program treba da izracuna bruto nedeljnu platu.
Ako je broj odradjenih sati veci od 40,prekovremeni sati se placaju 2 puta vise.
Ako upisani broj sati nije izmedju 0 i 60,program pokazuje poruku o greski. }

writeln ( 'Molim upisite broj sati provedenih u radu za nedelju dana ');
readln (brojsati);
if (brojsati> 0) and (brojsati <= 40) then ;
zarada := brojsati * satnica ;
if (brojsati > 40) and (brojsati<=60) then;
zarada := (40 * satnica) + ((60- brojsati)* 2)) ;
writeln('Bruto nedeljna zarada radnika iznosi ',zarada );
readln
else
writeln('Niste mogli raditi vise od 60 sati u nedelji ');
readln



except
on E:Exception do
Writeln(E.Classname, ': ', E.Message);
end;
end.