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

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

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

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

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

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

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

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

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

1
S9
Волшебник
651 / 254 / 88
Регистрация: 18.12.2010
Сообщений: 544
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 просмотров)
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.06.2011, 06:17

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

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

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


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

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

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