IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Максимальное число из 5-ти чисел ..., ... и не только
BUGerKola
сообщение 14.10.2005 14:25
Сообщение #1


Гость






помогите плиз.
1. Составить программу выбора максимального по модулю числа из 5 чисел X,Y,Z,T,R. проверить работу программы при нескольких наборов чисел.
2. Составить программу вычисления функции Z(x) для произвольного X
Цитата
    3y1-y2,  |y1|<2|y2|
Z=
    y1+3y2, |y1|>=2|y2|

    2x-1,  x<1
Y2=
    sqrt(x),  x>=1


Y1=|x|-3
Вычислить значения Z(x) в точках:
x1=-3, x2=0, x3=1, x4=4.

Очень нужно. ХЕЕЕЛПП

В следующий раз тема с таким названием будет удалена.

Сообщение отредактировано: volvo - 14.10.2005 14:36
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
klem4
сообщение 14.10.2005 16:26
Сообщение #2


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Алгоритм к первой задаче lol.gif ? Если без массива то :

max := abs(x);
if abs(y)>max then
max := abs(y);
if abs(z)>max //... и так далее


abs(x) - модуль числа X

Ну в во вотором вводишь y1 и y2, и проверяешь условие, если abs(y1)<2*abs(y2) , то z=3*y1-y2 иначе z=y1+3*y2

аналогично второй вариант


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 20.07.2025 10:52
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"