Ciklas while/for | 2x uzdaviniai

#1.Vasaros atostogu metu Linas dirbo pastininku. Uz pirma atlyginima jis nusipirko dvirati. Si zinia pasklido labai greitai. Vos spejes grizti namo, jis pasigyre diem draugams, kuriu kiekvienas po 30 minuciu pasake zinia dviem kitiems draugams. Ir taip kas 30 minuciu kiekvienas isgirdes naujiena perpasakodavo viska dviem dar nieko nezinantiems. Parasykite algorimt,a kuris nustatytu, kiek zmoniu suzinojo naujiena po y valandu.

#2.ezere prazydo viena vandes lelija. kiekviena diena ziedu skaicius patrigubedavo. Parasykite programa, kuri apskaiciuotu:

a) Kiek ziedu ezere buvo po n dienu.

b) Kelinta diena ziedai uzklojo puse ezero, jeigu visame ezere gali tilpti m ziedu?

P.S. Gal zinote kokios literaturos ar puslapiu kur galeciau pasimokyti su ciklu - while/for? Nes mano mokytoja priciuozus ir nesugeba normaliai issaiskinti (jei dar pati nesugeba situ uzduociu padoriai isspresti)?

#1.Vasaros atostogu metu Linas dirbo pastininku. Uz pirma atlyginima jis nusipirko dvirati. Si zinia pasklido labai greitai. Vos spejes grizti namo, jis pasigyre diem draugams, kuriu kiekvienas po 30 minuciu pasake zinia dviem kitiems draugams. Ir taip kas 30 minuciu kiekvienas isgirdes naujiena perpasakodavo viska dviem dar nieko nezinantiems. Parasykite algorimt,a kuris nustatytu, kiek zmoniu suzinojo naujiena po y valandu.

 

#2.ezere prazydo viena vandes lelija. kiekviena diena ziedu skaicius patrigubedavo. Parasykite programa, kuri apskaiciuotu:

a) Kiek ziedu ezere buvo po n dienu.

b) Kelinta diena ziedai uzklojo puse ezero, jeigu visame ezere gali tilpti m ziedu?

 

P.S. Gal zinote kokios literaturos ar puslapiu kur galeciau pasimokyti su ciklu - while/for? Nes mano mokytoja priciuozus ir nesugeba normaliai issaiskinti (jei dar pati nesugeba situ uzduociu padoriai isspresti)?

12 dabar klasej esi? Jei taip kodel emei programavima, jei nemoki?

P.S. As pats 12 ir siais metais tuos pacius dariau.

Kur buvo su if aisku viskas, bet kai ciklus uzdave.. Paaiskintu mokytoja padoriai, o dabar pati kalba ir atrodo nesupranti pati ka sako... Programuoti man idomu, tik kad neatsigavus ji yra :D

program uzduotis1;

var zmones : integer;

y : real;

begin

WriteLn('iveskite valandas');

Readln(y);

zmones := 0;

while y > 0 do

begin

zmones := zmones + 2;

y := y - 0.5;

end;

WriteLn( zmones);

ReadLn;

end.

program uzduotis2a;

var ziedai, i, n, diena, m : longint;

begin

WriteLn('iveskite dienas');

Readln(n);

WriteLn('iveskite kiek ziedu gali tilpti visame ezere');

ReadLn(m);

diena := 0;

ziedai := 1;

for i := 1 to n do

ziedai := ziedai * 3;

WriteLn(ziedai);

while ziedai <= m / 2 do

begin

diena := diena + 1;

end;

WriteLn(diena);

ReadLn;

end.

kazko b nesigauna :unsure: tegul kasnors pataiso, nu nzn as daryciau taip bet as dar tik 11kl, :rolleyes:

http://programavimopamokos.net/index.php programavimo vidoe pamokos, man tai praverte, :) http://fliiby.com/file/837326/qp96re7w58.html , o cia vadovelis :D

program uzduotis1;

var zmones : integer;

y : real;

begin

WriteLn('iveskite valandas');

Readln(y);

zmones := 0;

while y > 0 do

begin

zmones := zmones + 2;

y := y - 0.5;

end;

WriteLn( zmones);

ReadLn;

end.

sunkiai pascal'į prisimenu, bet klaida ne jame.. Kiekvienas žmogus pasako dar dviem žmonėm.

Tai manau teisingiau būtų

zmones := zmones + zmones*2;

Ir dar reikėtų paredaguot papildomai, nes pataisius tik tą eilutę, gausis ats 0

12 dabar klasej esi? Jei taip kodel emei programavima, jei nemoki?

 

P.S. As pats 12 ir siais metais tuos pacius dariau.

O tai man atrodo tam žmogus ir mokosi, kad išmoktų ką nors. Ir nematau čia nieko blogo, kad paprašė pagalbos.

program uzduotis1;
var
   y:real;
   draugai, visi:integer;
begin
writeln('Iveskite valandas: '); readln(y);
draugai:=1;
visi:=0;
while y > 0 do
   begin
   y:=y-0.5;
   draugai:=draugai*2;
   visi:=visi+draugai;
   end;
writeln('Po tiek valandu zinos: ', visi);
readln;
end.

program uzduotis2;
var
   n, m, ziedai:integer;
   diena:integer;
   kiekis:integer;
begin
write('Iveskite dienas: '); readln(n);
write('Iveskite kiek ezere telpa ziedu: '); readln(m);
ziedai:=1;
for diena:=1 to n do
   begin
   ziedai:=ziedai*3;
   end;
diena:=0; kiekis:=1;
while kiekis < m div 2 do
   begin
   diena:=diena+1;
   kiekis:=kiekis*3;
   end;
writeln('Po ', n ,' dienu bus prazyde ', ziedai, ' ziedu,');
writeln('ir po ', diena, ' dienu ezeras pusiau pilnas.');
readln;
end.

Jei ką ne taip supratau pataisykit.