вычислительная программа

[скромняшка]

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

[WorldMaster]

И что не получается то??
Объём шара = 4pi*R^3 / 3
Объём цилиндра = pi*R^2 * 2R

Вырази радиус исходя из известного объема шара и подставь во вторую формулу.
ответ - 12

[скромняшка]

я не знаю как составить программу и как написать корень кубический,чтобы найти радиус.

[WorldMaster]

Сообщение от скромняшка

я не знаю как составить программу и как написать корень кубический,чтобы найти радиус.

Вот тебе помощь
Помощь

[скромняшка]

Uses crt;

Var r,h,v1,v2,Pi,exp:real;
Begin

Writeln('введите v1');
readln(v1);
v1:=4/3*Pi*sqr(r)*r
r:=exp(V1/(4/3*Pi)
V2:=Pi*sqr(r)*h;
writeln(v2:6:2);

readln;
end.

вот я попробовала составить программу,у меня не работает,в чем ошибка,может я что нибудь не правильно сделала.

[WorldMaster]

А что за ошибка???

[скромняшка]

ожидался имя процедуры или функции.вот такая ошибка выходит.

[WorldMaster]

Uses crt;

Var r,h,v1,v2,Pi,exp:real;
Begin

Writeln('введите v1');
readln(v1);
v1:=4/3*Pi*sqr(r)*r;
r:=exp(V1/(4/3*Pi));
V2:=Pi*sqr(r)*h;
writeln(v2:6:2);

readln;
end.

Скобку забыли и точки с запятыми

[скромняшка]

все равно та же ошибка выходит.r:=exp(V1/(4/3*Pi));в этой строке.

[WorldMaster]

var r,h,v1,v2: real;
begin
writeln('input v1');
readln(v1);
r := exp(Ln((v1*3)/(4*Pi))/3);
writeln(r);
v2 := Pi*(r*r)*2*r;
writeln(v2:6:2);
readln(v1);
end.

Рабочий вариант