АЛГОРИТМ ЕВКЛИДА (нахождение наибольшего общего делителя (НОД) двух натуральных чисел)

Презентация:



Advertisements
Похожие презентации
Алгоритм Евклида. Наибольший общий делитель Требуется составить программу определения наибольшего общего делителя ( НОД ) двух натуральных чисел. НОД.
Advertisements

Алгоритм Евклида Составила: Антонова Е.П. 2009г..
Условие? Действия1Действия2 данет. Задача С клавиатуры вводятся не равные между собой числа а и b. Большее из этих чисел заменить их суммой, а меньшее.
Линейные алгоритмы Тема урока:. Задача Составить блок-схему и написать программу на Паскале, меняющую значения переменных а и b местами. Данные вводятся.
program Stepeny_a; Uses Crt; var a,b,c : real; begin writeln ( Введите числа a и b ); readln ( a, b ); c := a; while c < b do begin writeln (c:8:2) ;
АЛГОРИТМ ЕВКЛИДА. Алгоритм Евклида - это алгоритм нахождения наибольшего общего делителя (НОД) двух целых неотрицательных чисел. Евклид ( до. н.
PASCAL Условный оператор.. Этот оператор используется для выполнения одного из двух возможных вариантов программы. Условный оператор если логическое_условие.
Задача: даны два числа, найти их наибольший общий делитель.
Оператор цикла с предусловием. Оператор цикла с предусловием используется в тех случаях, когда заранее неизвестно число повторений цикла. Форма записи.
Алгоритмические структуры 1.Линейный 2.Ветвление 3.Цикл.
Задача: даны два числа, найти их наибольший общий делитель.
1 Программирование на языке Паскаль Ветвления. 2 Разветвляющиеся алгоритмы Задача. Ввести два целых числа и вывести на экран наибольшее из них. Идея решения:
Урок информатики 9 физико-математический класс.
Какой алгоритм называется разветвляющимся? Алгоритм, при выполнении которого необходимо выполнить какое-либо условие называется разветвляющимся.
Очень часто приходится повторять определенную часть алгоритма для различных значений аргумента. Для организации таких процессов используется алгоритмы.
Алгоритм Евклида. Два варианта решения Программирование. Сочетание циклов и ветвлений. 9 класс Евклид Александрийский ( род. 330 г. до н. э.) - известный.
I := 1, 20 вывод В массиве нет числа X PROGRAM VAR, INTEGER Rand FORTO Example2 ; :=:= i 120DO BEGIN WRITE() : ARRAY [ ] OF i ; BEGIN ; : NumberX.
АЛГОРИТМ ВЕТВЛЕНИЯ ОПЕРАТОР ВЕТВЛЕНИЯ. Какая задача решается по этой программе? Program Z1: Var a,b,c: integer; Begin Write ( vv a,b:); Read (a,b); C:=(a+b)*(b-a);
program a1; var c: integer; begin c = 100; writeln (c) end. ; :
Задание 1. Какое значение будет принимать переменная х после выполнения фрагмента программы? 1.f:=5; d:=7; if f>=d then x:=f else x:=d; Ответ: х=7 2.a:=5;
Транксрипт:

АЛГОРИТМ ЕВКЛИДА (нахождение наибольшего общего делителя (НОД) двух натуральных чисел)

Входные данные: m, n – натуральные числа; Выходные данные: nod – наибольший общий делитель этих двух чисел; Вспомогательные данные: x, y – хранят значения m, n для их дальнейшего изменения

БЛОК-СХЕМА н xy x>y x:=x-yy:=y-x Вывод nod конец Ввод m, n x:=m y:=n данет да Nod:=x нет Паскаль-программа Program nod; Var m,n,x,y,nod: word; BEGIN WriteLn(Введите два числа:); readLn(m,n); x:=m; y:=n; While xy Do If x > y Then x:=x-y else y:=y-x; Nod:=x; WriteLn(НОД чисел,m, и,n,равен,nod:5); END.