Из множества целых чисел выделить кубы целых чисел. Написать с использованием подпрограмм

@maxwelln1 · Регистрация: 03.11.2014

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

Из множества целых чисел 1..100 выделить множество чисел, являющихся, в свою очередь, кубами целых чисел.
Написать программу и использованием подпрограмм. Заранее большое спасибо.

@maxwelln1 · 23.11.2016, 13:57 **[ТС]**

помогите

@Puporev · 23.11.2016, 18:51

Можно так.

Pascal

function kub(n:byte):boolean;
begin
kub:=frac(exp(ln(n)/3))=0;
end;
var i:byte;
    m:set of byte;
begin
m:=[];
for i:=1 to 100 do
if kub(i) then m:=m+[i];
writeln('Множество кубов');
for i:=1 to 100 do
if i in m then write(i:4);
end.

@maxwelln1 · 23.11.2016, 19:49 **[ТС]**

Не могу понять. По факту результат должен быть 1 8 27 64,но программа выводит только 1 8 64

@Puporev · 23.11.2016, 20:24

Подойдем с другой стороны.

Pascal

function kub(n:byte):boolean;
var a:integer;
begin
a:=trunc(exp(ln(n)/3));
kub:=a*a*a=n;
end;

@maxwelln1 2 / 2 / 0 Регистрация: 03.11.2014 Сообщений: 59
		1
	Из множества целых чисел выделить кубы целых чисел. Написать с использованием подпрограмм 07.11.2016, 19:50. Показов 742. Ответов 4 Метки нет (Все метки) Из множества целых чисел 1..100 выделить множество чисел, являющихся, в свою очередь, кубами целых чисел. Написать программу и использованием подпрограмм. Заранее большое спасибо. 0

@maxwelln1 2 / 2 / 0 Регистрация: 03.11.2014 Сообщений: 59
	23.11.2016, 13:57 [ТС]	2
	помогите 0

@maxwelln1 2 / 2 / 0 Регистрация: 03.11.2014 Сообщений: 59
	23.11.2016, 19:49 [ТС]	4
	Не могу понять. По факту результат должен быть 1 8 27 64,но программа выводит только 1 8 64 0

	23.11.2016, 20:24

Опции темы