вложенные функции

@DeEviloN · Регистрация: 17.12.2016

Author24 — интернет-сервис помощи студентам

Помогите с задачкой, очень прошу, пожалуйста!

@DeEviloN · 18.12.2016, 00:52 **[ТС]**

Ау, тут могут помочь или как?

@Tosse · 18.12.2016, 10:46

Pascal

const
n = 25;
X1 = 100;
H = 2;
var
Z:array[1..100] of real;
k, i, X0:integer;
begin
i:=0;
X0:=0;
while X0<X1 do
    begin
    inc(i);
    Z[i]:=0;,
    for k:=1 to n do
        Z[i]:=Z[i] + X0/k;
    X0:=X0+H;
    end;
for k:=1 to  i do
    writeln('Значения функции для Х',k, ' = ',Z[k]);
end.

@DeEviloN 0 / 0 / 0 Регистрация: 17.12.2016 Сообщений: 33
		1
	вложенные функции 17.12.2016, 19:30. Показов 1987. Ответов 2 Метки нет (Все метки) Помогите с задачкой, очень прошу, пожалуйста! Миниатюры 0

@DeEviloN 0 / 0 / 0 Регистрация: 17.12.2016 Сообщений: 33
	18.12.2016, 00:52 [ТС]	2
	Ау, тут могут помочь или как? 0

	18.12.2016, 10:46

вложенные функции

Решение