Pascal: školski zadaci

Sad jeste :). Izmenjen je, nisam video.

b broji koliko ima neparnih cifara u broju. Ako je b>0 broj onda nije "paran" :)

b je brojač. Ti ga možeš i drugačije nazvati, ali njegova je funkcija da broji nešto i onda kasnije uspoređuješ neki rezultat ili varijablu s tim brojem.

Npr ako trebaš upisati 10 brojeva pa ispisati koliko njih sadrži nulu, onda isto tako staviš brojač koji broji te brojeve.

1.koju ce vrijednost imati varijabla t nakon izvođenja dijela programa

t:=0;

for i:=1 to 4 do,

begin,

t:=t-1,

for j:=1 to i do,

t:=t+2*1,

end,

riješenje je 56 a može li mi netko objasniti kako se dođe do toga

Ne može, zato jer je rješenje 16. LOL

Druga je stvar što si ti napravio grešku dok si prepisivao kod: t:=t+2*i. Onda rješenje je 56. A kako se dođe do toga? Pa vidiš da sve sve operacije unutar vanjske petlje vrte četiri puta. Prvo se t umanjuje za 1, a zatim ide druga petlja, koja se vrti i-puta (u prvoj iteraciji vanjske petlje vrti se samo jednom, u drugoj dvaput u trećoj triput), te se onda obavlja ta operacija (t:=t+2*i).

Uzmi Excel ili bilježnicu s kvadratićima, napravi si stupce i, j i t i piši u njih vrijednosti varijabli u svakom pojedinom koraku. Simple as that. Uoči recimo da u zadnjoj iteraciji imaš t:=t+2*i. U zadnjoj iteraciji ti je i = 4, znači u zadnjoj operaciji varijabla t iznosi t + 8 (jer je 2*i=2*4=8).

Ili si jednostavno možeš dodati jednu liniju u program, koja će ti ispisati vrijednosti varijabli u svakom koraku.

program kojiBroj;var  t, i, j: Integer;
begin  t:=0;
  for i:=1 to 4 do  begin    t:=t-1;
    for j:=1 to i do    begin      t:=t+2*i;      WriteLn('t = ', t, '    i = ', i, '     j = ', j);    end;  end;
  WriteLn(t);  ReadLn;end.

var

   s:string[10];

   i:byte;

begin

   readln(s);

   for i:=1 to 5 do 

   begin

     writeln(s[2*i]);

     writeln(chr(ord(s[2*i])-1));

   end;

   readln;

end.

Od kad postoji step u naredbi for u Pascalu???? To ima samo u Basicu. Primer nije ispravan!!!

evo dečki, da se zahvalim, dobio sam 4 iz testa, jedan zadatak nisam znao u potpunosti...

hvala još jednom :)

if num mod 7 = 0 then writeln('djeljiv')

else writeln(round(num));

1.bold-ne kuzim sta to znaci.pa ako mozes objasnit!
2.bold - ovo mislim da ne ide tako.. mozda se varam al trebalo bi nekako drukcije, procitaj zadatak..Ako nije, ispisuje se rezultat dijeljenja zaokruzen na najblizi cijeli broj. 

samo ako mozes objasnit boldano? tnx:D