СДЕЛАЙТЕ СВОИ УРОКИ ЕЩЁ ЭФФЕКТИВНЕЕ, А ЖИЗНЬ СВОБОДНЕЕ

Благодаря готовым учебным материалам для работы в классе и дистанционно

Скидки до 50 % на комплекты
только до

Готовые ключевые этапы урока всегда будут у вас под рукой

Организационный момент

Проверка знаний

Объяснение материала

Закрепление изученного

Итоги урока

Программирование с использованием вспомогательных алгоритмов

Категория: Информатика

Нажмите, чтобы узнать подробности

Просмотр содержимого документа
«Программирование с использованием вспомогательных алгоритмов»

Программирование с использованием вспомогательных алгоритмов

Процедура для нахождения НОД


procedure nod (a, b: integer; var c: integer);

begin

while ab do

if ab then a:=a-b else b:=b-a;

c:=a

end;


Программа с процедурой


program n_6;

const m: array [1..6] of integer =(16, 32, 40, 64, 80, 128);

var I, x, y, z: integer;

procedure nod (a, b: integer; var c: integer);

begin

while ab do

if ab then a:=a-b else b:=b-a;

c:=a

end;

begin

x:=m[1];

for i:=2 to 6 do

begin

y:=m[i];

nod (x, y, z);

x:=z

end;

writeln ('НОД=', x)

end.

Функция поиска максимального из 2-х чисел


program n_7;

var a, b, c, d, f: integer;

function max (x, y: integer): integer;

begin

if xy then max:=x else max:=y;

end;

begin

readln (a, b, c, d);

f:= max(max(a, b), max(c, d));

writeln ('f=', f);

end.




Скачать

Рекомендуем курсы ПК и ППК для учителей

Вебинар для учителей

Свидетельство об участии БЕСПЛАТНО!