|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
02.06.2007, 01:05 | #1 |
Регистрация: 02.06.2007
Сообщений: 6
|
Задача на поиск минимума
Найти Min(x^3; y^2-1; z)
|
02.06.2007, 01:48 | #2 |
Форумчанин
Регистрация: 16.04.2007
Сообщений: 298
|
Мдя. Была на форуме задача:
Найти Max(a, b, c) и там предложили большое количество вариантов, но поскольку поиском пользоваться, как я понимаю лень, то вот код: function MyMin(x, y, z: integer): integer; begin if (x*x*x) < (y*y - 1) and (x*x*x) < z then Result := x*x*x else if (Y*y - 1) < (x*x*x) and (y*y - 1) < z then Result := y*y - 1 else Result := z; end;
Не надо ничего усложнять. Все достаточно тривиально.
|
02.06.2007, 05:07 | #3 |
Старожил
Регистрация: 22.05.2007
Сообщений: 9,085
|
min(min(x*x*x,y*y-1),z)
|
25.06.2007, 19:23 | #4 |
Форумчанин
Регистрация: 24.06.2007
Сообщений: 351
|
Лови полный исходник программы
program zad;
uses crt; var x,y,z:real; begin clrscr; writeln('VVEDITE x,y,z); readln(x,y,z); x:=exp(3*ln(x)); y:=exp((y)*ln(y))-1; if (x<y) and (x<z) then writeln('MIN->',x) else if (y<x) and (y<z) then writeln('MIN->,y) else writeln('MIN->z); readkey; end. Я не маюсь бездельем, я от него тащусь!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
выделение жирным шрифтом минимума и максимума из диапазона | Bazzer | Microsoft Office Excel | 11 | 28.06.2008 18:50 |
задача Делфи - поиск нужного и замена | Katovski | Помощь студентам | 8 | 30.05.2008 21:28 |
Нахождение минимума и максимума в трехмерном массиве | 1234 | Помощь студентам | 11 | 26.05.2008 16:23 |
Поиск решения.(Задача) | Lamborghini | Microsoft Office Excel | 1 | 19.02.2008 11:58 |
Поиск минимума | Иринкаа | Помощь студентам | 1 | 19.11.2007 22:00 |