Pocetnik u Paskalu i pocetnika pitanja

[ dimnicar @ 21.05.2008. 13:35 ] @

Zdravo
Ucim 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.

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]}

[ savkic @ 21.05.2008. 14:36 ] @

> 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[..].

Takva je sintaksa za deklaraciju nizova, IndeksPocetnogElementa..IndeksPoslednjegElementa.

> 2.Zasto u konstantama u zagradama('Januara',itd) ,nije isto i sa brojevima ('31','28',itd),nego(31,28 itd)?

Pascal je strogo tipiziran jezik, svaki tip podatka se mora pisati u skladu sa njegovim svojstvima, ako su stringovi koriste se navodnici ('Jan', 'Feb'), celobrojni tipovi (brojevi) se pišu bez dodataka (1, 2, 3), realni brojevi se pišu sa tačkom kao decimalnim separatorom (1.3, 2.5, 5.6)...

> Ako nije problem dajte neki slican zadatak da probam da resim,a mozete odmah priloziti i resen zadatak ili vise njih.

Pre nekoliko meseci su postovani tekstovi zadataka sa takmičenja iz Informatike za osnovnu školu, to ti može biti interesantno. Takođe, otkucaj na googlu "zadaci iz paskala" i dobićeš nekoliko linkova pa kreni odatle.

[ dimnicar @ 22.05.2008. 11:06 ] @

Hvala,nesto sam skinuo,a nesto radim i po knjizi
Imam jedan problemcic ,kako da odradim zaglavlja,ne razumem zadatak.

Kako da napisem program za prikazivanje kvadrata svoh celih brojeva izmedju 1 i 12 u dve kolone ,sa zaglavljima 'broj' i 'kvadrat'???
Ima li resenje,tj programcic.
Zadatak je iz knjige o paskalu ,deo ponavljanje

Kako da ga uradim?
Radi se sa for,nemam cak ni ideju.
pozdrav

[ savkic @ 22.05.2008. 12:10 ] @

> Kako da napisem program za prikazivanje kvadrata svoh celih brojeva izmedju 1 i 12 u dve kolone ,sa zaglavljima 'broj' i 'kvadrat'???
> Ima li resenje,tj programcic.

Za ispis teksta koristi WriteLn, npr. WriteLn('broj kvadrat');
Za ispis broja i kvadrata, možeš koristiti Format funkciju, pogledaj u helpu (ili potraži ranije poruke) kako se može dobiti rezultat fiksne dužine.

[ dimnicar @ 23.05.2008. 12:16 ] @

hmmmm
u knizi jos nisam dosao do funkcija ,a vec daju zadatke sa funkcijama.Funkcije radim tek posle nizova,jos nisam stigao ni do petlji while i repeat.
uhhhhh

[ dimnicar @ 23.05.2008. 12:30 ] @

hmmmm
u knizi jos nisam dosao do funkcija ,a vec daju zadatke sa funkcijama.Funkcije radim tek posle nizova,jos nisam stigao ni do petlji while i repeat.
uhhhhh

[ Nemanja_666 @ 24.05.2008. 15:33 ] @

Code:

program nesto;
var
  i : Integer;
begin
  for i := 1 to 12 do Writeln (i, ' ', i * i);
  readln;
end.

_{[Ovu poruku je menjao savkic dana 24.05.2008. u 16:45 GMT+1]}