сервис вопросов и ответовПожалуйста, добавьте программу, которая заставит двигаться глаза:
10-11 класс|
|
uses graphABC;
begin
setwindowsize(500,400);
setpencolor(clwhite);
setbrushcolor(clbrown);
ellipse(60,40,100,90);
ellipse(160,40,200,90);
circle(130,110,70);
ellipse(90,110,170,160);
setbrushcolor(clwhite);
setpencolor(clblack);
circle(105,80,15);
circle(155,80,15);
setbrushcolor(clblack);
ellipse(100,75,110,93);
ellipse(150,75,160,93);
ellipse(150,75,160,93);
setpencolor(clwhite);
setbrushcolor(clbrown);
floodfill(60,40,cllightblue);
end.
Nastyagfh
09 окт. 2013 г., 23:36:52 (10 лет назад)
Koblyakova2000
10 окт. 2013 г., 1:24:00 (10 лет назад)
uses graphABC;
var x,k:integer;
begin
setwindowsize(500,400);
setpencolor(clwhite);
setbrushcolor(clbrown);
ellipse(60,40,100,90);
ellipse(160,40,200,90);
circle(130,110,70);
ellipse(90,110,170,160);
setbrushcolor(clwhite);
setpencolor(clblack);
circle(105,80,15);
circle(155,80,15);
floodfill(60,40,cllightblue);
x:=100;
k:=1;
WHILE x>0 do
begin
setbrushcolor(clwhite);
setpencolor(clblack);
circle(105,80,15);
circle(155,80,15);
setbrushcolor(clblack);
ellipse(x,75,x+10,93);
ellipse(X+50,75,x+60,93);
x:=x+k;
if x=110 then k:=-1;
if x=90 then k:=1;
sleep(500)
end
end.
V1rtt
10 окт. 2013 г., 2:42:10 (10 лет назад)
Ты хочешь что бы мы щас по паскалю написали программу или что?
Ferko8890
10 окт. 2013 г., 3:17:12 (10 лет назад)
в общем-то да, что не так?
QweQweMan
10 окт. 2013 г., 4:22:34 (10 лет назад)
Просто писать софты я думаю врятли кто будет так что тема не совсем актуальна я бы на delphi7 может быть и написал но это не минутное дело)
Wwwseregadelyi
10 окт. 2013 г., 5:58:11 (10 лет назад)
принципе это несложно, но долго=)
Ответить
Другие вопросы из категории
Дано квадратное уравнение вида A*x^2+B*x+C=0
Коэффициенты заданы A= 4.00 B= -52.00 C= 144.00
A>0, D>0. Формулы для помощи: d=B^2 - 4*a*c; x1,2=(-b +- Sqrt(d))/(2*a)
Вывести вначале меньший корень, затем больший.
Нужно написать программу в Pascal'e.
В результате сканирования с разрешением 72 dpi было получено изображение, которое затем распечатали на принтере с разрешением 600 dpi. Что произойдет с
изображением при печати?
1) Качество печати изображения будет высоким, размер рисунка на бумаге не изменится.
2) Качество печати изображения будет высоким, размер рисунка на бумаге изменится.
3) Качество печати будет значительно хуже изображения, размер рисунка на бумаге не изменится.
4) Качество печати будет значительно хуже изображения, размер рисунка на бумаге изменится.
Читайте также
Пожалуйста, добавьте программу, которая заставит двигаться глаза:
uses graphABC;
begin
setwindowsize(500,400);
setpencolor(clwhite);
setbrushcolor(clbrown);
ellipse(60,40,100,90);
ellipse(160,40,200,90);
circle(130,110,70);
ellipse(90,110,170,160);
setbrushcolor(clwhite);
setpencolor(clblack);
circle(105,80,15);
circle(155,80,15);
setbrushcolor(clblack);
ellipse(100,75,110,93);
ellipse(150,75,160,93);
ellipse(150,75,160,93);
setpencolor(clwhite);
setbrushcolor(clbrown);
floodfill(60,40,cllightblue);
end.
1)Написать программу, которая спрашивает имя пользователя, а потом здоровается. 2)Написать программу, которая выводит на экран перевёрнутый
текст.
3)Написать программу, которая определяет является ли слово палиндромом.
4)Написать программу, определяющую какая из букв а или о встречается в тексте первой.
Помогите хотябы одну пожалуйста))Нужно до завтра!))
Помогите, Пожалуйста, с программой Паскаль. Рассмотрим целочисленный массив А[1..N] при N <= 100.
Написать программу, которая вычисляет среднее арифметическое элементов с четными индексами и среднее арифметическое с нечетными индексами.
Ввод: Число N и элементы массива вводятся из Файла.
Вывод: В файл должны быть введены 2 вычисленных значения
Помогите мне пожалуйста с программой..(В паскале) Опишите процедуру поиска наибольшего и наименьшего элемента массива. С помощью этой процедуры составить
программу, которая определяет совпадают ли наибольший и наименьший элементы двух массивов A[1..n], B[1..n].
Напишите программу, которая вычисляет НОД двух чисел. Используйте функцию.
Напишите программу, которая вычисляет НОК двух чисел. Используйте функцию.
Вы находитесь на странице вопроса "Пожалуйста, добавьте программу, которая заставит двигаться глаза:", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.