Bjorndalen
Зарегистрирован: 18.07.2007
Сообщения: 29
|
 Добавлено: Ср Окт 31 2007 08:57 Заголовок сообщения: |
 |
|
Вот код программы на паскале:
| Код: |
program Rectangl;
uses crt,graph;
var gd,gm:integer;
x,y,width,height:integer;
begin
write('Insert width: ');
readln(width);
write('Insert height: ');
readln(height);
gd:=detect;
initgraph(gd,gm,'');
x:=trunc(getMaxX/2-width/2);
y:=trunc(getMaxY/2-height/2);
rectangle(x,y,x+width,y+height);
readln
end.
|
Он хорошо читается и я думаю, что вам будет полезнее самому разобраться в нем (используя справочники, а лучше встроенную в Turbo Pascal справку). |
|
FAQ 
Поиск 
Пользователи 
Группы
Регистрация
Профиль 
Войти и проверить личные сообщения 
Вход 
