12.01.2015, 00:49 | #1 (permalink) |
Новичок
Регистрация: 08.01.2015
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите составить блок схему, пожалуйста
Const b=0.1185; x:Array[1..5] of Real=(0.0185,0.00088,0.0078,0.01155,0.1085); Var a,S1,S2:Real; y:Array[1..5] of Real; i:Byte; Begin a:=11.98; for i:=1 to 5 do a:=a+(b*x[i]-Sin(x[i]))/(b*x[i]+Cos(x[i])); S1:=0; for i:=1 to 3 do S1:=S1+(a*x[i]-Ln(x[i]))/(a*x[i]-b*Ln(x[i])); S2:=0; for i:=1 to 5 do S2:=S2+(a*x[i]-Ln(Sqr(x[i])))/(a*x[i]+b*Ln(Sqr(x[i]))); for i:=1 to 5 do if a*x[i]<Ln(x[i]) then y[i]:=Cos(x[i])+Sin(x[i])+S1 else y[i]:=(1-Cos(x[i]))/(1+Sin(x[i]))+S2; for i:=1 to 5 do writeln('x = ',x[i]:7:5,' y = ',y[i]:0:5); readln End. |
12.01.2015, 00:49 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Наверняка вам пригодится информация, которая содержится в похожих темах Помогите составить блок-схему Помогите составить блок-схему Помогите составить блок-схему Помогите, пожалуйста, составить блок-схему алгоритма программы Помогите, пожалуйста, составить блок схему к задаче |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|