Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / DIMA / F
.PAS Uses Crt;
Var
x,y,h,xh,min:Real;
i,k:Integer;
f:function(t:Real):Real;
a:Array[1..100] Of Real;
{$F+}
Function Fun(t:Real):Real; Begin
If t*sin(t)>0 Then Fun:=Sqrt(t*sin(t))-t-1.2;
End;
{$F-}
Function Koren:Real;
Begin xh:=0; h:=0.01; k:=0;
For i:=1 to 1000 Do Begin
If (Fun(xh)*Fun(xh+h)<0)AND(Fun(xh+h)>0) Then Begin Inc(k); a[k]:=xh+h; End;
xh:=xh+h;
End;
If k>0 Then min:=a[1] Else k:=0;
For i:=1 to k Do
If a[i]>min Then min:=a[i];
Koren:=min;
End;
Begin
ClrScr;
WriteLn('x=',Koren:6:3);
ReadLn;
End.
Var
x,y,h,xh,min:Real;
i,k:Integer;
f:function(t:Real):Real;
a:Array[1..100] Of Real;
{$F+}
Function Fun(t:Real):Real; Begin
If t*sin(t)>0 Then Fun:=Sqrt(t*sin(t))-t-1.2;
End;
{$F-}
Function Koren:Real;
Begin xh:=0; h:=0.01; k:=0;
For i:=1 to 1000 Do Begin
If (Fun(xh)*Fun(xh+h)<0)AND(Fun(xh+h)>0) Then Begin Inc(k); a[k]:=xh+h; End;
xh:=xh+h;
End;
If k>0 Then min:=a[1] Else k:=0;
For i:=1 to k Do
If a[i]>min Then min:=a[i];
Koren:=min;
End;
Begin
ClrScr;
WriteLn('x=',Koren:6:3);
ReadLn;
End.
Соседние файлы в папке DIMA