Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 13, средняя оценка - 5.00
prime17
18 / 14 / 5
Регистрация: 12.02.2010
Сообщений: 160
#1

Вычисление объемов элементарных пространственных фигур - Turbo Pascal

12.02.2010, 13:11. Просмотров 1578. Ответов 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
program shapes;
var
   letter:char;
   p,area,a,b,c,d:real;
   ok:boolean;
BEGIN
     ok:=true;
     write('vveditj letter:'); readln(letter);
     case letter of
     'p', 'P':
        begin
         write ('Vveditj storonu b i d pryamokytnuka:');
         write('b='); readln(b);
         write('d='); readln(d);
         area:=b*d
        end;
 
    't', 'T':
        begin
         write('vveditj ctoponu a,b i c pryamokytnika:');
         write('a='); readln(a);
         write('b='); readln(b);
         write('c='); readln(c);
         p:=0.5*(a+b+c);
         area:=sqrt((p-a)*(p-b)*(p-c));
        end;
 
     'k','K':
        begin
         write('vveditj diametr d kpyra:');
         write('d='); readln(d);
         area:=pi*sqr(d)/4
        end;
 
     else ok:=false;
    end;
   if ok then writeln('',area:8:2)
   else writeln('povunno bytu [P], [T], [K]');
   readln;
END.
надо переделать программу на вычисления объемов элементарных пространственных фигур (куб, параллелепипед, пирамида, конус, шар).
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.02.2010, 13:11
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вычисление объемов элементарных пространственных фигур (Turbo Pascal):

Определить среднее значение объемов по станциям
Вариант-14, Кол-во станций N=4(строки), M=6(столбцы) Определить среднее...

Найти сумму объемов трех кубов
Найти сумму объемов трех кубов . Помогите решить эту задачку при помощи...

Нахождение элементарных циклов в графе
Помогите пожалуйста с написание программы нахождение элементарный циклов в...

Подскажите формулы элементарных функций
Подскажите формулы элементарных функций в Pascal'е . По примеру синусоиды...

Двумерные массивы. Вывести названия видов услуг по убыванию объемов
Привет форумчане! Дана матрица N(строки)xM(столбцы). Пусть N (по вариантам)...

Куб состоит из n3 прозрачных и непрозрачных элементарных кубиков.
Куб состоит из n3 прозрачных и непрозрачных элементарных кубиков. Имеется ли...

3
Puporev
Модератор
54149 / 41782 / 28889
Регистрация: 18.05.2008
Сообщений: 98,331
12.02.2010, 13:57 #2
Вот для правильных фигур, для других сами переделайте.
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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
uses crt;
procedure Kub(a:real);
var v:real;
begin
write('Введите размер ребра куба a: ');
readln(a);
v:=a*a*a;
writeln('Объем=',v:0:2);
write('Press Enter...');
readln
end;
procedure Par(a,b,c:real);
var v:real;
begin
writeln('Введите размер ребер параллелепипеда a,b,c: ');
readln(a,b,c);
v:=a*b*c;
writeln('Объем=',v:0:2);
write('Press Enter...');
readln
end;
procedure Pyr(n:byte;a,h:real);
var v:real;
begin
writeln('Введите количество сторон, размер стороны основания и высоту пирамиды n,a,h: ');
readln(n,a,h);
v:=(n*a*a*h*cos(pi/n))/(12*sin(pi/n));
writeln('Объем=',v:0:2);
write('Press Enter...');
readln
end;
procedure Kon(r,h:real);
var v:real;
begin
writeln('Введите радиус основания и высоту конуса r,h: ');
readln(r,h);
v:=pi*r*r*h/3;
writeln('Объем=',v:0:2);
write('Press Enter...');
readln
end;
procedure Shar(r:real);
var v:real;
begin
writeln('Введите радиус шара r: ');
readln(r);
v:=4*pi*r*r*r/3;
writeln('Объем=',v:0:2);
write('Press Enter...');
readln
end;
var a,b,c,h,r:real;
    n:byte;
    w:char;
begin
clrscr;
repeat
clrscr;
writeln('Выберите действие:');
writeln('1-объем куба');
writeln('2-объем прямоугольного параллелепипеда');
writeln('3-объем правильной пирамиды');
writeln('4-объем конуса');
writeln('5-объем шара');
writeln('другое-выход');
readln(w);
case w of
'1':Kub(a);
'2':Par(a,b,c);
'3':Pyr(n,a,h);
'4':Kon(r,h);
'5':Shar(r);
else exit;
end;
until not(w in ['1'..'5']);
end.
1
prime17
18 / 14 / 5
Регистрация: 12.02.2010
Сообщений: 160
12.02.2010, 18:16  [ТС] #3
больше спасибо )))
0
Tom_Sawyer
88 / 88 / 56
Регистрация: 05.12.2009
Сообщений: 134
12.02.2010, 18:39 #4
Pascal
1
2
3
4
5
6
7
8
9
10
uses crt;
var V1,V2,H,R:real;
begin
 clrscr;
 readln (H,R);
 V1:=1/3*Pi*R*R*H;
 V2:=Pi*R*R*H; 
 writeln (\'V1 konusa=\',V1:3:2,\' V2 cilindra=\',V2:3:2);
 readln;
end.
для конуса и цилиндра.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.02.2010, 18:39
Привет! Вот еще темы с решениями:

Оцените количество элементарных операций в приведенной ниже процедуре
Procedure N2 (n:integer); var i,j,k: integer; r: real; begin for i:=1 to n...

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

Вычисление объемов тел, образованных вращением фигур, ограниченных заданными линиями
Необходимо вычислить объемы тел, образованных вращением фигур, ограниченных...

Составте программу,которая рисует одну из пространственных фигур
Составте программу,которая рисует одну из пространственных фигур-куб


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

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

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