Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.81/21: Рейтинг темы: голосов - 21, средняя оценка - 4.81
1 / 1 / 0
Регистрация: 02.05.2011
Сообщений: 16
1

Составить программу,используя оператор Repeat.Составить программу для определения N!-M!,где N!=1*2*3...n.

01.06.2011, 01:52. Просмотров 3975. Ответов 1
Метки нет (Все метки)


Составить программу,используя оператор Repeat.Составить программу для определения N!-M!,где N!=1*2*3...n.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.06.2011, 01:52
Ответы с готовыми решениями:

Составить программу, используя оператор REPEAT (найти N! – M!)
Составить программу для определения N! – M!, где N!=1*2*3*…*n.

Используя условный оператор составить программу для вычисления выражения
Вычислить значение выражения по формуле ( все переменные принимают действительные значения) ...

Используя оператор условия, составить программу для вычисления составной функции
непойму как тут выкладывать,так

Используя оператор условия, составить программу для вычисления составной функции
Используя, оператор условия (if … then), составить программу для вычисления составной (сложной)...

1
S9
Волшебник
654 / 257 / 88
Регистрация: 18.12.2010
Сообщений: 545
01.06.2011, 06:17 2
Лучший ответ Сообщение было отмечено Катрин1406 как решение

Решение

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
{Составить программу,используя оператор Repeat.Составить программу для определения N!-M!,где N!=1*2*3...n.}
Program S9;
 
Function fact( n:Integer):Integer;{Функция для вычисления факториала}
Var
    i,Res:Integer;
Begin
    i:=0;
    Res:=1;
    Repeat
        Begin
          Inc(i);
          Res:=Res*i;
        End;
    Until
        i = n;
    fact:=Res;
End;
 
{----- Основная программа -----}   
 
Var
    M,N:Integer;
Begin
    WriteLn('Please enter N,M');
    ReadLn(N,M);
    WriteLn('N! = ',fact(N),' M! = ',fact(M));
    WriteLn('N! - M! = ',fact(N) - fact(M));
    ReadLn;
End.
0
Вложения
Тип файла: rar S9.rar (2.5 Кб, 41 просмотров)
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.06.2011, 06:17

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Используя оператор условия (if … then), составить программу для вычисления составной (сложной) функции
Задание: используя оператор условия (if … then), составить программу для вычисления составной...

Используя, оператор условия (if … then), составить программу для вычисления составной (сложной) функции
Используя, оператор условия (if … then), составить программу для вычисления составной (сложной)...

Используя оператор условия (if … then), составить программу для вычисления составной (сложной) функции
Задание: используя оператор условия (if … then), составить программу для вычисления составной...

Составить программу решения задачи, используя оператор выбора
Вводится целое число от 2 до 5. Если введено "2", то вывести "неудовлетворительно". Если введено...


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

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

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