close

Вход

Забыли?

вход по аккаунту

?

Kursovaya po infe

код для вставкиСкачать
?????-????????????? ??????????????? ??????????????? ???????????
??????????? ????????????? ?????-?????????????? ????????? ??????????????
???????? ?????? ?? ??????????: "????????????????"
????: "?????????? ???????? ????? ?????????????? ???? ??? ??????? ????????"
?????????: ????????? ???-????
?????????? ????? ??????????
?????????: ???????? ????????? ??????????
?????-????????? 2012
??????????.
?????? ? Pascal
?????? ?????
?????????? ??????
???????? ??????????? ???????? ? ?????????
???????? ????? ?????????
?????????? ?????????? ?????????
?????? ??????????
?????? ? Pascal
???? ?????? ? ????? ??????????? ???????????? ??????????, ??????, ?????????? ? ???????? ????? ???????, ??????? ?????? ?????? ? ???? ???????????? ??????, ???????????? ??? ?????.
???? ??????? ??? ?????? ????????? ?????? ? 1968-1969 ????? ????? ??? ??????? ? ?????? ???????? ?????????? ????????? ????? ?????-68. ?? ??? ??????????? ? 1970 ???? ?????? ??? ????????? ? ??????????? ????, ????? ?????????????? ???????? ????? ????????????????, ???????????? ??????????? ???????????????? ? ????????????????? ??????.
????????????? ????? ???????? ??????? ????????? ? ??????? ??????? ???????????? (????????????) ????????????????. ??????? ??? ????? ?? ?????? ????? ??????. ?? ?????? ?. ?????, ???? ?????? ?????????????? ????????????????? ????????????????, ???????, ?????? ?? ??????? ??????????, ? ??????? ??????? ? ???????? ????????? ?????????????? ???????????????, ? ??? ????????? ????? ?????????? ??????? ?????????? ???????? ???? ??? ?????? ?????????? ? ??????.
??? ?? ?????, ????????????? ???? ???? ??? ???????????: ????????????? ???????? ???????? ???????? ?????????? ?????, ?????????? ?????????? ??????? ?????? ? ???????????? ???????, ???????????? ?????????? ?????-??????, ?????????? ??????? ??? ??????????? ??????? ?????????? ?? ?????? ??????, ?????????? ??????? ?????????? ?????????? ? ?. ?. ????????? ?????? ??????????? ????? ??????? ???? ??????? ??? ???????? ???????? ?????????? ? ?????? "?????? ??????? ?? ???????? ???? ??????? ?????? ????????????????" (??? ?????? ????? ? ?????? 1980-?, ????? ??? ??????????? ???? ??????-2, ??????? ???????, ??????????? ?? ??????????? ??? ???????, ? ????? ????? ???????? ???????? ???????). ????????? ?????????? ??????? ???? ?????????? ? ISO-????????? 1982 ????, ? ?????????, ? ????? ????????? ???????? ???????, ?????? ??????????? ???????????? ???? ? ?? ?? ????????? ??? ????????? ?????????? ???????? ????????? ????????.
?????????? ????????, ??? ?????? ?????????? ????? ?? ??????????? ??? ???? ?????????? ????????????? ??? ???????? ????????????????. ????? ????, ?? ????????? ? ???????? ?????? ???????????????? ? ????????????? ????? 1970-? (??????? ??? ???????, ?????????? ??????? ????? ????????????? ????????????), ??????? ??????????? ????? ???????????? ??? ??????. ? ?????? 1980-? ????? ? ???? ??? ???????? ?????????? ??????? ??????????? ? ?????????????? ??????? ???????? ?. ?. ????? ?????????? ??????-??????????????? "??????? ??????????????? ????".
???????? ????????? ??????????? ???????, ???????????? ??????? ??????????????? ? ???????? ?????, ???????? Turbo Pascal ????? Borland, ???????? ????? ? ????????? ??????? ??? DOS (??????? ? ?????? 5.5) ? Windows ? ????? ? Delphi, ? ??????? ???? ???????? ???????????? ?????????? ?????.
???????, ? ??? ?????????????? ????, ???????????? ????? ????? ??????????? ???? ? ???????? ? ???? ????????? ?????????????? ???????? ? ??????????? ? ?????????????????? ??????? ????????? if, then, else, while, for, ? ?. ?. ??? ?? ?????, ??????? ????? ???????? ??????? ?????????? ???????????? ??? ???????????????? ?????????? ? ??????????, ??????? ??????????? ? ??????????? ??????-60, ????? ??? ??????????? ?????, ??????, ?????????, ????????????, ? ?????????. ??? ??????????? ???? ???????? ???????????? ??? ????????????? ?? ?????? ??????-67, ?????-68, ?????????? ????????? ?????? AlgolW ? ?????????? ??????.
?????? ?????.
?????? ????? ???????? ????????? ????????? ?????? ??????????????? ??????? ? ??????? ??? ?????????????, ??? ? ?????????????? ???????????? ??????????. ????????? ???? ???????? ? ??????????????.
?????????? ??????
????????? ???????? ????? ?????????????? ???? ??? ??????? ????????:
S=?_(n=1)^8�?(-1)?^n x^2n/((2n)*(n)!)
??? {�(n=5@x_1=0,55@x_2=0,833@x_3=1,21@x_4=1,8@x_5=2,222@x_6=2,45)�
???????? ????? ?????????
Programm Sum1;
Uses crt;
Const n = 5;
X1 = array [1..6] of real = (0.55, 0.833, 1.21, 1.8, 2.222, 2.45);
Var i, j, k: integer;
X, a, s: real;
Function f (k:intejer):real;
Begin
If k=0 then f :=1;
Else f := k*f(k-1)
End;
Function znak (m:integer) :integer;
Begin
If odd (m) = true then znak: = -1
Else znak := 1
End;
Function OCR (d : integer; x : real) : real;
Begin
OCR : = znak (d) * (exp(2*d)*ln(x) / (2*d*f(d));
End;
Begin
Clrscr;
For i : = 1 to 6 Do
Begin
X : = x1 [i];
S : = 0;
For j = 1 to n Do
Begin Writeln (OCR ( j, x ) : 6 : 3 );
S : = S + OCR ( j, x );
End;
Writeln ( ' x = ' , x : 6 : 3 , ' s = ' , s : 6 : 3 );
End;
Readln;
End.
?????????? ?????????? ?????????
-0,704
1,301
-2,136
2,960
-3,499 X = 1,210 S = -9,789
-2,950
5.449
-8.947
12,396
-14,655
X = 2.222 S = -13,655
-3,311
6,116
-10,042
13,913
-16.448
X = 2,450 S = -15,448
?????? ?????????? ? ??????
???? ?. ????????? + ????????? ?????? = ?????????. - ?.: ???, 1985. - ?. 406.
???? ?., ?????? ?. ???????. ??????????? ??? ???????????? ? ???????? ?????. - ?.: ??????? ? ??????????, 1982. - ?. 151.
http://window.edu.ru/resource/176/47176/files/mstuca41.pdf
http://bookre.org/reader?file=816320
Документ
Категория
Без категории
Просмотров
3
Размер файла
393 Кб
Теги
kursovaya_po_infe
1/--страниц
Пожаловаться на содержимое документа