Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 978 ответов!

Напишите в PascalABC машину (только машину) с помощью GraphABC (использовать только простые команды)!!!!

5-9 класс

Alua1 21 февр. 2015 г., 10:00:35 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Kazachuk2000
21 февр. 2015 г., 12:07:36 (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.

также посмотри результат работы:

+ 0 -
Ivaneky
21 февр. 2015 г., 14:18:08 (9 лет назад)

можешь, отметить мой ответ как лучший?!

Ответить

Другие вопросы из категории

1) за какое время будет передан по каналам связи файл размером 625 Кбайт,если скорость передачи составляет 32000 бод( бит в секунду) ?

2) в командной строке задана маска имени файла в виде а*s?f.??c. Укажите какие имена файлов соответствует этой маске.
А)amesat.pc
Б)acrost.acc
В)afasit.ppc
Г) brosat.clc

Читайте также

Напишите программу в PascalABC с помощью которой рисуется движущийся

рисунок (должно двигаться не менее трех частей) , например - машина с
вращающимися колесами, с помощью цикла 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



Вы находитесь на странице вопроса "Напишите в PascalABC машину (только машину) с помощью GraphABC (использовать только простые команды)!!!!", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.