Найти наибольший общий делитель трех натуральных чисел

@li999 · Регистрация: 16.12.2020

Студворк — интернет-сервис помощи студентам

Найти наибольший общий делитель трех натуральных чисел, имея в виду, что НОД(а,в,с)=НОД(НОД(а,в,),с). (определить процедуру для расчета наибольшего общего делителя двух натуральных чисел).

@thyrex · 06.12.2021, 06:51

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var a, b, c: integer;
 
 function NOD(x, y): integer;
 begin
  while (a>0) and (b>0) do
   if a>b
    then a:= a mod b
    else b:= b mod a;
  result:= a+b;
 end;
 
begin
 write('a = ');
 readln(a);
 write('b = ');
 readln(b);
 write('c = ');
 readln(c);
 writeln(NOD(NOD(a,b), c));
end.

@Cyborg Drone · 06.12.2021, 11:37

thyrex, не следует описывать глобальные переменные до подпрограмм, это может порождать трудно локализуемые ошибки из-за перекрытия областей видимости глобальных и локальных переменных. В Вашей программе это и случилось. Формальные параметры функции x и y не используются, а в функции используются (и модифицируются) глобальные переменные a и b. Ваша функция всегда вычисляет NOD(a,b), а не то, что планировалось. Программа завершится аварийно, поскольку после первого вызова функции либо a, либо b будет равно 0, и при втором вызове функции будет деление на 0 в строке 7 или в строке 8.
И ещё: бестиповых формальных параметров Pascal ABC не поддерживает.
И ещё:

Сообщение от li999

определить процедуру

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
procedure NOD(var z: integer; x, y: integer);
begin
  while (x > 0) and (y > 0) do
    if x > y then x := x mod y
    else y := y mod x;
  z := x + y
end;
 
var
  a, b, c, d: integer;
begin
 write('a = ');
 readln(a);
 write('b = ');
 readln(b);
 write('c = ');
 readln(c);
 NOD(d, a, b);
 NOD(d, d, c);
 writeln('NOD(', a, ', ', b, ', ', c, ') = ', d)
end.

@thyrex · 06.12.2021, 17:13

Про a и b, бестиповыми x и y - согласен, машинально написал их в алгоритме нахождения НОД. Не стоило спозаранку лезть на форум

Что касается местоположения описания глобальных переменных, то никогда с этим за все время работы в школе проблем не возникало

@Cyborg Drone · 07.12.2021, 00:20

Если объявить глобальные переменные после подпрограмм, то за областями видимости переменных будет следить компилятор, и возможностей навалять ошибок будет значительно меньше. Но есть и некоторый недостаток: придётся объявлять все локальные переменные и все формальные параметры для каждой подпрограммы. Заголовки подпрограмм при большом количестве формальных параметров могут выглядеть громоздко.

Если объявить глобальные переменные до подпрограмм, то в этом случае придётся самому отслеживать области видимости всех переменных. Можно частично или вообще не использовать формальные параметры и локальные переменные, заголовки подпрограмм станут лаконичнее, но программа станет запутаннее.

Для небольших программ объявление глобальных переменных до подпрограмм, я считаю, вполне допустимо, хотя это и плохой стиль программирования. Для больших программ, особенно для тех, над которыми работают одновременно несколько человек, объявление глобальных переменных до подпрограмм, по очевидным причинам, недопустимо.

Вообще, описание переменных до, после или между подпрограммами - неплохой инструмент. Правда, инструмент этот противоречит всем парадигмам программирования, поскольку для обеспечения модульности и переносимости программ было принято, чтобы любой блок программы мог модифицировать только свои локальные переменные, а передача данных в/из блока производилась исключительно через формальные параметры.

@thyrex · 07.12.2021, 00:58

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

Проверено неоднократно, в т.ч. и в своей педагогической практике.
Ну или вот доказательство https://www.cyberforum.ru/pyth... 15973.html (пользователь не из моих ученичков, если что)

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

@Cyborg Drone · 07.12.2021, 02:54

Абсолютно согласен.

Новые блоги и статьи Все статьи Все блоги /
Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git
1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .

@li999 0 / 0 / 0 Регистрация: 16.12.2020 Сообщений: 28

	Найти наибольший общий делитель трех натуральных чисел 04.12.2021, 08:03. Показов 2826. Ответов 6 Метки нет (Все метки) Найти наибольший общий делитель трех натуральных чисел, имея в виду, что НОД(а,в,с)=НОД(НОД(а,в,),с). (определить процедуру для расчета наибольшего общего делителя двух натуральных чисел). 0

@thyrex 14450 / 7489 / 1582 Регистрация: 06.09.2009 Сообщений: 27,133
	06.12.2021, 17:13
	Про a и b, бестиповыми x и y - согласен, машинально написал их в алгоритме нахождения НОД. Не стоило спозаранку лезть на форум Что касается местоположения описания глобальных переменных, то никогда с этим за все время работы в школе проблем не возникало 0

@Cyborg Drone Модератор 10445 / 5737 / 3406 Регистрация: 17.08.2012 Сообщений: 17,454
	07.12.2021, 00:20
	Если объявить глобальные переменные после подпрограмм, то за областями видимости переменных будет следить компилятор, и возможностей навалять ошибок будет значительно меньше. Но есть и некоторый недостаток: придётся объявлять все локальные переменные и все формальные параметры для каждой подпрограммы. Заголовки подпрограмм при большом количестве формальных параметров могут выглядеть громоздко. Если объявить глобальные переменные до подпрограмм, то в этом случае придётся самому отслеживать области видимости всех переменных. Можно частично или вообще не использовать формальные параметры и локальные переменные, заголовки подпрограмм станут лаконичнее, но программа станет запутаннее. Для небольших программ объявление глобальных переменных до подпрограмм, я считаю, вполне допустимо, хотя это и плохой стиль программирования. Для больших программ, особенно для тех, над которыми работают одновременно несколько человек, объявление глобальных переменных до подпрограмм, по очевидным причинам, недопустимо. Вообще, описание переменных до, после или между подпрограммами - неплохой инструмент. Правда, инструмент этот противоречит всем парадигмам программирования, поскольку для обеспечения модульности и переносимости программ было принято, чтобы любой блок программы мог модифицировать только свои локальные переменные, а передача данных в/из блока производилась исключительно через формальные параметры. 0

@thyrex 14450 / 7489 / 1582 Регистрация: 06.09.2009 Сообщений: 27,133
	07.12.2021, 00:58
	Все, что Вы пишете, безусловно имеет право на жизнь. Но большинству тех, кто обращается за помощью в разделы по программированию, все равно, насколько эффективный код ему предлагают и соответствует ли он парадигмам программирования. У них одна цель - побыстрее сдать и забыть этот ненавистный Pascal, Python, С и иже с ними Проверено неоднократно, в т.ч. и в своей педагогической практике. Ну или вот доказательство https://www.cyberforum.ru/pyth... 15973.html (пользователь не из моих ученичков, если что) На сим предлагаю остановится, ибо все же пишем в теме одного из таких пользователей 0

@Cyborg Drone Модератор 10445 / 5737 / 3406 Регистрация: 17.08.2012 Сообщений: 17,454
	07.12.2021, 02:54
	Абсолютно согласен. 0