Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.85/13: Рейтинг темы: голосов - 13, средняя оценка - 4.85
latushco
1

Выполнить чертеж детали

16.01.2012, 16:47. Просмотров 2345. Ответов 1
Метки нет (Все метки)

Вот собственно сами задачи, всё с 1-го параграфа, но никак не могу сделать, ни на уроке, ни дома не выходит.

помогите пожалуйста!

Выполнить чертеж детали


Выполнить чертеж детали
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.01.2012, 16:47
Ответы с готовыми решениями:

Выполнить чертеж детали
помогите выполнить чертеж, а то я не знаю как

Выполнить чертеж детали
Вот собственно сами задачи, всё с 1-го параграфа, но никак не могу сделать, ни на уроке, ни дома не...

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

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

1
Модератор
60614 / 45588 / 31471
Регистрация: 18.05.2008
Сообщений: 109,601
17.01.2012, 15:50 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses graphABC;
var r1,r2,r3,r,xc,yc,n,i,d:integer;
begin
n:=8;
r1:=150;
r2:=100;
r3:=50;
r:=30;
xc:=windowwidth div 2;
yc:=windowheight div 2;
setbrushcolor(clGray);
circle(xc,yc,r1);
setbrushcolor(clWhite);
circle(xc,yc,r3);
d:=0;
for i:=1 to n do
 begin
  circle(xc+round(r2*cos(d*pi/180)),yc-round(r2*sin(d*pi/180)),r);
  d:=d+45;
 end;
end.
Добавлено через 52 минуты


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
uses crt,graphABC;
var a,x1,y1,x2,y2,x3,y3,x4,y4,x5,y5,x6,y6:integer;
begin
hidecursor;
repeat
write('Сторона куба от 50 до 200 a=');
read(a);
until a in [50..250];
setwindowsize(500,500);
clearwindow;
x1:=(windowwidth-2*a) div 2;
y1:=windowheight-(windowheight-2*a) div 2;
x2:=x1+round(a*sin(pi/4)*sin(pi/4));
x3:=x1+a;
x4:=x2+a;
y2:=y1-round(a*sin(pi/4)*sin(pi/4));
y3:=y1-a;
y4:=y2-a;
line(x1,y1,x1,y3);
line(x1,y3,x2,y4);
line(x2,y4,x4,y4);
line(x4,y4,x3,y3);
line(x3,y3,x1,y3);
line(x4,y4,x4,y2);
line(x3,y3,x3,y1);
line(x4,y2,x3,y1);
line(x1,y1,x3,y1);
setpenstyle(psDash);
line(x1,y1,x2,y2);
line(x2,y2,x4,y2);
line(x2,y2,x2,y4);
end.
Добавлено через 11 минут

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses graphABC;
var xc,yc,w,h:integer;
    s:real;
begin
xc:=windowwidth div 2;
yc:=windowheight div 2;
w:=120;
h:=60;
setpenwidth(3);
rectangle(xc-w,yc-h,xc+w,yc+h);
setpencolor(clWhite);
line(xc-h,yc-h,xc+h,yc-h);
setpencolor(clBlack);
arc(xc,yc-h,h,180,360);
setpenstyle(psDashDot);
setpenwidth(1);
line(xc-w-20,yc,xc+w+20,yc);
line(xc-h,yc-h,xc+h,yc-h);
line(xc,yc-h-20,xc,yc+h+20);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.01.2012, 15:50

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

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

Выполнить чертеж схемы алгоритма и записать программу вычисления суммы
вот условие, кто нибудь помогите плз

Чертеж детали
Ниже будет предоставлен код(написаный на Visual Studio 2010 CLR) вот этой детали(1 рисунок). Я...

Создать чертёж детали
Помогите начертить


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

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

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