Форум программистов, компьютерный форум, киберфорум
Наши страницы

Free Pascal

Войти
Регистрация
Восстановить пароль
 
free16
0 / 0 / 0
Регистрация: 20.02.2017
Сообщений: 36
#1

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

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

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

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

Найти площадь трапеции - Free Pascal
Найти площадь равнобочной трапеции с основаниями a и b и углом v при большем основании а. Значения a, b и v вводятся с клавиатуры

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

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

График криволинейной трапеции - Pascal
Помогите нарисовать график Криволинейной трапецией ограниченная графиком неотрицательной и непрерывной на отрезке (вводятся с клавиатуры) ...

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

3
Puporev
Модератор
52399 / 40246 / 13579
Регистрация: 18.05.2008
Сообщений: 93,031
04.04.2017, 20:08 #3
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
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 / 0
Регистрация: 20.02.2017
Сообщений: 36
04.04.2017, 20:13  [ТС] #4
Спасибо!
0
04.04.2017, 20:13
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.04.2017, 20:13
Привет! Вот еще темы с ответами:

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

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

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

Определите площадь трапеции высотой h, с основаниями a, b - Pascal
Помогите пожалуйста решить задачку: Определите площадь трапеции высотой h, с основаниями a, b.


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

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

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