2 задачи, не сложные |
Начальные контакты ТОЛЬКО через личку!!
2 задачи, не сложные |
Shep |
20.12.2004 0:11
Сообщение
#1
|
Группа: Пользователи Сообщений: 4 Пол: Мужской Репутация: 0 |
здрасте все!
сразу к делу: 1) составить программу вычисляющую значения функции: y= (и система) 1-sinx, при 5<=x<10 1/2(1+cosx), при 10<=x<15 1/3tgx, при 15<=x<20 ctg^2 x, при 20<=x<25 2) составить программу отображения биоритмов человека на заданный интервал времени. известно что физическое, эмоциональное и умственное состояние изменяются со дня рождения циклически с периодом 23,28,33 дня соответственно. состояние для д-го дня со дня рождения определяется: y=sin(x1) где x1=(д/р-[д/р])*2пи, при p=23,28,33 (препод сказал что задачка легкая,но надо ответ изобразить графически) P.S. ну как обычно задачи нужны срочно ;) P.P.S. если кому заняться не чем мона еще и блок-схему составить, или за отдельную плату... Сообщение отредактировано: Shep - 20.12.2004 0:15 |
xelan |
20.12.2004 16:38
Сообщение
#2
|
Гость |
Задачи тебе еще нужны? Сколько предложишь? Система оплаты?
|
klem4 |
20.12.2004 17:33
Сообщение
#3
|
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
1) составить программу вычисляющую значения функции:
y= (и система) 1-sinx, при 5<=x<10 1/2(1+cosx), при 10<=x<15 1/3tgx, при 15<=x<20 ctg^2 x, при 20<=x<25 Ну вот так наверное, еще можно через if ...then...else Код uses crt; var y,x:extended; Begin write('x=');readln(x); case (x>=5)and(x<10) of true: y:=(1-sin(x)); false: case (x>=10)and(x<15) of true: y:=1/2*(1+cos(x)); false: case (x>=15)and(x<20) of true: y:=1/3*(sin(x)/cos(x)); false: case (x>=20)and(x<25) of true: y:=sqr(cos(x)/sin(x)); false: writeln('Х - любое число'); end; end; end; end; writeln('y=',y:2:3); readln; end. у тебя промежуток общий 5<=x<25 во встех остальных случаях ты не сказал что должно быть, когда узнаешь поправь :D Сообщение отредактировано: klem4 - 20.12.2004 18:27 -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Shep |
20.12.2004 20:26
Сообщение
#4
|
Группа: Пользователи Сообщений: 4 Пол: Мужской Репутация: 0 |
2 xelan: еще нужны, цену сам предлагай, оплата налом в руки т.к. почта лажа, а веб $ у меня нет [ ну можно там товарами быта/продоволствия если хош =), типа пиво или мороженое или табуретку ]
2 klem4: наверно пока не сдам работы, не узнаю т.к. уже сдавать надо... задача была дана как я ее написал, наверно в других случаях решения нет или вводить надо только эти значения |
klem4 |
20.12.2004 20:32
Сообщение
#5
|
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Ну значит вместо фразы "Х - любое число" поставь "Решений нет"
Просто если в последнем false ничего не поставить, то будет ошибка. -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Shep |
21.12.2004 21:42
Сообщение
#6
|
Группа: Пользователи Сообщений: 4 Пол: Мужской Репутация: 0 |
ок, спасибо большое!
Сообщение отредактировано: Shep - 21.12.2004 23:16 |
Shep |
21.12.2004 23:17
Сообщение
#7
|
Группа: Пользователи Сообщений: 4 Пол: Мужской Репутация: 0 |
klem4 вроде вознаграждения не требует,хотя задачу решил, хотя я еще не проверял, но 2ая то не решена. народ давайте энергичнее, а то меня выгонят из инста =)
|
Текстовая версия | 16.06.2024 1:31 |