Question

Написать в Паскале 111. Мышонок Джерри улепетывает к своей норке по прямой. Успеет ли кот Том догнать Джерри, если Джерри находится как раз на полпути между Томом и норкой? 118. Даны коэффициенты квадратного уравнения a,b,c. Найти действительные корни этого уравнения. 122. Можно ли прямоугольный пакет размерами A,B,C положить в чемодан размерами X,Y,Z? 123.Составить программу вычисления значения функций:а)1 при x>= 0;y=0 при  x<0б)x^2 при x>0y=-x при x<=0в)1 при x>=1y=0 при -1<x<1-1 при x<=-1u)x-1 при x>1y=0 при -1<=x<=1x+1 при x<-1 

Answer 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.  

Answer 2

Вот пример программы на Паскале, которая решает указанные задачи:

pascalCopy code
program JerryAndTom;

var
  a, b, c, x, y, z: real;
  
begin
  // Задача 111
  writeln('Задача 111:');
  writeln('Введите расстояние между Томом и норкой (положительное число): ');
  readln(x);
  writeln('Введите положение Джерри (положительное число, не превышающее ', x / 2:0:2, '): ');
  readln(y);

  if y <= x / 2 then
    writeln('Да, Том успеет догнать Джерри.')
  else
    writeln('Нет, Том не успеет догнать Джерри.');
    
  // Задача 118
  writeln;
  writeln('Задача 118:');
  writeln('Введите коэффициент a: ');
  readln(a);
  writeln('Введите коэффициент b: ');
  readln(b);
  writeln('Введите коэффициент c: ');
  readln(c);

  var
    discriminant: real;
    
  discriminant := b * b - 4 * a * c;
  
  if discriminant > 0 then
  begin
    writeln('Уравнение имеет два действительных корня:');
    x := (-b + sqrt(discriminant)) / (2 * a);
    y := (-b - sqrt(discriminant)) / (2 * a);
    writeln('x1 = ', x:0:2);
    writeln('x2 = ', y:0:2);
  end
  else if discriminant = 0 then
  begin
    writeln('Уравнение имеет один действительный корень:');
    x := -b / (2 * a);
    writeln('x = ', x:0:2);
  end
  else
    writeln('Уравнение не имеет действительных корней.');
    
  // Задача 122
  writeln;
  writeln('Задача 122:');
  writeln('Введите размеры чемодана (X, Y, Z): ');
  readln(x, y, z);
  writeln('Введите размеры прямоугольного пакета (A, B, C): ');
  readln(a, b, c);

  if (a <= x) and (b <= y) and (c <= z) then
    writeln('Прямоугольный пакет можно положить в чемодан.')
  else
    writeln('Прямоугольный пакет нельзя положить в чемодан.');
    
  // Задача 123
  writeln;
  writeln('Задача 123:');
  writeln('Введите значение x: ');
  readln(x);

  if x >= 1 then
    y := 1
  else if (x > -1) and (x < 1) then
    y := 0
  else
    y := -1;

  writeln('Результат вычисления функции: y = ', y:0:2);
  
end.

Эта программа решает задачи 111, 118, 122 и 123, как описано в вашем вопросе. Вы можете скопировать этот код в среду программирования Pascal и выполнить его, чтобы увидеть результаты для конкретных входных данных.