Помощь - Поиск - Пользователи - Календарь
Полная версия: 2 задачи
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи > Задачи на заказ
Shep
20.12.2004 4:11
здрасте все!
сразу к делу:
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. если кому заняться не чем мона еще и блок-схему составить, или за отдельную плату...
xelan
20.12.2004 20:38
Задачи тебе еще нужны? Сколько предложишь? Система оплаты?
klem4
20.12.2004 21:33
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
Shep
21.12.2004 0:26
2 xelan: еще нужны, цену сам предлагай, оплата налом в руки т.к. почта лажа, а веб $ у меня нет [ ну можно там товарами быта/продоволствия если хош =), типа пиво или мороженое или табуретку ]

2 klem4: наверно пока не сдам работы, не узнаю т.к. уже сдавать надо...
задача была дана как я ее написал, наверно в других случаях решения нет или вводить надо только эти значения
klem4
21.12.2004 0:32
Ну значит вместо фразы "Х - любое число" поставь "Решений нет"
Просто если в последнем false ничего не поставить, то будет ошибка.
Shep
22.12.2004 1:42
ок, спасибо большое!
Shep
22.12.2004 3:17
klem4 вроде вознаграждения не требует,хотя задачу решил, хотя я еще не проверял, но 2ая то не решена. народ давайте энергичнее, а то меня выгонят из инста =)
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.