Witamy na forum PC Format Zapraszamy do REJESTRACJI


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

pascal potega

#1
pascal potega
witam mam takie zadanie:
program potega;
uses SysUtils;
var x:real;
n:integer;
function Potega(podstawa:real; wykladnik:integer):real;
var wynik:real;
i:integer;
begin
wynik:=1;
for i:=1 to wykladnik do
wynik:=wynik*podstawa;
potega:=wynik;
end;
begin
writeln('Podaj podstawe');
readln(x);
writeln('Podaj wykladnik');
readln(n);
writeln(x:8:2, 'do potegi',n,'=',Potega(x,n):8:2);
writeln('czekam na enter');
readln;
end.

oto zadanie:

wykorzystaj zamieszczoną w przykładzie funkcje Potęga do obliczenia wartości wyrażenia:

(a^x +b^x)^y\(a+b)^(x+y)

czy to będzie wyglądało mniej więcej tak:

Program potega;
uses SysUtils;
function Potega(podstawa:real; wykladnik:integer):real;
var wynik:real;
i:integer;
begin
wynik:=1;
for i:=1 to wykladnik do
wynik:=wynik*podstawa;
potega:=wynik;
end;

var a,b:real; x,y:integer;
begin
write('a '); read(a);
write('b '); read(b);
write('x '); read(x);
write('y '); readln(y);
writeln(potega(potega(a,x) + potega(b,y),y) / potega(a+b,x+y));
end.

??
 System operacyjny: linux Przeglądarka: firefox
Programy: Polecane / Nowe / Inne




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

Skocz do:


Wybrane wątki (pascal potega)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  [Java] Strona z zadaniami do rozwiązania i odpowiedziami rafal12999 2 8857 27.01.2019 13:44
Ostatni post: rafal12999
  kompilacja biblioteki Agui - cmake jurek2 0 8162 10.01.2019 13:12
Ostatni post: jurek2
  Zamiana całego zestawu znaków wg przyporządkowania BarHorab 5 8863 19.12.2018 16:45
Ostatni post: Szachista
  Sumowanie licz excel - problem OxyGenE 2 11532 19.12.2018 16:29
Ostatni post: Szachista
  Jaki kod pod pewne zdarzenia visualbasic 2010 aktywny27 4 9319 07.11.2018 13:41
Ostatni post: Ajgor
Scared Ipad Pro programowanie? NissmoOne 4 10369 06.10.2018 12:22
Ostatni post: NissmoOne
  C# pierwsza pusta komórka Excel DonCorleone 0 9371 21.09.2018 16:58
Ostatni post: DonCorleone
  .bat nie kompresuje plików GIENTY 3 9914 06.09.2018 07:20
Ostatni post: broda99
  problem z programem .bat wiktrom12 4 11124 30.08.2018 08:25
Ostatni post: wiktrom12
  Silnik do gier ZigglerGames 1 9750 23.08.2018 09:03
Ostatni post: Szachista
  Chciałbym zrobić prosty plik exe z jedną funkcją densour 4 10532 09.08.2018 16:24
Ostatni post: Ajgor
  Który język wybrać do stworzenia aplikacji synchronizujące pliki z urządzeniem mobiln Elemental 2 2601 18.07.2018 12:05
Ostatni post: Ajgor
  Pomysł napisania programu ROM FireBytes 3 11109 28.06.2018 16:56
Ostatni post: FireBytes
  [VBA] Tworzenie nowego arkusza z danymi z TextBox'a Pioro 4 11531 19.06.2018 23:24
Ostatni post: broda99
  Potwierdzenie na maila po wysłaniu pliku coci 0 10626 13.06.2018 20:37
Ostatni post: coci