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 8129 21.10.2016, 11:20
Ostatni post: koneton
  [Pascal/Delphi] Sortowanie quicksort oraz scalanie. Chudy2000 3 8118 01.05.2016, 22:34
Ostatni post: Szachista
  NWD i NWW - pascal (pomocy) MatGpu 1 7459 19.02.2016, 17:25
Ostatni post: Szachista

Skocz do:


Wybrane wątki (pascal potega)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  kompilacja biblioteki Agui - cmake jurek2 0 8129 10.01.2019 13:12
Ostatni post: jurek2
  Zamiana całego zestawu znaków wg przyporządkowania BarHorab 5 8829 19.12.2018 16:45
Ostatni post: Szachista
  Sumowanie licz excel - problem OxyGenE 2 11511 19.12.2018 16:29
Ostatni post: Szachista
  Jaki kod pod pewne zdarzenia visualbasic 2010 aktywny27 4 9299 07.11.2018 13:41
Ostatni post: Ajgor
Scared Ipad Pro programowanie? NissmoOne 4 10348 06.10.2018 12:22
Ostatni post: NissmoOne
  C# pierwsza pusta komórka Excel DonCorleone 0 9346 21.09.2018 16:58
Ostatni post: DonCorleone
  .bat nie kompresuje plików GIENTY 3 9893 06.09.2018 07:20
Ostatni post: broda99
  problem z programem .bat wiktrom12 4 11101 30.08.2018 08:25
Ostatni post: wiktrom12
  Silnik do gier ZigglerGames 1 9725 23.08.2018 09:03
Ostatni post: Szachista
  Chciałbym zrobić prosty plik exe z jedną funkcją densour 4 10502 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 2593 18.07.2018 12:05
Ostatni post: Ajgor
  Pomysł napisania programu ROM FireBytes 3 11082 28.06.2018 16:56
Ostatni post: FireBytes
  [VBA] Tworzenie nowego arkusza z danymi z TextBox'a Pioro 4 11505 19.06.2018 23:24
Ostatni post: broda99
  Potwierdzenie na maila po wysłaniu pliku coci 0 10601 13.06.2018 20:37
Ostatni post: coci
  Pieczętowanie Archiwum Jar - Po co? wanhelsing 3 11198 19.05.2018 20:55
Ostatni post: koneton