Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
free16
0 / 0 / 3
Регистрация: 20.02.2017
Сообщений: 55
#1

Построение трапеции - Free Pascal

14.03.2017, 21:29. Просмотров 294. Ответов 3
Метки нет (Все метки)

Написать программу построения трапеции и заполнения ее некоторым цветом после нажатия на клавишу Enter
http://www.cyberforum.ru/free-pascal/thread1927365.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.03.2017, 21:29
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Построение трапеции (Free Pascal):

Вычисление площади трапеции
Участок леса имеет форму равностороннего трапеции. Вычислить периметр и площадь...

Написать программу вычисления площади трапеции
Написать программу вычисления площади трапеции

Даны основания равнобочной трапеции и величина угла при большем основании . Найти площадь трапеции
Даны основания равнобочной трапеции и величина угла при большем основании ....

Площадь трапеции
Ребятки, помогите пожалуйста написть прогу))))) Найти площадь трапеции, если...

График криволинейной трапеции
Помогите нарисовать график Криволинейной трапецией ограниченная графиком...

3
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3857 / 2844 / 3631
Регистрация: 05.06.2014
Сообщений: 13,940
21.03.2017, 19:52 #2
http://www.cyberforum.ru/pascal/thread551059.html
http://www.cyberforum.ru/turbo-pascal/thread1142180.html
http://www.cyberforum.ru/turbo-pascal/thread427931.html
0
Puporev
Модератор
54130 / 41763 / 28874
Регистрация: 18.05.2008
Сообщений: 98,289
04.04.2017, 20:08 #3
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
uses wincrt,graph;
var p:array[1..5] of pointtype;
    x,y:integer;
begin
initgraph(x,y,'');
x:=getmaxX div 2;
y:=getmaxY div 2;
p[1].x:=x-200; p[1].y:=y-200;
p[2].x:=x+200; p[2].y:=y-200;
p[3].x:=x+350; p[3].y:=y+200;
p[4].x:=x-350; p[4].y:=y+200;
p[5]:=p[1];
drawpoly(5,p);
settextstyle(0,0,2);
setcolor(lightred);
outtextXY(x-90,y,'Press Enter');
if readkey=#13 then
 begin
  setcolor(lightred);
  setfillstyle(1,lightred);
  fillpoly(5,p);
 end;
setcolor(lightgreen);
outtextXY(x-90,y,'Press any key');
readkey;
end.
0
free16
0 / 0 / 3
Регистрация: 20.02.2017
Сообщений: 55
04.04.2017, 20:13  [ТС] #4
Спасибо!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.04.2017, 20:13
Привет! Вот еще темы с решениями:

вычисление площади трапеции
ребят помогите пожалуйста, решила задачу Составьте программу для вычисления...

Решения интеграла методом трапеции
Помогите пожалуйста написать код для решения вот этого интеграла Методом...

Вычисление площади равнобедренной трапеции
Составьте программу вычисления площади равнобедренной трапеции, длина большего...

Методом трапеции вычислить площадь фигуры
Написать программу, которая методом трапеции вычислить площадь фигуры: тут...


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

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

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