Добавить условие на х в системе уравнений, Есть решение системы уравнения, но в условии задачи задается не х, а п Опции

[TanyaH]

Составить программу, выводящую таблицу значений функции
Y= (x-3)1/2 при x>0 иначе ln(1+tgx) при x<=0 в равностоящих точках отрезка [AB] Число значений в таблице равно N. В случае если точка не определена, выдать об этом сообщение.

program p5;
user crt;
var
     x;a;b;y: real;
  n: integer;
begin
   ClrScr;
     write('x=');
readln(x);
if x>0 
    then 
         if x>3 
             then y:= sqr (x-3); write ('y=',y)
             else write ('нет решения');
else
 y:=ln(1+ sin(x)/cos(x)) ); write ('y=',y)
end.

Тегами пользоваться начнешь когда-нибудь? Или все время кто-то другой должен исправлять?

Сообщение отредактировано: volvo - 13.01.2006 12:35