Kelios pascal programeles

Gal kas gali padet ir parasyt sias programeles?

1.Gimtadienio dovana. Vaikui gimus tėvas padovanojo jam

vieną litą. Kiekvieną gimtadienį jis dovanodavo tiek litų,

kiek vaikui sukakdavo metų. Parašykite programą, kuri

suskaičiuotų, kiek litų turės sukaupęs vaikas, kai švęs n-tąjį

gimtadienį.

2.Jonukas kas rytą priėjęs prie obels, nuskindavo ir suvalgydavo

vieną arba du obuolius, kad likęs obuolių skaičius būtų lyginis,

tuomet pusę likusių obuolių parnešdavo senelei. Parašykite

programą, kuri nustatytų, kaip keitėsi ant obels kabančių obuolių

skaičius, jei pradžioje jų buvo x.

Gal kas gali padet ir parasyt sias programeles?

 

1.Gimtadienio dovana. Vaikui gimus tėvas padovanojo jam

vieną litą. Kiekvieną gimtadienį jis dovanodavo tiek litų,

kiek vaikui sukakdavo metų. Parašykite programą, kuri

suskaičiuotų, kiek litų turės sukaupęs vaikas, kai švęs n-tąjį

gimtadienį.

 

2.Jonukas kas rytą priėjęs prie obels, nuskindavo ir suvalgydavo

vieną arba du obuolius, kad likęs obuolių skaičius būtų lyginis,

tuomet pusę likusių obuolių parnešdavo senelei. Parašykite

programą, kuri nustatytų, kaip keitėsi ant obels kabančių obuolių

skaičius, jei pradžioje jų buvo x.

1.

suma := 1;

for i := 1 to metai do

suma := suma + i;

2. if x mod 2 = 0 then suvalge := 2

else suvalge := 1;

if suvalge = 1 then x := x - 1

else x := x - 2;

parnese := x div 2;

x := x div 2;

Pirmoji tai lengva:

For 1 to (n + 1) do

i := i + 1;

Ir išvedam.

Parašiaus tik principą, pilną programa gali padaryti savo proto pagalbą. ;)

Pirmoji tai lengva:

 

For 1 to (n + 1) do

i := i + 1;

 

Ir išvedam.

 

Parašiaus tik principą, pilną programa gali padaryti savo proto pagalbą. ;)

Darydamas iki n + 1 gausi blogą atsakymą. Pvz: gimė - gavo 1lt. Paskui per gimtadienius gavo: 1 + 2 + 3 + 4 + 5 = 15 15 + 1 = 16;

O pagal tavo sprendima 2 + 3 + 4 + 5 + 6 + 7 <> 16 ir beto ciklo skaitliuko keisti negalima...

Dekui Ernis5