Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Вычисление суммы

Автор: joker1989 17.5.2007, 13:20

Дано х, вычислить z.
Над суммой не Н, а 4.

Автор: volvo877 17.5.2007, 18:01

Модератор: Название темы должно отражать ее суть!

Переезжаем ...

Автор: Mr.Floppy 17.5.2007, 18:51

Код


program joker1989;
var
  x,z: real;
  n: integer;
begin
  write('Введите X:');
  readln(x);
  z := 0;
  for n:=1 to 4 do
    z := z + exp(ln(x)*(2*n+1));
  for n:=5 to 10 do
    z := z + exp(ln(x)*n);
  writeln('Z=',z:0:3);
  readln;
end.