Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Mgubkin
0 / 0 / 0
Регистрация: 28.11.2017
Сообщений: 12
1

Составить программу для нахождения НОК трёх натуральных чисел

04.12.2017, 21:06. Просмотров 350. Ответов 3
Метки нет (Все метки)

Нужно решить задачу в Паскале с помощью подпрограммы функции и процедуры. Сам пытался сделать, но выходит непонятная ошибка, из-за которой подпрограмма циклится.
Задача: Составить программу для нахождения наименьшего общего кратно трёх натуральных чисел.l
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.12.2017, 21:06
Ответы с готовыми решениями:

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

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

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

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

Составить программу для вычисления суммы квадратов натуральных чисел от 1 до n
Пример 1: Составить программу для вычисления суммы квадратов натуральных чисел от 1 до n и оформить...

3
JuriiMW
2418 / 1344 / 1730
Регистрация: 10.12.2014
Сообщений: 5,274
05.12.2017, 06:41 2
Цитата Сообщение от Mgubkin Посмотреть сообщение
Сам пытался сделать, но выходит непонятная ошибка, из-за которой подпрограмма циклится.
Ну, дык, показывайте!
0
Mgubkin
0 / 0 / 0
Регистрация: 28.11.2017
Сообщений: 12
05.12.2017, 10:09  [ТС] 3
Так решил.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Program Pr;
var a,b,c,d,e:real;
Procedure NOD(a,b:real;Var n:integer);
 
Begin While a<>b do
if a>b
then a:=(a*d)/(a-d)
else b:=(a*d)/(a-d)
End;
Begin Write('ввелите 5 чисел');
Readln(a,b,c,d,e);
nod(a,b,a);
nod(a,c,a);
nod(a,d,a);
nod(a,c,a);
Writeln(a);
End.
Ошибка в строке 12: Неправильный тип параметров подпрограммы
0
JuriiMW
2418 / 1344 / 1730
Регистрация: 10.12.2014
Сообщений: 5,274
05.12.2017, 10:46 4
А чё вы хотите?
Передаёте в процедуру параметр неправильного типа!

Да и ещё: вы в своей программе только НОД пытаетесь найти…
0
05.12.2017, 10:46
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.12.2017, 10:46

Составить программу, которая определяет для двух вводимых натуральных чисел M и N их наибольший делитель
Задание 1 Вычислить для треугольника ABC все стороны, все углы (в градусной мере), периметр и...

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

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


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

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

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