Как записать формулу - Pascal ABC
Формулировка задачи:
Как записать формулу.
Как написать саму программу знаю, а вот как обозначить и записать формулу
Решение задачи: «Как записать формулу»
textual
Листинг программы
var k, n: integer;
x, p, a: real;
begin
repeat //можно убрать, если проверка не требуется
write('n > 0; n = ');
readln(n);
until n > 0; //можно убрать, если проверка не требуется
write('x = ');
readln(x);
if x = -0.5
then writeln('Значение выражения не определено')
else begin
x := 2 * x - 1;
a := 1 / x;
p := a;
for k := 2 to n do
begin
a := -a / x;
p := p * a
end;
writeln('P = ', p)
end
end.
Объяснение кода листинга программы
- Объявляются переменные k, n, x, p, a типа integer, real соответственно.
- Запускается цикл repeat, который будет выполняться до тех пор, пока n больше 0.
- Выводится сообщение «n > 0; n = », а затем считывается значение переменной n.
- Выводится сообщение «x = », а затем считывается значение переменной x.
- Проверяется условие x = -0.5. Если оно истинно, выводится сообщение «Значение выражения не определено».
- Если условие x = -0.5 ложно, выполняется следующий блок кода:
- x устанавливается равным 2*x-1.
- a устанавливается равным 1/x.
- p устанавливается равным a.
- Для k от 2 до n выполняется цикл for:
- a устанавливается равным -a/x.
- p устанавливается равным p*a.
- Выводится значение переменной p.
- Конец программы.