Помощь - Поиск - Пользователи - Календарь
Полная версия: Добавить условие на х в системе уравнений
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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
TanyaH, знаешь, что? Ты бы сначала себе Паскаль установила, и проверяла программы ХОТЯ БЫ на отсутствие синтаксических ошибок... Хватит уже мусор постить !!! Здесь нет телепатов, способных при такой постановке вопроса понять, что тебе нужно.

Исправляй программу, чтобы она не содержала явных ляпов типа
user crt; { <-- Здесь должно быть "Uses" }
var
     x;a;b;y: real; { <-- Здесь должно быть "x, a, b, y: real" }

Для этого есть компилятор... На форуме исправляют ошибки в логике программы...
TanyaH
Цитата(volvo @ 13.01.2006 18:43) *

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

Исправляй программу, чтобы она не содержала явных ляпов типа
user crt; { <-- Здесь должно быть "Uses" }
var
     x;a;b;y: real; { <-- Здесь должно быть "x, a, b, y: real" }

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

Хватит злится, это последняя у меня задача. Завтра экзамен. Проверить тебе не сложно, а мне очень поможешь. nea.gif
вот измененный текст
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
Цитата(TanyaH @ 13.01.2006 13:09) *

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

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

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

Волво, извини, и перенеси, пожалуйста, мой пост в корзину.. спасибо заранее.
TanyaH
Очень жаль помощь от вас так и не пришла. Всем пока.
Lapp
Цитата(TanyaH @ 13.01.2006 15:56) *

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

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