Читать контрольная по информатике, вычислительной технике, телекоммуникациям: "Вычисление значения функции y(x)" Страница 1

(Назад) (Cкачать работу)

Задание 1.1 Вычислить значение функции y(x) на промежутке [1;2.8] с шагом h=0.3. В Pascal: program z1;

uses crt;

var Xn,Xk,X,Y,H,Z:REAL;

begin

clrscr;

write('‚Enter Xn,Xk,H=');

readln(Xn,Xk,H);

X:=Xn;

repeat

z:= 1-exp((0.5)*x);

if z=0 then writeln('NO') else

Y:=ln(6.8*sqrt(x))*(exp((1/3)*(ln(abs(Z))))*(abs(Z)/Z));

writeln('X=',X:6:1,' Y=',Y:8:3);

X:=X+H;

until X>=Xk+H/2;

readkey;

end. Результаты вычислений: В Excel: В MathCAD: В Delphi: var

i:integer;

s,Xn,z,F,h,Xk:real;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

Xn:=strtoFloat(edit1.text);

h:=strtoFloat(edit2.text);

Xk:=strtoFloat(edit3.text);

repeat

z:= 1-exp((0.5)*Xn);

F:=ln(6.8*sqrt(Xn))*(exp((1/3)*(ln(abs(Z))))*(abs(Z)/Z));

Memo1.Lines.Add('x='+FormatFloat('0.0',xn)+' y='+FormatFloat('0.000',F));

Xn:=Xn+h;

until Xn>Xk; end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

form1.close;

end;

end. Вывод: т.к. ответы в Pascal,Excel,MathCAD и Delphi сошлись – решение верно. Блок-схема алгоритма решения задания №1.1 Задание 1.2 Вычислить значение функции y(x) с условием на промежутке [-2;3] с шагом h=0.5 В Pascal: program z2;

uses crt;

label 20;

var x,y,Xn,Xk,h:real;

begin clrscr;

writeln('Please ENTER Xn,Xk,h=');

readln(Xn,Xk,h);

x:=Xn;

while x

Похожие работы