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

@ANVA808 · Регистрация: 14.12.2019

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

Составить блок схему алгоритма и программу в Turbo Pascal для вычисления функции по формуле для произвольных исходных данных, с двойной точностью:

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

@ANVA808 · 14.12.2019, 21:52 **[ТС]**

огромное спасибо Puporev он уже решил это же уравнение другому человеку

@misha 321 · 13.02.2021, 16:02

а как мне это сделать?

@Puporev · 13.02.2021, 19:13

Pascal

var a,b,c,x,t1,t2,t3,t4,s:double;
    k:integer;
begin
clrscr;
writeln('Введите значения a,b,c,x');
readln(a,b,c,x);
k:=0;
if c<0 then k:=1
else
 begin
  t1:=a*ln(abs(x*x-2*pi*b));//числитель 1 дроби
  t2:=b*x*x+c*x+sqrt(3*pi*c);//знаменатель 1 дроби
  if t2=0 then k:=1
  else
   begin
    if c=0 then t3:=0
    else t3:=exp(ln(c)+0.7*x)+38*b*c;//числитель 2 дроби
    t4:=2*pi*x/3+0.28;
    if t4<=0 then k:=1
    else t4:=ln(t4)/ln(10); //знаменатель 2 дроби
    if t3/t4<0 then k:=1
    else
     begin
      t3:=sqrt(t3/t4);//второе слагаемое
      s:=t1/t2-t3;//сумма
     end;
   end;
 end;
if k=1 then write('Значение S не определено')
else write('S=',s:0:3)
end.

@ANVA808 0 / 0 / 0 Регистрация: 14.12.2019 Сообщений: 3
		1
	Составить блок схему алгоритма и программу для вычисления функции по формуле для произвольных исходных данных 14.12.2019, 21:32. Показов 2102. Ответов 3 Метки нет (Все метки) Составить блок схему алгоритма и программу в Turbo Pascal для вычисления функции по формуле для произвольных исходных данных, с двойной точностью: 0

@ANVA808 0 / 0 / 0 Регистрация: 14.12.2019 Сообщений: 3
	14.12.2019, 21:52 [ТС]	2
	огромное спасибо Puporev он уже решил это же уравнение другому человеку 0

@misha 321 0 / 0 / 0 Регистрация: 13.02.2021 Сообщений: 1
	13.02.2021, 16:02	3
	а как мне это сделать? 0

	13.02.2021, 19:13