Pascal - Konsolowe

Potęgowanie do granicy

Potęgowanie do granicy
Pascal - Konsolowe

Program: potęgujący wprowadzoną liczbę aż do przekroczenia granicy.

Nie jest to do końca potęgowanie, a mnożenie przez liczbę podaną przez użytkownika, aż do osiągnięcia granicy.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

Program KolejnePotegi;
uses crt;
var a,b,w:longint;
begin
     clrscr;
     Write('Podaj liczbe pierwsza: ');
     read (a);
     write('Podaj granice: ');
     read (b);
     w:=1;
     IF (a<=0) OR (b<=0) then
     writeln('Wprowadziles liczbe mniejsza lub rowna zero. Sprobuj jeszcze raz!')
     else
     if (a=1) and (b>0) then writeln('Wynik: 1. Wynik nie przekroczy drugiej liczby!')
     else
     begin
          repeat
          w:=w*a;
          Writeln('Wynik: ',w);
          until w>=b;
     end;
     readkey;
end.