Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/14: Рейтинг темы: голосов - 14, средняя оценка - 4.71
Romaan
0 / 0 / 0
Регистрация: 25.04.2012
Сообщений: 6
1

Нарисуйте Компьютер в Паскале

25.04.2012, 11:02. Просмотров 2786. Ответов 5
Метки нет (Все метки)

Я с паскалем не очень, надеюсь на вашу помощь, буду благодарен. Компьютер должен быть настольным.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.04.2012, 11:02
Ответы с готовыми решениями:

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

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

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

Нарисуйте олимпийский флаг
Нарисуйте олимпийский флаг. ГРАФ

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

5
Puporev
Модератор
55057 / 42325 / 29229
Регистрация: 18.05.2008
Сообщений: 100,021
25.04.2012, 11:17 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses graphABC;
var xc,yc,w,h:integer;
begin
xc:=windowwidth div 2;
yc:=windowheight div 2-50;
w:=100;
h:=80;
setpenwidth(3);
rectangle(xc-w,yc-h,xc+w,yc+h);
rectangle(xc-w+10,yc-h+10,xc+w-10,yc+h-20);
line(xc-30,yc+h,xc-40,yc+h+40);
line(xc+30,yc+h,xc+40,yc+h+40);
line(xc-40,yc+h+40,xc+40,yc+h+40);
line(xc-w+10,yc+h+60,xc+w-10,yc+h+60);
line(xc-w,yc+h+100,xc+w,yc+h+100);
line(xc-w+10,yc+h+60,xc-w,yc+h+100);
line(xc+w-10,yc+h+60,xc+w,yc+h+100);
arc(xc+40,yc+h+40,30,320,360);
arc(xc+30,yc+h+40,40,0,90);
end.
Добавлено через 26 секунд
Чего не хватает, дорисуй.
0
Romaan
0 / 0 / 0
Регистрация: 25.04.2012
Сообщений: 6
25.04.2012, 11:44  [ТС] 3
Благодарчик!

Добавлено через 25 минут
Дорисуйте пожалуйста а то у меня не получается, разукрасьте и дорисуйте системник, о то еще двоечку хапну!
0
Puporev
Модератор
55057 / 42325 / 29229
Регистрация: 18.05.2008
Сообщений: 100,021
25.04.2012, 11:45 4
Цитата Сообщение от Romaan Посмотреть сообщение
о то еще двоечку хапну!
И это будет вполне заслужено.
0
Romaan
0 / 0 / 0
Регистрация: 25.04.2012
Сообщений: 6
25.04.2012, 11:47  [ТС] 5
Просто я на том уроке не был!
0
Puporev
Модератор
55057 / 42325 / 29229
Регистрация: 18.05.2008
Сообщений: 100,021
25.04.2012, 11:51 6
Я тоже там не был, скачивай учебник, читай и рисуй.
0
25.04.2012, 11:51
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.04.2012, 11:51

Нарисуйте шахматную доску с шашками
Нарисуйте шахматную доску с шашками пжл

Нарисуйте блок схему пжлста )
Вообщем сабж нужно начертить блок схему по такому заданию : нужно найти сумму...

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


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

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

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