2 задачи, не сложные Опции

[Shep]

здрасте все!
сразу к делу:
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 4:15

[xelan]

Задачи тебе еще нужны? Сколько предложишь? Система оплаты?

[klem4]

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 22:27

[Shep]

2 xelan: еще нужны, цену сам предлагай, оплата налом в руки т.к. почта лажа, а веб $ у меня нет [ ну можно там товарами быта/продоволствия если хош =), типа пиво или мороженое или табуретку ]

2 klem4: наверно пока не сдам работы, не узнаю т.к. уже сдавать надо...
задача была дана как я ее написал, наверно в других случаях решения нет или вводить надо только эти значения

[klem4]

Ну значит вместо фразы "Х - любое число" поставь "Решений нет"
Просто если в последнем false ничего не поставить, то будет ошибка.

[Shep]

ок, спасибо большое!

Сообщение отредактировано: Shep - 22.12.2004 3:16

[Shep]

klem4 вроде вознаграждения не требует,хотя задачу решил, хотя я еще не проверял, но 2ая то не решена. народ давайте энергичнее, а то меня выгонят из инста =)