программа в паскале для вычисления заданного выражения

[мариясаб]

помогите пожалуйста написать в паскале прогу для этой суммы.нужно срочно.сама не понимаю ничерта...

[BDA]

Если формула именно такая, то:

m := ln(k + d * d * d + c);
s := 2 * m * m * m;

Объявление переменных, считывание k, d, c и вывод результата s - Сами.

[мариясаб]

а не могли бы вы расписать ее мне?будьте добры.. я же говорю что мне воообще не справиться с ней. и у меня формула другая... там нет d и к, там только p и i.

[BDA]

Ну Вы уже заменили формулу
Тогда:

s := 0;
for i := 1 to 2 do
begin
  tmp := 1;
  for p := 1 to 3 do
    tmp := tmp * ln(p * p * p + i);
  s := s + tmp;
end;

Вам осталось объявить 4 переменные и вывести s на экран (эти знания даются на самом первом или, в худшем случае, втором занятии по программированию).

Как только сделаете это, и если программа не заработает, то пишите (выложив получившийся код).

[мариясаб]

вместо ответа выдает вот это окно. чтоо желать

[BDA]

Код положено давать текстом.
Почти все верно:

uses
  crt;
var
  p, i : byte;
  s, tmp : real;
begin
  clrscr;
  s := 0;
  for i := 1 to 2 do
  begin
    tmp := 1;
    for p := 1 to 3 do
      tmp := tmp * ln(p * p * p + i);
    s := s + tmp;
  end;
  writeln('s = ', s:0:3);
end.