program qq;
uses crt;
procedure NOD_NOK(n1,n2:integer;var a,b:integer);
var m:integer;
begin
if n1>n2 then m:=n1 else m:=n2;
a:=m-1;
repeat
a:=a+1
until ((a mod n1)=0) and ((a mod n2)=0);
while n1<>n2 do
if n1>n2 then n1:=n1-n2 else n2:=n2-n1;
b:=n1;
end;
var y,x,a,b:integer;
begin
repeat
writeln('Введите 2 натуральных числа:');
read(x,y);
until(x>0)and(y>0);
NOD_NOK(x,y,a,b);
writeln('NOD(',x,',',y,')=',b);
writeln('NOK(',x,',',y,')=',a);
end.
Первый шаг в отношениях между пользователем и программой – это запуск программы пользователем. Затем можно выполнять в программе те действия, ради которых она и была создана.
Объяснение: Рассмотрим запуска программ:
1)Из Главного меню можно запускать программы, которые в нем записаны.
Для примера возьмем стандартные программы. Дело в том, что Windows – не просто операционная система. В ее состав входит множество разнообразных прикладных программ или, как их называют приложений, такие как
калькулятор,графический редактор Paint,текстовые редакторы Блокнот и WordPad,служебные программы по обслуживанию дискаи др.
Стандартные программы в главном меню Windows XP
Эту группу программ называют Стандартные, потому что она входит в состав операционной системы и устанавливается вместе с установкой операционной системы.
Чтобы запустить, например, Калькулятор, надо пройти по маршруту: кнопка Пуск – Программы – Стандартные – название программы (“Калькулятор”).
2) При двойного щелчка по значку программы или по ярлыку на Рабочем столе Windows.
3) Щелчок по значку программы в Панели задач Windows. Например, на рисунке после щелчка по значку будет открыт текстовый редактор MS Word.
4) При команды “Выполнить” в Главном меню Windows.
В открывшемся окне Запуск программы нужно указать открываемый файл, причем можно воспользоваться для этого кнопкой Обзор, которая откроет окно просмотра содержимого дисков и папок. В нем, открывая папки, нужно выделить и открыть запускающий файл программы. По умолчанию во всех папках будут показаны только запускающие и командные файлы, а также ярлыки.
5) Автоматический запуск программ, например:
при начальной загрузке Windows. Для того, чтобы это сделать, следует пройти по маршруту Пуск – Программы – Автозапуск.
Если поместить программы в меню Автозагрузка, то они будут автоматически запущены при начальной загрузке Windows.
при вставке в дисковод CD или DVD диска. При этом автоматически запускается программа, записанная на диске, правда, если автором диска не предусмотрено иное действие.
Иногда для избежания заражения вирусом автоматический запуск компакт-дисков отключают и сначала проверяют диск антивирусом.
по заданному графику. Такую возможность предоставляет встроенная в Windows программа-планировщик.
6) Двойной щелчок по значку или по имени программы в окне “Мой компьютер” или “Проводник”.
7) Двойной щелчок по значку или имени документа, обрабатываемого той или иной программой. Например, если щёлкнуть по значку с буквой «W», запустится программа MS
// Внимание! Если программа не работает, обновите версию!
procedure NOD_NOK(a,b:integer; var NOD,NOK:integer);
begin
(var p,var q):=(a,b);
while q>0 do (p,q):=(q,p mod q);
NOD:=p; NOK:=a*b div NOD
end;
begin
var a,b,c,d:integer; Read(a,b);
NOD_NOK(a,b,c,d);
Writeln('НОД=',c,', НОК=',d)
end.
Пример
138 42
НОД=6, НОК=966