Категория
Информатика
Тип
контрольная работа
Страницы
5 стр.
Дата
12.04.2013
Формат файла
.html — Html-документ
Архив
374442.zip — 2.66 kb
  • vychislenie-znachenija-funkcii-yx_374442_1.html — 8.99 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));

Xn:=Xn+h;

until Xn>Xk;


end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

form1.close;

end;

end.

Вывод: т.к. ответы в Pascal,Excel,MathCAD и Delphi

сошлись – решение верно.

Блок-схема алгоритма

решения задания №1.1



Ваше мнение



CAPTCHA