С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/15: Рейтинг темы: голосов - 15, средняя оценка - 5.00
x_AlexXxander_x
7 / 7 / 5
Регистрация: 04.11.2010
Сообщений: 25
1

Пусть n - натуральное число и пусть n!! означает 1*3*5*...*n для нечетного n и 2*4*...*n для четного n. Вычислить n!!

07.11.2010, 17:02. Просмотров 2984. Ответов 5
Метки нет (Все метки)

Пусть n - натуральное число и пусть n!! означает 1*3*5*...*n для нечетного n и 2*4*...*n для четного n.
Вычислить n!!

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Program lab1_22a;
uses crt;
var i,s:integer; n:word;
begin
write('n=');
readln(n);
if n<=0 then begin write('znachenie n dolzhno byt bolshe nulja'); readkey; exit end
        else
if n mod 2 > 0 then
                          begin S:=1;
                          for i:=1 to n do
                          i:=i+2;
                          s:=s*i;
                          end;
               else
                      begin S:=2;
                          for i:=1 to n do
                      i:=i+2;
                      s:=s*i;
                      end;
writeln('Otvet=',S:20:20); readkey; end.
При компиляции ошибка "Error in statement". Подскажите где я ошибся
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.11.2010, 17:02
Ответы с готовыми решениями:

Пусть дано натуральное число N
Пусть дано натуральное число N и последовательность из N вещественных чисел,...

Пусть дано натуральное число n
Пусть дано натуральное число n и вещественные числа а1, а2,..., аn, которые...

Задача: Пусть дано натуральное число n...
Пусть дано натуральное число n и вещественные числа а1, а2,..., аn, которые...

Пусть дано натуральное число n. Найдите
Добрый вечер, не могу выполнить задание на скрине,

Пусть даны квадратная матрица А порядка m и натуральное число n; требуется найти:
10. Пусть даны квадратная матрица А порядка m и натуральное число n; требуется...

5
SuPeR XaKer
2844 / 1973 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
07.11.2010, 17:07 2
ты пытаешься изменить счётчик цикла что делать нельзя вот и ошибка
1
x_AlexXxander_x
7 / 7 / 5
Регистрация: 04.11.2010
Сообщений: 25
07.11.2010, 17:25  [ТС] 3
Цитата Сообщение от SuPeR XaKer Посмотреть сообщение
ты пытаешься изменить счётчик цикла что делать нельзя вот и ошибка
Вот вроде убрал это присваивание, но все рабно пишет "Error in statement"
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Program lab1_22a;
uses crt;
var i,s:integer; n:word;
begin
write('n=');
readln(n);
if n<=0 then begin write('znachenie n dolzhno byt bolshe nulja'); readkey; exit end
        else
if n mod 2 > 0 then
                          begin S:=1;
                          for i:=1 to n do
                          s:=s*(i+2);
                          end;
               else
                          begin S:=2;
                          for i:=1 to n do
                          s:=s*(i+2);
                          end;
writeln('Otvet=',S:20:20); readkey; end.
0
SuPeR XaKer
2844 / 1973 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
07.11.2010, 17:29 4
для чётных
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
i,n,k,l:integer;
fact,sum:real;
begin
repeat
readln(n);
until n>=0;
fact:=1;
k:=0;
for i:=1 to n do
begin
fact:=fact*(i*2);
end;
write('  ',fact,'  ');
end.
для не чётных
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var
i,n,k:integer;
fact,sum:real;
begin
repeat
readln(n);
until n>=0;
fact:=1;
for i:=1 to n do
begin
if i=1 then
begin
k:=1;
end
else
begin
inc(k,2);
end;
fact:=fact*k;
write(k:3);
end;
write('  ',fact,'  ');
end.
Добавлено через 3 минуты
Всё вместе
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
var
i,n,k,l:integer;
fact,sum:real;
begin
repeat
readln(n);
until n>=0;
if n mod 2=0 then
begin
fact:=1;
for i:=1 to n do
begin
fact:=fact*(i*2);
end;
write('  ',fact,'  ');
end
else
begin
fact:=1;
for i:=1 to n do
begin
if i=1 then
begin
k:=1;
end
else
begin
inc(k,2);
end;
fact:=fact*k;
end;
write('  ',fact,'  ');
end;
end.
так?
1
x_AlexXxander_x
7 / 7 / 5
Регистрация: 04.11.2010
Сообщений: 25
07.11.2010, 17:32  [ТС] 5
Так, спасибо огромное)
0
SuPeR XaKer
2844 / 1973 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
07.11.2010, 17:33 6
перепроверь.Мог напутать.
0
07.11.2010, 17:33
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.11.2010, 17:33

Pascal. Пусть даны натуральное n, a,x1,x2.xn интовые. Сделать массивом
Пусть даны натуральное n, a,x1,x2...xn интовые . Если в последовательности...

Пусть заданное целое число...
Так как я не очень знаю паскаль, то прошу наших многоуважаемых программистов...

Пусть даны вещественные числа а1,.,а10, b1,.,b20. Получите вещественную матрицу С размером 10х20, для которой Cij=1+
1. Пусть даны целые числа a1, a2, a3. Получите целочисленную матрицу размером 3...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru