Составить блок-схему алгоритма и программу для вычисления функции

@bunnybear · Регистрация: 23.12.2018

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

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

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> Z=\frac{B\cos ^2x}{\sqrt{\operatorname{tg}\left(0.65A\pi x^3 \right)}}+\frac{3.72A^3x}{e^{C+x^2}}<br />$

@VSI · 23.12.2018, 21:13

bunnybear, а в каком ЯП ожидаете программу?

@bunnybear · 24.12.2018, 21:39 **[ТС]**

просто расписать надо
Сорри не шарю в этом
типо того:

Пример выполнения задания

Составить блок-схему алгоритма и программу для вычисления функции по формуле:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> y=\frac{\ln \alpha }{2+\cos \alpha ^3}+\sqrt{\left|\sin ^3\alpha -e^{\alpha } \right|}+4.67<br />$

для α = 1.4

В Turbo Pascal алгоритм будет следующий:

Pascal

Program Prak;
{Вариант N 00 выполнил студент 1 курса Петров С. М.}
Uses Crt, Printer;
Const
    C = 4.67;
Var
   Alpha, Y: Real;
   A, B: Real;
Begin
    ClrScr;
    Write('Введите Alpha');
    ReadLn(Alpha);
    A:=Ln(Alpha)/(2 + Cos(Alpha*Sqr(Alpha)));
    B:=Sqrt(Abs(Sqrt(Sin(Alpha))*Sin(Alpha))-Exp(Alpha));
    Y:=A+B+C;
    WriteLn('Исходные данные');
    WriteLn('Alpha=',Alpha:11:4);
    WriteLn('Промежуточные данные');
    WriteLn('A=',A:10:3,' B=',B:10:3);
    WriteLn('Результат');
    WriteLn('Y=',Y:12:5);
End.

@ZX Spectrum-128 · 30.12.2018, 09:35

Pascal

var
  a, b, c, x, z: double;
 
begin
  readln(a, b, c, x);
  z := (b * sqr(cos(x))) / sqrt(tan(0.65 * a * pi * x * x * x)) + (32.7 * a * a * a * x) / exp(c + power(x, 0.2));
  writeln(z);
end.

@Puporev · 30.12.2018, 10:46

В Турбо Паскале будет так.

Pascal

uses crt;
var x,a,b,c,z,t1,t2,t3,t4:double;
begin
clrscr;
writeln('Введите значения x,a,b,c');
readln(x,a,b);
t1:=b*sqr(cos(x));
t2:=sin(0.65*a*pi*x*x*x)/cos(0.65*a*pi*x*x*x);
if t2<=0 then write('Значение Z не определено')
else
 begin
  t2:=sqrt(t2);
  t3:=32.7*a*a*a*x;
  if x=0 then t4:=0
  else if x>0 then t4:=exp(ln(x)*0.2)
  else t4:=-exp(ln(-x)*0.2);
  z:=t1/t2+t3/t4;
  write('Z=',z:0:3);
 end;
readln
end.

@Puporev · 30.12.2018, 10:52

Задание подобно этому
Составить блок-схему алгоритма и программу для вычисления функции по формуле
видимо и требования тоже.
Блок-схема

@bunnybear 1 / 1 / 0 Регистрация: 23.12.2018 Сообщений: 4
		1
	Составить блок-схему алгоритма и программу для вычисления функции 23.12.2018, 19:48. Показов 3068. Ответов 5 Метки нет (Все метки) Нужна помощь в решении Составить блок-схему алгоритма и программу для вычисления по формуле для произвольных исходных данных с двойной точностью. $https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> Z=\frac{B\cos ^2x}{\sqrt{\operatorname{tg}\left(0.65A\pi x^3 \right)}}+\frac{3.72A^3x}{e^{C+x^2}}<br />$ 0

@VSI Модератор $Эксперт по математике/физике$ 5192 / 3983 / 1379 Регистрация: 30.07.2012 Сообщений: 12,048
	23.12.2018, 21:13	2
	bunnybear, а в каком ЯП ожидаете программу? 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	30.12.2018, 10:52	6
	Задание подобно этому Составить блок-схему алгоритма и программу для вычисления функции по формуле видимо и требования тоже. Блок-схема Миниатюры 0

Опции темы