Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Составить программу, имитирующую блуждающие звезды (звезды появляются на некоторое время случайным образом в выбранном месте экрана и исчезают). http://www.cyberforum.ru/pascalabc/thread564653.html
Составить программу, имитирующую блуждающие звезды (звезды появляются на некоторое время случайным образом в выбранном месте экрана и исчезают).
Pascal ABC Составить программу, создающую список S и выводящую его
Составить программу, создающую список S и выводящую его после некоторой обработки: S - цепочка целых чисел. В каждое звено с нулевым значением записать максимальное из этих чисел
перевод программы Pascal ABC
Здравствуйте, мне нужно чтобы программу, работающую в TURBO PASCAL переделать чтоб она работала PascalABC uses crt,graph; type mass=arrayof string; var grdriver:integer;grmode:integer;...
Pascal ABC Алгоритм нахождения числа в игре Быки и Коровы Здравствуйте. Сегодня показа преподавателю курсовую Быки и Коровы и он сказал мне улучшить алгоритм нахождения, т.е. я пишу число, а программа отгадывает. Вот код: uses crt; var ... http://www.cyberforum.ru/pascalabc/thread564594.html
Pascal ABC Графика. Построить n вложенных разноцветных ромбов. http://www.cyberforum.ru/pascalabc/thread564561.html
Составить программу построения n вложенных разноцветных ромбов.
Графика. Построить изображение равнобедренного треугольника и вписанной в него окружности Pascal ABC
прошу помочь Построить изображение равнобедренного треугольника и вписанной в него окружности по заданным высоте h и длине основания a треугольника. Добавлено через 3 часа 52 минуты Помогите...
Циклы: Спортсмен в первый день пробежал 10 км. Каждый следующий день он увеличивает дневную норму на 10% Pascal ABC
Начав тренировки. Спортсмен в первый день пробежал 10 км. Каждый следующий день он увеличивает дневную норму на 10% от нормы предыдущего дня. Какой путь он пробежит на 7 день?
Pascal ABC Нарисовать Веточку рябины с Ягодами в вазе с водой Заранее спасибо и очень благодарю !!! http://www.cyberforum.ru/pascalabc/thread564518.html
Pascal ABC Составить сомощью модуля Graph полет теннисного шарика и отскакивание от стен. http://www.cyberforum.ru/pascalabc/thread564415.html
Составить сомощью модуля Graph полет теннисного шарика и отскакивание от стен. Добавлено через 3 часа 16 минут Полёт я сделал а вот как реализовать отскок от стен не могу придумать может кто...
Pascal ABC Задача, используя цикл с постусловием вычислить сумму ряда Решить задачу, используя цикл с постусловием. Дан числовой ряд и малая величина Е. Найти сумму ряда с точностью Е, общий член которого задан формулой: 3^n+2^n / 6(3^n+2^n) пример программы. при... http://www.cyberforum.ru/pascalabc/thread564393.html
sheldon-yura
30 / 30 / 16
Регистрация: 02.11.2011
Сообщений: 216
03.05.2012, 19:34 0

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

03.05.2012, 19:34. Просмотров 5588. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено 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.


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

Составьте программу вычисления степени числа 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
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru