Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Greske u Paskal programiranju

[es] :: Pascal / Delphi / Kylix :: Greske u Paskal programiranju

Strane: 1 2

[ Pregleda: 4815 | Odgovora: 22 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

dimnicar
dimnicar

Član broj: 48094
Poruke: 498
89.216.187.*



+5 Profil

icon Greske u Paskal programiranju29.11.2009. u 23:23 - pre 174 meseci
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.
 
Odgovor na temu

del-boy
Bojan Delić
Beograd

Član broj: 9330
Poruke: 1089

Sajt: www.delic.in.rs


+21 Profil

icon Re: Greske u Paskal programiranju29.11.2009. u 23:38 - pre 174 meseci
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 :)
 
Odgovor na temu

dimnicar
dimnicar

Član broj: 48094
Poruke: 498
89.216.187.*



+5 Profil

icon Re: Greske u Paskal programiranju30.11.2009. u 14:23 - pre 174 meseci
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 ;
 
Odgovor na temu

rambo
Dejan Petković
Beograd

Član broj: 6095
Poruke: 190
*.dynamic.sbb.rs.



+6 Profil

icon Re: Greske u Paskal programiranju30.11.2009. u 17:08 - pre 174 meseci
Najjednostavniji način:

Code:
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

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

begin
  try
    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) - (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.


"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
 
Odgovor na temu

dimnicar
dimnicar

Član broj: 48094
Poruke: 498
89.216.187.*



+5 Profil

icon Re: Greske u Paskal programiranju01.12.2009. u 13:30 - pre 174 meseci
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.
 
Odgovor na temu

Rapaic Rajko
Bgd

Član broj: 4105
Poruke: 810
93.86.19.*



+62 Profil

icon Re: Greske u Paskal programiranju01.12.2009. u 15:51 - pre 174 meseci
Hm... ovo jako lici na jedan davni programski zadatak na testu kandidata u poznatoj novobeogradskoj softverskoj firmi.

Rajko
 
Odgovor na temu

dimnicar
dimnicar

Član broj: 48094
Poruke: 498
89.216.187.*



+5 Profil

icon Re: Greske u Paskal programiranju03.12.2009. u 16:47 - pre 174 meseci
Rajko,ako ti nije problem ,postavi ovde neke od resenih zadataka,mislim ceo kod,ali slicno ovome i da je Pocetnicki nivo.
 
Odgovor na temu

dimnicar
dimnicar

Član broj: 48094
Poruke: 498
*.dynamic.sbb.rs.



+5 Profil

icon Re: Greske u Paskal programiranju04.12.2009. u 23:34 - pre 174 meseci
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.
 
Odgovor na temu

bojan21
Bojan Zukic
Beograd

Član broj: 101113
Poruke: 251
92.244.151.*



+6 Profil

icon Re: Greske u Paskal programiranju04.12.2009. u 23:47 - pre 174 meseci
Nigde nisi dodelio vrednost za ime i prezime. Umesto prvog ReadLn treba:
Code:

readLn(ime);

a umesto drugog:
Code:

readLn(prezime);


dodatak: Bolje je da stavis:
Code:
 
punoime := ime + ' ' + prezime;  //kao rezultat dace npr 'Petar Petrovic' umesto 'PetarPetrovic' sto daje u tvom primeru


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

dimnicar
dimnicar

Član broj: 48094
Poruke: 498
*.dynamic.sbb.rs.



+5 Profil

icon Re: Greske u Paskal programiranju05.12.2009. u 00:30 - pre 174 meseci
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.


Code:

program imeprezime;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
   ime,prezime,punoime:string ;
begin
  try
    {Program koji od korisnika zahteva da upise ime,a zatim to ime da spoji
     sa nekom porukom }
      Writeln ('Molim unesite vase ime ');
      readln(ime);
      Writeln ( 'Molim upisite vase prezime ') ;
      readln(prezime) ;
      punoime := ime + ' '+ prezime ;
      writeln ( 'Pozdravljam Vas Gospodine ',punoime,' Da li ste dobro');
      readln;
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end.


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

[Ovu poruku je menjao savkic dana 05.12.2009. u 03:17 GMT+1]
 
Odgovor na temu

dimnicar
dimnicar

Član broj: 48094
Poruke: 498
*.dynamic.sbb.rs.



+5 Profil

icon Re: Greske u Paskal programiranju05.12.2009. u 23:34 - pre 174 meseci
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.
 
Odgovor na temu

bojan21
Bojan Zukic
Beograd

Član broj: 101113
Poruke: 251
92.244.151.*



+6 Profil

icon Re: Greske u Paskal programiranju05.12.2009. u 23:57 - pre 174 meseci
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:

Code:

if (broj1 < 21) or (broj1 > 29) 
then
   writeLn('Broj ne pripada zadatom zatvorenom intervalu.')
else
   writeLn('Broj pripada zadatom zatvorenom intervalu.');
 
Odgovor na temu

dimnicar
dimnicar

Član broj: 48094
Poruke: 498
*.com
Via: [es] mailing liste



+5 Profil

icon Re: Greske u Paskal programiranju06.12.2009. u 23:25 - pre 174 meseci

_________________________________________________________________
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;
Code:
<br>&gt; <br>&gt; if (broj1 &lt; 21) or (broj1 &gt; 29) <br>&gt; <br>&gt; then<br>&gt; <br>&gt;    writeLn('Broj ne pripada zadatom zatvorenom intervalu.')<br>&gt; <br>&gt; else<br>&gt; <br>&gt;    writeLn('Broj pripada zadatom zatvorenom intervalu.');<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_--
 
Odgovor na temu

dimnicar
dimnicar

Član broj: 48094
Poruke: 498
*.dynamic.sbb.rs.



+5 Profil

icon Re: Greske u Paskal programiranju07.12.2009. u 00:03 - pre 174 meseci
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?


 
Odgovor na temu

bojan21
Bojan Zukic
Beograd

Član broj: 101113
Poruke: 251
92.244.151.*



+6 Profil

icon Re: Greske u Paskal programiranju07.12.2009. u 02:23 - pre 174 meseci
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:

Code:
1. deo:

- proveri da li je broj manji od 21
- ako je manji onda ispisi da je ispod ranga
- ako nije, bas me briga

2. deo 

- proveri da li je broj veci od 29
- ako je veci onda ispisi da je iznad ranga
- ako nije, opet bas me briga

pitanje: sta ako je ispunjen uslov iz prvog dela (da je broj manji od 21), sto sad da dzaba proveravas da je veci od 29
           kad znas da nije - bezveze trosis procesorsko vreme; hocu da kazem, da ti u ovaj deo treba da udjes ako si dobio
           da je iskaz iz prvog [b]IF[/b]-a netacan (tj da broj nije manji od 21 - tek onda valja proveravati da li je veci od 29)


3, deo

- pitas da li je broj manji od 21 ili veci od 29 (ali sto? to si vec pitao u prva dva dela)
- ako je to tacno ispisi poruku da nije u intervalu (opet sto? u prva dva dela si obezbedio da prikaze odgovarajuce poruke ako je to tacno)
- ako nije tacno onda ispisi poruku da je u intervalu (e ovo je jedino sto ti treba od svega iz 3. dela - da ispises informaciju da je broj u intervalu)

pitanje: slicno kao za 2. deo - ako je bar jedan od uslova iz 1. i 2. dela ispunjen ti dzabe ulazis ovde (naime, ako je tacno 1. ili 2. onda je broj ili 
           manji 21 ili veci od 29 tako da u ovaj deo koda bespotrebno ulazis)


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:

Code:

if (broj1 < 21) then                                             //proveravamo da li je broj ispod intervala
                    writeLn("Broj je ispod intervala)      //ispisujemo odgovarajucu poruku ako jeste            
                else                                             //ako nije onda znamo da je veci pa treba da proverimo da li je iznad
                    if (broj1 > 29) then                    //proveravamo da li je iznad intervala
                                      writeLn("Broj je iznad intervala)     //ispisujemo odgovarajucu poruku ako jeste
                                    else                                             //ako nije onda mora biti u intervalu 
                                      writeLn("Broj je u intervalu);         //(nije iznad, a nije ni ispod, nema treceg)
                                                                                          


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

dimnicar
dimnicar

Član broj: 48094
Poruke: 498
*.dynamic.sbb.rs.



+5 Profil

icon Re: Greske u Paskal programiranju07.12.2009. u 12:10 - pre 174 meseci
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.
 
Odgovor na temu

tkaranovic
Tomislav Karanović
Beograd

Član broj: 220507
Poruke: 307



+18 Profil

icon Re: Greske u Paskal programiranju07.12.2009. u 15:08 - pre 174 meseci
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):

Code:

if (broj1 < 21) or (broj1 > 29) 
then
    writeLn('Broj ne pripada zadatom zatvorenom intervalu.')
else
    writeLn('Broj pripada zadatom zatvorenom intervalu.');


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

Code:

if (broj1 < 21) or (broj1 > 29) then begin
    if (broj1 < 21) then
        writeLn("Broj je ispod intervala)
    else
        writeLn("Broj je iznad intervala);
end else
    writeLn('Broj pripada zadatom zatvorenom intervalu.');
 
Odgovor na temu

dimnicar
dimnicar

Član broj: 48094
Poruke: 498
*.dynamic.sbb.rs.



+5 Profil

icon Re: Greske u Paskal programiranju08.12.2009. u 21:20 - pre 174 meseci
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
 
Odgovor na temu

tkaranovic
Tomislav Karanović
Beograd

Član broj: 220507
Poruke: 307



+18 Profil

icon Re: Greske u Paskal programiranju09.12.2009. u 06:06 - pre 174 meseci
Sada tek vidim da je ovo rešenje i u poruci u kojoj je i ovo pitanje:

Citat:
dimnicar:
Da li mi je ispravan ovaj nacin razmisljanja,ili je moglo to i bolje?


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

dimnicar
dimnicar

Član broj: 48094
Poruke: 498
*.dynamic.sbb.rs.



+5 Profil

icon Re: Greske u Paskal programiranju10.12.2009. u 00:36 - pre 174 meseci
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.
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Greske u Paskal programiranju

Strane: 1 2

[ Pregleda: 4815 | Odgovora: 22 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.