Дана прямая с начальной точкой "о". два зайца начинают одновременно двигать по этой прямой в сторону от этой точки. стартовали они на разном расстоянии от точки о. нужно составить функцию на языке программирования python, которая покажет, на каком расстоянии от точки o зайцы встретятся. условия есть величины: - начальная позиция (несколько единиц) от точки о - длина прыжка (несколько единиц) преодолеваемая за один прыжок - продолжительность отдыха - после каждого прыжка заец должен отдохнуть. показывает, как долго (сколько единиц времени) заяц будет отдыхать между двумя прыжками. сам прыжок длится 0 единиц. известно что все величины это целые числы: - позиция > = 0 - длина прыжка > = 0 - продолжительность отдыха > = 1 нужно написать функцию, которая использует использует все названные величины для обоиз зайцев и может показыть - -1 если зайцы никогда не встретятся - позицию, где они встретятся впервый раз. встреча проходит на землев момент начала или конца отдыха) декларация функции: def meet_me(pos1, jump_distance1, sleep1, pos2, jump_distance2, sleep2) примеры: meet_me(1, 2, 1, 2, 1, 1) => 3 meet_me(1, 2, 3, 4, 5, 5) => -1 meet_me(10, 7, 7, 5, 8, 6) => 45 meet_me(100, 7, 4, 300, 8, 6) => 940 meet_me(1, 7, 1, 15, 5, 1) => 50
Ответы
Напиши вк я тебе ответ скину я ссылку с ответом тебе кинуть здесь не могу
var a, b, c, D, x, y: real;
begin
readln(a, b, c); {ax^4 + bx^2 + c = 0}
if a = 0 then
writeln('Non-bisquare')
else
begin
D := b * b - 4 * a * c;
if D < 0 then
writeln('No solutions')
else
begin if D = 0 then
begin x := -b / 2 / a;
if x < 0 then
writeln('No solutions')
else writeln('2 solutions: ', sqrt(x), ' ', -sqrt(x));
end
else
begin x := (-b + sqrt(D)) / 2 / a;
y := (-b - sqrt(D)) / 2 / a;
if x < 0 then writeln('No solutions');
if x = 0 then
writeln('1 solution: 0');
if (x > 0) and (y < 0) then
writeln('2 solutions: ', sqrt(x):0:3, ' ', -sqrt(x):0:3);
if (x > 0) and (y = 0) then
writeln('3 solutions: ', sqrt(x):0:3, ' ', -sqrt(x):0:3, ' 0');
if y > 0 then
writeln('4 solutions: ', sqrt(x):0:3, ' ', -sqrt(x):0:3, ' ', sqrt(y):0:3, ' ', -sqrt(y):0:3);
end;
end;
end;
end.
begin
readln(a, b, c); {ax^4 + bx^2 + c = 0}
if a = 0 then
writeln('Non-bisquare')
else
begin
D := b * b - 4 * a * c;
if D < 0 then
writeln('No solutions')
else
begin if D = 0 then
begin x := -b / 2 / a;
if x < 0 then
writeln('No solutions')
else writeln('2 solutions: ', sqrt(x), ' ', -sqrt(x));
end
else
begin x := (-b + sqrt(D)) / 2 / a;
y := (-b - sqrt(D)) / 2 / a;
if x < 0 then writeln('No solutions');
if x = 0 then
writeln('1 solution: 0');
if (x > 0) and (y < 0) then
writeln('2 solutions: ', sqrt(x):0:3, ' ', -sqrt(x):0:3);
if (x > 0) and (y = 0) then
writeln('3 solutions: ', sqrt(x):0:3, ' ', -sqrt(x):0:3, ' 0');
if y > 0 then
writeln('4 solutions: ', sqrt(x):0:3, ' ', -sqrt(x):0:3, ' ', sqrt(y):0:3, ' ', -sqrt(y):0:3);
end;
end;
end;
end.
1.program z;var a:array [1..10] of integer; i,t:integer; s:real;beginfor i:=1 to 10 dobegina[i]:=random(1,100);write(a[i]:4);if (odd(i)) and (odd(a[i])) then begins:=s+a[i];t:=t+1;end;end;writeln;write('Cреднее арифметическое = ',s/t);end.2.program z;var a:array[1..10] of integer; max,i:integer;beginwriteln('Исходный массив');for i:=1 to 10 dobegina[i]:=random(1,100);write(a[i]:4);if a[i]>max then max:=a[i];end;writeln;writeln('Измененный массив');for i:=1 to 10 dobeginif not(odd(a[i])) then a[i]:=max;write(a[i]:4);end;end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос: