užduotis su pascaliu

Sveiki, nepavyksta išspręst užduoties su FPS pascal.

Ji tokia:

Linas nusipirko dviratį. Vis spėjęs grįšti namo pasigyrė 2 draugams, kurių kiekvienas po 30 min pasakė kitiems dviem draugams. Dar po 30 min kiekvienas iš šių keturių persakė žinia dar dviem kitiems draugams. Ir taip kas 30 min kiekvienas išgirdęs perpasakojo dviem dar nieko nežinantiems.

Parašyti programa: kiek žino draugų po y valandų?

 

Linas nusipirko dviratį. Vis spėjęs grįšti namo pasigyrė 2 draugams, kurių kiekvienas po 30 min pasakė kitiems dviem draugams. Dar po 30 min kiekvienas iš šių keturių persakė žinia dar dviem kitiems draugams. Ir taip kas 30 min kiekvienas išgirdęs perpasakojo dviem dar nieko nežinantiems.

Parašyti programa: kiek žino draugų po y valandų?

Nusiskaitai valandas, gerai, apskaičiuoji pusvalandžiai gerai, tada suki cikla kiek yra pusvalandžiu, draugu_zininaciu = draugu- zinanciu *2 + draugu zinanciu;

tada tau verstis nereikia atgal, nes valandas jau turi kaip Y. turi veikti.

Nusiskaitai valandas, gerai, apskaičiuoji pusvalandžiai gerai, tada suki cikla kiek yra pusvalandžiu, draugu_zininaciu = draugu- zinanciu *2 + draugu zinanciu;

tada tau verstis nereikia atgal, nes valandas jau turi kaip Y. turi veikti.

Bet jūsų parašyta pagrindinė formulė ta pati kaip mano, suaitačius reikšmes ta pati skaičiu gaunu.

Kodėl programos pabaigoje nebereikia verstis iš pusvalandžiu i valandas? Jug atsakymu ir spausdins draugų skaičiu susieta su kiek yra pusvalandziu.

Bet jūsų parašyta pagrindinė formulė ta pati kaip mano, suaitačius reikšmes ta pati skaičiu gaunu.

Kodėl programos pabaigoje nebereikia verstis iš pusvalandžiu i valandas? Jug atsakymu ir spausdins draugų skaičiu susieta su kiek yra pusvalandziu.

nes valandas iškarto esi nusiskaitęs.

Parašiau pagal save, gali būti klaidu, neturiu fps pratestinti, taip pat pascal nieko nedaręs jau 3 metus kokios tai nepamenu kaip cikla pabaigti bet turetų veikti

program test;
var val,kiek,draugai:integer;
begin
writeln('iveskite valandas');
readln(val);
kiek := val *2;
draugai := 2;
for i := 1 to kiek do
draugai := draugai + i* 2;
writeln('po ', val, ' valandu zino ', draugai);
readln;