M : = M - N начало да нет M = N Задача: определение наибольшего общего делителя ( НОД ) двух натуральных чисел Задача: определение наибольшего общего делителя.

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



Advertisements
Похожие презентации
Задача: найти наибольшее значение среди трех величин: A, B, C алг БИТ 2 если A > B ввод A, B, C нач вещ A, B, C, D кон вывод D иначе если B > C то D :=
Advertisements

F : = 1 начало да нет конец ввод N вывод F R : = 1 F : = F R R : = R + 1 R < N алг Факториал цел F, N, R ввод N нач кон вывод F нц кц пока R.
ОперацияMNУсловие 1 ввод M, N M N да 3 M > N > 24да 4 M := M - N M N да 6 M > N > 24нет 7 N := N - M 8.
Алгоритм Евклида. Наибольший общий делитель Требуется составить программу определения наибольшего общего делителя ( НОД ) двух натуральных чисел. НОД.
K := 1, 15 i := 1, 16 - K i := 1, 16 да нет B [ i ] > B [ i + 1 ] X : = B [ i ] B [ i ] : = B [ i + 1] B [ i + 1 ] : = X вывод B [, i, ] =,B [ i ] для.
По трем сторонам треугольника (a, b, c) вычислить площадь треугольника ( S ) p : = (a + b + c) / 2 начало конец ввод a, b, c вывод S S : = p (p - a) (p.
АЛГОРИТМ ЕВКЛИДА (нахождение наибольшего общего делителя (НОД) двух натуральных чисел)
Месяц T [ 1:12 ]T [1]T [2]T [3]T [4]T [5]T [6]T [7]T [8]T [9]T [10]T [11]T [12] Температура алг Ввод.
Месяц Среднее T [ 1:12 ]T [1]T [2]T [3]T [4]T [5]T [6]T [7]T [8]T [9]T [10]T [11]T [12] Температура
Линейные алгоритмы Тема урока:. Задача Составить блок-схему и написать программу на Паскале, меняющую значения переменных а и b местами. Данные вводятся.
Знакомство с языком Паскаль Структура программы Ветвление на Паскале Циклические программы Пример линейной программы Пример программы с ветвлением Пример.
Месяц T [ 1:12 ]T [1]T [2]T [3]T [4]T [5]T [6]T [7]T [8]T [9]T [10]T [11]T [12] Температура алг Ввод.
Программирование ветвлений на Паскале МОУ СОШ 2 городского округа город Буй Костромской области Учитель Щур А.Н.
Условный оператор (ветвление) (урок 5). Ветвление Если то иначе кон If then begin end else begin end;
Способы ввода значений в массив на Паскале 1) Заполнение массива с клавиатуры а) program massiv_1; const n=5; vari: integer; a: array[1..n] of integer;
Операция NFRУсловие 1 Ввод N3 2 F := 11 3 R := 11 4 R <= N1 <= 3да 5 F := F * R1 6 R := R R <= N2 <= 3да 8 F := F * R2 9 R := R R <= N3.
PROGRAM VAR READLN IF THEN : REALA, B, C, D () ; :=:= BIT3 ; A, B, C ; END. ( A>=B ) and ( A>=C ) D BEGIN D : = A начало да нет A B и A С конец ввод a,
Месяц T [ 1:12 ]T [1]T [2]T [3]T [4]T [5]T [6]T [7]T [8]T [9]T [10]T [11]T [12] Температура начало конец.
Решение задач по теме «Ветвление»
Программирование ветвлений на Паскале. Оператор ветвления или условный оператор if then else if - " если ", then - " то ", else - " иначе "
Транксрипт:

M : = M - N начало да нет M = N Задача: определение наибольшего общего делителя ( НОД ) двух натуральных чисел Задача: определение наибольшего общего делителя ( НОД ) двух натуральных чисел конец ввод M, N вывод M алг ЕВКЛИД цел M, N если M > N ввод M, N нач кон вывод введите M и N то M := M - N иначе N := N - M кв нц кц пока M = N, повторять да нет M > N N : = N - M вывод НОД =, M PROGRAM VAR READLN WRITELN IF THEN ELSE : INTEGER M, N () DOWHILE EVKLID ; ; END. M > N () Введите M и N M N BEGIN ; ; M, N BEGIN END WRITELN() НОД =, M M := M - N N := N - M ;