[es] - pocetnicki problem u paskalu

dimnicar
dimnicar

Član broj: 48094
Poruke: 505
*.147.EUnet.yu.

+5 Profil

^{20.07.2005. u 22:45 - pre 228 meseci}

paskal
vezba je da napisem program koji od korisnika zahteva da upise broj

meseca i zatim da prikaze broj dana za doticni mesec(zasas se

zanemaruju prestupne godine).
evo kako sam ja uradio :
U ovoj vezbi se zahtevala upotreba ' CASE '.

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;
var
brojmeseca,brojdana:integer;
begin
writeln('Molim upisite broj meseca: ') ;
readln(brojmeseca);
writeln;
writeln(brojmeseca);
readln;
if brojmeseca = 1
then
writeln('Januar mesec ima 31 dana');
readln
else
case brojmeseca of
3,5,7,9,10,12 : brojdana := 31;
4,6,9,11 : brojdana := 30;
2 : brojdana := 28;
readln;

end

Odgovor na temu

dimnicar
dimnicar

Član broj: 48094
Poruke: 505
*.201.EUnet.yu.

+5 Profil

Re: pocetnicki problem u paskalu

^{21.07.2005. u 14:36 - pre 228 meseci}

Napisao sam program u paskalu koji omogucava da kad upisete neki

broj,vidite ime meseca za doticni broj i broj dana u mesecu.
Ono sto ne znam a po knjizi je da bi ovo trebalo nekako skratiti

uprostiti (ugnjeZdeni IF iskazi mogu postati veoma komplikovani ,pa

je tada lakse upotrebiti iskaz CASE.
za ovu vezbu bi trebao biti

case mesec of

1.3.5.7.8.10,12 : brojdana:=31
4,6,9,11 :brojdana :=30
2 := brojdana:=28
end;{case}

moj program je ispod.Kako ga skratiti pomocu Case?
pomoc!!!

program ime_mes_i_br_dana;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
brojmeseca,brojdana:integer;
imemeseca:string;
begin
writeln('molim upisite broj meseca ');
readln (brojmeseca);
if brojmeseca=1
then
writeln('Januar ima 31 dan') ;
if brojmeseca=2
then
writeln('Februar ima 28 dana,a svake cetvrte godine 29 dana');
if brojmeseca=3
then
writeln('Mart ima 31 dan');
if brojmeseca=4
then
writeln('April ima 30 dana');
if brojmeseca=5
then
writeln('Maj ima 31 dan');
if brojmeseca=6
then
writeln('Juni mesec ima 30 dana');
if brojmeseca=7
then
writeln('Juli mesec ima 31 dan');
if brojmeseca=8
then
writeln('Avgust ima 31 dan');
if brojmeseca=9
then
writeln('Septembar ima 30 dana');
if brojmeseca=10
then
writeln('Oktobar ima 31 dan');
if brojmeseca =11
then
writeln('Novembar ima 30 dana');
if brojmeseca=12
then
writeln('Decembar ima 31 dan');
if brojmeseca>12
then
writeln('Taj broj meseca ne postoji');
readln;
end.

Odgovor na temu

peromalosutra
Ivan Rajkovic
Software engineer
Luxoft
Berlin

Član broj: 54774
Poruke: 871
*.dialup.blic.net.

+148 Profil

Re: pocetnicki problem u paskalu

^{21.07.2005. u 23:29 - pre 228 meseci}

Evo kako:

Code:

program ime_mes_i_br_dana;

{$APPTYPE CONSOLE}

uses
SysUtils;
var
brojmeseca,brojdana:integer;
imemeseca:string;

begin
writeln('molim upisite broj meseca ');
readln (brojmeseca);
if brojmeseca<=12 then
  case brojmeseca of
1: writeln ('Januar ima 31 dan');
2: writeln (Februar ima 28 ili 29 dana.');
3: writeln ('Mart ima 31 dan');
{  ...  i tako za sve mjesece izmedju}
12: writeln ('Decembar ima 31 dan.');
end
else write ('Taj broj mjeseca ne postoji.');
readln;
end.

Ovo pisem iz glave, mozda ima neka greska, ali trebalo bi da radi.
(Naravno prepravi onaj komentar...) :-D

_{[Ovu poruku je menjao peromalosutra dana 22.07.2005. u 00:30 GMT+1]}

_{[Ovu poruku je menjao peromalosutra dana 22.07.2005. u 00:30 GMT+1]}

Odgovor na temu

Toyo

Član broj: 45193
Poruke: 227
*.kovnet.co.yu.

+1 Profil

Re: pocetnicki problem u paskalu

^{21.07.2005. u 23:58 - pre 228 meseci}

Code:

const dana:array[1..12] of byte = (31,28,31,30,31,30,31,31,30,31,30,31);
begin
readln(m);
writeln('mesec ima ',dana[m],' dana.');
end.

Jos treba da ako je m=2 ispitas da li je godina prestupna.
Ali posto ne unosis godinu, za sada ti to nlije potrebno.

Odgovor na temu

peromalosutra
Ivan Rajkovic
Software engineer
Luxoft
Berlin

Član broj: 54774
Poruke: 871
*.dialup.blic.net.

+148 Profil

Re: pocetnicki problem u paskalu

^{22.07.2005. u 00:08 - pre 228 meseci}

A moglo je i sa:

Code:

case brojmeseca of
3,5,7,9,10,12 : brojdana := 31;
4,6,9,11 : brojdana := 30;
2 : brojdana := 28;
end;

Ali sam ja mislio da hoce da mu se ispise i naziv mjeseca.

Odgovor na temu

Toyo

Član broj: 45193
Poruke: 227
*.kovnet.co.yu.

+1 Profil

Re: pocetnicki problem u paskalu

^{22.07.2005. u 00:15 - pre 228 meseci}

pa onda dodas:

const
ime:array[1..12] of String[10] = ('Januar', 'Februar',.....);

a writeln je:

writeln(ime[m], ' ima ', dana[m],' dana');

Odgovor na temu

peromalosutra
Ivan Rajkovic
Software engineer
Luxoft
Berlin

Član broj: 54774
Poruke: 871
*.dialup.blic.net.

+148 Profil

Re: pocetnicki problem u paskalu

^{22.07.2005. u 10:53 - pre 228 meseci}

Da upravo sam na to pomislio nakon sto sam ugasio kompjuter...
Inace ja sve radim na tezi (citaj duzi) nacin, to mi je i profesorica informatike rekla...
A odgovorite mi sad na ovo: "Zasto da bude jednostavno, kad moze biti komplikovano?!" :)

Dosta off-topica od mene, pozdrav!

Odgovor na temu

dimnicar
dimnicar

Član broj: 48094
Poruke: 505
*.26.eunet.yu.

+5 Profil

Re: pocetnicki problem u paskalu

^{22.07.2005. u 17:20 - pre 228 meseci}

Pocetnik sam ,video sam sto ste napisali,probao na 100 nacina da iskombinujem to sto ste napisali,ali nece da se pokene.Stao mi je mozak na ovoj kombinaciji:{$APPTYPE CONSOLE}

uses
SysUtils;
const
dana:array[1..12] of String[10] = ('Januar', 'Februar',.....);

var
brojmeseca,brojdana:integer;
begin
writeln('Molim upisite broj meseca: ') ;
readln(brojmeseca);
writeln;
writeln(brojmeseca);
readln;
if brojmeseca = 1
then
writeln('Januar mesec ima 31 dana');
readln
end
case brojmeseca of
3,5,7,9,10,12 : brojdana := 31;
4,6,9,11 : brojdana := 30;
2 : brojdana := 28;
end;

Bio bi zahvalan nekom ako moze da ostavi ceo programski kod.(da mi ispravi greske)
pozdrav i hvala na trudu.

Odgovor na temu

peromalosutra
Ivan Rajkovic
Software engineer
Luxoft
Berlin

Član broj: 54774
Poruke: 871
*.dialup.blic.net.

+148 Profil

Re: pocetnicki problem u paskalu

^{22.07.2005. u 22:02 - pre 228 meseci}

Ti si u svom kodu iskonbinovao pola mog, a pola Toyo-inog rjesenja. Zato ti i nije radilo. Evo gotovog koda i to opet po Toyo-inom prijedlogu :)

Code:

program pas;
{$APPTYPE CONSOLE}
uses SysUtils;
const
mesec:array[1..12] of String[10] = ('Januar', 'Februar','Mart','April','Maj','Juni','Juli',
'Avgust','Septembar','Oktobar','Novembar','Decembar');
dana:array[1..12] of integer = (31,28,31,30,31,30,31,31,30,31,30,31);
var
brojmeseca,brojdana:integer;
begin
writeln('Molim upisite broj meseca: ') ;
readln(brojmeseca);
writeln;
if brojmeseca<=12 then
writeln (mesec[brojmeseca],' ima ',dana[brojmeseca],' dana.');
end.

Odgovor na temu

dimnicar
dimnicar

Član broj: 48094
Poruke: 505
*.100.eunet.yu.

+5 Profil

Re: pocetnicki problem u paskalu

^{22.07.2005. u 23:13 - pre 228 meseci}

Hvala ti puno,ja sam mu samo dodao na kraju readln i da ako je broj veci od 12 kaze da takav mesec nepostoji.
evo ga sad:
program pas;
{$APPTYPE CONSOLE}
uses SysUtils;
const
mesec:array[1..12] of String[10] = ('Januar', 'Februar','Mart','April','Maj','Juni','Juli',
'Avgust','Septembar','Oktobar','Novembar','Decembar');
dana:array[1..12] of integer = (31,28,31,30,31,30,31,31,30,31,30,31);
var
brojmeseca,brojdana:integer;
begin
writeln('Molim upisite broj meseca: ') ;
readln(brojmeseca);
writeln;
if brojmeseca<=12 then
writeln (mesec[brojmeseca],' ima ',dana[brojmeseca],' dana.')

else
writeln('nepostoji neki trinesti ili n-ti mesec');
readln;
end.

Kako da prosirim program da obuhvati i prestupne godine?

_{[Ovu poruku je menjao dimnicar dana 23.07.2005. u 00:17 GMT+1]}

Odgovor na temu