0 / 0 / 0
Регистрация: 04.12.2014
Сообщений: 16
1

Вычисление наименьшего общего кратного элементов массива до первого нулевого элемента

12.04.2015, 22:02. Показов 1525. Ответов 1
Метки нет (Все метки)

Составьте программу вычисления наименьшего общего кратного элементов целочисленного массива A(N), что расположены перед первым нулевым элементом данного массива.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.04.2015, 22:02
Ответы с готовыми решениями:

Вычисление наименьшего общего кратного минимального и максимального элементов массива
Составьте программу вычисления наименьшего общего кратного минимального и максимального элементов...

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

Вычисление наименьшего общего кратного минимального и максимального элемента в массиве
Составить программу вычисления наименьшего общего кратного минимального и максимального элемента в...

Составьте программу вычисления наименьшего общего кратного элементов одномерного целочисленного массива А
Нужно составить программу с подпрограммой. Составьте программу вычисления наименьшего общего...

1
1646 / 1075 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
12.04.2015, 23:42 2
Лучший ответ Сообщение было отмечено ia-12 как решение

Решение

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
Function NOD(a,b : Longint) : Longint;
Begin
  If (a mod b)=0 then NOD:=b else Nod:=NOD(b,a mod b);
end;
 
Function NOK(a,b : Longint) : Longint;
Begin
  NOK:=abs(a*b) div NOD(a,b);
End;
 
Const N = 5;
Var
  A : array[1..N] of Word;
  i : Byte;
 
Function NOKmas(k : Byte) : Longint;
Begin
  If k>0 then NOKmas:=NOK(A[k],NOKmas(k-1)) else NOKmas:=1;
end;
 
Begin
  For i:=1 to N do
  Begin
    A[i]:=Random(10)+1;
    Write(A[i],' ');
  end;
  Writeln;
  Writeln('НОК массива: ',NOKmas(N));
End.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.04.2015, 23:42
Помогаю со студенческими работами здесь

Вычисление наименьшего общего кратного заданной совокупности чисел
Нужно написать программу для вычисления наименьшего общего кратного заданной совокупности чисел....

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

Рекурсивное вычисление наименьшего общего кратного двух целых чисел
Напишите рекурсивное решение для вычисления Наименьшего общего кратного двух целых чисел. Вы не...

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

Нахождение наибольшего общего делителя и наименьшего общего кратного двух натуральных
Составить программу для нахождения наибольшего общего делителя и наименьшего общего кратного двух...

Нахождение наибольшего общего делителя и наименьшего общего кратного двух чисел
Задача на функции 1. Составить программу нахождения наибольшего общего делителя и наименьшего...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru