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
  Baza danych - dzialania, Pascal Jamuna 2 898 10.04.2021, 19:08
Ostatni post: softwareman
  dev pascal, problem z funkcją kwadratową Sentinel24 4 10242 21.10.2016, 11:20
Ostatni post: koneton
  [Pascal/Delphi] Sortowanie quicksort oraz scalanie. Chudy2000 3 9936 01.05.2016, 22:34
Ostatni post: Szachista

Skocz do:


Wybrane wątki (pascal potega)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  Oczekiwanie na Akcje przycisku wanhelsing 8 12091 01.03.2020 19:44
Ostatni post: Szachista
Toungue Wybór szkoły średniej przez potencjalnego programistę Zikinan 1 11230 09.02.2020 15:58
Ostatni post: dzikuu86
  Poszukuję pomysłu na prosty program ;) janciu96 5 20415 13.12.2019 23:32
Ostatni post: Ajgor
  Programowanie Batch (CMD) Informatyk2019 0 11494 11.12.2019 18:30
Ostatni post: Informatyk2019
  [JavaScript] Znajdowanie przedziału czasu rafal12999 0 5030 10.12.2019 17:58
Ostatni post: rafal12999
  Przekazywanie wskaźnika przez referencję w Qt Trojan3000 3 19425 10.12.2019 13:16
Ostatni post: Ajgor
  Proszę o pomoc w uzupełnieniu ankiety dt. Zawodu Programisty MaleMonki 0 5017 17.11.2019 12:47
Ostatni post: MaleMonki
  Spring framework – jakie strony polecacie do nauki? olek23 5 12365 15.11.2019 15:57
Ostatni post: Alsenas
  Programowanie windy (problem) w C++ mysza2323 2 11904 06.11.2019 23:04
Ostatni post: mysza2323
  Programy w C ~Anonim 1 12019 22.10.2019 17:48
Ostatni post: Szachista
  Wyświetlanie informacji z bazy danych na stronie www PitPlay 1 12451 16.09.2019 11:18
Ostatni post: Ajgor
  Błąd przy uruchamianiu programu w Java z wiersza poleceń Physicist 3 5394 30.08.2019 14:16
Ostatni post: Physicist
  Python z wiersza poleceń Physicist 15 33173 21.08.2019 20:14
Ostatni post: Physicist
  Transfer plików via FTP Visual Basic FireBytes 3 7921 15.08.2019 07:41
Ostatni post: Szachista
  Menu wysuwane z boku patryk67 1 12051 07.08.2019 12:43
Ostatni post: aht