Составить программу вычисления значений функций, используя приём "цикл в цикле"

[Chaynik011091]

помогите пожалуйста с решением задачи....

[Daramant]

Например, вот так:

var
  y, x, dx, e: real;
  k: Integer;
  t: Byte;
begin
  dx := 0.25;
  x := 1;

  while x <= 3 do begin
    y := 0;
    for k := 0 to 10 do begin
      if k mod 2 = 0 then
        t := 1
      else
        t := -1;
      e := exp(x/(k+1));
      y := y + t * k * e / (k + e);
    end;
    
    write('x = ', x:10:2, ' y = ', y:10:4);    

    x := x + dx;
  end;

end.

[Chaynik011091]

спс.. а можешь обьяснить что значит строчка "for k := 0 to 10 do begin
if k mod 2 = 0 then" ??

[Daramant]

for k := 0 to 10 do begin

Цикл for, в нем к принимает последовательно значения от 0 до 10 с шагом 1.

if k mod 2 = 0 then

mod - остаток от деления. Здесь k mod 2 - т.е. остаток от деления k на 2.
Остаток будет 1 (ести число не четное и следовательно -1 в степени k будет равно -1) или 0 (ести число четное и следовательно -1 в степени k будет равно 1).

[Chaynik011091]

может это будет звучять глупо но я вставил все это в С++ буилдер и у меня нихрена не работает.....

[Daramant]

Это был код на Pascal.

Вот на С++:

#include "stdafx.h"
#include <iostream>
#include <windows.h>
#include "math.h"


using namespace std;


int _tmain(int argc, _TCHAR* argv[])
{ 
	float y, x, dx, e;	
	short t;

	dx = 0.25;
	x = 1;

	while (x <= 3)
	{
		y = 0;

		for (int k = 0; k <= 10; k++)
		{
			t = (fmod((double)k, (double)2) == 0) ? 1 : -1;
            
			e = exp(x / (k + 1));

			y += t * k * e / (k + e);
		}	

		cout << "x = " << x << " y = "  << y << endl; 

		x += dx;
	}

	

	return 0;
}

P.S. В следующий раз указывайте язык.