Гироскопический датчик предназначен для измерения угла вращения робота или скорости вращения. Сверху на корпусе датчика нанесены две стрелки, обозначающие плоскость, в которой работает датчик. Поэтому важно правильно установить датчик на робота. Также для более точного измерения крепление гироскопического датчика должно исключать его подвижность относительно корпуса робота. Даже во время прямолинейного движения робота гироскопический датчик может накапливать погрешность измерения угла и скорости вращения, поэтому непосредственно перед измерением следует осуществить сброс в 0 текущего показания датчика. Вращение робота против часовой стрелки формирует отрицательные значения измерений, а вращение по часовой стрелке - положительные.
Var Z:integer; Begin Write('Z = ');ReadLn(Z); if Z>0 then WriteLn('Положительное') else if Z=0 then WriteLn('Равное нулю') else WriteLn('Отрицательное') End.
Пример: Z = -5 Отрицательное
Z = 0 Равное нулю
Z = 256 Положительное
Z = 10455 Положительное
Var X,Y:real; Begin Write('X = ');ReadLn(X); Write('Y = ');ReadLn(Y); if (X = 0)and(Y = 0) then WriteLn('Начало координат') else if (X=0) then Write('Ось абсцисс') else if (Y=0) then WriteLn('Ось ординат') else if (X>0) then if (Y>0) then WriteLn('Первая четверть') else WriteLn('Вторая четверть') else if (Y<0) then WriteLn('Третья четверть') else WriteLn('Четвёртая четверть') End.
Пример: X = 0 Y = 0 Начало координат
X = 0 Y = 1 Ось абсцисс
X = 1 Y = 0 Ось ординат
X = 1 Y = 1 Первая четверть
X = 1 Y = -1 Вторая четверть
X = -1 Y = -1 Третья четверть
X = -1 Y = 1 Четвёртая четверть
Var a,b,c,S:integer; Begin Write('Введите трёхзначное число: ');ReadLn(A); b:=(a div 10) mod 10; c:=a mod 10; a:=a div 100; S:=a+b+c; if (9<S)and(S<100) then WriteLn('Сумма цифр(',S,') - двузначное число') else WriteLn('Сумма цифр(',S,') не является двузначным числом'); if (a=4)or(b=4)or(c=4) then WriteLn('Цифра 4 есть') else WriteLn('Цифры 4 нет'); if (a=7)or(b=7)or(c=7) then WriteLn('Цифра 7 есть') else WriteLn('Цифры 7 нет') End.
Пример: Введите трёхзначное число: 74 Сумма цифр(11) - двузначное число Цифра 4 есть Цифра 7 есть
Введите трёхзначное число: 71 Сумма цифр(8) не является двузначным числом Цифры 4 нет Цифра 7 есть
Введите трёхзначное число: 13 Сумма цифр(4) не является двузначным числом Цифры 4 нет Цифры 7 нет
Гироскопический датчик предназначен для измерения угла вращения робота или скорости вращения. Сверху на корпусе датчика нанесены две стрелки, обозначающие плоскость, в которой работает датчик. Поэтому важно правильно установить датчик на робота. Также для более точного измерения крепление гироскопического датчика должно исключать его подвижность относительно корпуса робота. Даже во время прямолинейного движения робота гироскопический датчик может накапливать погрешность измерения угла и скорости вращения, поэтому непосредственно перед измерением следует осуществить сброс в 0 текущего показания датчика. Вращение робота против часовой стрелки формирует отрицательные значения измерений, а вращение по часовой стрелке - положительные.
Объяснение:
Begin
Write('Z = ');ReadLn(Z);
if Z>0 then WriteLn('Положительное')
else if Z=0 then WriteLn('Равное нулю')
else WriteLn('Отрицательное')
End.
Пример:
Z = -5
Отрицательное
Z = 0
Равное нулю
Z = 256
Положительное
Z = 10455
Положительное
Var
X,Y:real;
Begin
Write('X = ');ReadLn(X);
Write('Y = ');ReadLn(Y);
if (X = 0)and(Y = 0) then WriteLn('Начало координат')
else if (X=0) then Write('Ось абсцисс')
else if (Y=0) then WriteLn('Ось ординат')
else if (X>0) then
if (Y>0) then WriteLn('Первая четверть')
else WriteLn('Вторая четверть')
else
if (Y<0) then WriteLn('Третья четверть')
else WriteLn('Четвёртая четверть')
End.
Пример:
X = 0
Y = 0
Начало координат
X = 0
Y = 1
Ось абсцисс
X = 1
Y = 0
Ось ординат
X = 1
Y = 1
Первая четверть
X = 1
Y = -1
Вторая четверть
X = -1
Y = -1
Третья четверть
X = -1
Y = 1
Четвёртая четверть
Var
a,b,c,S:integer;
Begin
Write('Введите трёхзначное число: ');ReadLn(A);
b:=(a div 10) mod 10;
c:=a mod 10;
a:=a div 100;
S:=a+b+c;
if (9<S)and(S<100) then WriteLn('Сумма цифр(',S,') - двузначное число')
else WriteLn('Сумма цифр(',S,') не является двузначным числом');
if (a=4)or(b=4)or(c=4) then WriteLn('Цифра 4 есть') else WriteLn('Цифры 4 нет');
if (a=7)or(b=7)or(c=7) then WriteLn('Цифра 7 есть') else WriteLn('Цифры 7 нет')
End.
Пример:
Введите трёхзначное число: 74
Сумма цифр(11) - двузначное число
Цифра 4 есть
Цифра 7 есть
Введите трёхзначное число: 71
Сумма цифр(8) не является двузначным числом
Цифры 4 нет
Цифра 7 есть
Введите трёхзначное число: 13
Сумма цифр(4) не является двузначным числом
Цифры 4 нет
Цифры 7 нет