Как найти объем шара паскаль - Исправление недочетов и поиск решений вместе с Examum.ru

0 / 0 / 0

Регистрация: 03.11.2013

Сообщений: 3

Расчёт площади поверхности и объёма шара известного радиуса

03.11.2013, 14:02. Показов 9874. Ответов 5

Разработать программу для расчёта площади поверхности и объёма шара известного радиуса.

Почетный модератор

28040 / 15773 / 982

Регистрация: 15.09.2009

Сообщений: 67,752

Записей в блоге: 78

03.11.2013, 14:06

разрабатывайте. в чем проблема?

0 / 0 / 0

Регистрация: 03.11.2013

Сообщений: 3

03.11.2013, 14:07

[ТС]

помогите пожалуйста)

Почетный модератор

28040 / 15773 / 982

Регистрация: 15.09.2009

Сообщений: 67,752

Записей в блоге: 78

03.11.2013, 14:09

чем помочь то? сделать за тебя?

0 / 0 / 0

Регистрация: 03.11.2013

Сообщений: 3

03.11.2013, 14:11

[ТС]

я не понимаю ничего в этом(
напишите, если можно с объяснением)

arh42kem

4 / 4 / 2

Регистрация: 03.11.2013

Сообщений: 59

03.11.2013, 21:37

Сообщение было отмечено Памирыч как решение

Решение

как я понял,вот что вам нужно

Pascal

const p = 3.14;
begin
writeln('Введите радиус');
var r,s,t: real;
readln(r);
s:=4*p*(r*r);
writeln('Площадь Поверхности сферы =',s);
t:=4/3*p*(r*r*r);
writeln('Объем шара:',t)
end.

Источник

Задачи по Pascal. Вычислить длину окружности, площадь круга и объем шара одного и того же заданного радиуса.

Условие задачи: Вычислить длину окружности, площадь круга и объем шара одного и того же заданного радиуса (Язык Pascal)

Сложность: легкая.

Решение задачи

Для начала продумаем наше решение. Сначала введем радиус, потом просто подставим в формулы:

Сначала формулы. Первая у нас это длина окружности :

Дальше площадь круга :

Ну и объема шара :

Для того чтобы решить задачу нам понадобятся следующие переменные :

Переменная R — для радиуса
Переменная dlOkr — для длины окружности
Переменная sqKrug — для площади круга
Переменная Vshara — для объема шара

Решение задач. День первый. Задачи Begin1-10

Итак, с сегодняшнего дня мы начинаем вести новую рубрику: «Решение задач», в которой будем рассматривать задачи, взятые из сборника М.Э.Абрамяна «1000 ЗАДАЧ ПО ПРОГРАММИРОВАНИЮ».

Открыв задачник и прочитав аннотацию, Вы, скорее всего, озадачитесь тем, что данное пособие предназначено для студентов механико-математического, физического и экономического факультетов, но смею Вас заверить, что это весьма универсальная книга, которая подходит как студентам, так и школьникам. Возможно, задачи из первых разделов книги покажутся Вам простыми — в этом случае используйте наш разбор только для проверки своих решений; но если же по каким-либо причинам решить задачи Вы не в состоянии, то тогда присоединяйтесь к нам.

Begin1. Дана сторона квадрата a. Найти его периметр P = 4·a.

Прежде всего напомню, что для ввода и вывода информации, в Паскале используют следующие операторы:

Read (Readln) — ввод значений с клавиатуры;
Write (Writeln) — вывод результата (и вообще чего-либо) на экран.

Блок-схема

Таким образом, решение задачи становится очевидным.

Begin2. Дана сторона квадрата a. Найти его площадь S = a 2 .
При решении данной задачи воспользуемся функцией sqr . Можно, конечно, вычислять квадрат, умножая число само на себя (S=a*a), но при вводе действительно больших чисел наша программа будет выполняться гораздо дольше, нежели при использовании sqr .

Блок-схема

Begin3°. Даны стороны прямоугольника a и b. Найти его площадь S = a·b и периметр P = 2·(a + b).

Да, задача по сути своей проста и подобна предыдущим, поэтому поскорее составим к ней решение и перейдем к следующей.

Блок-схема

Begin4. Дан диаметр окружности d. Найти ее длину L = π·d. В качестве значения π использовать 3.14.

У вас, наверняка, возникает вопрос π — это константа или переменая? Так как π не изменяется в течение программы, π — константа. Вообще в Паскале уже встроена такая константа, но ее значение:

А так как в условии задачи указано, что в качестве значения π нужно использовать 3.14, то следует объявить π в разделе описания констант.

Блок-схема

Begin5. Дана длина ребра куба a. Найти объем куба V = a 3 и площадь его поверхности S = 6·a 2 .

Для решения задачи используем функцию power(x, a), где a — степень, x — число возводимое в степень (разумеется, использовать ее мы будем только для возведения числа в третью степень, квадрат числа по-прежнему находим с помощью sqr(x) ).

Блок-схема

Begin6. Даны длины ребер a, b, c прямоугольного параллелепипеда. Найти его объем V = a·b·c и площадь поверхности S = 2·(a·b + b·c + a·c).

Блок-схема

Begin7°. Найти длину окружности L и площадь круга S заданного радиуса R:
L = 2·π·R, S = π·R 2 .
В качестве значения π использовать 3.14.

Блок-схема

Begin8. Даны два числа a и b. Найти их среднее арифметическое: (a + b)/2.

Блок-схема

Begin9. Даны два неотрицательных числа a и b. Найти их среднее геометрическое, то есть квадратный корень из их произведения: √(a*b).

Напомню, что для нахождения квадратного корня мы используем функцию sqrt .

Блок-схема

Begin10. Даны два ненулевых числа. Найти сумму, разность, произведение и частное их квадратов.

Блок-схема

Ну вот и все. Следующая публикация с решением задач выйдет в ближайшие дни.

Клёвый код

Скриптописание и кодинг

Решаем задачи Абрамян на C. Matrix78

Matrix78. Дана матрица размера $$M times N$$. Упорядочить ее строки так, чтобы их минимальные элементы образовывали убывающую последовательность.

Решаем задачи Абрамян на C. Matrix77

Matrix77. Дана матрица размера $$M times N$$. Упорядочить ее столбцы так, чтобы их последние элементы образовывали убывающую последовательность.

Решаем задачи Абрамян на C. Matrix76

Matrix76. Дана матрица размера $$M times N$$. Упорядочить ее строки так, чтобы их первые элементы образовывали возрастающую последовательность.

Решаем задачи Абрамян на C. Matrix75

Matrix75. Дана матрица размера $$M times N$$. Элемент матрицы называется ее локальным максимумом, если он больше всех окружающих его элементов. Поменять знак всех локальных максимумов данной матрицы на противоположный. При решении допускается использовать вспомогательную матрицу.

Решаем задачи Абрамян на C. Matrix74

Matrix74. Дана матрица размера $$M times N$$. Элемент матрицы называется ее локальным минимумом, если он меньше всех окружающих его элементов. Заменить все локальные минимумы данной матрицы на нули. При решении допускается использовать вспомогательную матрицу.

Решаем задачи Абрамян на C. Matrix73

Matrix73. Дана матрица размера $$M times N$$. После последнего столбца, содержащего только отрицательные элементы, вставить столбец из нулей. Если требуемых столбцов нет, то вывести матрицу без изменений.

Решаем задачи Абрамян на C. Matrix72

Matrix72. Дана матрица размера $$M times N$$. Перед первым столбцом, содержащим только положительные элементы, вставить столбец из единиц. Если требуемых столбцов нет, то вывести матрицу без изменений.

Решаем задачи Абрамян на C. Matrix71

Matrix71. Дана матрица размера $$M times N$$. Продублировать столбец матрицы, содержащий ее минимальный элемент.

Решаем задачи Абрамян на C. Matrix70

Matrix70. Дана матрица размера $$M times N$$. Продублировать строку матрицы, содержащую ее максимальный элемент.

Решаем задачи Абрамян на C. Matrix69

Matrix69. Дана матрица размера $$M times N$$ и целое число $$K$$ $$(1 le K le $$N$$)$$. После столбца матрицы с номером $$K$$ вставить столбец из единиц.

источники:

http://learnpascal.ru/reshenie-zadach/begin/begin1-10.html

http://coolcode.ru/reshaem-zadachi-abramyan-na-paskale-begin-7/

Источник

Составить функцию нахождения объема шара, зная его радиус.

С помощью данной функции вычислить объем для N шаров.

Pascal ABC Написать программу с помощью процедур и функций.

На этой странице вы найдете ответ на вопрос Составить функцию нахождения объема шара, зная его радиус?. Вопрос
соответствует категории Информатика и уровню подготовки учащихся 5 — 9 классов классов. Если ответ полностью не удовлетворяет критериям поиска, ниже можно
ознакомиться с вариантами ответов других посетителей страницы или обсудить с
ними интересующую тему. Здесь также можно воспользоваться «умным поиском»,
который покажет аналогичные вопросы в этой категории. Если ни один из
предложенных ответов не подходит, попробуйте самостоятельно сформулировать
вопрос иначе, нажав кнопку вверху страницы.

Источник

Сложность: легкая.

Решение задачи

Для начала продумаем наше решение. Сначала введем радиус, потом просто подставим в формулы:

Сначала формулы. Первая у нас это длина окружности :

Дальше площадь круга :

Ну и объема шара :

Для того чтобы решить задачу нам понадобятся следующие переменные :

Переменная R — для радиуса

Переменная dlOkr — для длины окружности

Переменная sqKrug — для площади круга

Переменная Vshara — для объема шара

Начнем мы с каркаса нашей программы

var

R, dlOkr, sqKrug, Vshara :
real
;

begin

write
(
'Введите радиус : '
); readln(R);
end
.

Тут мы объявили переменные, которые описаны выше, и попросили пользователя ввести радиус, теперь осталось подставить радиус в формулы и всё :

dlOkr :=
2
*
3.14
*R;
sqKrug := R*R*
3.14
;
Vshara := (
4
/
3
)*Power(R,
3
)*
3.14
;

Довольно всё просто. Функция power возводит число R в третью степень.

Теперь осталось только вывести результат :

writeln
(
'Длина окружности : '
, dlOkr);
writeln
(
'Площадь круга : '
, sqKrug);
writeln
(
'Объем шара : '
, Vshara);

Всё решение задачи Pascal

var

R, dlOkr, sqKrug, Vshara :
real
;
// объявляем переменные

begin

write
(
'Введите радиус : '
); readln(R);
// вводим радиус

dlOkr :=
2
*
3.14
*R;
// считаем длину окружности

sqKrug := R*R*
3.14
;
// считаем площадь круга

Vshara := (
4
/
3
)*Power(R,
3
)*
3.14
;
// считаем объем шара

writeln
(
'Длина окружности : '
, dlOkr:
2
:
2
);
// выводим результат

writeln
(
'Площадь круга : '
, sqKrug:
2
:
2
);
// выводим результат

writeln
(
'Объем шара : '
, Vshara:
2
:
2
);
// выводим результат

readln;
// чтобы программа не закрывалась
end
.

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

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

Источник

PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018

Внимание! Если программа не работает, обновите версию!

program pascal;

var s, v, r:real;

begin

writeln(‘ВВедите радиус’);

readln(r);

s:=4*3.14*r*r;

v:= 4/3*3.14*r*r;

Writeln(‘Площадь шара=’,s,’Объем шара=’,v);

end.

Источник