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