FREE PASCAL (Skubiai)

Sveiki, parašykite kaip reikia išspręsti tokią salygą:

Turime m kiekį pinigų. Padedame juos į banką ir po metų pasiimame visą įdėtą sumą, bei gauname 10procentų palūkanų. Taigi, po metų turime jau 10-čia procentų daugiau pinigų. Visus juos vėl padedame į banką ir vėl po metų atsiimame su palūkanomis. Reikia rasti, po kiek metų mes turėsime q kiekį pinigų.

Sudarykite programą šiam uždaviniui spręsti. Vartotojas įveda skaičius m ir q. Skaičius q turi būti didesnis už m, o priešingu atveju programa turi pranešti apie klaidą. Programa turi pasakyti, po kiek metų turėsime pageidaujamą sumą.

Čia turi būti naudojamas ciklas while.

program palukanos;
var n : integer;
   q, m : real;
begin
 WriteLn('iveskite q ir m');
 readln(q, m);
 if q > m
   then begin
            while m < q do
               begin
                m := m + 0.1 * m;
                n += 1;
               end;
           writeln('po ', n, ' metų');
        end
   else writeln('klaida');
   Readln;
 end.

manau taip

Blogai, nes pvz pabandyk įvesti q = 20, m = 10, tūrėtų būti n = 10, bet meta n = 8 :)

Blogai, nes pvz pabandyk įvesti q = 20, m = 10, tūrėtų būti n = 10, bet meta n = 8 :)

EDIT:

Paredagavau agnek21 programa:

program Palukanos;
var m, q : real;
    metai : integer;
    paluk : real;
begin
 WriteLn( 'Iveskite m ir q' );
 ReadLn( m, q );
 paluk := m * 0.1;
 if q > m then
           begin
               while m < q do
                   begin
                       m := m + paluk;
                       metai := metai + 1;
                   end;
               WriteLn( 'Jusu nurodyta suma bus po: ' , metai , ' metu' );
           end
          else WriteLn( 'Klaida' );
 Readln;
end.

Po pirmų metų jis jau turės 11LTL, todėl su 10% dar kitais metais pas jį bus nebe 12LTL, bet 12.1LTL. Tad FaitasS, pats laikas eiti graužti matematikos :)

Atsiprašau, biški suklydau :)

Labai ačiū :) Truputį nespėjot, bet kažką panašaus ir pats padariau. Tik dabar nežinia koks bus įvertinimas. Be to, pascalio mokausi tik pirmus metus (~7 paskaitose buvau iš ~8)

Pataisysiu truputi FaitasS, palukanos turi but skaiciujamos kiekvienais metais is naujos sumos taigi:

program Palukanos;
var m, q : real;
     metai : integer;
     paluk : real;
begin
  WriteLn( 'Iveskite m ir q' );
  ReadLn( m, q );
  if q > m then
            begin
                while m < q do
                    begin
                        paluk := m * 0.1;
                        m := m + paluk;
                        metai := metai + 1;
                    end;
                WriteLn( 'Jusu nurodyta suma bus po: ' , metai , ' metu' );
            end
           else WriteLn( 'Klaida' );
  Readln;
end.

 Viska tagus tenka ranka rasyt, nes kaskodel neveikia knopkes is virsaus ;/