Pagalba del fps uzdavinelio

Petras padėjo pp litų į banką, kuriame metinės palūkanos yra p1 procentų. Jonas padėjo pj litų į

kitą banką, kuriame metinės palūkanos yra p2 procentų. Parašykite programą, kuri spausdintų:

kiekvieno vaikino turimus pinigus banke po n metų bei kuris ir kiek daugiau pinigų turi.

Gal galit padet?

Petras padėjo pp litų į banką, kuriame metinės palūkanos yra p1 procentų. Jonas padėjo pj litų į

kitą banką, kuriame metinės palūkanos yra p2 procentų. Parašykite programą, kuri spausdintų:

kiekvieno vaikino turimus pinigus banke po n metų bei kuris ir kiek daugiau pinigų turi.

 

Gal galit padet?

Tipo mums už tave programą parašyt? :D

Jeigu tau labai skauda, gali nerasyt. Tiesiog maciau zmones cia kreipiasi jeigu jiems neiseina parasyti :)

Taip pat tie žmonės parodo savo bandymus parašyti programą.

Ne visur ir apskritai ko cia rasinejat, jeigu negalit pagelbet, o tik pa*ist prota atsiprasant tai isvis nieko ir nerasykit daug geriaus bus...

Na tai tiesiog susirask kokia yra sudetiniu procentu formule (matematikos egzamino formuliu lape yra) ir liks tik pasirasyt pora eiluciu papildomai.

Reikalingas cia while ciklas? Nes cia prie while ciklo uzdaviniu radau, nors nelabai as cia matau kur ji reiketu panaudot..

Reikalingas cia while ciklas? Nes cia prie while ciklo uzdaviniu radau, nors nelabai as cia matau kur ji reiketu panaudot..

Galima su while, galima su for , kaip tau patogiau ir kaip moki

program Bevarde0;

 

var p1,p2,n,i:integer;

pp,pj:real;

begin

WriteLn('Kiek pinigu padejo Petras?');

ReadLn(pp);

WriteLn('Kiek pinigu padejo Jonas?');

ReadLn(pj);

WriteLn('Kokia yra Petro metine palukanu procentu norma?');

ReadLn(p1);

WriteLn('Kokia yra Jono metine palukanu procentu norma?');

ReadLn(p2);

WriteLn('Po kiek metu skaiciuosime sukauptus pinigus?');

ReadLn(n);

 

//skaiciuojam Petro sukauptus pinigus per n metu

Begin

For i := 1 to n do

pp := pp*(p1/100+1);

End;

 

//skaiciuojam Jono sukauptus pinigus per n metu

Begin

For i := 1 to n do

pj := pj*(p2/100+1);

End;

 

//tikrinam kuris turi daugiau:

 

if(pp>pj) then

WriteLn('Daugiau pinigu turi Petras')

else if(pp=pj) then

WriteLn('Abu turi pinigu po lygiai')

else

WriteLn('Daugiau pinigu turi Jonas');

 

//isvedam galutinius rezultatus

WriteLn('Petras sukaupe viso pinigu:',pp:4:2);

WriteLn('Jonas sukaupe viso pinigu:',pj:4:2);

 

 

Readln;

 

end.

Gali išmokti pats, savu laiku padėjo http://programavimopamokos.net/

Jei kalba eina apie sudėtinių palūkanų skaičiavimą tai:

sum = pp*(1 + p1)^n

pp - pradinis įnašas

p1 - procentai (pavyzdys: p1 = 0.1 (o tai 10%))

n - metai

Lyginimą turbūt jau pats galėsi padaryti.

Aciu labai :)

Kad nekurti naujos temos tai parasysiu cia. Kitam uzdavinyje man reikia surasti teigiamu nariu vidurki, bandziau rasyti, bet atsakymas gaunasi ne toks.

      while n <> 0 do
     begin
         if n > 0 then begin teigiami := teigiami + 1;
         vid := (vid + n) / teigiami;
         end;

Gal galit perzvelgti kas cia blogai?

program Noname0;
var suma,skaicius,visi,vid:real;
   i:integer;
begin
   visi:=1;
   for i:=1 to 100 do
       begin
           readln(skaicius);
           suma:=suma+skaicius;
           vid:=suma / visi;
           writeln('Vidurkis ',vid:2:2);
           Writeln;
           visi:=visi+1;
       end;
end.

Iš pradžių perskaitai skaičių, pridedi jį prie visų skaičių sumos, tada dalini iš skaičių kiekio kurį didini kiekvieną kartą įvedus skaičių. :)

Man reikia ne visu, o tik teigiamu, bet dekui jau issisprendziau :)

Tai tokiu atvėju tereiktų pridėti if skaicius > 0 then suma:=suma+skaicius;