Составьте программу для вычисления длин высот треугольника, у которого длины сторон a, b, c.

@D1JleR · Регистрация: 03.06.2011

Author24 — интернет-сервис помощи студентам

не могу довести задачу до ума, решаю ее на форме.
\\\\Составьте программу для вычисления длин высот треугольника, у которого длины сторон a, b, c.\\\
вот что получилось:

Pascal

procedure TForm1.Button1Click(Sender: TObject);
 var a,b,c:integer;
    ha,hb,hc,p:real;
begin
 read(a,b,c);
if (a<b+c) and (b<a+c) and (c<a+b) then
  begin
    a:=inttofloat(form1.Edit1.text);
    b:=inttofloat(form1.Edit2.text);
    c:=inttofloat(form1.Edit3.text);
    p:=(a+b+c)/2;
    ha:=(2/a)*sqrt(p*(p-a)*(p-b)*(p-c));
    hb:=(2/b)*sqrt(p*(p-a)*(p-b)*(p-c));
    hc:=(2/c)*sqrt(p*(p-a)*(p-b)*(p-c));
    label2.caption:=floattoint(ha);
    label3.caption:=floattoint(hb);
    label4.caption:=floattoint(hc);
 
    end;
 
end;
 
end.

@FIL · 23.11.2012, 20:01

Ты хоть понимаешь, что написал?

@D1JleR · 23.11.2012, 20:03 **[ТС]**

ну да, в 3 эдита ввожу длину сторон , и жду ввывода результата в лэйбле

@FIL · 23.11.2012, 20:04

А inttofloat для чего?

@D1JleR · 23.11.2012, 20:05 **[ТС]**

для перевода, в целые числа

@FIL · 23.11.2012, 20:11

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

для перевода, в целые числа

Да, только для перевода числа с плавающей запятой в целое, а Edit1.text - это строка символов.

Добавлено через 4 минуты
read(a,b,c); - используется в консольных приложениях. Тут это вообще не катит.
Присвоение переменным a,b,c значений из Едитов надо делать до того, как ты их начинаешь обрабатывать (if (a<b+c) and...).

@mr.xolms · 23.11.2012, 20:12

переводить надо strtofloat а не inttofloat

@privit_91 · 23.11.2012, 20:15

не могу довести задачу до ума, решаю ее на форме.
\\\\Составьте программу для вычисления длин высот треугольника, у которого длины сторон a, b, c.\\\
вот что получилось:
Код Pascal

Pascal

procedure TForm1.Button1Click(Sender: TObject);
var 
a,b,c:integer;
ha,hb,hc,p:real;
begin
a:=StrToInt(Edit1.text);
b:=StrToInt(Edit2.text);
c:=StrToInt(Edit3.text);
p:=(a+b+c)/2;
ha:=(2/a)*sqrt(p*(p-a)*(p-b)*(p-c));
hb:=(2/b)*sqrt(p*(p-a)*(p-b)*(p-c));
hc:=(2/c)*sqrt(p*(p-a)*(p-b)*(p-c));
label2.caption:=floattoStr(ha);
label3.caption:=floattoStr(hb);
label4.caption:=floattoStr(hc); 
 
edn;
end.

Это самый простой способ без проверки на правильность ввода данных.
Но то что у вас было эт просто Жесть.

@mr.xolms · 23.11.2012, 20:20

ну да но нужно ещё проверку сделать

Delphi

procedure TForm1.Button1Click(Sender: TObject);
 var a,b,c:integer;
    ha,hb,hc,p :real;
begin
    a:=strtoint(form1.Edit1.text);
    b:=strtoint(form1.Edit2.text);
    c:=strtoint(form1.Edit3.text);
    if (a<b+c) and (b<a+c) and (c<a+b) then
    begin
    p:=(a+b+c)/2;
    ha:=(2/a)*sqrt(p*(p-a)*(p-b)*(p-c));
    hb:=(2/b)*sqrt(p*(p-a)*(p-b)*(p-c));
    hc:=(2/c)*sqrt(p*(p-a)*(p-b)*(p-c));
    label1.caption:=floattostr(ha);
    label2.caption:=floattostr(hb);
    label3.caption:=floattostr(hc);
    end
    else
    showmessage('Ошибка ввода');
end;

@FIL Модератор 3490 / 2613 / 741 Регистрация: 19.09.2012 Сообщений: 7,974
	23.11.2012, 20:01	2
	Ты хоть понимаешь, что написал? 0

@D1JleR 1 / 1 / 0 Регистрация: 03.06.2011 Сообщений: 24
	23.11.2012, 20:03 [ТС]	3
	ну да, в 3 эдита ввожу длину сторон , и жду ввывода результата в лэйбле 0

@FIL Модератор 3490 / 2613 / 741 Регистрация: 19.09.2012 Сообщений: 7,974
	23.11.2012, 20:04	4
	А inttofloat для чего? 0

@D1JleR 1 / 1 / 0 Регистрация: 03.06.2011 Сообщений: 24
	23.11.2012, 20:05 [ТС]	5
	для перевода, в целые числа 0

@FIL Модератор 3490 / 2613 / 741 Регистрация: 19.09.2012 Сообщений: 7,974
	23.11.2012, 20:11	6
	Сообщение от D1JleR для перевода, в целые числа Да, только для перевода числа с плавающей запятой в целое, а Edit1.text - это строка символов. Добавлено через 4 минуты read(a,b,c); - используется в консольных приложениях. Тут это вообще не катит. Присвоение переменным a,b,c значений из Едитов надо делать до того, как ты их начинаешь обрабатывать (if (a<b+c) and...). 1

@mr.xolms 52 / 52 / 25 Регистрация: 07.12.2011 Сообщений: 115
	23.11.2012, 20:12	7
	переводить надо strtofloat а не inttofloat 0

	23.11.2012, 20:20