Программирование условий и циклов, (заголовок изменен) Опции

[Lamer Master]

первая задача на (на условия) использовать только програмирование условий.

"Точки в одной полуплоскости"
Даны действительные числа x1,y1,x2,y2,x3,y3,x4,y4.
известно, что точки (х3,у3) и (х4,у4) различны. Известно также, что точки
(х1,у1) и (х2,у2) не лежат на прямой L, проходящей через точки (х3,у3) и (х4,у4). Прямая L разбивает координатную плоскость на две полуплоскости.
Выяснить, верно ли, что точки (х1,у1) и (х2,у2) принадлежат одной и той же полуплоскости.


и вторая задачка (на циклы) использовать только циклы.
"Сумма трёх квадратов"
Дано натуральное число n. Можно ли представить его в виде суммы трёх квадратов натуральных чисел? Если можно, то указать все различные тройки x,y,z таких натуральных чисел, что n=х в квадрате + у в квадрате + z в квадрате .


Вот собственно и всё..
помогите разобратся плиз !!

ведь не страшно быть ламером, а страшно им остатся !
а я тока учусь..

М

Lamer Master, я изменил название темы... В следующий раз давай более подходяший заголовок !!! volvo

[Altair]

1. лежат ли 2 точки с одной стороны прямой.

2. попробуй для начала перебором.

название темы редактируй.
правила фоурма читай.


p.s.
2

{Дано натуральное число n. Можно ли представить его в виде суммы трёх
  квадратов натуральных чисел. Если можно, то укaзать числа X,Y,Z такие что
  N=X*X+Y*Y+Z*Z
}
var
  n: byte;      {Входной параметр}
  i,j,k: byte;  {Счётчики циклов}
begin
  {Вводим n}
  write('Введите параметр n: ');
  readln(n);
  {Подсчитываем варианты}
  writeln('Варианты:');
  for i:=0 to n do
    for j:=0 to n do
      for k:=0 to n do
        if i*i+j*j+k*k = n then
          writeln('X=',i,' Y=':5,j,' Z=':5,k,' ':5,i,'*',i,'+',j,'*',j,'+',
                  k,'*',k,'=',n)
end.

Сообщение отредактировано: Altair - 9.11.2005 0:04