Задачи на циклы в Паскале

[Sazary]

Пардон ) Там в дециметры перевести надо. Вот так:

uses crt;
const n=1;
         k=12;
var i:integer;
     v,sum,r:real;
begin
        clrscr;
        sum:=0;
        r:=0.5;
        for i:=n to k do
         begin
         v:=4/3*Pi*r*r*r;
         sum:=sum+v;
         r:=r+0.05;
         end;
        writeln('symmarnbly o6bem:',v:6:6);
        readln;
end.

Ответ: 4.849048 литра

[spankyham]

вооот:

uses crt;
const n=1;
         k=12;
var i:integer;
     v,sum,r:real;
begin
        clrscr;
        sum:=0;
        r:=10;
        for i:=n to k do begin
        v:=(4/3*Pi*r*r*r)/1000; (вот где ошибка то была....)
        sum:=sum+v;
        r:=10+0.5;
        end;
        writeln('symmarnbly o6bem:',v:6:2);
        readln;
end.

[Sazary]

spankyham

r:=10;

Нам дан диаметр. Поэтому здесь будет r := 5
И здесь:

r:=10+0.5;

Опять 10 пишете!

r:=r+0.5;

[spankyham]

ааааа.....точно.......ну так-то можно ведь просто 4/3 заменить на 2/3 и везде вместо r - d поставить........я не ошибаюсь?)

[Sazary]

ну так-то можно ведь просто 4/3 заменить на 2/3 и везде вместо r - d поставить........я не ошибаюсь?)

Ошибаетесь )
http://ru.wikipedia.org/wiki/Шар_(стереометрия)

[spankyham]

тьфууу.....точно...........пфффффф. .....короч, если нарисовать, то ваще другой ответ......брррррррррр ХД (((

надо не 12 брать, а 13.....т.к. 10 - это внутренний диаметр внутреннего шара......он тоже же стенки 1 см значит имеет......или я снова ошибаюсь?))))

[Sazary]

надо не 12 брать, а 13.....т.к. 10 - это внутренний диаметр внутреннего шара......он тоже же стенки 1 см значит имеет......или я снова ошибаюсь?))))

Нет. Шаров всего 12, значит и слагаемых будет 12. Про вложенность шаров сказано только для того, чтобы дать представление о их размерах.

[spankyham]

Sazary, а попробуй нарисовать на листочке эту задачку и решить вручную???) (если не лень, конечно)
Ответ 0,69 литра вродь короч) лан, благодарю за помощь!!

[Sazary]

Запутали совсем!
В конце выводить надо сумму, а выводится объем последнего шара.

uses crt;
const n=1;
         k=12;
var i:integer;
     v,sum,r:real;
begin
        clrscr;
        sum:=0;
        r:=5;
        for i:=n to k do
         begin
         v:=4/3*Pi*r*r*r;
         sum:=sum+v;
         r:=r+0.5;
         end;
        writeln('symmarnbly o6bem:',(sum/1000):6:6);
        readln;
end.

Ответ: 26.879467 л

Для проверки вот вам в экселе:

[spankyham]

спс....точно же.....благодарю!!!
только радиус 1во шара 5,5.....))