.: Ing. Petr Stránský - Závěrečná práce RSI :.

04.28 Řešení rovnice I

Zadání:
Sestavte program, který najde dvojici celých čísel z intervalu 1..10, která vyhovuje rovnici 3^x-1=2^y.

Řešení:
Pomocí dvou vnořených cyklů FOR pro proměnnou x a y prověříme všechny dvojice čísel z intervalu 1..10. Pro každou
dvojici pomocí cyklu FOR vypočteme hodnotu 3^x a 2^y a poté ověříme, zda zadaná dvojice vyhovuje zadané rovnici.
Pokud ano, dvojici vytiskneme.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var x,y,mx,my,i:integer;

begin

   for x:=1 to 10 do
      for y:=1 to 10 do
      begin
         mx:=1;
         my:=1;
         for i:=1 to x do
            mx:=mx*3;
         for i:=1 to y do
            my:=my*2;
         if mx-1=my then writeln(x:3,y:3);
      end;

   readln;

end.

program ke stažení

Navigace: Hlavní stránka -> PASCAL -> 04 Cykly -> 04.28 Řešení rovnice I

MENU

04.28 Řešení rovnice I