Создание простого кода задания - Pascal
Формулировка задачи:
Здравствуйте. Необходимо, пожалуйста, составить код для этих задач. Мне кажется, для знатоков, они будут очень простые, а я ничего не смыслю в данном Языке. Большое спасибо заранее.
(Вложения удалены)
Решение задачи: «Создание простого кода задания»
textual
Листинг программы
const n=20;
var i:integer;
s:real;
begin
s:=0;
for i:=2 to n do
s:=s+i/(i*i-1);
write('S=',s:0:2)
end.
Объяснение кода листинга программы
- Объявляется константа
nсо значением 20. - Объявляются переменные:
i- целочисленная,s- вещественная. - Присваивается значение 0 переменной
s. - Начинается цикл
for, в котором переменнаяiизменяется от 2 доn. - В теле цикла переменной
sприсваивается значениеs + i/(i*i-1), которое добавляется к предыдущему значениюs. - Выводится значение переменной
sс точностью до двух знаков после запятой с помощью командыwrite('S=',s:0:2). Код высчитывает значение формулы и выводит его на экран.