Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Добавить условие на х в системе уравнений

Автор: TanyaH 13.01.2006 16:13

Составить программу, выводящую таблицу значений функции
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:43

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

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

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

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

Автор: TanyaH 13.01.2006 17:09

Цитата(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 13.01.2006 18:32

Цитата(TanyaH @ 13.01.2006 13:09) *

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

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

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

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

Автор: TanyaH 13.01.2006 19:56

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

Автор: lapp 14.01.2006 8:54

Цитата(TanyaH @ 13.01.2006 15:56) *

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

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