Pascal – Ntá mocnina (Úlohy)

Ahoj, dnes jsme ve škole se potýkali s menším problémem co se týče mocniny na N-tou. Tento problém jsem vyřešil. Předem vás musím informovat, že existují různé způsoby pro zjištění mocniny na N-tou.

Řešení může být pomocí cyklů (While,For) a nebo pomocí funkcí, které Pascal nabízí. To si tedy teď ukážeme.

program MocninaN;

begin

end.

Máme základ. Nejdříve deklarujeme proměnné a to (a,b,expon) a všechny tyto proměnné budou obsahovat datový typ real. Takže si to vložte do vašeho kódu pod (program MocninaN;)a bude to vypadat takto:

program MocninaN;
var a,b,expon:real;
begin

end.

Pokud vás zajímá proč datový typ real, tak typ real definuje množinu reálných čísel (desetinná čísla).

Teď přejdeme k samotnému čtení z klávesy. Program musí znát číslo, které bude umocněno a mocnitele.

Takže pod základní funkci BEGIN vložíme následující kód. Kód vypisuje text na obrazovku a čte zadané informace, které zapisuje do proměnných:

program MocninaN;
var a,b,expon:real;
begin
  write('Zadejte a: ');
  readln(a);
  write('Zadejte exponent: ');
  readln(expon);
end.

Máme tedy tuto podobu kódu kdy program vypíše co máme dělat a my jen zadáme číselnou hodnotu a potvrdíme klávesou Enter. Hodnoty se zapíší do příslušných proměnných, ale stále to neřeší náš problém. Takže, aby jsme docílili naší mocniny na N-tou, tak budeme potřebovat využít jednotku math. Zápis je jednoduchý, napíšeme to pod první řádek (program MocninaN;), proměnné budou na 3. řádku a naše jednotka math bude na druhém řádku ihned pod názvem programu a to v této podobě.:

program MocninaN;
uses math;
var a,b,expon:real;

Takto tedy bude vypadat zápis. Voláme tím jednotku math, která obsahuje další funkce a tou naší funkci, kterou teď použijeme je power. Tato naše funkce vyřeší konečně naše mocniny na N-tou. Syntaxe je velice jednoduchá:  power (cislo, exponent);

My číslu přiřadíme proměnnou ‚a‚, exponentu přiřadíme to na kolikátou chceme číslo umocnit. A program výsledek z našich výchozích čísel. Ale ještě zde máme proměnnou typu ‚b‚,která bude obsahovat náš výsledek. Kód se bude nacházet pod posledním čtením z klávesy a vypadat to bude přesně takto:

program mathes;
uses math;
var a,b,expon:real;

begin
  write('Zadejte a: ');
  readln(a);
  write('Zadejte exponent: ');
  readln(expon);
  b := power(a, expon);
end.

Ještě tu chybí poslední příkaz pro výpis výsledku. A ten napíšete hned pod poslední příkaz obsahující power.

write('Vysledek: ',b:0:0);

Náš program je vyřešen, tedy můžeme kompilovat. Ještě pro vysvětlení (b:0:0), b charakterizuje výsledek, první nula charakterizuje počet celkových míst a druhá nula určuje počet desetinných míst. My máme nulu, tedy žádné desetinné čísla. Výsledný kód vypadá takto:

program mathes;
uses math;
var a,b,expon:real;

begin
  write('Zadejte a: ');
  readln(a);
  write('Zadejte exponent: ');
  readln(expon);
  b := power(a, expon);

  write('Vysledek: ',b:0:0);
  readln();
end.

Kód je ke stažení na adrese: https://docs.google.com/file/d/0B8QIMU4_EFTyWFRmNzd6OEJnRlk/edit?usp=sharing

Příspěvek byl publikován v rubrice Pascal se štítky , , , , , , , . Můžete si uložit jeho odkaz mezi své oblíbené záložky.

Napsat komentář

Vaše emailová adresa nebude zveřejněna. Vyžadované informace jsou označeny *

Můžete používat následující HTML značky a atributy: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>