Pascal: školski zadaci

Znači naredba if postavlja uvjet - ako je ovo onda napravi nešto, ako nije onda napravi nešt drugo.

Dakle sa if postavljaš uvjet i ako je on zadovoljen, izvršava se jedna naredba, ako nije onda druga. Konkretno:

if a mod 7 = 0 <--ako je ostatak djeljenja broja a sa z jednak nuli (tako provjeravaš da li je broj djeljiv sa nekim brojem x, dakle ostatak je onda 0)

  then writeln('Blabla') <-- tada ispiši blabla (primjeti da nejde ; sve do kraja if-a)

else <--inače, dakle na ovo se progrm prebacuje ako if uvjet nije zadovoljen, konkretno ako broj nije djeljiv sa 7

a:=Trunc(a/7); <-- Trunc zaokružuje broj, dakle 3.4 će biti 3 itd. Tako smo zaokružili rezultat djeljenja sa 7 pošto broj nije djeljiv sa 7...

 writeln ('Rezultat djeljenja....'); <--tu ide ; jer završava if uvjet

Jel sad jasno :)

hvala puno jasnije je, neznam sta bi ja bez vas

al jedino sta me muci i sta mi je najgluplje je da mi je u pascalu tipkovnica na engleskom. pa dok se ja snadem..di je ; pa : uf..glupost..

inace u windowsima je hrvatska tipkovnica!

Hm, onda:

program xxx

var a:real;

begin

writeln('Upiši neki broj...');

readln(a);

   if a mod 7 = 0

     then

       writeln('Broj je djeljiv sa 7!');

     else

       if a/7>a div 7 + 0.5

          then

               writeln('rezultat dijeljenja sa 7 (zaokruzeno) je ',a+1);

          else

              writeln  ('rezultat dijeljenja sa 7 (zaokruzeno) je ',a);

readln;

end.

Koju zbunjolu ste tu napravili.

Round je zaokruživanje na najbliži cijeli broj- 2.1 zaokružuje na 2, a 2.5 zaokružuje na tri.

Trunc odreže decimale, odnosno vraća samo cijeli dio broja (bez decimala). Mogao bi možda čovjek reći da je to zaokruživanje na niže, dakle funkcija floor u nekim drugim jezicima - moguće i u matematici - no toplo preporučam da ne koristite riječ "zaokruživanje" u vezi s funkcijom trunc, pogotovo ako je ne koristite u sintagmi "zaokruživanje na niže", jer samo možete zbuniti druge ljude - pa će se pitati koju od te dvije funkcije "za zaokruživanje" koristiti. Dakle, 2.1 daje 2, a isto tako 2.5 daje 2.

edit, da, skužio sam grešku... 

devpas 1.9.2

Programski jezik je uvijek isti ;)

prog. jezik je u svakom programu za programiranje isti?

instalirao asm ovaj dev pascal, i kopirao ovo sta ste napisali da vidim dal radi..jer u fpascalu nece..

kliknem zelenu kvacicu za compile al nista se ne desi..kliknem run isto tako.

eo slikee!!!

EDIT

Daj klikni kvačicu i onda poslikaj. Mora se nešto dogoditi. Ili izbaci greške ili kaže da je kompajliranje uspjelo.

Neka greška u postavkama, probaj promijeniti postavke neke, ili ugasi sve u pascalu (sve sto programiras, ovo sa strane lijevo untitled 1 i 2) i onda file>new source file jer ovo mi se čini kao da si napravio novi project.

Program ti ne radi jer si stavio da je varijabla realan broj,a DIV i MOD možeš koristiti samo za integere.

EDIT:Prvo trebaš spremiti nekamo taj program koji napišeš i onda ideš na alatnoj traci Execute-Compile and Run.

Ispravna verzija, radi u Dev PAscal-u

Idi File ->New Source File

program xxx ;
 var a:integer;
  begin
   writeln('Upiši neki broj...');
   readln(a);
   if a mod 7 = 0 then
       writeln('Broj je djeljiv sa 7!')
     else
       if a/7>=a div 7 + 0.5 then
         writeln('Rezultat dijeljenja sa 7 (zaokruzeno) je ',a div 7+1)

        else
         writeln  ('Rezultat dijeljenja sa 7 (zaokruzeno) je ',a div 7);
  readln;
end.

Idi File ->New Source File

iskopiraj primer ili otkucaj program

Idi Execute->Run i to je to!

Stisni onaj bijeli papir.

A jesi nesposoban... Pa što ti poruka kaže? Icon file not found (please change it in Project Options). Što ona nisi išao u Project Options i odabrao datoteku s ikonom? Mislim, ono... Izbornik Project > Project Options, klik na gumb Load Icon (s Dev-Pascalom dolaze neke ikone smještene u mapu C:\Dev-Pas\Icons), učitaš ikonu, kompajliraš i gotovo.