Составить функцию нахождения обьема куба

@Skrepi · Регистрация: 18.06.2014

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

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

@erl27 · 20.06.2014, 22:32

Pascal

function V(d: real): real;
var
  a: real;
begin
  a := d / sqrt(3);
  V := a * a * a
end;
 
var
  d: real;
  N, i: byte;
  
begin
  write('Количество кубов: ');
  readln(N);
  writeln('Введите диагонали ', N, ' кубов:');
  for i := 1 to n do begin
    write('d = ');
    readln(d);
    writeln('Объем куба: ', V(d):0:3)
  end;
  writeln
end.

@Skrepi 1 / 1 / 0 Регистрация: 18.06.2014 Сообщений: 9
		1
	Составить функцию нахождения обьема куба 20.06.2014, 22:07. Показов 1738. Ответов 1 Метки нет (Все метки) Составить функцию нахождения объема куба по его диагонали. С помощью данной функции вычислить объемы для N кубов. 0

	20.06.2014, 22:32

Составить функцию нахождения обьема куба

Решение