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

2 / 2 / 2

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

Сообщений: 32

Вывести на экран длину стороны, длину диагонали и периметр грани, а также длину диагонали куба

13.09.2014, 15:27. Показов 1808. Ответов 4

С клавиатуры вводятся число a и число b от 1 до 4. Если b=1, то a — длина стороны куба, если b=2, то длина диагонали грани, если b=3, то периметр грани, если b=4, то диагональ всего куба. Выведите на экран длину стороны, длину диагонали и периметр грани; а также длину диагонали куба.

Puporev

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

64287 / 47586 / 32739

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

Сообщений: 115,182

13.09.2014, 16:13

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

Решение

Pascal

uses crt;
var a,sk,dg,pg,dk:real;
    b:char;
begin
clrscr;
repeat
clrscr;
writeln('Введите либо число от 1 до 4-действие, либо другой символ-выход');
readln(b);
if not (b in ['1'..'4']) then exit;
write('a=');
readln(a);
case b of
'1':begin
    sk:=a; {строна(ребро) куба}
    dg:=a*sqrt(2);{диагональ грани}
    pg:=4*a;{периметр грани}
    dk:=a*sqrt(3);{диагональ куба}
    end;
'2':begin
    sk:=a/sqrt(2);
    dg:=a;
    pg:=4*sk;
    dk:=sk*sqrt(3);
    end;
'3':begin
    sk:=a/4;
    dg:=sk*sqrt(2);
    pg:=a;
    dk:=sk*sqrt(3);
    end;
'4':begin
    sk:=a/sqrt(3);
    dg:=sk*sqrt(2);
    pg:=4*sk;
    dk:=a;
    end;
end;
writeln('Длина стороны=',sk:0:2);
writeln('Длинна диагонали грани=',dg:0:2);
writeln('Периметр грани=',pg:0:2);
writeln('Длина диагонали куба=',dk:0:2);
readln;
until not (b in ['1'..'4']);
end.

2 / 2 / 2

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

Сообщений: 32

22.09.2014, 17:27

[ТС]

Puporev, Здравствуйте, не могли бы Вы мне подсказать?
Если составлять блок-схему по Вашей программе, выпилив строчки(1,5,6,7,10,44), то получится так?

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

64287 / 47586 / 32739

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

Сообщений: 115,182

22.09.2014, 17:32

На выходе не а, а 4 значения
sk, dg, pg, dk

2 / 2 / 2

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

Сообщений: 32

22.09.2014, 17:35

[ТС]

Puporev, Благодарю.

IT_Exp Эксперт 87844 / 49110 / 22898 Регистрация: 17.06.2006 Сообщений: 92,604	22.09.2014, 17:35
5

Источник

Главная » Решебник Абрамяна » Ввод и вывод данных, оператор присваивания: группа Begin (1-40) » Begin5. Решебник Абрамяна М. Э.

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

Решение Pascal

program Begin5;

var

a,V,S: Real;

begin

Write(‘Введите длину ребра куба: ‘);

Readln(a);

V:=a*a*a;

Writeln(‘Объём куба равен: ‘,V);

S:=6*sqr(a);

Writeln(‘Площадь поверхности куба равна: ‘,S);

end.

Решение C++

#include <stdio.h>

int main(void)

{

float a;

printf(«a:»);

scanf («%f», &a);

float V= a*a*a;

printf(«V:%fn»,V);

float S= 6*a*a;

printf(«S:%fn»,S);

return 0;

}

Оцените решение

Загрузка…

Begin5. Решебник Абрамяна М. Э.: 4 комментария

Линар

13.04.2020

Permalink

это не С++

Ответ
Umid

20.10.2020

Permalink

C#

static void Main(string[] args)
{
int V, a, S;

Console.Write(«a: «);
a = Convert.ToInt32(Console.ReadLine());

V = a * 3;
S = 6 * a * 2;

Console.WriteLine(«Obyom kuba: » + V);
Console.Write(«Ploshad yego poverxnosti: » + S);
Console.Read();
}

Ответ
Раукен

11.01.2022

Permalink

можно пожалуйста, python и java?

Ответ
MAGA

22.04.2022

Permalink

#include
using namespace std;
int main()
{
int a;
cin>>a;
cout<<a * a * a<>a;
cout<<6 * a * a * a<<endl;
return 0;

}

Ответ

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

Источник

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

7.02.2019

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

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

S_гр = a²

S_полн = 6 * S_гр

V = a³

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

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

Автор:

Источник

Найдите правильный ответ на вопрос ✅ «Дана длина ребра куба. Найти объем куба и площадь его боковой поверхности. Pascal …» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.

Смотреть другие ответы

Источник

1 ответ:

0

0

Var a: real;

begin
write(‘Введите сторону куба = ‘);
readln(a);
writeln(‘Объем = ‘, a * a * a);
writeln(‘Площадь поверхности = ‘, 6 * a * a);
end.