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

[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 16: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.

[Lapp]

Хватит злится, это последняя у меня задача. Завтра экзамен.

Последняя задача и такие ошибки?????? Да у других в первой таких не бывает..
Почему люди думают, что другие им что-то должны? Ты думаешь, Волво за это деньги получает от спонсора? Да он просто добрый! И нечестно его доброту использовать так.. Если бы ты хоть сказала: я выучу, я типа умнее стану. А то так прямо: завтра сдам все заброшу, а ты сейчас вот убей на меня кусок своей жизни..
Нечистоплотно.

PS Вот он тебе про теги упомянул - а ты хоть бы ухом повела!

Волво, извини, и перенеси, пожалуйста, мой пост в корзину.. спасибо заранее.

Сообщение отредактировано: lapp - 13.01.2006 18:34

[TanyaH]

Очень жаль помощь от вас так и не пришла. Всем пока.

[Lapp]

Очень жаль помощь от вас так и не пришла. Всем пока.

Ты так ничего и не поняла.
эта самая помощь вся была в твоих руках. Если бы с твоей строны было бы чуть получше отношение, хоть немного желания в чем-то разобраться - то, уверяю тебя, ты получила бы помощь.
Ты не понимаешь, что сама срубила сук, на котором сидела?
Ну нет никакого желания помогать человеку, от которого не видишь элементарной ответной реакции!!