Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.69/13: Рейтинг темы: голосов - 13, средняя оценка - 4.69
Irina_Fadeeva
0 / 0 / 0
Регистрация: 15.05.2011
Сообщений: 19
1

Нарисуйте олимпийский флаг

15.05.2011, 17:29. Просмотров 2363. Ответов 2
Метки нет (Все метки)

Нарисуйте олимпийский флаг. ГРАФ
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.05.2011, 17:29
Ответы с готовыми решениями:

Графика: олимпийский флаг
Нарисуйте олимпийский флаг. Программу надо написать в Pascal ABC. Опишите...

Нарисовать олимпийский флаг
нарисуйте пожалуйста олимпийский флаг. Pascal.

Нарисуйте ракету
Ракета должна двигаться Добавлено через 19 минут Вот я...

Нарисуйте дерево
Нужно срочно нарисовать дерево в Pascal ABC

Нарисуйте блокс схему
Дан массив размера N. Найти номера тех элементов массива, которые больше своего...

2
Puporev
Модератор
54995 / 42296 / 29207
Регистрация: 18.05.2008
Сообщений: 99,934
16.05.2011, 13:39 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses graphABC;
var xc,yc,r,x,y:integer;
begin
xc:=windowwidth div 2;
yc:=windowheight div 2;
r:=50;
clearwindow(clAqua);
setbrushstyle(bsSolid);
setbrushcolor(clWhite);
rectangle(xc-4*r,yc-3*r,xc+4*r,yc+2*r);
setpenwidth(5);
setbrushstyle(bsClear);
setpencolor(clBrown);
circle(xc,yc-r,r);
setpencolor(clBlue);
circle(xc-2*r,yc-r,r);
setpencolor(clRed);
circle(xc+2*r,yc-r,r);
setpencolor(clYellow);
circle(xc-r,yc,r);
setpencolor(clGreen);
circle(xc+r,yc,r);
end.
2
Irina_Fadeeva
0 / 0 / 0
Регистрация: 15.05.2011
Сообщений: 19
17.05.2011, 19:11  [ТС] 3
+1 спасибо
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.05.2011, 19:11

Нарисуйте Компьютер в Паскале
Я с паскалем не очень, надеюсь на вашу помощь, буду благодарен. Компьютер...

нарисуйте блок-схему
uses crt; const n=5; m=12; var a:array of byte; i,j,imx:byte; ...

Нарисуйте пожалуйста блок схему
uses crt; const nn=10;mm=10; type tarr=array of real; tvec=array of...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru