Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

Pascal как это решить

Def Профи (525), на голосовании 1 месяц назад
Это вообще что, и как мне из этого написать код
Голосование за лучший ответ
nds Просветленный (25827) 2 месяца назад
Ну, математику за вас изучать никто не подписывался.
П обычно обозначает произведение
Celtic Hammer Мудрец (16771) 2 месяца назад
Алгебраическое произведение это. Делаешь цикл от 1 до n и на каждом шаге бац-бац...
(1 + 2) в квадрате деленное на 4 умножить на (2 + 2) в квадрате деленное на 4 умножить на (3 + 2) в квадрате деленное на 4 и так далее до n.
На Питоне так
 n = int(input('n ')) + 1 
p = 1
for i in range(1, n):
p *= ((i + 2) ** 2) / 4
print(p)
Паскаль не знаю
Кублен Оракул (97317) 2 месяца назад
описание и начало сам
КубленОракул (97317) 2 месяца назад
pr:=1;
for p:=1 to n do
pr:=pr*sqr(p+2)/4;
writeln(pr);
Дмитрий Шишкин Гений (72093) 2 месяца назад
 Program P1; 
uses crt;
var i, n: integer;
p: real;
begin
clrscr;
p:=1;
writeln ('Введите с клавиатуры целое положительное число n, после чего нажмите клавишу Enter.');
write ('n=');
readln (n);
if n<=1 then writeln ('Ошибка: введенное Вами число не является положительным.') else begin
for i:=1 to n do p:=p*(sqr (i+2)/4);
writeln ('Результат произведения: ', p:0:2);
end;
write ('Программа завершена. Для выхода нажмите клавишу Enter.');
readkey;
end.
wantala443Мыслитель (6681) 2 месяца назад
p можно объявить как LongInt. Точность будет выше
Дмитрий Шишкин Гений (72093) wantala443, может быть, и можно, но не во всех версиях компиляторов - там из-за деления на 4 на всякие integer (включая Longint) ругается. Real подавай типа.
Похожие вопросы