Категория
Информатика
Тип
контрольная работа
Страницы
10 стр.
Дата
24.07.2013
Формат файла
.doc — Microsoft Word
Архив
823136.zip — 189.37 kb
  • vychislenie-znachenija-funkcii-yx_823136_1.doc — 368 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);



Ваше мнение



CAPTCHA