Напишите в PascalABC машину (только машину) с помощью GraphABC (использовать только простые команды)!!!!
5-9 класс
|
вот программа:
program Speed;
uses crt,graphABC;
begin
circle (180,330,30);
circle (180,330,40);
Line (180,330,165,315);
Line (180,330,195,315);
Line (180,330,195,330);
Line (180,330,165,330);
Line (180,330,165,345);
Line (180,330,195,345);
Line (180,345,180,315);
circle (450,330,30);
circle (450,330,40);
Line (435,330,465,330);
Line (450,315,450,345);
Line (465,315,435,345);
Line (435,315,465,345);
Line (143,315,120,315);
Line (120,315,110,330);
Line (110,330,60,330);
Line (60,330,55,320);
Line (55,320,55,280);
Line (55,280,64,280);
Line (63,280,90,240);
Line (90,240,180,225);
Line (180,225,210,160);
Line (210,160,510,160);
Line (510,160,480,210);
Line (489,195,540,300);
Line (540,300,491,330);
Line (491,330,540,330);
Line (540,330,510,355);
Line (510,355,481,355);
Line (540,330,540,300);
Line (418,355,212,355);
Line (147,355,60,355);
Line (60,355,60,330);
Line (105,240,86,280);
Line (86,280,60,280);
Line (220,330,410,330);
Line (480,210,450,210);
Line (450,210,440,160);
Line (165,270,300,270);
Line (165,270,165,292);
Line (165,270,213,165);
Line (213,165,420,165);
Line (420,165,420,240);
Line (420,240,360,320);
Line (360,320,310,320);
Line (310,320,305,315);
Line (305,315,330,240);
Line (330,240,420,240);
Line (330,270,360,270);
Line (330,240,330,165);
Line (180,260,220,170);
Line (220,170,320,170);
Line (320,170,300,270);
Line (180,260,300,260);
Line (300,270,283,320);
Line (283,320,220,320);
Line (255,300,285,300);
Line (55,287,165,287);
Line (385,287,533,287);
Line (102,247,175,247);
Line (416,247,514,247);
end.
также посмотри результат работы:
можешь, отметить мой ответ как лучший?!
Другие вопросы из категории
2) в командной строке задана маска имени файла в виде а*s?f.??c. Укажите какие имена файлов соответствует этой маске.
А)amesat.pc
Б)acrost.acc
В)afasit.ppc
Г) brosat.clc
глаголов).
--
Я сделал хочу убидится правильно
Читайте также
рисунок (должно двигаться не менее трех частей) , например - машина с
вращающимися колесами, с помощью цикла for и простых команд
(использовать GraphABC).
колесами, с помощью цикла for и простых команд (использовать GraphABC).
СРОЧНО НАДО ДАНО И РЕШЕНИЕ ПРОПУСТИЛА КОГДА ОБЪЯСНЯЛИ КАК РЕШАТЬ ЗАДАЧИ)))
ВОПРОС 2
Наведение указателя мыши на значок объекта и задержка его на некотрое время называется ...
Вариант 1 зависанием
Вариант 2 двойным щелчком
Вариант 3 перетаскиванием
Вариант 4 протягиванием
ВОПРОС 5 Как создать документ, папку?
Вариант 1 только с помощью команды меню Файл -> Создать и выбрать тип объекта
Вариант 2 с помощью команды меню Файл -> Создать или контекстного меню
Вариант 3 вызвать контекстное меню, нажав правую кнопку мыши
Вариант 4 нарисовать новую папку, используя инструмент карандаш
ВОПРОС 6 Как выделить несколько файлов или папок, идущих подряд? Вариант 1 с помощью клавиш <Ctrl>+<A>
Вариант 2 выбрать команду Правка-> Выделить все
Вариант 3 выделить имя первого файла, нажать клавишу <Shift >и выделить последний файл из группы
.Вариант 4 нажать <Ctrl >и щелкать по именам нужных файлов.
ВОПРОС 11 Как завершить работу с программой (приложением)? Вариант 1<Alt>+<F4> или команда Файл -> Выход
Вариант 2 кнопка Закрыть или команда Файл -> Выход
Вариант 3<Alt>+<F4>, кнопка Закрыть или команда Файл -> Выход
Вариант 4<Alt>+<Tab>
ВОПРОС 16 Ярлык – это ...
Вариант 1 ссылка на объект, расположенный не на Рабочем столе, а в какой-то папке.
Вариант 2 копия файла, папки или программы
Вариант 3 папка
Вариант 4 значок со стрелкой, позволяющий изменять свойства объекта
ВОПРОС 21 Для получения дополнительных функций других клавиш необходимо: Вариант 1 удерживая клавишу <Shift>, нажать другую клавишу;
Вариант 2 удерживая клавишу <Alt>, нажать другую клавишу;
Вариант 3 удерживая клавишу <Ctrl>, нажать другую клавишу;
Вариант 4 удерживая клавишу <Shift>,<Alt> или <Ctrl> нажать другую клавишу;
ВОПРОС 30 Нажатие какой клавиши (не всегда , но часто) вызывает выход из режима программы или отмену предыдущей команды, действия?
Вариант 1 Esc
Вариант 2 Tab
Вариант 3 Enter
Вариант 4 Delete