Помогите составить программу на Delphi.. (1 курс)

[gree]

Как я понял программа должна быть с 2 условиями, ну и соответственно для выполнения (невыполнения) этих условий нужно выполнить действия.. Задача с очень непонятным условием, толи x,y,z это угловые коэфициенты (тоесть при проверке условия: Образуют ли углы x,y,z треугольник мы в сумме должны получить 180)...... А второе условия я незнаю как задать.... в общем ХЭЛП!!!

[puporev]

1.У Вас четко написано, что x,y,z- величины углов.
2. Если в школу ходили хотя бы через день, то все-равно должны знать, что тупоугольным треугольником называется такой, у которого один угол больше 90 градусов.
3.Поскольку углы заданы в радианах, то 90 градусов это pi/2 радиан.
4. Т.к. сумма углов в треугольнике при вещественных числах не может быть ровно pi, то применяется понятие погрешности. Ввводится погрешность, например е=0,00000001. И пишем, если abs(x+y+z-pi)<e, то это треугольник.

[Serge_Bliznykov]

puporev, тысячу извинений, коллега.

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

Поскольку углы заданы в радианах

- простите, а это из чего следует? Раза три прочитал первый пост, но не понял, откуда Вы сделали вывод... :-( я проглядел что-то?...

[puporev]

Действительно, погорячился. Могут быть и градусы.

[gree]

вот такие пираги... и вчём считать?

Короче вопрос таков, как прописать последние 3 условия при которых мы проверяем каждый угол на соответствие!? О_о или это можно вообще по другому сделать??
вот блок схема, которая как я понимаю должна быть...

и вот наковырял кое что с градусами, это всё.. остальное я не понимаю как писать.. хэлп ми..:

procedure TForm1.Button1Click(Sender: TObject);
var: x, y, z: real;
begin
x:= StrToFloat(Edit1.Text);
 y:= StrToFloat(Edit2.Text);
  z:= StrToFloat(Edit3.Text);
if x+y+z=180 then 
...
begin
end;

end.

[puporev]

??? Считай в градусах. Это вообщем-то не важно. Задача на тему правильного сравнения вещественных чисел, то что сумма трех вещественных чисел не может быть равна целому числу, но может быть сколь угодно близкой к нему.

[gree]

ну я понимаю, но не знаю как записать 3 подряд идущих условия((

[puporev]

Я бы написал так. Мне кажется так понятнее.

var x,y,z,e:real;
     b:boolean; //да или нет
begin
repeat
write('x=');readln(x);
write('y=');readln(y);
write('z=');readln(z);
until (x>0)and(x<180)and(y>0)and(y<180)and(z>0)and(z<180);//проверяем ввод данных (0,180)
e:=0.000001; //вводим погрешность
if abs(x+y+z-180)>e then //если сумма углов не равна 180, то не треугольник
   begin
    write('Ne treugolnik!');
    readln;
    halt; //завершаем программу
   end
else
   begin
     write('Treugolnik '); //если почти равна, разница менеее погрешности
     b:=true; //да
   end;
if b and ((x>90)or(y>90)or(z>90))then write('tupougolnyj!')//если да и один угол тупой, тупоугольный, иначе нет
else write('ne tupougolnyj!');
readln
end.

[gree]

ок, спасиб.. Но думаю нам без погрешности нужно... но сделаю так и так... СПС!!!
=============================
Кароч ещё такой вопрос, вот на счёт Истины (True).. На delphi почемуто не катит как на паскале((
Вот мой код на деле :

procedure TForm1.Button1Click(Sender: TObject);
var x,y,z,e:real;
b:boolean;
begin
repeat
x:= StrToFloat(Edit1.Text);
 y:= StrToFloat(Edit2.Text);
  z:= StrToFloat(Edit3.Text);
until (x>0)and(x<180)and(y>0)and(y<180)and(z>0)and(z<180);
e:=0.000001;
if abs(x+y+z-180)>e then
   begin
    label1.Caption:='Это не треугольник.';
   end
else
   begin
     label1.Caption:='Это треугольник.'
end;
if b and ((x>90)or(y>90)or(z>90))then label2.Caption:='Этот треугольник тупоугольный.'
else label2.Caption:='Этот треугольник не тупоугольный.';

end;

end.

Хотя без b прёт, но получается белеберда))

procedure TForm1.Button1Click(Sender: TObject);
var x,y,z,e:real;

begin
repeat
x:= StrToFloat(Edit1.Text);
 y:= StrToFloat(Edit2.Text);
  z:= StrToFloat(Edit3.Text);
until (x>0)and(x<180)and(y>0)and(y<180)and(z>0)and(z<180);
e:=0.000001;
if abs(x+y+z-180)>e then
   begin
    label1.Caption:='Это не треугольник.';
   end
else
   begin
     label1.Caption:='Это треугольник.'
end;
if ((x>90)or(y>90)or(z>90))then label2.Caption:='Этот треугольник тупоугольный.'
else label2.Caption:='Этот треугольник не тупоугольный.';

end;

end.

чё делать?

[puporev]

Вы хоть переписать-то по человечески можете, если смысла не понимаете. Делфи, Паскаль, еще про компьютер пожалуйтесь, вместе поплачем. А что же про кривые руки то никак не вспомним?
У меня

else
   begin
     write('Treugolnik '); //если почти равна, разница менеее погрешности
     b:=true; //да
   end;

У Вас

else
   begin
     label1.Caption:='Это треугольник.'
end;

Разницу чуствуете?

Но думаю нам без погрешности нужно

Ну, если у Вас другие законы математики, до удачного плавания.