решить уравнение на паскаль

[dilja]

решить уравнение

[Exoo]

алгоритм примерно такой:

i:=0;
создаем цикл от t=-3 до t=3 с шагом 0.5
begin
в нем находим дискриминант для уравнения с данным значением t.
находим корни.
записываем корни в массивы х1[i] и х2[i].
i:=i+1;
end;

создаем цикл от i=0 до i=11 для нахождения максимальных и минимальных иксов, где max и min соответствующие массивы
begin
if x1[i]>x2[i] then max[i]:=x1[i], min[i]:=x2[i]
else max[i]=x2[i], min[i]:=x1[i];
end;
вновь создаем цикл i=0 до i=11
бегин
вычисляем уравнение где вместо х1 всавляем max[i], а вместо х2 вставляем min[i].
выводим результат
енд.

это всего лишь алгоритм, синтаксические нормы языка паскаль не учтены )

[dilja]

Program Lab3;
const H=0.5;
Xmin=-3;
Xmax=3;
Var D,t,x,x1,x2,y:real;
Begin
D:=sqr(0.3)-4*48*t;
While (D=sqr(0.3)-4*48*t) do
Begin
x:=Xmin;
Repeat
If D>0 Then
begin x1:=(-48+sqrt(D))/(2*0.3);
x2:=(-48-sqrt(D))/(2*0.3);
Writeln ('x1=', x1:7:2, 'x2=', x2:7:2);
end
Else
If D=0 Then
begin x1:=-48/(2*0.3);
Writeln ('x=', x1:7:2);
end
else writeln ('êîðíåé íåò!!!');
x:=x+H
until x>=Xmax;
y:=arctan(x1/x2)+sqrt(sqr(x1)+sqr(x2))*cos(0.05*x2);
Writeln ('y=', y:7:2);
end;
end.

можете ошибку найтиии??


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Exoo]

.....
const H=0.5;
Xmin=-3;
Xmax=3;
Var D,t,x,x1,x2,y:real;
Begin
D:=sqr(0.3)-4*48*t;
While (D=sqr(0.3)-4*48*t) do
......

вас не смущает что первоначальное значение t ни как не заданно?

в вашей программе d всегда будет равно само себе. и поэтому цикл while у вас всегда выполняется

[JUDAS]

program Project1;
var
  t0, t1, dt:double;
  x1,x2,y : double;
begin
 writeln('enter limits (-3..3) : ');read(t0,t1);
 if t1<=t0 then
 begin
  writeln('error limit value');
  exit;
 end;
 writeln('enter delta : ');read(dt);
  dt := abs(dt);
 if dt=0 then
 begin
  writeln('error delta value');
  exit;
 end;
 t0:=t0-dt;
 while t0<t1 do
 begin
  t0:=t0+dt;
  x1:=(48+sqrt(2304-1.2*t0))/0.6;
  x2:=(48-sqrt(2304-1.2*t0))/0.6;

  if x2>x1 then
   y:=arctan(x1/x2)+sqrt(x1*x1+x2*x2)*cos(0.05*x2) else
   y:=arctan(x2/x1)+sqrt(x1*x1+x2*x2)*cos(0.05*x1);
  writeln('t=',t0:6:2,' y=',y:8:4);
 end;
end.

[dilja]

а как t задать?

[Exoo]

для начала.

t:=-3;

.
а дальше я думаю выше приведенный код пользователем JUDAS должен вам помочь