SOS. Programavimas FPS.

Vasaros pradžioje prasideda braškių sezonas. Pirmąją dieną lysvėje prinoko b braškių. Kiekvieną kitą dieną prinoksta d braškių daugiau, negu prieš tai buvusią. Parašykite programą, skaičiuojančią, kiek prinokusių braškių k bus po n dienų.

Pasitikrinkite: kai b = 4, d = 5, n = 3, tuomet kompiuterio ekrane turi būti rodoma: Per 3 dienas prinoko 27 braškės.

program braskes;

var b,d,k,n,i:integer;

begin

Write('Iveskite kiek pirmaja diena lysveje prinoko braskiu. ');readln(b);

write('Iveskite kiek kita diena braskiu prinoksta daugiau, negu pries tai buvusia. ');readln(d);

write('Iveskite kiek dienu auginamos braskes. ');readln(n);

k:=b;

for i:=1 to n do

Ir toliau nebežinau ką rašyt.. :(

Prašom.

program braskes;
   var b,d,k,n,i:integer;


begin
   Write('Iveskite kiek pirmaja diena lysveje prinoko braskiu. ');readln(b);
   write('Iveskite kiek kita diena braskiu prinoksta daugiau, negu pries tai buvusia. ');readln(d);
   write('Iveskite kiek dienu auginamos braskes. ');readln(n);
   k := b;
   for i := 1 to n - 1 do
       begin
           b += d;
           k += b;
       end;
   writeln('Per ',n,' dienas prinoko ', k,' braskes');
   readln;
end.

.

Prašom.

 

program braskes;
   var b,d,k,n,i:integer;


begin
   Write('Iveskite kiek pirmaja diena lysveje prinoko braskiu. ');readln(b);
   write('Iveskite kiek kita diena braskiu prinoksta daugiau, negu pries tai buvusia. ');readln(d);
   write('Iveskite kiek dienu auginamos braskes. ');readln(n);
   k := b;
   for i := 1 to n - 1 do
       begin
           b += d;
           k += b;
       end;
   writeln('Per ',n,' dienas prinoko ', k,' braskes');
   readln;
end.

Ačiū labai, tik esmė ta, kad su šitais b += d; k += b; nesimokėme. Nėra kito varianto? :(

Pakeisk į:

b := b + d;
k := k + b;

Pakeisk į:

 

b := b + d;
k := k + b;

Ačiū. ^_^

Ačiū labai, tik esmė ta, kad su šitais b += d; k += b; nesimokėme. Nėra kito varianto? :(

Uch, jau buvo parašyta :/