Категория
Информатика
Тип
реферат
Страницы
5 стр.
Дата
23.07.2014
Формат файла
.html — Html-документ
Архив
1038564.zip — 2.53 kb
  • vychislenie-znachenija-funkcii-yx_1038564_1.html — 8.02 Kb
  • Readme_docus.me.txt — 125 Bytes
Оцените работу
Хорошо  или  Плохо


Текст работы

Задание 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));



Ваше мнение



CAPTCHA