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

Skocz do:


Wybrane wątki (pascal potega)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  Silnik do gier ZigglerGames 1 9739 23.08.2018 09:03
Ostatni post: Szachista
  Chciałbym zrobić prosty plik exe z jedną funkcją densour 4 10520 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 2597 18.07.2018 12:05
Ostatni post: Ajgor
  Pomysł napisania programu ROM FireBytes 3 11099 28.06.2018 16:56
Ostatni post: FireBytes
  [VBA] Tworzenie nowego arkusza z danymi z TextBox'a Pioro 4 11520 19.06.2018 23:24
Ostatni post: broda99
  Potwierdzenie na maila po wysłaniu pliku coci 0 10617 13.06.2018 20:37
Ostatni post: coci
  Pieczętowanie Archiwum Jar - Po co? wanhelsing 3 11214 19.05.2018 20:55
Ostatni post: koneton
  Wyszukiwarka w spawnerze nie reaguje na polskie znaki kazik666 0 10858 16.05.2018 12:04
Ostatni post: kazik666
  BASH symulator silnika dawswi1 3 10917 13.05.2018 10:43
Ostatni post: Szachista
  Autohotkey automatyczny zapis TheProgson 0 10466 07.05.2018 21:27
Ostatni post: TheProgson
  VBA Pobieranie wybranych plików z danymi julietta03 1 10799 04.05.2018 08:25
Ostatni post: broda99
  [VBA] Przenoszenie danych między formularzami Pioro 4 11276 23.04.2018 11:48
Ostatni post: broda99
  Skrypt, który szuka i zamienia armen10 2 10713 23.04.2018 10:04
Ostatni post: armen10
  Liniowa regresja w Pythonie a budowanie modelu Trojan3000 2 10822 16.04.2018 13:26
Ostatni post: Trojan3000
  Początki z bashem - jak napisać skrypty: wysłanie maila i kalkulator? Kristov81 4 14643 21.03.2018 18:32
Ostatni post: Szachista