Проверить задачу: вычисление величин по формулам

@savonina_sv · Регистрация: 16.10.2014

Author24 — интернет-сервис помощи студентам

Помогите пожайлуста составить 2 программы!!В задании а) выделить постоянную часть и вычислить ее в константном выражении до выполнения программы, вычислить значение выражения при всех конкретно заданных значениях переменных(если для какой-либо переменной заданы два значения,то это значит, что программа должна выполниться дважды,сначала с одним значением, затем с другим,каждое из них должно вводиться с клавиатуры). В задании б) ввести дополнительную переменную для промежуточных вычисления.

прошу проверить правильность решения
а)
$https://www.cyberforum.ru/cgi-bin/latex.cgi?y=\frac{1}{2a}\,\mathrm{arctg}\frac{\sqrt{\left|x+2 \right|}}{38.95+14\frac{7}{8}-3\frac{91}{128}},$
где a=9; x=0.92; x=5.04;

б)
$https://www.cyberforum.ru/cgi-bin/latex.cgi?P=\frac{2}{\sqrt{|\arccos x|}}+2|\arccos x|+\sqrt{|\arccos x|}$

вот что у меня получилось а)

Pascal

Program E1;
Const C1 = (38.95+14+7/8-(3+91/128)); a=9
Var x, y: real;
Begin
Writeln  ( ʹC1= 57.535ʹ, C1);
Writeln  ( ʹх= 0.92ʹ);
Readln (x);
y:=(1/(2*a))*(arctan(sqrt(abs(x+21))/C1);
Writeln (ʹy1 = ʹ, y1);
Writeln  (ʹх= 5.04ʹ);
Readln (x);
y:=(1/(2*a))*(arctan(sqrt(abs(x+21))/C1);
Writeln (ʹy2= ʹ, y2);
End.

и б)

Pascal

Program E1:
var x, z, P: real;
Begin
Clrscr;
Repeat
Writeln (ʹx<>0 x=ʹ);
Readln (x);
Unil x<>0;
z:=arctan(sqrt(1-sqr(x))/x);
P:=2/sqrt(abs(z))+2*abs(z)+sqrt(abs(z))
Writeln (ʹP= ʹ, P);
Readln
End.

@Cyborg Drone · 16.10.2014, 19:58

Насколько я ничего не понимаю, наверное, самая большая Ваша ошибка - писать программу в Microsoft Word, если я всё правильно путаю. Оттуда и взялись переведённые из unicode несуразицы &#884. Программа пишется в среде программирования, полагаю, раз Ваше сообщение здесь, это должен быть Turbo Pascal. А если даже и в среде не пишется, то в ней проверяется. Исключая &#884 и несуразицы с вводом-выводом скажу, что с задачей Вы почти справились. Непонятно также, чего Вы x в задаче а) вводите, если его значения заданы. Вот исправленные и слегка подрихтованные Ваши программы. Сравнивайте, вплоть до запятых. Ну и, найдёте Ваши ошибки заодно.

Pascal

Program E1;
Const C1 = (38.95+14+7/8-(3+91/128)); a=9;
Var x, y: real;
Begin
  Writeln('C1= ' , C1);
  x:=0.92;
  Writeln('х= ', x);
  y:=1/2/a*arctan(sqrt(abs(x+2))/C1);
  Writeln('y1 = ', y);
  x:=5.04;
  Writeln('х= ', x);
  y:=1/2/a*arctan(sqrt(abs(x+2))/C1);
  Writeln ('y2= ', y);
Readln
End.

Pascal

Program E1:
var x, z, P: real;
Begin
  Clrscr;
  Repeat
    Write('x<>0 x= ');
    Readln (x);
  Until x<>0;
  z:=abs(arctan(sqrt(1-sqr(x))/x));
  P:=2/sqrt(z)+2*z+sqrt(z);
  Writeln('P= ', P);
  Readln
End.

@savonina_sv · 16.10.2014, 20:06 **[ТС]**

спасибо большое! да я в ворде писала, поэтому непонятные знаки появились

@savonina_sv 0 / 1 / 0 Регистрация: 16.10.2014 Сообщений: 91
	16.10.2014, 20:06 [ТС]	3
	спасибо большое! да я в ворде писала, поэтому непонятные знаки появились 0