Написать в Паскале 111. Мышонок Джерри улепетывает к своей норке по прямой. Успеет ли кот...

Question

Написать в Паскале
111. Мышонок Джерри улепетывает к своей норке по прямой. Успеет ли кот Том догнать Джерри, если Джерри находится как раз на полпути между Томом и норкой?
118. Даны коэффициенты квадратного уравнения a,b,c. Найти действительные корни этого уравнения.
122. Можно ли прямоугольный пакет размерами A,B,C положить в чемодан размерами X,Y,Z?
123.Составить программу вычисления значения функций:

а)1 при x>= 0;
y=0 при x<0<br>б)x^2 при x>0
y=-x при x<=0<br>в)1 при x>=1
y=0 при -1-1 при x<=-1<br>u)x-1 при x>1
y=0 при -1<=x<=1<br>x+1 при x<-1 </span>

Comments

// Сто лет не вспоминал Паскаль (да и вообще программирование)// Так что строго не судите:program tom_dgery;var x,y,S,Tt,Td: real;beginwriteln ('введите скорость Тома (в м/мин)');Readln (x);writeln ('Введите скорость Джери (в м/мин)');Readln (y);writeln ('введтие расстояние от норки до Тома (в м)');Readln (S);Tt:=S/x;Td:=(1/2*S)/y; if Tt<Td then writeln ('догонит') else writeln ('не догонит')end.

---

так хорошо,еще поможете?

---

Про квадратное уравнение могу

---

все что сможете,пожалуйста сделайте:)))

---

попробую чемодан)

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 уравнение не имеет решений');<br>     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
else Writeln ('пакет положить нельзя');
End.  

Comments

спасибо!!!!!

---

http://znanija.com/task/11301119?source=200

---

здесь сможете что-нибудь решить?

---

//102.Известна заработная плата сотрудника.
//Вычислить величину подоходного налога.
Program NDS;
var S,Snal,Sv: real;
Begin
Writeln ('Для определения размера НДС введите заработную плату');
Readln (S);
Sv:=S*0.13;
Snal:=S-Sv;
Writeln ('Размер удерженного НДС равен ',Sv);
Writeln ('сумма к выдаче ',Snal);
End.

---

//108.Из одной точки к прямой проведены перпендикуляр и наклонная.
//По длинам отрезков определить, который из них перпендикуляр.
Program Linii;
var AB,AC: real;
Begin
Writeln ('Введите длину отрезка АВ');
Readln (AB);
Writeln ('Введите длину отрезка AC');
Readln (AC);
if AB>AC then Writeln ('АС - перпендикуляр, АВ - наклонная')
else
begin
if AB else Writeln ('Линии совпадают')
end;
End.

---

благодарю

---

Всегда пожалуйста