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

Выполнить чертёж детали и произвести расчёт её площади

15.01.2012, 16:12. Просмотров 1603. Ответов 4
Метки нет (Все метки)

Задание: Составить программу которая выполняет чертёж детали и производит расчёт её площади. Масштаб: 1 клетка - 20 пикселей.
0
Изображения
 
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.01.2012, 16:12
Ответы с готовыми решениями:

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

Расчёт площади треугольника
Надо чтобы после нажатия ctrl - F9 на Экране было вот такое: Стороны треугольника АВС...

Выполнить табулирование функции, сформировать матрицу, произвести расчет площади
До конца недели нужно решить вот это: http://hdd.tomsk.ru/gallery/dkzdrrxx#hfwhncmv Сама ничего...

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

4
Почетный модератор
7950 / 3921 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
15.01.2012, 16:30 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses graphABC;
begin
setwindowsize(300,200);
setpenwidth(3);
line(20,20,80,20);
line(20,20,20,140);
line(20,140,260,140);
line(260,140,260,20);
line(260,20,200,20);
arc(140,20,60,180,0);
setpenwidth(1);
setpenstyle(psDot);
line(140,0,140,180);
line(80,20,200,20);
line(10,80,270,80);
end.
2
0 / 0 / 0
Регистрация: 15.01.2012
Сообщений: 5
15.01.2012, 19:38  [ТС] 3
А как же быть с площадью?
0
Почетный модератор
7950 / 3921 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
15.01.2012, 20:06 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

извините, невнимательность...
если клеточка - полсантиметра, то
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt,graphABC;
var s: real;
begin
setwindowsize(300,200);
setpenwidth(3);
line(20,20,80,20);
line(20,20,20,140);
line(20,140,260,140);
line(260,140,260,20);
line(260,20,200,20);
arc(140,20,60,180,0);
setpenwidth(1);
setpenstyle(psDot);
line(140,0,140,180);
line(80,20,200,20);
line(10,80,270,80);
s:=3*6-(pi*1.5/2);
write('s=',s:6:2,'cm2');
end.
1
0 / 0 / 0
Регистрация: 15.01.2012
Сообщений: 5
15.01.2012, 20:11  [ТС] 5
Большое спасибо за помощь, вы очень помогли. Благодарю за затраченное время.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.01.2012, 20:11

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

Правильно ли создан чертёж данной детали?
Добрый вечер. Хотелось бы проконсультироваться, насколько правильно сделан чертёж детали,...

Расчёт площади для парковки авто (тип авто, площадь, расчёт средней общей)
Расчёт площади для парковки авто (тип авто, площадь, расчёт средней общей). Помогите...

Найти площади фигур, ограниченных заданными линиями. Сделать чертёж
Найти площади фигур, ограниченных заданными линиями. Сделать чертёж: 1) y=lnx 2) x=1/e 3) x=e

Чертёж детали с "зубом"
Доброго времени суток. Хотелось бы, чтобы знающие люди помогли и подсказали, насколько правильно...


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

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

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