Вопрос:
Даны площади нескольких квадратов. Найти длину диагонали самого большого из них. (в delphi)
- 07.10.2015 23:33
- Другие предметы
- remove_red_eye 6590
- thumb_up 30
Ответы и объяснения 1
Procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
i: integer;
k: real;
begin
Edit1.Text := Edit1.Text + ' ';
for i := 1 to length(Edit1.Text) do
begin
if (Edit1.Text[i] = ' ') then
begin
if (sqr(k) < StrToFloat(s)) then
begin
k := sqrt(StrToFloat(s));
s := '';
end;
end
else
s := s + Edit1.Text[i];
end;
Edit1.Text := FloatToStr(sqrt(sqr(k) + sqr(k)));
end;
Площади в Edit1 через пробел:)
- 08.10.2015 22:43
- thumb_up 49
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Другие предметы.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
В данном разделе публикуются вопросы и ответы на них к непопулярным предметам.