Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.56/25: Рейтинг темы: голосов - 25, средняя оценка - 4.56
zxcz
0 / 0 / 2
Регистрация: 20.10.2011
Сообщений: 62
1

Написать программу вычисления n!=1*2*3*...*n. (Записать варианты программы с разными видами циклов while, repeat, for).

03.05.2012, 17:15. Просмотров 5202. Ответов 1
Метки нет (Все метки)

Написать программу вычисления n!=1*2*3*...*n. (Записать варианты программы с разными видами циклов while, repeat, for).
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.05.2012, 17:15
Ответы с готовыми решениями:

Составьте программу вычисления степени числа a с натуральным показателем n. (Записать варианты программы с разными видами циклов while, repeat, for).
Составьте программу вычисления степени числа a с натуральным показателем n. (Записать варианты...

Предложить варианты записи данного кода всеми тремя видами циклов
Предложить варианты записи данного кода всеми тремя видами циклов. Выбрать наиболее оптимальный и...

Написать программу вычисления n!=1*2*3*...*n. (Записать варианты программы с разными видами циклов while, repeat, for).
Написать программу вычисления n!=1*2*3*...*n. (Записать варианты программы с разными видами циклов...

Составить программу вычисления степени числа А с натуральным показателем N . (Записать варианты программы с 3 видами циклов: for, while, do…while)
Составить программу вычисления степени числа А с натуральным показателем N . (Записать варианты...

Циклы. Составить 3 программы с разными видами циклов, которые должны печатать имя 10 раз.
Составить 3 программы с разными видами циклов, которые должны печатать имя 10 раз... Помогите...

1
sheldon-yura
30 / 30 / 16
Регистрация: 02.11.2011
Сообщений: 216
03.05.2012, 19:34 2
Лучший ответ Сообщение было отмечено zxcz как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses
 crt;
var
 i,n:integer;
 F:longint;
begin
 clrscr;
 writeln('Введите n ');
 readln(n);
 F:=1;
 i:=1;
 while i<=n do
 begin
  F :=F*i;
  inc(i);
 end;
 writeln(n,'!=',F:12);
 readkey;
end.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses
 crt;
var
 i,n:integer;
 F:longint;
begin
 clrscr;
 writeln('Введите n ');
 readln(n);
 F:=1;
 i:=0;
 repeat
  inc(i);  
  F :=F*i;
 until i>n;
 writeln(n,'!=',F:12);
 readkey;
end.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses
 crt;
var
 i,n:integer;
 F:longint;
begin
 clrscr;
 writeln('Введите n ');
 readln(n);
 F:=1;
 for i:=1 to n do
  F :=F*i;
 writeln(n,'!=',F:12);
 readkey;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.05.2012, 19:34

Написать все доступные варианты организации циклов (возврата программы к определённой строке кода)
Здравствуйте! Напишите, пожалуйста, ВСЕ доступные (ну если их 3-5, если же много, то хотя бы 5,...

Записать 3 варианта (с циклами while, repeat, for) программы вычисления условной функции
Записать 3 варианта (с циклами while, repeat, for) программы вычисления условной функции в...

написать программу для вычисления суммы ряда( через команду :"repeat")
День добрый, помогите пожалуйста &quot;Написать программу вычисления суммы ряда: (x-1)+(x-3)+...(x-n)....


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

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

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