Witamy na forum PC Format Zapraszamy do REJESTRACJI


Użytkownicy przeglądający ten wątek: 1 gości

[Pascal] Program potęgujący

#1
[Pascal] Program potęgujący
Witam, mam do zrobienia takie (dla was trywialne) zadanie:
Program obliczający kolejne potęgi l. naturalnej aż do uzyskania potęgi >= liczbie podanej jako druga dana.
Nie mam jednak pojęcia jak zrobić, aby potęgowało na zasadzie a*a=b, b*b=c, c*c=d, itd.

Jestem bardzo początkujący i oto co udało mi się zrobić, zanim zrozumiałem, że jest to kompletnie źle (byłbym wdzięczny, jakby ktoś mi pomógł na podstawie tego kodu).
Kod:
program potega;
uses crt;
var
a,b,c:integer;
begin
clrscr;
writeln ('Podaj liczbe naturalna');
readln (a);
writeln ('Podaj druga liczbe');
readln (b);
repeat
writeln ('Potega wynosi: ',a*a);
readln (c);
until c>=b
end.
 System operacyjny: windows_seven Przeglądarka: firefox
#2
RE: [Pascal] Program potęgujący
Pokaż jakiś przykład.
Nie pomagam na PW (ew. odpłatnie). 
I osobom z roszczeniowym podejściem. I osobom niedbającym o poprawność językową.
Jak podawać logi
Jeśli nie odpowiadam w danym wątku przez >3 dni - proszę o przypomnienie na PW z linkiem do wątku w treści.




 System operacyjny: windows_xp_2003 Przeglądarka: firefox
#3
RE: [Pascal] Program potęgujący
Widzę, że trochę walnąłem się przy opisywaniu problemu. W zadaniu chyba chodzi o to, aby obliczać kolejne potęgi liczby a z wykładnikami 2,3,4,5... do momentu przewyższenia liczby b. Mam nadzieje, że do tego konkretny przykład nie potrzebny, bo piszę z komórki i trochę to trwa.
 Przeglądarka: opera
#4
RE: [Pascal] Program potęgujący
Kod:
Wczytaj: a, b
Dopóki a<b
  Wypisz a
  a:=a*a
 System operacyjny: windows_xp_2003 Przeglądarka: firefox
#5
RE: [Pascal] Program potęgujący
Byłeś blisko:
Kod:
Program Potega;
uses crt;
var a,b,c,i:integer;

begin
clrscr;
writeln ('Podaj liczbe naturalna');
readln (a);
writeln ('Podaj druga liczbe');
readln (b);
c:=1;
i:=0;
repeat
c:=c*a;
i:=i+1;
until c>b;
write ('Potega wynosi: ');
writeln (i);
end.
Nie pomagam na PW (ew. odpłatnie). 
I osobom z roszczeniowym podejściem. I osobom niedbającym o poprawność językową.
Jak podawać logi
Jeśli nie odpowiadam w danym wątku przez >3 dni - proszę o przypomnienie na PW z linkiem do wątku w treści.




 System operacyjny: windows_xp_2003 Przeglądarka: firefox
#6
RE: [Pascal] Program potęgujący
Racja, mój błąd (podstawa nie powinna była się zmieniać)
Kod:
Wczytaj: a, b
c := a
Dopóki c<b
  c := c*a
 System operacyjny: windows_xp_2003 Przeglądarka: firefox
#7
RE: [Pascal] Program potęgujący
Ok, dzięki za pomoc.
 System operacyjny: windows_vista Przeglądarka: firefox
Programy: Polecane / Nowe / Inne



Użytkownicy forum szukali:
pascal program obliczający potenge nprogram do potegowania pascalprogram obliczajacy potege pascal

Podobne wątki ([Pascal] Program potęgujący)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  dev pascal, problem z funkcją kwadratową Sentinel24 4 8120 21.10.2016, 11:20
Ostatni post: koneton
  [Pascal/Delphi] Sortowanie quicksort oraz scalanie. Chudy2000 3 8113 01.05.2016, 22:34
Ostatni post: Szachista
  NWD i NWW - pascal (pomocy) MatGpu 1 7455 19.02.2016, 17:25
Ostatni post: Szachista

Skocz do:


Wybrane wątki ([Pascal] Program potęgujący)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  [C#] Program do moderacji czatów gier wiktrom12 0 7350 07.03.2019 15:33
Ostatni post: wiktrom12
  Mój pierwszy projekt - Pomoc rafal12999 1 7796 07.02.2019 22:01
Ostatni post: Szachista
  pomoc projekt scilab piesel18 2 9205 04.02.2019 09:03
Ostatni post: piesel18
  Szkoła Informatyczna Zikinan 1 8078 02.02.2019 17:59
Ostatni post: wojownikhaha
  [Java] Strona z zadaniami do rozwiązania i odpowiedziami rafal12999 2 8795 27.01.2019 13:44
Ostatni post: rafal12999
  kompilacja biblioteki Agui - cmake jurek2 0 8110 10.01.2019 13:12
Ostatni post: jurek2
  Zamiana całego zestawu znaków wg przyporządkowania BarHorab 5 8801 19.12.2018 16:45
Ostatni post: Szachista
  Sumowanie licz excel - problem OxyGenE 2 11482 19.12.2018 16:29
Ostatni post: Szachista
  Jaki kod pod pewne zdarzenia visualbasic 2010 aktywny27 4 9266 07.11.2018 13:41
Ostatni post: Ajgor
Scared Ipad Pro programowanie? NissmoOne 4 10313 06.10.2018 12:22
Ostatni post: NissmoOne
  C# pierwsza pusta komórka Excel DonCorleone 0 9316 21.09.2018 16:58
Ostatni post: DonCorleone
  .bat nie kompresuje plików GIENTY 3 9865 06.09.2018 07:20
Ostatni post: broda99
  problem z programem .bat wiktrom12 4 11073 30.08.2018 08:25
Ostatni post: wiktrom12
  Silnik do gier ZigglerGames 1 9695 23.08.2018 09:03
Ostatni post: Szachista
  Chciałbym zrobić prosty plik exe z jedną funkcją densour 4 10471 09.08.2018 16:24
Ostatni post: Ajgor