Pomoć oko informatičkih zadataka

poruka: 2
|
čitano: 1.249
|
moderatori: DrNasty, pirat, Lazarus Long, XXX-Man, vincimus
1
+/- sve poruke
ravni prikaz
starije poruke gore
14 godina
neaktivan
offline
Pomoć oko informatičkih zadataka

Evo molim pomoć oko ova tri zadatka, ako itko zna stvarno bih bila zahvalna

 

1.Kolika treba biti najmanja pozitivna vrijednost varijable t kako bi se sljedeća petlja izvela točno 8 puta?
dok je t <> 1 činiti
ako je t mod 2 = 0 onda
t := t div 2
inače
t := 3 * t + 1;

2.Kolika je vrijednost varijable h nakon izvođenja dijela programa?
h := -2;
za m := 3 do 6 činiti
za n := 4 do m činiti
h := h * (-2);
h := h - 2;

3. Koju će vrijednost poprimiti cjelobrojna varijabla b nakon izvođenja dijela programa?
b := -6;
n := 1;
dok je n <=5 činiti
{
n := n + 1;
k := 1;
dok je k <= n činiti
{
b := b + 1;
k := 2 + k;
}
}

14 godina
offline
RE: Pomoć oko informatičkih zadataka

 

PROGRAM 1;

 

VAR t:integer;

 

BEGIN

 

WHILE t <> 1 DO

 

BEGIN

 

IF t MOD 2 =0

 

t:=t DIV 2;

 

writeln(t); *ispisuje t u svakomk koraku, unesi t redom od 1*

 

END

 

ELSE  t:=t*3+1;

 

 

readln;

 

END.

 

--------------

 

PROGRAM 2;

 

VAR h:integer;

 

BEGIN 

 

h:=-2;

 

FOR m:=3 TO 6 DO

FOR n:=4 TO m DO

 

BEGIN

 

h:=h*(-2);

h:=h-2;

 

END

 

        write(h); *ispis varijable h na kraju izvršavanja petlje*

 

    readln;

 

END.

 

-------

 

PROGRAM 3;

 

VAR b,n,k:integer;

 

BEGIN

 

b:=-6;

n:=1;

 

WHILE n<=5 DO

 

BEGIN

 

n:=n+1;

k:=1;

 

WHILE k<=5 DO

 

 BEGIN

 

   n:=n+1;

   k:=1;

 

WHILE k<=n DO

 

  BEGIN

 

  b:=b+1;

  k:=2+k;

 

  END

 

END;

 

 

     writeln(b); *ispis varijable b*

 

readln;

 

END.

 

 

 

 

------------

Ovo je otprilike tako nekako nemam kompajler da provjerim. Sretno!

Poruka je uređivana zadnji put uto 16.2.2010 21:00 (Slobodnjak).
1
Nova poruka
E-mail:
Lozinka:
 
vrh stranice