Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 28.04.2019
Сообщений: 70
1

Оформить в виде двух функций вычисление суммы 1+2+3+.N и произведе- ния 1·2·3·.N целых чисел. Найти значение этих ф

11.05.2019, 15:02. Просмотров 922. Ответов 1
Метки нет (Все метки)

Обязательное использование функции
Процедуру использовать нельзя

Оформить в виде двух функций вычисление суммы 1+2+3+...N и произведе-
ния 1·2·3·....N целых чисел. Найти значение этих функций при разных значениях N, вве-
денных с клавиатуры.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.05.2019, 15:02
Ответы с готовыми решениями:

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

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

Оформить в виде процедуры и функции вычисление среднего арифметического двух чисел
2. оформить в виде процедуры и функции вычисление среднего арифметического двух чисел...

Вычисления суммы ряда оформить в виде функций, используемые функции и процедуры оформить в виде модуля
Напишите программу полностью, очень прошу! Вычисления оформить в виде функции, используемые функции...

1
163 / 94 / 70
Регистрация: 15.12.2016
Сообщений: 200
11.05.2019, 16:19 2
Лучший ответ Сообщение было отмечено anime1903 как решение

Решение

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
31
32
33
var
  N: integer;
 
function f1(n: integer): integer;
 
var
  res: integer;
 
begin
  res := 0;
  for var i := 1 to n do
    res += i;
  result := res;
end;
 
function f2(n: integer): integer;
 
var
  res: integer;
 
begin
  res := 1;
  for var i := 1 to n do
    res *= i;
  result := res;
end;
 
begin
  writeln('Введите значение N');
  read(N);
  writeln('f1(', N, ') = ', f1(N));
  writeln('f2(', N, ') = ', f2(N));
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.05.2019, 16:19

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

Оформить вычисление суммы отрицательных чисел в виде функции
Помогите переделать программу - Сортировку в виде процедуры, объединить обе сортировки, т.е....

Проект для определения во сколько раз произведение двух заданных целых чисел больше суммы этих чисел
1. Создайте проект для определения во сколько раз произведение двух заданных целых чисел больше...

Написать шаблоны функций для для вычисления суммы произведений двух соседних чисел для трех целых чисел и в одномерном массиве целых чисел
Написать шаблоны функций для для вычисления суммы произведений двух соседних чисел для трех целых...

Вычисление суммы чисел в массиве с четными индексами (переделать в виде функций)
Имеется код программы,который вычисляет сумму чисел в массиве с четными индексами.Необходимо...


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

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

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