Treść zadania

Najlepsze rozwiązanie

• 

  1 0

  antekL1 5.6.2011 (10:44)

  Poszukałem w liczbach całkowitych, do 1000. (program w DevPascal niżej)
  Ma to rozwiązania, jeśli prostokąt jest kwadratem.
  Oczywiście być może istnieją rozwiązania gdy bok prostokąta jest liczbą rzeczywistą,
  - może jakaś chytra geometryczna konstrukcja byłaby przydatna, ale nie mam pomysłu.
  To zdanie : "żadna z niech nie jest kwadratem liczby naturalnej" może być jakąś wskazówką".
  
  Dla kwadratu o boku 60 : x =3 ; y = 6
  
  ----------- program -------------
  program liczby;
  const maks = 1000;
  var a,b,x,y, ile : Longint;
  
  begin
  ile := 0;
  writeln('ctrl/c aby przerwac');
  for a:=1 to maks do
  begin
  write(a, ' ');
  for b := 1 to a do
  begin
  for x:= 1 to a-1 do for y := 1 to a-1 do
  begin
  if (1000*(a-x)*(b+y) = a*b*(1000 + 45)) and
  (1000*(a-y)*(b+x) = a*b*(1000 - 55))
  
  // Zakomentuj ten warunek - będą rozwiazania !
  and (a b)
  
  then
  begin
  ile := ile + 1;
  writeln; writeln('a=', a, ' b=', b, ' x=', x, 'y=', y);
  write('Nacisnij ENTER aby szukac dalej...');
  readln;
  end;
  end;
  end;
  end;
  writeln; writeln('Testując do ', maks, ' znalazlem ', ile, ' rozwiazan');
  write('Koniec, nacisnij ENTER aby skasować okno DOS-u');
  readln;
  end.

  Dodawanie komentarzy zablokowane - Zgłoś nadużycie