Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/9: Рейтинг темы: голосов - 9, средняя оценка - 4.89
1 / 1 / 0
Регистрация: 29.12.2009
Сообщений: 5
1

Конус

28.01.2010, 20:56. Просмотров 1874. Ответов 2
Метки нет (Все метки)


Объявить запись, задающую конус. Составить программу с процедурой ввода данных конуса для вычисления площади поверхности и объема.
ПОМОЖИТЕ ПОДЖАЛУСТА!!!
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.01.2010, 20:56
Ответы с готовыми решениями:

Построить конус
Построить на экране трехмерную фигуру согласно варианта задания. При формировании изображений...

Нарисовать прямоугольный конус и равнобедренную трапецию
Здравствуйте еще раз! Помогите пожалуйста еще с 2 задачами! Спасибо. 1. Написать программу,...

Ребус "ТОЧКА + КРУГ = КОНУС" где каждой букве соответствует определённая цифра.
Всем привет. Из названия думаю всем понятно, что нужно мне решить ребус с помощью МНОЖЕСТВ (!) ...

Изобразить на экране конус, выделив пунктиром невидимые линии
Значит так, есть задание: 1. Изобразить на экране конус, выделив пунктиром невидимые линии....

2
Модератор
62948 / 46960 / 32362
Регистрация: 18.05.2008
Сообщений: 113,785
28.01.2010, 21:18 2
Лучший ответ Сообщение было отмечено B-52 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt;
type konus=record
           r,h,s,v:real;
           end;
procedure Vychisl(var kn:konus);
var l:real;
begin
write('Radius=');
readln(kn.r);
write('Vysota=');
readln(kn.h);
l:=sqrt(sqr(kn.r)+sqr(kn.h));
kn.s:=pi*kn.r*(kn.r+l);
kn.v:=pi*sqr(kn.r)*kn.h/3;
end;
var k:konus;
begin
clrscr;
Vychisl(k);
write('Площадь поверхности=',k.s:0:2,'  объем=',k.v:0:2);
readln
end.
1
1 / 1 / 0
Регистрация: 29.12.2009
Сообщений: 5
28.01.2010, 21:41  [ТС] 3
Puporev, от души спасибо большое выручил!!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.01.2010, 21:41

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

Нарисовать конус, заполненный наполовину водой
68. Нарисовать конус, заполненный на половину водой.

Конус
Помогите, пожалуйста решить задачу. Образующая конуса = l и образует угол alfa c плоскостью...

Конус
Мне нужна помоши... Вот мой код, проблема в том что когда рисуется конус то линий в верху должны...

Конус в С++..
Ребят всем привет! Я новичок в программировании,пробовал только писать немного в Паскале,мне в...


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

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

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