ПОИТ Контрольная работа по основам алгоритмизации.№2-10

БЕЛОРУССКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ

ИНФОРМАТИКИ И РАДИОЭЛЕКТРОНИКИ

Кафедра программного обеспечения информационных технологий

Факультет ЗВиДО

Специальность ПОИТ

Контрольная работа № 2

по дисциплине «Основы алгоритмизации и программирования»

часть 1

Вариант № 10

,

Минск 2009

10. Ввести два числа. Найти их наименьшее общее кратное. Контрольная №2

А) схему алгоритма методом Насси-Шнейдермана;

Б) программу на языке Pascal;

program Kontrolnaya_2;

{901022-20 ПОИТ 1-й курс Пархейчук Э.А.

Задача 10.Ввести два числа. Найти их наименьшее общее кратное.}

uses crt; {подключаем модуль CRT для использования процедуры ClrScr}

var

A, B, A1, B1, NOD, NOK: integer;

{А - запоминает первое число для вычисления НОК

В - запоминает второе число для вычисления НОК

А1 - запоминает первое число для вычисления НОД

В1 - запоминает второе число для вычисления НОД}

begin

clrscr; {Очистка экрана пользователя}

{Вводим числа}

write('Введите числа А и В через пробел: ');

readln(A,B); {считываем введенные числа}

A1:=A; {задаем начальное значения длч вычисления НОД}

B1:=B; {задаем начальное значение для вычисления НОД}

{Находим НОД}

while(A1<>B1) do

if(A1>B1) then A1:=A1-B1

else B1:=B1-A1;

NOD:=A1;

NOK:=A*B div NOD; {По формуле Евклида находим НОК}

writeln (NOK); {Выводим НОК на экран}

end.

В) тестовый набор данных (входные данные и результаты работы программы, полученные при этих данных);

Введите числа А и В через пробел: 30 57

Наименьшее общее кратное чисел 30 и 57 равно 570

Введите числа А и В через пробел: 25 35

Наименьшее общее кратное чисел 25 и 35 равно 175

Введите числа А и В через пробел: 21 49

Наименьшее общее кратное чисел 21 и 49 равно 147