Pocetnik u Paskalu i pocetnika pitanjaUcim Paskla ,a volim da ucim malo i uz pomoc logike
Imam uradjen zadatak:Upisati broj meseca koji ce pokazati ime tog meseca i broj dana.
evo ga dole
Code:
program Meseci;
{$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: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.
program Meseci;
{$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: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.
Ono sto me zanima jeste sledece
1.Zasto u konstantama posle Array mora da sledi [1..12].Te dve tacke,ako stavim tri ili bilo kolko sem dve tacke nece da radi,pravi gresku[..].
2.Zasto u konstantama u zagradama('Januara',itd) ,nije isto i sa brojevima ('31','28',itd),nego(31,28 itd)?
Ako nije problem dajte neki slican zadatak da probam da resim,a mozete odmah priloziti i resen zadatak ili vise njih.
Pozdrav
[Ovu poruku je menjao savkic dana 21.05.2008. u 15:17 GMT+1]
Re: Pocetnik u Paskalu i pocetnika pitanja