Построение временной функции
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
ing);i,d: integer;k:longint;for k:= 1 to 100000 do;i:=0 to length(s)-1 do((i+y)0) then(x,i+y);odd(random(2)) then textcolor(c1)textcolor(c2);
{ for d:=1 to 55 do(x=xy[d,1])and((y+i)=xy[d,2]) then begin textbackground(c3);(c3);end; }
{ delay(2);}(s[i+1]);
{ textbackground(black);};;
init;i,j:integer;:=lightgreen;:=green;:=white;(c80+font8x8);;;;i:=1 to max do begin[i].l:=random(20)+200;j:=0 to sym[i].l do sym[i].s[j]:=chr(random(143)+32);[i].x:=random(80)+1;[i].y:=-random(100);;;
;
a:=1 to max dosym[a] do begin(x,y,' '+s);;
{ delay(1); {150}
:=y+1;y>50 then begin:=random(80)+1;:=-random(100);
;
(65000);;nelinyr;
{----AAA---}f1(a:extended):extended;k:real;:=sin(a)/cos(a);:=arctan(1/3*(k*k*k)-1/5*(k*k*k*k*k)+1/3);f2(a:extended):extended;k,g:real;:=sin(a)/cos(a);:=cos(a)/sin(a);:=-g+k-(k*k*k);;f(a:extended):extended;k:real;:=sin(a)/cos(a);:=k-1/3*(k*k*k)+1/5*(k*k*k*k*k)-1/3;;
{---AAAA---}
{----- reshenie nelinejnogo yravnenija -----};(' //____ Reshenie nelinejnogo yravnenija ____//');;(' Trebuetsa reshit nelinejnoe yravnenie metodom prostoj iteracii ');(' s zadannoj tochnostju e = ',e:4:3);(' ----------------------------------------------Вм');('Nelinejnoe yravnenie imeet vid :Вжtg(x) - 1/3(tg(x)^3) + 1/5(tg(x)^5) - 1/3 = 0Вж');(' L----------------------------------------------');('Введите границы отрезка изолирующего корень');(' a = ');readln(x0);(' b = ');readln(b);;
(f(x0)*f(b)<0) and (f2(x0)<1) then begin:=f1(x0); x0:=x;:=n+1;(f(x))<e;(' г========Вм');('Koren nelinejnogo yravnenija raven Вжx = ',x:3:2,'Вж');(' L========-');('Kolichestvo proizvedennyx iteracij n = ',n);('Znachenie fynkcii v tochke X ravno f(x) = ',f(x):3:6);end('Фиг вам');;(' //_________________________________________//');;
('privet expertint');;;kvyravn;;
{----- reshenie kvadratnogo yravnenija ------}
(' //____ Reshenie kvadratnogo yravnenija ____//');;('vvedite koeficienti a1,b1,c1');('a1 = '); readln(a1);('b1 = '); readln(b1);('c1 = '); readln(c1);;(' -------------------------Вм');('Kvadratnoe yravnenie imeet vid : Вж a1*z^2 + b1*z + c1 = 0 Вж');(' L-------------------------');
('Diskreminant raven : - d = b1^2 - 4*a1*c1 - , gde a1,b1,c1 - koeficienti; ' );(' d - diskreminant.' );:=sqr(b1)-4*a1*c1;(' - d = ',d:0:0,' -');d>=0 then begin:=((-b1)+sqrt(d))/(2*a1);:=((-b1)-sqrt(d))/(2*a1);;(' Korni kvadratnogo yravnenija :');(' г============Вм');(' Вж z1 = ',z:4:3,' Вж');(' Вж z2 = ',v:0:0, ' Вж');:=z;(' L============-');;abs(z)>abs(v) then:=v;;(' г---------------Вм');('Naimen6ii po modulu koren kv. yr-ija : - m = z = ',m:4:3,' -');(' L----------------');(' //__________________________________________//');;
;Graffik;;:=detect;(gd,gm,'');(0,240,640,240);(320,0,320,480);:=0;t0<=20 do begin:=abs(1.5*t0*t0*t0+4.3*t0*t0+(sqrt(3)/2)*t0+x+m);:=round(y/20);(250);(t0*2+320,240-h,15);:=t0+0.001;
;('graffik');;gorner;;:=0.5;:=0;:=(sqrt(3))/2;(' //____________Tablica Gornera____________//');;(' г============T============Вм');t:=0 to 20 do begin:=t/2;:=abs(a*r*r*r+b*r*r+d*r+x+m);(' Вжt = ',r:4:1);(' Вж y = ', y:6:2,'Вж');
;(' L============Вж============-');;(' //_________________________________________//');
;;
{---------------------------}
{---------------------------}igra;
:ArOfint;{ комбинация игрока }
comp:ArOfint;{ комбинация компьютера }
:integer;{ уровень сложности Вж число цифр в числе }
:integer;{ угадано чисел }:integer;{ из них на своих местах }
:integer;{ код клавиши,нажатием которой игрок завершил ввод }
:boolean;
:integer;
{ " получить " строку цифр у компьютера }
procedure GetComp(var a:ArOfInt;n:integer);:integer;;i:=1 to n do[i]:=random(10);otl then begin;('Комбинация компьютера: ');i:=1 to n do write(a[i]);;;;
{ Сколько цифр угадано? }ugad(comp,igrok:ArOfInt;n:integer):integer;:integer;{ угадано цифр },j:integer;:boolean;{ TRUE,если igrok[i]=comp[j]}:=0;i:=1 to n do { проверим каждую цифру игрока }
j:=1;:=FALSE;
{ будем igrok[i]последовательно сравнивать iислами
компьютера }igrok[i]=comp[j] then
begin[j]:=-1;{ пометим найденное число }
u:=u+1;:=TRUE;j:=j+1;(j>n)or found;
ugad:=u;;
{ Сколько цифр на своих местах? }
function mesto(comp,igrok:ArOfInt;n:integer):integer;:integer;:integer;:=0;i:=1 to n docomp[i]=igrok[i]m:=m+1;:=m;
end;
{ Процедура вводит с клавиатуры строку цифр заданной длины.}
{ Используя клавишу ,можно исправлять введенные цифры.}
{ Процедура завершает работу,если введено заданное количество цифр }
{ и нажата клавиша .}GetIgrok(var a:ArOfint;n:integer;mes:string):integer;:char;{ символ }:integer;{ десятичный код символа }
x,y:integer;{ положение курсора }
i:integer;:integer;:=1;(mes);:=readkey;:=ord(ch);(ch >='0') and (chn) and (dec=K_ENTER)) or (dec=K_ESC);:=dec;;{ GeIgrok }
pravila(n:integer);
begin;;('Компьютер задумал число из ',n,' цифр. Вы должны его отгадать.');('После ввода очередного числа программа сообщает');('сколько цифр');('угадано, и сколько из них находятся на своих местах.');(' Например,');('если задумано число 4345 и введено 4251,');(' то угаданы две цифры,');('и одна цифра находится на своем месте.');('При вводе можно использовать -');(' для прекращения игры.');;;
{ основная процедура }:=CURLEV;:=FALSE;(level);{ вывести правила игры }
GetComp(comp,level);:=GetIgrok(igrok,level,'Ваш вариант-> ');KeyCode<>K_ESC then begin:=ugad(comp,igrok,level);:=mesto(comp,igrok,level);('Угадано:',nu,'. На своих местах:',nm);
end;((nu=level) and (nm=level)) or (KeyCode=K_ESC);KeyCode<>K_ESCwriteln('***ВЫ УГАДАЛИ ЧИСЛО!***')
else begin('Игра завершена по нажатию .');('Задуманное число:');
for i:=1 to level do write(comp[i]);;;('Нажмите для завершения.');;;
{-----------------------}
{-----------------------};(200,200);(12);('г===============================Вм');('Вж KURSOVAJA RABOTA Вж');('Вж vychislenie vremennoj funkcii Вж');('L===============================-');;;true do;(24,4);{peresulka kursora v to4ku na4ala zagolovka}('GLAVNOE MENU');j:=1 to 5 do begin(25,7+j);(nameregime[j]);end;(20,15);('Vvedite nomer rezhima i nazhmite ');(i);i of
:kvyravn;
:nelinyr;
:gorner;
:graffik;
:begin clrscr;igra; halt; end;(20,17);('takogo rezhima nety v menu. POVTORITE!!!');(1000);;;
end;.
6. Результаты раiета
.1 Исходные величины
Заданная точность: ?=10-3
Коэффициенты квадратного уравнения:
а1=1,5; b1=2; с1= -2;
Время (начальное, конечное, квантования):
t0=0 с, tкон=10 с, Тк=0.5 с;
Коэффициенты временной функции:
а= 1,5; b=4,3; d= sin60;
.2 Вычисленные величины
ty010,52.617.61,5172312,553.43382.033,5120.94169.24,5228.353005,53856484.96,560077327,5882810518,51240914509.51683101939
Наименьший по абсолютному значению корень квадратного уравнения m= 0.667
Корень уравненияx=0.33
График временной функци