Помогите, пожалуйста, записать математические выражения в Паскале

[Гульназ.М.]

Помогите, пожалуйста, записать математические выражения в Паскале

1. y=sqrt(x+3)+sqrt(x-1) тоесть под корнем эти два выражения..
2. y=sqrt(x-a)+1/x+c
3. y=ln(arctg(ln(x)/x^2))

 

[Vladimir_S]

1. y=sqrt(x+3)+sqrt(x-1) тоесть под корнем эти два выражения..
2. y=sqrt(x-a)+1/x+c
3. y=ln(arctg(ln(x)/x^2))

Так почти записаны. Осталось только заменить знаки равенств ("=") знаками присваивания (":="), "x^2" выражением sqr(x), "arctg" на "arctan" и в конце каждой строки поставить разделитель ";". Например, последнее выражение запишется так:
y:=ln(arctan(ln(x)/sqr(x)));
Кроме того, на будущее:
1. Не дублируйте сообщения и темы - у нас это наказуемо.
2. Не цепляйтесь к чужим темам - создавайте свои. Сейчас я это сделал за Вас.

 

[Гульназ.М.]

спасибо большое, и извиняюсь..я просто впервые в форуме. а вы не сможете мне программу для каждого из этих выражений составить? у меня получилось только не хватает проверка условий и из за этого запуталась полностью

 

[Гульназ.М.]

y:=exp(1/4*ln(x+3))+exp(1/4*ln(x-1));
y:= sqrt(x-a)+(1/(x+c));
y:= ln(arctan(ln(x/sqr(x))));

вот они.

 

[Vladimir_S]

y:=exp(1/4*ln(x+3))+exp(1/4*ln(x-1));

О, Боже - это-то зачем?!! Во-первых, это соответствует извлечению корней не второй, а четвертой степени (второй будет так:
y:=exp(1/2*ln(x+3))+exp(1/2*ln(x-1)), а во-вторых - оператор Sqrt - это нормальный паскалевский оператор извлечения квадратного корня, и переходить к логарифмам-экспонентам тут вовсе ни к чему! Всё, что надо - это записать
y:=sqrt(x+3)+sqrt(x-1);
Или там какое-то другое выражение? Что значит "под корнем эти два выражения"?
Еще вопрос - почему во второй формуле Вы берете х+с в скобки? Как на самом деле надо
так: 1/х + с
или так: 1/(х+с) ?
Уточните, пожалуйста.
А программа пишется так:

Var
 x,y:real;
Begin
 write('x= ');
 readln(x);
 y:= [COLOR=Red]{здесь Вы вписываете одну из трёх формул}[/COLOR]
 writeln('y= ',y:0:8);
 readln
End.

 

[Гульназ.М.]

y:=exp(1/4*ln(x+3))+exp(1/4*ln(x-1)); - тут в первом exp(1/4*ln(x+3)) из под корня степень есть-4,а во втором из под корня 6.я еще не правильно написала.. тоесть со степенями эти корни.. не знаю как объяснить.не разбираюсь.

1/(х+с) - здесь мне так написал программсит знакомый один, я не знаю точно..

 

[Гульназ.М.]

y:=exp(1/4*ln(x+3))+exp(1/4*ln(x-1)); - в первом exp(1/4*ln(x+3)) из под корня степень есть- это 4,а во втором из под корня 6.я еще не правильно написала.. тоесть со степенями эти корни.. еще так в лекции написано было в примерах..

1/(х+с)-это не знаю, не я писала

а вот на счет программы там какая то проверка условия должна быть, говорили что за проверка

 

[Vladimir_S]

М-да, не очень понял... А у Вас есть текст исходного задания? Может быть, сфотографируете и выложите? Тогда, думаю, разберемся.

 

[Гульназ.М.]

ну вот я сделала программы, но не работают они, препод вовсе сказал что нужна прверка условий и не принял работы мои...tehnari_ru_325:
program zadanie_1;
var
x,a,c: integer;
y: real;
begin
write('Vvedite X - ');
readln(x);
write('Vvedite A - ');
readln(a);
write('Vvedite C - ');
readln(c);
y:= sqrt(x-a)+(1/(x+c));
Writeln('Y = ',y:6:2);
Readln;
end.

program zadanie_2;
var
x,y: real;
begin
write('Vvedite X - '); {x<1}
readln(x);
y:= ln(arctan(ln(x/sqr(x))));
Writeln('Y = ',y:10:5);
Readln;
end.

program zadanie_3;
var
x: integer;
y: real;
begin
write('Vvedite X - ');
readln(x);
y:= exp(1/4*ln(x+3))+exp(1/4*ln(x-1));
Writeln('Y = ',y:6:2);
Readln;
end.

 

[Гульназ.М.]

ну могу в принципе, сейчас

 

[Vladimir_S]

Попробуйте сдать такой вариант:

program zadanie_1;
var
  x,a,c: integer;
  y: real;
begin
 write('Vvedite A - ');
 readln(a);
 write('Vvedite C - ');
 readln(c);
 Repeat
  write('Vvedite X - ');
   readln(x);
  if (x-a)<0 then writeln('Wrong X');
 Until (x-a)>=0; 
 y:= sqrt(x-a)+(1/(x+c));
 Writeln('Y = ',y:6:2);
 Readln;
end.

program zadanie_2;
var
  x,y: real;
begin
 Repeat
  write('Vvedite X - '); {x>1}
  readln(x);
  if x<=1 then writeln('Wrong X');
 Until x>1;
 y:= ln(arctan(ln(x)/sqr(x)));
 Writeln('Y = ',y:10:5);
 Readln;
end.

program zadanie_3;
var
 x,y:real;
begin
 Repeat
  write('Vvedite X - '); {x>1}
  readln(x);
  if x<=1 then writeln('Wrong X');
 Until x>1;
 y:= exp(1/4*ln(x+3))+exp(1/4*ln(x-1));
 Writeln('Y = ',y:6:2);
 Readln;
end.

 

[Гульназ.М.]

Вот скачала.любуйтесь

 

[Гульназ.М.]

о спасибо, сейчас буду рассматривать

 

[Vladimir_S]

Посмотреть вложение 65463

Вот скачала.любуйтесь

Так Вы же совсем не то задание выложили! :tehnari_ru_211:

 

[Гульназ.М.]

мда.. я перепутала с другой работой вообще.кошмар вот оно

 

[Vladimir_S]

мда.. я перепутала с другой работой вообще.кошмар вот оно

Не-а. Опять мимо. Вы видите в этих формулах хоть один арктангенс? Я - нет.

 

[Гульназ.М.]

=D вроде бы то отправляю а получается не то хх

:tehnari_ru_707:

 

[Гульназ.М.]

все это точно то!проследила

 

[Vladimir_S]

все это точно то!проследила

Уф, наконец-то! Тогда по первой формуле так:

program zadanie_3;
var
 x,y:real;
begin
 Repeat
  write('Vvedite X - '); {x>1}
  readln(x);
  if x<=1 then writeln('Wrong X');
 Until x>1;
 y:= exp(1/4*ln(x+3))+exp(1/[COLOR=Red][B]6[/B][/COLOR]*ln(x-1));
 Writeln('Y = ',y:6:2);
 Readln;
end.

Кстати, про другое. Не пренебрегайте форматом вывода вещественных чисел 0:n. Это очень удобная фишка, и означает она, что Вы задаёте только число знаков после запятой, а впереди - уж как получится.

 

[Гульназ.М.]

Спасибо огромное!