сервис вопросов и ответовНапишите программу в PascalABC с помощью которой рисуется движущийся рисунок (должно двигаться не менее трех частей) , например - машина с вращающимися
5-9 класс|
|
колесами, с помощью цикла for и простых команд (использовать GraphABC).
аленама
05 янв. 2015 г., 17:55:50 (9 лет назад)
Nikita2102
05 янв. 2015 г., 19:02:29 (9 лет назад)
часы:
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.
Ответить
Другие вопросы из категории
1. Галя, Марина и Оля пришли на праздничный утренник в платьях разного цвета: в желтом, синем и розовом. Галя была не в желтом, Марина – н
е в желтом и не в розовом. В каком платье была каждая девочка?
Задачка на смекалку))
Задача в Pascal ABC. Задайте массив из 10 элементов с помощью датчика случайных чисел. Замените элементы массива, которые больше введенного с клавиатуры
числа N. Выведите на экран исходный и полученный массив. Пожалуйста
Решенить задачу по паскаль
1.дано число х вычислите қол квадрат
2.имеется число а , число b в 2 раза больше, определить их сумму, числа целые. Срочно
QBASIC
Задана матриця K(N,L) Знайти кількість відємних, кратних трьом елементів.
Заданная матрица K (N, L) Найти количество отрицательных, кратных трем элементов.
Составьте программу которая выводит на экран значение выражения а=в7
В в седьмой степани.
Program...
var...
begin
......
end.
Плиз хелпт!!!
Читайте также
Напишите программу в 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" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.