Работа в Delphi

[sosisovich]

В общем пишу прогу,он выдаёт ошибку,прошу помочь написать 4 задания(кому несложно)честно говоря тему то понимаю,но из-за недоработок...не выходит ничего путного,напишу задания,формулы,вам нужно будет тока это всё дело вписать и добавить writeln,readln и т д,вот собственно всё




1)Дана длина ребра куба. Найти обьем куба и площадь его боковой
поверхности.
v:=a*a*a;
p:=6*a*a;

2)(Во это честно говоря вообще без понятия...там степень1/2,1/3...понятно что корень,sprt-это то поняно,но это квадратный корень,а третью степень-ума неприложу...)Даны x, y, z. Вычислить a, b, если
1/2 1/3
(|x-1|) - |y|
a=-------------------,
2 2
1+x /2+y /4

b=x(arctgz+exp(-(x+3)).
3)Даны два действительных числа. Найти среднее арифметических
этих чисел и среднее геометрическое их модулей.
:=(a*b)/(a+b); вроде эта формула
:=a1*a2*a3*a4*...*an -геометрическая,хз как записать....тяжко...

4)Даны x, y, z. Вычислить a, b, если
3+exp(y-1)
a= --------------
1+x*x|y-tgz|
2 3
b=1+|y-x|+(y-x) /2+|y-x| /3.
:conf used:

[romec1]

Код свой давай. не помню на делфях как в степень подносить.. на сишке
функция pow(число, степень); тут же по-моему power(число, степень);

[Sauber]

в дефли функция power(число, степень) , только перед этим нужно в uses прописать Math

[phomm]

Без ТВОЕГО КОДА помощь по заданию стоит денег

[sosisovich]

какой ещё код?напишите кто может в асю 357369242

[sosisovich]

var a,v,p:real;
begin
writeln ('vvedite chislo a');
readln(a);
v:=a*a*a;
p:=6*a*a;
readln
end.

[Mad_Cat]

3)Даны два действительных числа. Найти среднее арифметических
этих чисел и среднее геометрическое их модулей.

var a,b:double;
begin
read(a);
read(b);
write((a+b)/2);
write(sqrt(abs(a)*abs(b)):6:3);
end.

[sosisovich]

Дано натуральное число n. Вычислить:
2 2 2
(1+1/1 )(1+1/2 )... (1+1/n )
Var i : Integer;
s : Real;
begin
write('i= ');
readln(i);
s:=0;
for i:=1 To 100 Do s:=s+(1+1/(sqrt(i)));
writeln('S = ',s:8:3);
readln

end.

[sosisovich]

Что то неверно...помогите