Вычислить значение суммы при заданном значении аргумента - Turbo Pascal
Формулировка задачи:
дан x, посчитать y
Решение задачи: «Вычислить значение суммы при заданном значении аргумента»
textual
Листинг программы
var n:integer;
x,t,z,f,y:real;
begin
write('x=');
readln(x);
if x=0 then
begin
write('y не определено, деление на 0');
readln;
exit;
end;
z:=1/x;
t:=z;
y:=0;
for n:=1 to 10 do
begin
t:=t*z*z*n;
y:=y+t;
end;
write('y=',y:0:5);
readln
end.
Объяснение кода листинга программы
- Переменная n инициализируется значением 10.
- Переменные x, t, z, f, y объявляются и инициализируются значениями 0.
- Выводится сообщение
x=, после чего считывается значение переменной x. - Проверяется условие x=0. Если оно истинно, выводится сообщение
y не определено, деление на 0и считывается значение переменной x. - Переменная z инициализируется значением 1/x.
- Переменная t инициализируется значением z.
- Переменная y инициализируется значением 0.
- Запускается цикл for, который выполняется 10 раз.
- В каждой итерации цикла переменная t инициализируется значением tzz*n, где n - значение переменной n.
- Значение переменной t добавляется к значению переменной y.
- После завершения цикла выводится сообщение
y=, за которым считывается значение переменной y. - Программа завершается.