Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.92/13: Рейтинг темы: голосов - 13, средняя оценка - 4.92
CaнЯ
1

Определить обем цилиндрового бака, когда известная высота бака и радиус основы бака.

16.01.2009, 21:23. Показов 2350. Ответов 10
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите решыть пару задач, пожалуста, надо срочно...
1) Определить обем цилиндрового бака, когда известная высота бака и радиус основы бака.
2) Дано дествительное число х, натуральное чило n. вычислить : n/x.
3) Составить программу для вычисления значения функции, используя подпрограмму v=x^(y^z )

И если можно блок схемы к ним сделайте.
Зарание СПАСИБО!
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.01.2009, 21:23
Ответы с готовыми решениями:

СМА Samsung WF-F861/YLP, s/n: X4765ADPC00367F, крестовина бака, Какая там крестовина бака
Подскажите на СМА Samsung WF-F861/YLP 4,5кг , s/n: X4765ADPC00367F, какая там стоит ...

Определить размеры бака (R, h), имеющего форму цилиндра с крышкой
Постановка задачи: Используя надстройку Microsoft Excel Поиск решения, определить размеры бака (R,...

Определить силу, действующую на болты крышки бака, заполненного жидкостью.
Определить силу, действующую на болты крышки бака, заполненного жидкостью плотностью ρ. Угол...

Определить, сколько потребуется банок с краской, если известны размеры бака и площадь
линейный вычислительный процесс: 5) Маляру поручили покрасить крышу и стенки бака для бензина в...

10
4 / 4 / 1
Регистрация: 17.01.2009
Сообщений: 59
17.01.2009, 08:05 2
V:=PI*R*R*h;
R-радиус , h-высота , PI- число "пи", V -обьем
0
35 / 35 / 6
Регистрация: 01.01.2009
Сообщений: 141
17.01.2009, 14:04 3
Первая:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program a1;
uses crt;
const
 pi=3.1415;
var
 r,h,v: real;
begin
 clrscr;
 write('Vvedite radius R i visotu H: ');
 readln(r,h);
 v:=pi*sqr(r)*h;
 writeln('V=',v:6:2);
 readkey;
end.
Вторая:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
program a1;
uses crt;
var
 x,y: real;
 n: integer;
begin
 clrscr;
 write('Vvedite N i X: ');
 readln(n,x);
 y:=n/x;
 writeln('Y=',y:7:3);
 readkey;
end.
Добавлено через 23 минуты 39 секунд
Третяя:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program a1;
uses crt;
var
 x,y,z: integer;
 v: real;
function vv(x2,y2,z2:integer):real;
 begin
  vv:=exp(ln(x2)*exp(ln(y2)*z2));
 end;
begin
 clrscr;
 write('Vvedite X,Y,Z: ');
 readln(x,y,z);
 v:=vv(x,y,z);
 writeln('V=',v:8:2);
 readkey;
end.
Блок-схемы также довольно простые. Нужна помощь?
1
4 / 4 / 1
Регистрация: 17.01.2009
Сообщений: 59
17.01.2009, 15:40 4
Цитата Сообщение от AlexQ Посмотреть сообщение
Первая:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program a1;
uses crt;
const
 pi=3.1415;
var
 r,h,v: real;
begin
 clrscr;
 write('Vvedite radius R i visotu H: ');
 readln(r,h);
 v:=pi*sqr(r)*h;
 writeln('V=',v:6:2);
 readkey;
end.
Блок-схемы также довольно простые. Нужна помощь?
А зачем прописывать число PI ведь паскаль и без этого знает что это такое ?
1
35 / 35 / 6
Регистрация: 01.01.2009
Сообщений: 141
17.01.2009, 15:46 5
Вопрос аналогичный такому: а зачем записывать x*x, если паскаль умеет возводить в квадрат при помощи sqr(x)? Кому как нравится. Хотя, на самом деле, можно было и так.
0
4 / 4 / 1
Регистрация: 17.01.2009
Сообщений: 59
17.01.2009, 15:55 6
Цитата Сообщение от AlexQ Посмотреть сообщение
Вопрос аналогичный такому: а зачем записывать x*x, если паскаль умеет возводить в квадрат при помощи sqr(x)? Кому как нравится. Хотя, на самом деле, можно было и так.
Просто насколько этот парень знает предмет , то преподаватель скорее поверит ему что r*r чем через функцию sqr
0
35 / 35 / 6
Регистрация: 01.01.2009
Сообщений: 141
17.01.2009, 16:04 7
Просто насколько этот парень знает предмет , то преподаватель скорее поверит ему что r*r чем через функцию sqr
Хех, +1
0
CaнЯ
17.01.2009, 22:14 8
AlexQ пасиб)
А можеш блок-схемы сделать?
35 / 35 / 6
Регистрация: 01.01.2009
Сообщений: 141
18.01.2009, 00:19 9
Да, сейчас попробую нарисовать. Замечу, что различные преподаватели дают этот материал по-разному.
0
35 / 35 / 6
Регистрация: 01.01.2009
Сообщений: 141
18.01.2009, 00:44 10
Первый:
Определить обем цилиндрового бака, когда известная высота бака и радиус основы бака.
0
35 / 35 / 6
Регистрация: 01.01.2009
Сообщений: 141
18.01.2009, 09:51 11
Вторая:
Определить обем цилиндрового бака, когда известная высота бака и радиус основы бака.

Третяя:
Определить обем цилиндрового бака, когда известная высота бака и радиус основы бака.


Предпоследний блок - вывод данных на экран, хотя я обычно использовал значок "вывод на принтер". Следует пронумеровать блоки. В третьей задаче, возможно, нужно будет нарисовать еще блок-схему функции, но это уже как-нибудь сам.
0
18.01.2009, 09:51
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.01.2009, 09:51
Помогаю со студенческими работами здесь

Открытие и закрытие крышки бака
Доброго времени суток Я работаю в транспортной компании. У нас на авто стоят GPS-трекеры, у...

Трещина бака Electrolux EW1259W
Доброго времени суток, уважаемые форумчане! Прошу совета. Стиральная машинка Electrolux EW1259W, в...

Проржавела Крышка бака Indesit wg835tx
Собственно проржавела крышка бака в месте установки датчика. Датчик вместе с уплотнителем на...

Подобрать с точностью до 5 мм оптимальные размеры бака
Топливный бак объемом V м^3 имеет форму цилиндра с коническим обтекателем. Угол при вершине конуса...


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

Или воспользуйтесь поиском по форуму:
11
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru