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

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

12.02.2010, 13:11. Просмотров 1809. Ответов 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
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.02.2010, 13:11
Ответы с готовыми решениями:

Вычисление площади, периметра геометрических фигур
Почему у меня ошибка program n_666; const pi=3.14; var a, b, h, s, c, p, k, z, d, r: real;...

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

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

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

3
Модератор
62884 / 46920 / 32338
Регистрация: 18.05.2008
Сообщений: 113,693
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
18 / 14 / 5
Регистрация: 12.02.2010
Сообщений: 160
12.02.2010, 18:16  [ТС] 3
больше спасибо )))
0
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.02.2010, 18:39

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

Построение прямой по алгоритмам и удаление невидимых линий пространственных фигур и закрашивание плоской области
Нужно написать 3 программы. Не совсем понимаю с чего начинать т.к ранее не изучал java. Дайте хоть...

Составить программу построения на экране монитора элементарных геометрических фигур
Составить программу построения на экране монитора элементарных геометрических фигур и распечатать...

Реализация массива фигур, вычисление площади и периметра фигур
Задание 1: Реализовать иерархию классов представленную на рисунке. В базовом классе описать, а в...

Вычисление объемов тел
Вычислить объем тела, ограниченного поверхностями (x^2)/9+(y^2)/4-(z^2)/36=-1. z=12 Помогите...


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

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

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