Как найти площадь грани куба в паскале

Дана длина ребра куба. Найти площадь

7.02.2019

Дана длина ребра куба. Найти площадь грани, площадь полной поверхности и объем этого куба.

Для решения данной задачи необходимо вспомнить три формулы — площадь квадрата (так как грань куба это квадрат), площадь полной поверхности куба и объем куба:

Sгр = a2

Sполн = 6 * Sгр

V = a3

Напишем программу:

program z_3;
var a, S_gr, S_poln, V: real;
begin
  write('Введите ребро куба: ');
  read(a);
  S_gr := a * a;
  S_poln := 6 * S_gr;
  V := a * a * a;
  writeln('Площадь грани: ', S_gr);
  writeln('Площадь полной поверхности: ', S_poln);
  writeln('Объем: ', V);
end.

Текст задачи:

Информатика. 10 класс. Базовый уровень. (Семакин И. Г., Хеннер Е. К., Шеина Т. Ю.)
Работа 3.1, Уровень 1, Задача №3

Автор:

Дана длина ребра куба. Найти площадь грани, площадь полной поверхности и объем этого куба. паскаль абс

кот кот



Ученик

(80),
закрыт



2 месяца назад

Demidov Ilya

Гуру

(2509)


7 лет назад

program cub;
var a,b,c,d:real;
begin
writeln(‘Введите длину грани куба’);
readln(a);
b:=a*a;
c:=4*(a*a);
d:=a*a*a;
writeln(‘Площадь грани’,b);
writeln(‘Площадь полной пов-ти’,c);
writeln(‘Объем’,d);
end.

Узнай цену своей работы

Формулировка задачи:

3. Дана длина ребра куба. Найти площадь грани, площадь полной поверхности и объем этого куба.

Код к задаче: «Найти площадь грани, площадь полной поверхности и объем куба»

textual

Листинг программы

program ine;
var a, res1, res2, res3 : real;
begin
writeln('Введите ребро куба');
readln(a);
res1 := a * a;
writeln('Площадь грани =',res1);
res2 := a * a * 6;
writeln('Площадь полной поверхности =',res2);
res3 := a * a * a;
writeln('Объем куба =',res3);
end.

Задание:

Дана длина ребра куба. Найти площадь грани, площадь полной поверхности и объём этого куба.


 Блок-схема:


Данные для тестового прогона:

Тестовый прогон:

При a = 2 => S1 = 4, S2 = 24, V = 8


Реализация на Паскале


Реализация на Python

-8 / 0 / 0

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

Сообщений: 100

1

Найти площадь грани, площадь полной поверхности и объем куба

24.02.2016, 19:48. Показов 10924. Ответов 2


Студворк — интернет-сервис помощи студентам

3. Дана длина ребра куба. Найти площадь грани, площадь полной поверхности и объем этого куба.



0



Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

24.02.2016, 19:48

2

Peoples

Эксперт С++

1623 / 953 / 782

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

Сообщений: 2,449

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

24.02.2016, 20:22

2

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
program pr;
var
l,sg,v,sp:integer;
begin
writeln('Введите длину ребра куба');
readln(l);
sg:=l*l;
sp:=6*l*l;
v:=l*l*l;
writeln('Площадь грани: ',sg);
writeln('Площадь поверхности: ',sp);
writeln('Объём: ',v);
end.



0



dgzpv

0 / 0 / 1

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

Сообщений: 3

24.02.2016, 20:22

3

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
program ine;
var a, res1, res2, res3 : real;
begin
writeln('Введите ребро куба');
readln(a);
res1 := a * a;
writeln('Площадь грани =',res1);
res2 := a * a * 6;
writeln('Площадь полной поверхности =',res2);
res3 := a * a * a;
writeln('Объем куба =',res3);
end.



0



IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

24.02.2016, 20:22

Помогаю со студенческими работами здесь

Вычислить длину окружности, площадь круга, объём и площадь поверхности шара
Помогите пожалуйста. Сессия! Сижу уже неделю, не получается.
1. Буквы русского алфавита кодируются…

Вычислить площадь полной поверхности пирамиды
1.В правильной четырехугольной пирамиде заданы: длина стороны основания a и высота h. Вычислить:

Определить площадь полной поверхности пирамиды
треугольная пирамида задана координатами А(х1,y1,z1),А(х2,y2,z2),А(х3,y3,z3),А(х4,y4,z4) надо…

Найти площадь грани, площадь полной поверхности и объем куба
4. Дана длина ребра куба. Найти площадь грани, площадь полной поверхности и объем этого куба.

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

Или воспользуйтесь поиском по форуму:

3

Добавить комментарий