сервис вопросов и ответовНапишите программу в PascalABC с помощью которой рисуется движущийся
5-9 класс|
|
рисунок (должно двигаться не менее трех частей) , например - машина с
вращающимися колесами, с помощью цикла for и простых команд
(использовать GraphABC).
1234567890йфяцычувс
15 апр. 2014 г., 4:58:17 (10 лет назад)
ВАПРОЛАПРОЛ
15 апр. 2014 г., 6:34:05 (10 лет назад)
можно, например, программа -"Часы"
program zd;
uses crt,graphABC;
var xc,yc,x1,y1,x2,y2,r1,r2:integer;
k:integer;
a1,a2:real;
begin
hidecursor;
SetWindowSize(400,400);
xc:=windowwidth div 2;
yc:=windowheight div 2;
r1:=100; r2:=80;
TextOut(xc-80,15,'завершение любая клавиша');
Setpencolor(clBlue);
SetPenWidth(5);
circle(xc,yc,r1+20);
SetFontSize(12);
SetFontColor(clBlack);
TextOut(xc-10,yc-r1-15,'12');
TextOut(xc-5,yc+r1-3,'6');
TextOut(xc+r1+3,yc,'3');
TextOut(xc-r1-10,yc,'9');
a1:=0;a2:=0;
repeatx1:=xc+round(r1*sin(Pi*a1/180));
y1:=yc-round(r1*cos(Pi*a1/180));
SetPenColor(clBlack);
Line(xc,yc,x1,y1);
x2:=xc+round(r2*sin(Pi*a2/180));
y2:=yc-round(r2*cos(Pi*a2/180));
SetPenColor(clRed);
Line(xc,yc,x2,y2);
sleep(1000);
SetPenColor(clWhite);
Line(xc,yc,x1,y1);
SetPenColor(clWhite);
Line(xc,yc,x2,y2);
a1:=a1+12;a2:=a2+1;
Until keypressed;
SetPenColor(clBlack);
Line(xc,yc,x1,y1);
SetPenColor(clRed);
Line(xc,yc,x2,y2);
end.
результат работы прикреплен:
Ответить
Другие вопросы из категории
Дана последовательность операторовcocaine Ученик (144), Вопрос на голововании 1 год назад1+
a:=1; b:=1;
While a+b<8 do
Begin
a:=a+1;
b:=b+2;
End;
S:=a+b;
Сколько раз будет повторен цикл, и какими будут значения переменных a,b и S после завершения этой последовательности операторов?
Читайте также
Напишите программу в PascalABC с помощью которой рисуется движущийся рисунок (должно двигаться не менее трех частей) , например - машина с вращающимися
колесами, с помощью цикла for и простых команд (использовать GraphABC).
Помогите по программе paskal : 1.дано целое число.напишите программу которая уменьшает на 2 модуль этого числа и выводит на экран монитора
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат
1)Напишите программу,которая в последовательности целых чисел определяет количество трехзначных чисел,не кратных 5 и 7 и не заканчивающ
ихся 0 или 1.
Программа получает на вход целые числа от -3000 до 3000.
2)Напишите программу,которая в последовательности целых чисел вычисляет среднее арифметическое среди двухзначных чётных чисел,делящихся на 3.
НУЖНО СЕГОДНЯ! 66 БАЛЛОВ!
1. Напишите программу, которая вводит трехзначное число и разбивает
его на цифры. Например, при вводе числа 123 программа должна
вывести 1, 2, 3.
2. Напишите программу, которая вводит возраст человека (число, не
превосходящее 120) и выводит на экран этот возраст со словом «»год,
«года» , «лет» . например «21 год», «22 года», «15 лет»
Помогите пожалуйста !!!!
а)Одномерный массив A заполнен десятью случайными целыми числами от 1 до 20. Напишите программу вывода элементов массива в обратном порядке.
б)Напишите программу, которая массив из 20 элементов заполнит неповторяющимися целыми числами и выведет на экран элементы с нечетными индексами.
Вы находитесь на странице вопроса "Напишите программу в PascalABC с помощью которой рисуется движущийся", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.