Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.73/15: Рейтинг темы: голосов - 15, средняя оценка - 4.73
0 / 0 / 0
Регистрация: 17.01.2016
Сообщений: 1
1

Составить программу, которая выполняет чертеж детали и вычисляет её площадь

17.01.2016, 20:56. Просмотров 3091. Ответов 3
Метки нет (Все метки)

Задание а)
0
Миниатюры
Составить программу, которая выполняет чертеж детали и вычисляет её площадь  
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.01.2016, 20:56
Ответы с готовыми решениями:

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

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

Составить программу, которая вычисляет площадь кольца
День добрый нужно написать простенькую программу ИСКЛЮЧИТЕЛЬНО на С . Задание: Составить...

Составить программу, которая вычисляет площадь кольца
Арифметика: Z=cosα+ cos2α+ cos6α+ cos7α Текст: Составить программу, которая вычисляет площадь...

3
138 / 101 / 102
Регистрация: 03.02.2014
Сообщений: 422
18.01.2016, 11:36 2
Наработки ваши предоставьте.

Добавлено через 3 минуты
Может быть, у вас идеи есть как сделать?
0
Модератор
60615 / 45589 / 31471
Регистрация: 18.05.2008
Сообщений: 109,605
18.01.2016, 18:28 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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
uses crt,graphABC;
var a,r,i,x,y,xc,yc:integer;
    s:real;
begin
repeat
write('Введите а от 100 до 200 а=');
readln(a);
until a in [100..200];
r:=a div 4;
clrscr;
hidecursor;
setwindowsize(12*r,12*r+50);
centerwindow;
setpencolor(clLtGray);
y:=r;
for i:=1 to 11 do
 begin
  line(r div 2,y,12*r-r div 2,y);
  y:=y+r;
 end;
x:=r;
for i:=1 to 11 do
 begin
  line(x,r div 2,x,12*r);
  x:=x+r;
 end;
xc:=windowwidth div 2;
yc:=xc;
setpencolor(clBlack);
setpenwidth(2);
line(xc-a,yc+a,xc+a,yc+a);
line(xc-a,yc+a,xc-a div 2,yc);
line(xc+a,yc+a,xc+a div 2,yc);
line(xc-a div 2,yc,xc+a div 2,yc);
line(xc-a div 2,yc,xc-a div 2,yc-a);
line(xc+a div 2,yc,xc+a div 2,yc-a);
line(xc-a div 2,yc-a,xc-r,yc-a);
line(xc+a div 2,yc-a,xc+r,yc-a);
arc(xc,yc-a,r,180,360);
s:=3*a*a/2+a*a-pi*r*r/2;
textout(xc-30,windowheight-40,'a='+inttostr(a));
textout(xc-30,windowheight-20,'S='+inttostr(round(s)));
end.
0
138 / 101 / 102
Регистрация: 03.02.2014
Сообщений: 422
19.01.2016, 13:45 4
Превосходное сходство.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.01.2016, 13:45

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

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

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

Составить программу, которая вычисляет наибольшую площадь двух треугольников(через функцию)
Составить программу, которая вычисляет наибольшую площадь двух треугольников,стороны заданы(через...

Составить программу, которая вычисляет площадь и периметр прямоугольника a и b. Значения сторон нужно вводить с клавиатуры
Составить программу, которая вычисляет площадь и периметр прямоугольника a и b. Значения сторон...


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

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

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