Program zadacha_3;
var
hour, min,sec,time: integerl;
begin
writeln(‘время запуска ракеты’);
write(‘час’);
readln(hour);
write(‘мин’);
readln(min);
write(‘сек’);
readln(sec);
writeln(‘введите время полета’);
readln(time);
{вычисление времени возвращения ракеты на Землю}
sec:= sec+ time;
min:=min+sec div 60;
sec:=sec mod 60;
hour:=hour+min div 60;
min:=min mod 60;
hour:=hour mod 24;
writeln(‘результаты’);
write(‘время полета=’,time:3,эсек’);
writeln(‘ожидаемое время прибытия=’);
writeln(hour:2,’час’, min:2,’мин’,sec:2,’сек’);
readln;
end.
program zadacha_3;
{Решение уравнения a*x*x+b*x+c=0}
uses crt;
var a,b,c,d,x1,x2:real;
begin
clrscr;
writeln ('Введите коэффициенты');
write ('a=');readln (a);
write ('b=');readln (b);
write ('c=');readln (c);
if (a=0) and (b=0) and (c=0) then
writeln('Корней бесконечно много')
else
if (a=0) and (b=0) and (c<>0) then
writeln ('Корней нет')
else
if (a=0) and (b<>0) then
begin
writeln ('Линейное уравнение');
x1:=-c/b;
writeln('x=',x1:4:2);
end
else
{Решение квадратного уравнения}
begin
d:=sqr(b)-4*a*c;
if d<0 then
writeln ('Действительных корней нет!')
else
if d=0 then
begin
x1:=-b/(2*a);
writeln('x=',x1:4:2);
end
else
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln ('x1=',x1:4:2, ' x2=',x2:4:2);
end
end;
readln
end.
var
hour, min,sec,time: integerl;
begin
writeln(‘время запуска ракеты’);
write(‘час’);
readln(hour);
write(‘мин’);
readln(min);
write(‘сек’);
readln(sec);
writeln(‘введите время полета’);
readln(time);
{вычисление времени возвращения ракеты на Землю}
sec:= sec+ time;
min:=min+sec div 60;
sec:=sec mod 60;
hour:=hour+min div 60;
min:=min mod 60;
hour:=hour mod 24;
writeln(‘результаты’);
write(‘время полета=’,time:3,эсек’);
writeln(‘ожидаемое время прибытия=’);
writeln(hour:2,’час’, min:2,’мин’,sec:2,’сек’);
readln;
end.
{Решение уравнения a*x*x+b*x+c=0}
uses crt;
var a,b,c,d,x1,x2:real;
begin
clrscr;
writeln ('Введите коэффициенты');
write ('a=');readln (a);
write ('b=');readln (b);
write ('c=');readln (c);
if (a=0) and (b=0) and (c=0) then
writeln('Корней бесконечно много')
else
if (a=0) and (b=0) and (c<>0) then
writeln ('Корней нет')
else
if (a=0) and (b<>0) then
begin
writeln ('Линейное уравнение');
x1:=-c/b;
writeln('x=',x1:4:2);
end
else
{Решение квадратного уравнения}
begin
d:=sqr(b)-4*a*c;
if d<0 then
writeln ('Действительных корней нет!')
else
if d=0 then
begin
x1:=-b/(2*a);
writeln('x=',x1:4:2);
end
else
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln ('x1=',x1:4:2, ' x2=',x2:4:2);
end
end;
readln
end.