04.29 Řešení rovnice II
Zadání:
Sestavte program, který najde dvojici celých čísel z intervalu 1..10, která vyhovuje rovnici 4a=9b-65.
Sestavte program, který najde dvojici celých čísel z intervalu 1..10, která vyhovuje rovnici 4a=9b-65.
Řešení:
Pomocí dvou vnořených cyklů FOR pro proměnnou a a a prověříme všechny dvojice čísel z intervalu 1..10. Pro každou
dvojici pomocí cyklu FOR vypočteme hodnotu 4^a a 9^b a poté ověříme, zda zadaná dvojice vyhovuje zadané rovnici.
Pokud ano, dvojici vytiskneme.
Pomocí dvou vnořených cyklů FOR pro proměnnou a a a prověříme všechny dvojice čísel z intervalu 1..10. Pro každou
dvojici pomocí cyklu FOR vypočteme hodnotu 4^a a 9^b a poté ověříme, zda zadaná dvojice vyhovuje zadané rovnici.
Pokud ano, dvojici vytiskneme.
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var a,b,ma,mb,i:integer;
begin
for a:=1 to 10 do
for b:=1 to 10 do
begin
ma:=1;
mb:=1;
for i:=1 to a do
ma:=ma*4;
for i:=1 to b do
mb:=mb*9;
if ma=mb-65 then writeln(a:3,b:3);
end;
readln;
end.
program ke stažení