Var a,i,k:integer; begin Writeln ('Введи номер месяца'); Readln (k); if (k>0) and (k<13) then case k of 1..3: writeln ('Первый квартал'); 4..6: writeln ('второй квартал'); 7..9: writeln ('третий квартал'); 10..12: writeln ('четвертый квартал'); End else writeln ('неверный ввод'); Readln; end.
writeln('Введите цифру от 1 до 3:');
readln(digit);
case digit of
1: DrawOne();
2: DrawTwo();
3: DrawThree();
end;
readln;
closegraph;
end.
Программа сначала инициализирует графическое окно, а затем запрашивает цифру от пользователя. В зависимости от выбранной цифры, вызывается соответствующая процедура для рисования этой цифры. В конце программы окно закрывается.
2) Программа, чтобы рисовалась любая цифра от 0 до 9:
procedure DrawDigit(digit: integer);
var
i, j: integer;
begin
for i := 1 to 5 do
begin
for j := 1 to length(DigitPatterns[digit]) do
begin
if DigitPatterns[digit][j] = '#' then
line(j * 10, i * 10, j * 10, i * 10);
end;
end;
end;
var
num: integer;
gd, gm: smallint;
begin
gd := Detect;
InitGraph(gd, gm, '');
writeln('Введите цифру от 0 до 9:');
readln(num);
DrawDigit(num);
readln;
closegraph;
end.
В данной программе для каждой цифры от 0 до 9 создан паттерн, представляющий собой строку символов "#" и "перевод каретки" (#10). Этот паттерн используется для рисования каждой цифры. В цикле по строке паттерна проверяется символ и при нахождении символа "#" рисуется горизонтальная линия. В результате получается изображение выбранной цифры.
Если возникнут еще вопросы, не стесняйтесь спрашивать!
Для решения этой задачи нам нужно использовать общую формулу, которая позволит нам связать угол поворота колеса с расстоянием, которое робот проезжает. Формула связывает длину окружности колеса с углом поворота по следующему принципу:
Длина окружности = 2πR,
где R - радиус колеса.
Используя данную формулу, мы можем связать угол поворота колеса с расстоянием:
Угол поворота = расстояние / длина окружности.
В данной задаче робот должен проехать прямолинейный участок длиной 2 метра 5 сантиметров. Для удобства переведем данную длину в сантиметры, чтобы единицы измерения угла и расстояния были одинаковые.
Расстояние = 2 м * 100 см/м + 5 см = 205 см.
Также нам дан радиус колеса, который составляет 5 см.
Теперь посчитаем длину окружности каждого колеса:
Длина окружности = 2πR = 2 * 3 * 5 см = 30 см.
Таким образом, каждое колесо совершает полный оборот на расстояние 30 см.
Теперь мы можем определить, сколько оборотов должно совершить колесо, чтобы робот проехал заданное расстояние.
Обороты = расстояние / длина окружности = 205 см / 30 см = 6.833...
Так как мы не можем совершить дробный оборот, округлим полученное значение до целого числа. Для этого воспользуемся формулой округления до ближайшего целого числа:
Целое число = int(число + 0.5).
Целое число оборотов = int(6.833... + 0.5) = 7.
Таким образом, колеса должны совершить 7 полных оборотов, чтобы робот проехал заданное расстояние.
У нас есть два колеса, и каждое колесо связано с отдельным мотором. Мотор В будет всегда работать на максимальной скорости, значит его угол поворота будет равен 7 полным оборотам (360 градусов/оборот) * 7 оборотов = 2520 градусов.
Теперь мы можем использовать данное значение угла поворота мотора В и расстояние между центрами колес (30 см), чтобы определить угол поворота для мотора А.
На прямолинейном участке путь мотора А будет прямой, параллельной оси движения робота. Таким образом, для определения угла поворота мотора А мы можем использовать теорему Пифагора:
Итак, на сколько градусов должна повернуться ось мотора A, при работающем моторе В, чтобы робот проехал прямолинейный участок трассы длиной 2м 5см, составляет 6760 градусов. Ответ - 6760.
begin
Writeln ('Введи номер месяца');
Readln (k);
if (k>0) and (k<13) then
case k of
1..3: writeln ('Первый квартал');
4..6: writeln ('второй квартал');
7..9: writeln ('третий квартал');
10..12: writeln ('четвертый квартал');
End
else writeln ('неверный ввод');
Readln;
end.