Реализовать на компьютере, используя операторы цикла и операторы цикла. даны площади нескольких квадратов. найти длину диагонали самого большого из них.
Program MaxD; // Вводятся площади квадратов, окончание ввода по значению 0 // Найти диагональ максимального размера. // Поскольку диагональ равна квадратному корню из удвоенной площади, // надо найти максимальную площадь, а затем вычислить диагональ. var S,SMax:real; begin SMax:=0; writeln('Вводите площади квадратов, 0 - конец ввода'); repeat readln(S); if s>sMax then sMax:=s until s=0; writeln('Максимальная длина диагонали равна ',sqrt(2*sMax)) end.
Тестовое решение:
Вводите площади квадратов, 0 - конец ввода 5 10 12 13.6 11 18 0 Максимальная длина диагонали равна 6
Алфавитный (иначе, лексикографический) порядок - такой, при котором слово 1 стоит раньше в словаре, чем слово 2, если первые m ≥ 0 букв у этих слов совпадают, а (m + 1)-ая буква первого слова стоит в алфавите раньше, чем (m + 1)-ая буква второго слова.
Будем записывать "стоит раньше" привычным значком <, тогда, например, для обычного русского алфавита A < Б < В < Г < ... < Я.
Посмотрим на первые буквы мишиных слов: А... Б... Б... Б... З... З...
Из уже написанного можно сделать вывод, что A < Б < З.
Сравним первые три буквы слов, начинающихся на Б: БАР... БАР... БАН...
Поскольку 2 первые буквы одинаковы, а слова, у которых на третьем месте стоит Р, стоят раньше, чем слово, у которого Н, получаем, что Р < Н.
Продолжаем исследовать слова БАРАНКА и БАРАБАН. Выписывая первые буквы вплоть до первой отличающейся, получаем БАРАН... БАРАБ...
Отсюда Н < Б.
Осталось разобраться с двумя словами, начинающимися на З. Так как они начинаются на ЗН... ЗА...
то Н < А.
Итак, требуется решить систему неравенств: A < Б < З Р < Н Н < Б Н < А
Легко понять, что в данном случае Р < Н < А < Б < З.
// Вводятся площади квадратов, окончание ввода по значению 0
// Найти диагональ максимального размера.
// Поскольку диагональ равна квадратному корню из удвоенной площади,
// надо найти максимальную площадь, а затем вычислить диагональ.
var
S,SMax:real;
begin
SMax:=0;
writeln('Вводите площади квадратов, 0 - конец ввода');
repeat
readln(S);
if s>sMax then sMax:=s
until s=0;
writeln('Максимальная длина диагонали равна ',sqrt(2*sMax))
end.
Тестовое решение:
Вводите площади квадратов, 0 - конец ввода
5
10
12
13.6
11
18
0
Максимальная длина диагонали равна 6