сервис вопросов и ответовИНФОРМАТИКА!!!
10-11 класс|
|
Вычислить значение N! (n - натуральное, цикл while)
Rbvbhbyf
07 апр. 2017 г., 15:46:24 (7 лет назад)
Yuravorobov
07 апр. 2017 г., 18:14:25 (7 лет назад)
Program asd;
USES crt;
var n,s,q: integer;
BEGIN
Clrscr;
Write('Vvedite n ');
Readln(n);
S:=1;
Q:=1;
while q<n do
begin
q:=q+1;
s:=s*q;
end;
writeln('Otvet: ',s);
Readln;
END.
Anastasia199
07 апр. 2017 г., 20:02:03 (7 лет назад)
Дело в том, что факториал числа представляет собой довольно большое значение, которое не влазит в ячейку real, если вводить даже не очень большие числа.
Для чисел, не превышающих 170:
uses crt;var f:real;
x,n:integer;
begin
f:=1;
write('N='); readln(N);
if N<0 then writeln('ERROR!') else
if N=0 then writeln('N!=',1)
Shokoladka333
07 апр. 2017 г., 20:51:34 (7 лет назад)
Насколько большое значение N подразумевается?
NpukoJl
07 апр. 2017 г., 22:01:35 (7 лет назад)
Любое значение) Честно говоря, не знаю. - Дана задача такая. Решайте как знаете. Спасибо!
Ответить
Другие вопросы из категории
Перевести целое десятичное число 144 в двоичную систему счисления
б) по схеме N10-->N8-->N2
в) по схеме N10-->N16-->2
Почему программа на паскале не подставляет начальное значение x (x:=0), а подставляет сразу x+h? Т.е. в выводе ответов первым должно идти значение -1, а
идет совсем другое. И как в таком случае реализовать это?
Код программы:
program program3;
uses crt;
var x, y, c, h:real;
begin
clrscr;
x:=0;
h:=0.4;
repeat x:=x+h;
y:=power(x,1/3)-1;
writeln (y);
until x>=4;
end.
Читайте также
Здравствуйте, хочу поступить в университет, но на то направление что я хочу поступить просят (по выбору университета) информатику или физику, я выбрал
один и готовился к физике, но потом я увидел университет другой и там прося информатику, пожалуйста подскажите из вашего опыта или опыта знакомых, сколько нужно примерно времени для того чтобы подготовиться к сдаче ЕГЭ по информатике с азов, возможно ли за пол года? при условии что я хорошо знаю математику.
Здравствуйте, хочу поступить в университет, но на то направление что я хочу поступить просят (по выбору университета) информатику или физику, я выбрал
один и готовился к физике, но потом я увидел университет другой и там прося информатику, пожалуйста подскажите из вашего опыта или опыта знакомых, сколько нужно примерно времени для того чтобы подготовиться к сдаче ЕГЭ по информатике с азов? при условии что я хорошо знаю математику.
Пожалуйста отвечайте конкретнее, из личного опыта или из опыта знакомых.
В среду в 8 "Б" классе 5 уроков: русский,математика,естествознание,информатика,литература. Сколько можно составить вариантов расписания на день? Сколько
можно составить вариантов расписания на день,зная,что информатика - первый урок?
помогите с информатикой,пожалуйста)
Нужно записать фрагмент программного кода,который получает слово романтика из слова информатика и выводит результат на экран
Вы находитесь на странице вопроса "ИНФОРМАТИКА!!!", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.