Зада4ка в Pascal'e

29.12.2010, 20:56. **Показов** 500. **Ответов** 8

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

Дано целое число N (> 0). Если N — нечетное, то вывести произведение 1·3·...·N; если N — четное, то вывести произведение 2·4·...·N. Чтобы избежать целочисленного переполнения, вычислять это с помощью вещественной переменной и выводить его как вещественное число.

@SuPeR XaKer · 29.12.2010, 21:12

Pascal

Uses
 CRT;
Var
 i,n:integer;
 PR:real;
begin
repeat
 write('N: ');
 readln(n);
until n>0;
pr:=1;
if n mod 2<>0 then
 begin
  for i:=1 to n do
   pr:=pr*(i*2-1);
 end
else
for i:=1 to n do
 pr:=pr*(i*2);
write('PR:=',pr);
readkey
end.

@Igor · 29.12.2010, 21:28

Сообщение от SuPeR XaKer

Pascal

Uses
 CRT;
Var
 i,n:integer;
 PR:real;
begin
repeat
 write('N: ');
 readln(n);
until n>0;
pr:=1;
if n mod 2<>0 then
 begin
  for i:=1 to n do
   pr:=pr*(i*2-1);
 end
else
for i:=1 to n do
 pr:=pr*(i*2);
write('PR:=',pr);
readkey
end.

вы ее проверили хоть?

Введите это же 5 и увидите страшное число

@SuPeR XaKer · 29.12.2010, 21:30

n=5
1 * 3 * 5 * 7 * 9 = 945
Я понял так.

@Igor · 29.12.2010, 21:35

Вынужден с вами не согласиться

@SuPeR XaKer · 29.12.2010, 21:36

Z.I.V
Ну так поясните.
Или имелось ввиду так

Pascal

pr:=1;
if n mod 2<>0 then
 begin
  for i:=1 to n do
  if i mod 2<>0 then
   pr:=pr*i;
 end
else
for i:=1 to n do
if i mod 2=0 then
 pr:=pr*i;
write('PR:=',pr);

@InPacto · 29.12.2010, 21:37

Зачем ввод N в цикле? Объясните, пожалуйста =)

@Igor · 29.12.2010, 21:37

n=9
1*3*5*7*9=945

@SuPeR XaKer · 29.12.2010, 21:39

Z.I.V
для подправления по условию даже 5 сек. не надо.
Пост 6

yellow_color
		1
	Зада4ка в Pascal'e 29.12.2010, 20:56. Показов 500. Ответов 8 Метки нет (Все метки) Дано целое число N (> 0). Если N — нечетное, то вывести произведение 1·3·...·N; если N — четное, то вывести произведение 2·4·...·N. Чтобы избежать целочисленного переполнения, вычислять это с помощью вещественной переменной и выводить его как вещественное число.

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	29.12.2010, 21:30	4
	n=5 *1 3 * 5 * 7 * 9 = 945** Я понял так. 0

@Igor 4654 / 3406 / 361 Регистрация: 11.11.2010 Сообщений: 6,205 Записей в блоге: 2
	29.12.2010, 21:35	5
	Вынужден с вами не согласиться 0

@InPacto 0 / 0 / 0 Регистрация: 13.12.2010 Сообщений: 16
	29.12.2010, 21:37	7
	Зачем ввод N в цикле? Объясните, пожалуйста =) 0

@Igor 4654 / 3406 / 361 Регистрация: 11.11.2010 Сообщений: 6,205 Записей в блоге: 2
	29.12.2010, 21:37	8
	n=9 13579=945 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	29.12.2010, 21:39	9
	Z.I.V для подправления по условию даже 5 сек. не надо. Пост 6 0