Даны площади нескольких квадратов. Найти длину диагонали самого большого из них. (в delphi)
10-11 класс
|
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 через пробел:)
Форму нужно или пакетным файлом обойдёмся?
Другие вопросы из категории
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
Читайте также
Один врун и хвастун утверждал, что с помощью машины времени побывал в Древнем Египте. Когда я попал в эту страну, рассказывал он друзьям,то узнал, что у египтян большое горе. Нил не разливался уже несколько лет и ихрчдно обмелел. Все же остальные реки Египта моэно было перейти вюрод...Кораюельщики довезли меня по Нилу до первого порога. Я шедро расплвтился с ними, взял сдачу-горсть мелких монет и сошёл на правый бепег. Ы этом месте была возвежена сама большая из пирамиж, вкоторой, как это всем известно, похоронен фараон ТУТАНХАМОН. Едва я направился к пирамиде, как хоынул ливень, и инепришлось спрятаться от него в дубовой роще. Переждав доэдь, я стал искать вход в пирамиду. Ожнако египтяне сказали мне, что гробница Тутанхамона давно разграблена и ни одна вещь не сохранилась... Перестань выдумывать, прервали рассказчика твоёс рассказе с десяток исторических ошибок. Опишите эти ошибки.
четвертый топ-менеджер.
Абдрахманова играет в бильярд лучше чем Алжанов, однако уступает Аркадьеву. Он играет в боулинг, лучше того специалиста, который моложе его, а также ходит на футбол в двое чаще, чем тот специалист, который старше Тулепова.
Экономист ходит на футбол в двое чаще, чем юрист. Он не является не самым молодым, ни самым пожилым из них всех.
Банкир, который играет в боулинг, хуже, чем топ-менеджер, обычно проигрывает бильярд юристу.
Самый пожилой специалист лучше всех играет в бильярд и чаще всех ходит на футбол, а самый молодой лучше всех играет в боулинг.
Напишите профессии каждого их четырех специалистов, учитывая, что они все по разному играют в боулинг, бильярд и ходят на футбол.
Меня зовут максим,мне 21 год. Я родился в Казахстане в городе Темиртау. У нас в семье 4 человека. Моя Мама Евгения работает Химиком. Мой отец Леонид Работает на Монтаже. Моя сестра Лариса учится. Я учусь в университете Сиб Гиу. На первом курсе по профессии Металургия черных металлов. На первом семестре мы изучаем 10 предметов. Самые сложные из них это Математика Информатика.в Свободное время я занимаюсь спортом.
2.Какие слова являются синонимами?
а)злобная критика-беззлобная критика
б)ветренный день-безветренный день
в)предельная наглость-беспредельная наглость
г)опасная бритва-безопасная бритва
3.Расположите систематически категории,указанные ниже, по порядку, начиная с наибольшей из них,а заканчивая наименьшей:
1-семейство,2-вид,3-царство,4-класс
а)4,3,2,1 б)1,4,3,2 в)3,4,1,2 г) 3,1,2,4
4.Узнав о том,что эот город взят наполеоновской армией, Кутузов с огорчением заявил: "Ключ к Москве взят",пот ому что далее до самой Москвы не было ни одного опорного пункта,где можно было закрепиться Российской армии. Речь шла о...
а)Смоленске б)Гжатске в)Можайске г)Вязьме