Робот находится в центре окружности диаметром не менее 40 см. С коротких отрезков окружность разделена на восемь равных частей (см. рис.). Задание: ответить на вопрос на сколько градусов должен провернуться вал левого Двигателя, чтобы робот повернулся вправо на угол в: а) 45 градусов б) 90 градусов в) 180 градусов? Провести экспериментальную проверку, написав программы поворота робота на указанные углы. Запустите программы несколько раз, какова погрешность движения робота? Насколько отличаются углы поворота робота при выполнении одной и той же программы? Заполните таблицу Угол поворота левого колеса робота Угол поворота корпуса робота 45° 90° 1800 1°
Var a: integer; //a - вводимое число n, s: integer; //n- количество введенных чисел, s - сумма этих чисел
begin n:= 0; //обнуляем счетчик s:= 0; a:= 1; {присваиваем значение, отличное от нуля, чтобы цикл не завершился, не начавшись} while a <> 0 do begin writeln('Введите целое число'); readln(a); if a <> 0 then //Чтобы при подсчете среднего арифметического не учитывался 0 begin n:= n + 1; s:= s + a; end; end; writeln('Среднее арифметическое введенных чисел: ', s / n); end.
Var i,n, pol: integer; //pol - количество положительных чисел, n - количество всех чисел a,s: real; //a- вводимое число, s - сумма положительных чисел
begin pol:= 0; //обнуляем счетчик s:= 0; writeln('Введите количество чисел'); readln(n); for i:= 1 to n do begin writeln('Введите число'); readln(a); if a > 0 then begin s:= s + a; pol:= pol + 1; end; end; writeln('Среднее арифметическое положительных чисел: ', s / pol); {среднее арифметическое равно сумме чисел делить на их количество} end.
a: integer; //a - вводимое число
n, s: integer; //n- количество введенных чисел, s - сумма этих чисел
begin
n:= 0; //обнуляем счетчик
s:= 0;
a:= 1; {присваиваем значение, отличное от нуля, чтобы цикл не завершился, не начавшись}
while a <> 0 do
begin
writeln('Введите целое число');
readln(a);
if a <> 0 then //Чтобы при подсчете среднего арифметического не учитывался 0
begin
n:= n + 1;
s:= s + a;
end;
end;
writeln('Среднее арифметическое введенных чисел: ', s / n);
end.
i,n, pol: integer; //pol - количество положительных чисел, n - количество всех чисел
a,s: real; //a- вводимое число, s - сумма положительных чисел
begin
pol:= 0; //обнуляем счетчик
s:= 0;
writeln('Введите количество чисел');
readln(n);
for i:= 1 to n do
begin
writeln('Введите число');
readln(a);
if a > 0 then
begin
s:= s + a;
pol:= pol + 1;
end;
end;
writeln('Среднее арифметическое положительных чисел: ', s / pol); {среднее арифметическое равно сумме чисел делить на их количество}
end.