Паскаль. Вычисляет НОД для любого кол-ва чисел
Объяснение:
function Nod(a,b:integer):integer;{определение НОД двух чисел}
begin
while a<>b do
if a>b then a:=a-b else b:=b-a;
Nod:=a;
end;
var
a: array of integer;
n, i: integer;
k: integer;
begin
WriteLn('*** Определение НОД нескольких чисел ***');
Write('Введите кол-во чисел N = '); ReadLn(n);
SetLength(a, n + 1);
WriteLn('Введите числа: ');
for i := 1 to n do
begin
Write(i,'-e число: '); ReadLn(a[i]);
end;
WriteLn;
k := Nod(a[1], a[2]);
for i := 3 to n do k := nod(k, a[i]);
WriteLn('Общий НОД всех чисел = ', k);
end.
Усі дані у комп'ютері зберігаються у пам'яті. Щоб отримати доступ до даних нам необхідно знати де саме у пам'яті вони знаходяться. Пам'ять комп'ютера поділена на комірки, і кожна комірка має свій номер. Отже у якості місця у пам'яті можна вказати її номер (адрес). На самому початку розвитку комп'ютерної техніки люди писали програми у машиних кодах, тобто у прямих інструкціях для процесора, і місцезнаходження даних так і визначали — вказуючи їх адрес у пам'яті. Це була дуже кропітка і складна робота, припуститись помилки було дуже легко. Згодом була написана програма Асемблер (Assembler, складальник), яка отримувала програму у текстовому вигляді і перекодувала її у машині коди для процесора. Програма складалась з інструкцій для процесора, але вже у більш зрозумілому для людини вигляді. А для звернення до певної комірки пам'яті замість адреси комірки почали використовувати мнемонічні імена. Це набагато полегшило процес розробки програм, а правила представлення машиних команд у текстовому вигляді назвали "мова Асемблера". Можна сказати що мова Асемблера — це перша мова програмування.
