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

[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

[volvo]

TanyaH, знаешь, что? Ты бы сначала себе Паскаль установила, и проверяла программы ХОТЯ БЫ на отсутствие синтаксических ошибок... Хватит уже мусор постить !!! Здесь нет телепатов, способных при такой постановке вопроса понять, что тебе нужно.

Исправляй программу, чтобы она не содержала явных ляпов типа

user crt; { <-- Здесь должно быть "Uses" }
var
     x;a;b;y: real; { <-- Здесь должно быть "x, a, b, y: real" }

Для этого есть компилятор... На форуме исправляют ошибки в логике программы...

[TanyaH]

TanyaH, знаешь, что? Ты бы сначала себе Паскаль установила, и проверяла программы ХОТЯ БЫ на отсутствие синтаксических ошибок... Хватит уже мусор постить !!! Здесь нет телепатов, способных при такой постановке вопроса понять, что тебе нужно.

Исправляй программу, чтобы она не содержала явных ляпов типа

user crt; { <-- Здесь должно быть "Uses" }
var
     x;a;b;y: real; { <-- Здесь должно быть "x, a, b, y: real" }

Для этого есть компилятор... На форуме исправляют ошибки в логике программы...

Хватит злится, это последняя у меня задача. Завтра экзамен. Проверить тебе не сложно, а мне очень поможешь.
вот измененный текст
program p5;
uses crt;
var
x,a,b,y,k: real;
n: integer;
begin
ClrScr;
write('введите отрезок');
readln(a);
readln(b);

write('введите число корней');
readln(n);
k:= (b-a)/n;
for x := a to b do k begin
if x>0
then
if x>3
then y:= sqr (x-3); write ('x=',x);write ('y=',y)
else write ('x=',x);write ('нет решения');
else
y:=ln(1+ sin(x)/cos(x)) ); write ('x=',x); write ('y=',y)
end;
end.