Программа определения вида четырёхугольника по прилежащим сторонам a, b и углу между ними х (в градусах)

[Dess1996]

Составить программу для определения вида параллелограмма по прилежащим сторонам a, b и углу между ними х (в градусах). Определите один из видов: ромб, прямоугольник, квадрат, обыкновенный параллелограмм. Заранее спасибо.


______________
Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В последующем, темы с подобным названием будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.
Учтите это на будущее.

Модератор.

[Leshii]

Почитай. Я смотрю по гуглу ты уже везде успел забросить условие задачи.( авось решат ) Честно говоря, из принципа помогать не хочется ...

[Dess1996]

program ABC;
var x,y: integer;
begin
readln(x);
readln(y);
write('Введите координаты x =',x);
write('Введите координаты у =',y);
if(x>0 ) and (y>0) then writeln('1 четверть');
if(x<0 ) and (y>0) then writeln('2 четверть');
if(x>0 ) and (y<0) then writeln('3 четверть');
if(x<0 ) and (y<0) then writeln('4 четверть');
if(x=0 ) and (y=0) then writeln('Точка лежит в начале координат');
end.

[Leshii]

Уважаемый, выше вами написанное никакого отношения к вашей же задаче не имеет. За дурачка держите ?

[Dess1996]

Я написал не то)

program TASK;
var a,b,x:integer;
begin
read(a);
read(b);
read(x);
writeln('Введите сторону а=',a);
writeln('Введите сторону b=',b);
writeln('Введите угол х=',x);
If((a=b) and (x=90) and(x<180))  then writeln ('Четырёхугольник является квадратом');
If((a<>b) and (x=90)and(x<180)) then writeln ('Четырёхугольник является прямоугольником');
If((a<>b) and (x<>90)and(x<180)) then writeln ('Четырёхугольник является паралелограмом');
If((a=b) and (x<>90)and(x<180)) then writeln ('Четырёхугольник является ромбом');
If((a=b) and (x=90) and(x>180))  then writeln ('Не имеет смысла');
If((a<>b) and (x=90)and(x>180)) then writeln ('Не имеет смысла');
If((a<>b) and (x<>90)and(x>180)) then writeln ('Не имеет смысла');
If((a=b) and (x<>90)and(x>180)) then writeln ('Не имеет смысла');
End.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Leshii]

Весь интернет трудился на решением сей задачи

[Serge_Bliznykov]

Dess1996, много-много-много лишних условий..

ведь Вам фактически надо проверить то, что угол меньше 180 градусов (иначе 4-х угольник не может существовать),
стороны a b равны или не равны и угол между ними равен 90 или не равен.

это можно записать так:

  writeln('Введите сторону а=',a);
  writeln('Введите сторону b=',b);
  writeln('Введите угол х=',x);
  if x>=180 then writeln('Не имеет смысла')
  else 
     if a=b then begin
         if x=90 then writeln('Четырёхугольник является квадратом')
         else writeln('Четырёхугольник является ромбом')
     end
     else  
         if x=90 then writeln('Четырёхугольник является прямоугольником')
         else writeln ('Четырёхугольник является паралелограмом');

можно и все условия объединить (хоть это и хуже решение), так, как это сделали Вы:

тогда

program TASK;
var a, b, x: integer;
begin
  read(a);
  read(b);
  read(x);
  writeln('Введите сторону а=', a);
  writeln('Введите сторону b=', b);
  writeln('Введите угол х=', x);
  if (a = b) and (x = 90)  then writeln('Четырёхугольник является квадратом');
  if (a <> b) and (x = 90)  then writeln('Четырёхугольник является прямоугольником');
  if ((a <> b) and (x <> 90) and (x < 180)) then writeln('Четырёхугольник является паралелограмом');
  if ((a = b) and (x <> 90) and (x < 180)) then writeln('Четырёхугольник является ромбом');
  if (x >= 180)) then writeln('Не имеет смысла');
end.

очевидно, что первый вариант и красивее и нагляднее...

[s-andriano]

1. Угол - по смыслу величина вещественная, а сравнивать вещественные величины на равенство - занятие неблагодарное.
2. Если уж мы предполагаем, что угол на входе - величина не нормализованная, то следовало бы не тупо отбрасывать >180, а привести к нормализованному виду, например, при угле 270 будет вполне себе нормальный прямоугольник.

[Serge_Bliznykov]

с первым замечанием - это к автору поста. у него и длины сторон и угол - ЦЕЛОЧИСЛЕННЫЕ величины
и, имхо, раз, в условии не сказано обратного, программист вполне волен принимать подобные допущения!

по второму вопросу. А Вы не слишком глубоко копнули?! А Вам слабо нарисовать треугольник, у которого один угол 270 градусов?
Нарисовали?
А потом объясните, почему он именно 270 ( а не 90 градусов) ок?
и заодно расскажите, пожалуйста, куда в таком случае идёт теорема о том, что сумма углов треугольника равна 180 градусов ? (кстати, а четырёхугольника - 360 )


ох.. чувствую, во флуд скатываемся...

[s-andriano]

Сообщение от Serge_Bliznykov

по второму вопросу. А Вы не слишком глубоко копнули?!

Нет.
На мой взгляд, вариант в проверкой на >= 180 нелогичен и половинчат.
Следовало либо вообще не рассматривать вариант >=180, либо рассмотреть его аккуратно - т.е. с нормализацией угла.

программист вполне волен принимать подобные допущения!

Любой человек волен принимать любые допущения, вопрос лишь в том, к каким результатам может привести данное допущение.