Написать в Паскале 111. Мышонок Джерри улепетывает к своей норке по прямой. Успеет ли кот Том догнать Джерри, если Джерри находится как раз на полпути между Томом и норкой? 118. Даны коэффициенты квадратного уравнения a,b,c. На...
Написать в Паскале
111. Мышонок Джерри улепетывает к своей норке по прямой. Успеет ли кот Том догнать Джерри, если Джерри находится как раз на полпути между Томом и норкой?
118. Даны коэффициенты квадратного уравнения a,b,c. Найти действительные корни этого уравнения.
122. Можно ли прямоугольный пакет размерами A,B,C положить в чемодан размерами X,Y,Z?
123.Составить программу вычисления значения функций:
а)1 при x>= 0;
y=0 при x<0
б)x^2 при x>0
y=-x при x<=0
в)1 при x>=1
y=0 при -11
y=0 при -1<=x<=1
x+1 при x<-1
Гость
Ответ(ы) на вопрос:
Гость118. Даны коэффициенты квадратного уравнения a,b,c. Найти действительные корни этого уравнения.
program Kv_ur;
var a,b,c,x1,x2,D: real;
begin
Writeln ('Для решения квадратного уравнения');
Writeln ('Введите коэффициент a');
Readln (a);
Writeln ('Введите коэффициент b');
Readln (b);
Writeln ('Введите коэффициент c');
Readln (c);
D:=Sqr(b)-4*a*c;
If d<0 then Writeln ('Так как дискрименант ',D,'<0 уравнение не имеет решений');
begin
If d=0 then
begin
x1:=-b/(2*a);
Writeln ('Так как дискриминант равен 0 уравнение имеет один корень:');
Writeln(x1);
end;
If d>0 then
begin
x1:=(-b- Sqrt(Sqr(b)-4*a*c))/2*a;
x2:=(-b+ Sqrt(Sqr(b)-4*a*c))/2*a;
Writeln ('Так как дискриминант ',D,'>0 уравнение имеет два корня:');
Writeln ('x1=', x1, ' и x2=', x2);
end;
end;
end.
122. Можно ли прямоугольный пакет размерами A,B,C положить в чемодан размерами X,Y,Z?
program chemodan;
var a,b,c,x,y,z: real;
begin
Writeln ('введите размеры пакета');
Writeln ('Введите длину a');
Readln (a);
Writeln ('Введите ширину b');
Readln (b);
Writeln ('Введите высоту c');
Readln (c);
Writeln ('введите размеры чемодана');
Writeln ('Введите длину х');
Readln (x);
Writeln ('Введите ширину y');
Readln (y);
Writeln ('Введите высоту z');
Readln (z);
If (a<=x) and (b<=y) and (c<=z) then Writeln ('пакет можно положить')
else Writeln ('пакет положить нельзя');
End.
Не нашли ответ?
Похожие вопросы