Статистика
Всего в нашей базе более 4 327 664 вопросов и 6 445 985 ответов!

Даны площади нескольких квадратов. Найти длину диагонали самого большого из них. (в delphi)

10-11 класс

Mar12mar 12 окт. 2015 г., 17:48:43 (8 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Belch88
12 окт. 2015 г., 19:56:26 (8 лет назад)

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 через пробел:)

+ 0 -
ВlасkВerry
12 окт. 2015 г., 20:27:15 (8 лет назад)

Форму нужно или пакетным файлом обойдёмся?

+ 0 -
Batalvvitja
12 окт. 2015 г., 21:15:19 (8 лет назад)

просто код)

Ответить

Другие вопросы из категории

Помогите ответить на вопросы к тексту.

BALD KEINE PFERDE
MEHR IN WIEN.


Nach den letzten
Untersuchungen haben in der Hauptstadt Wien die Pferde - sehr zum Bedauern der
Tierfreunde und der Spatzen — keine Chance mehr gegenüber ihrer motorisierten
Konkurrenz.

Nur Molkereien
verzichten vorläufig noch immer nicht auf ihre vierbeinigen.

Arbeitskräfte —
sie sind nämlich rentabler als Autos. Diese fahren zwar rascher, aber durch das
häufige Starten verbrauchen sie so viel Treibstoff, dass die drei Kilo Hafer
und fünf Kilo Heu, die ein Zugpferd pro Tag verbraucht, billiger kommen. Ein
weiteres Plus für die Pferde ist der

niedrige
Anschaffungspreis. Man kann sie für 5 000 bis
8000 Schilling bekommen. Lastautos kosten 60 000 bis 80 000 Schilling,
dazu kommen teuere Reparaturen und die Steuer — Pferde brauchen keine Reparatur.
Sie können erkranken, werden aber — dank ihrer Rossnatur meist

10-11 класс другой ответов 1
рассказ о красоте растений
10-11 класс другой ответов 1

Читайте также

Найдите ошибки.

Один врун и хвастун утверждал, что с помощью машины времени побывал в Древнем Египте. Когда я попал в эту страну, рассказывал он друзьям,то узнал, что у египтян большое горе. Нил не разливался уже несколько лет и ихрчдно обмелел. Все же остальные реки Египта моэно было перейти вюрод...Кораюельщики довезли меня по Нилу до первого порога. Я шедро расплвтился с ними, взял сдачу-горсть мелких монет и сошёл на правый бепег. Ы этом месте была возвежена сама большая из пирамиж, вкоторой, как это всем известно, похоронен фараон ТУТАНХАМОН. Едва я направился к пирамиде, как хоынул ливень, и инепришлось спрятаться от него в дубовой роще. Переждав доэдь, я стал искать вход в пирамиду. Ожнако египтяне сказали мне, что гробница Тутанхамона давно разграблена и ни одна вещь не сохранилась... Перестань выдумывать, прервали рассказчика твоёс рассказе с десяток исторических ошибок. Опишите эти ошибки.

10-11 класс другой ответов 3
В одной организации работают четыре специалиста : Абдрахманов, Тулепов, Алжанов, Аркадьев. Один из них юрист, другой - экономист, третьи - банкир,

четвертый топ-менеджер.
Абдрахманова играет в бильярд лучше чем Алжанов, однако уступает Аркадьеву. Он играет в боулинг, лучше того специалиста, который моложе его, а также ходит на футбол в двое чаще, чем тот специалист, который старше Тулепова.
Экономист ходит на футбол в двое чаще, чем юрист. Он не является не самым молодым, ни самым пожилым из них всех.
Банкир, который играет в боулинг, хуже, чем топ-менеджер, обычно проигрывает бильярд юристу.
Самый пожилой специалист лучше всех играет в бильярд и чаще всех ходит на футбол, а самый молодой лучше всех играет в боулинг.
Напишите профессии каждого их четырех специалистов, учитывая, что они все по разному играют в боулинг, бильярд и ходят на футбол.

10-11 класс другой ответов 1
Помогите перевести текс о себе с Русского на немецкий язык

Меня зовут максим,мне 21 год. Я родился в Казахстане в городе Темиртау. У нас в семье 4 человека. Моя Мама Евгения работает Химиком. Мой отец Леонид Работает на Монтаже. Моя сестра Лариса учится. Я учусь в университете Сиб Гиу. На первом курсе по профессии Металургия черных металлов. На первом семестре мы изучаем 10 предметов. Самые сложные из них это Математика Информатика.в Свободное время я занимаюсь спортом.

10-11 класс другой ответов 1
самое большое из Американских озёр
10-11 класс другой ответов 1
ПОМОГИТЕ ОТВЕТИТЬ НА ВОПРОСЫ 1.Какое из названий обозначает самую высокую должность? а)офис-менеджер б)топ-менеджер в)бренд-менеджер

2.Какие слова являются синонимами?

а)злобная критика-беззлобная критика

б)ветренный день-безветренный день

в)предельная наглость-беспредельная наглость

г)опасная бритва-безопасная бритва

3.Расположите систематически категории,указанные ниже, по порядку, начиная с наибольшей из них,а заканчивая наименьшей:

1-семейство,2-вид,3-царство,4-класс

а)4,3,2,1 б)1,4,3,2 в)3,4,1,2 г) 3,1,2,4

4.Узнав о том,что эот город взят наполеоновской армией, Кутузов с огорчением заявил: "Ключ к Москве взят",пот ому что далее до самой Москвы не было ни одного опорного пункта,где можно было закрепиться Российской армии. Речь шла о...

а)Смоленске б)Гжатске в)Можайске г)Вязьме

10-11 класс другой ответов 1


Вы находитесь на странице вопроса "Даны площади нескольких квадратов. Найти длину диагонали самого большого из них. (в delphi)", категории "другой". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "другой". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.