|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
24.12.2012, 23:51 | #1 (permalink) |
Member
Регистрация: 04.10.2012
Сообщений: 49
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Построение фигур в Turbo Pascal
Постройте равнобедренную трапецию, высота которой равна h, основания – a и b. Основания расположены горизонтально. Модуль graph. |
24.12.2012, 23:51 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
На форуме создается много аналогичных обсуждений, рекомендую вам почитать их Построение блок схем по коду Pascal Подпрограммы Turbo Pascal |
25.12.2012, 09:01 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Uses CRT, Graph; Var a,b,h,Coef,r1,r2:Real; X0,Y0:Word; Begin Write('a= '); Readln(a); Write('b(<a)= '); Readln(b); Write('h= '); Readln(h); InitGraph(...); - тут самостоятельно. ClearDevice; r1:=a/GetMaxX; r2:=h/GetMaxY; if r1>r2 then Coef:=GetMaxX/2/a else Coef:=GetMaxY/2/h; X0:=GetMaxX div 2; Y0:=GetMaxY div 2; SetLineStyle(SolidLn,0,ThickWidth); Line(X0-Round(a*Coef/2),Y0+Round(h*Coef/2), X0+Round(a*Coef/2),Y0+Round(h*Coef/2)); Line(X0-Round(b*Coef/2),Y0-Round(h*Coef/2), X0+Round(b*Coef/2),Y0-Round(h*Coef/2)); Line(X0-Round(b*Coef/2),Y0-Round(h*Coef/2), X0-Round(a*Coef/2),Y0+Round(h*Coef/2)); Line(X0+Round(b*Coef/2),Y0-Round(h*Coef/2), X0+Round(a*Coef/2),Y0+Round(h*Coef/2)); ReadKey; CloseGraph; End. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|