Сравниваем циклы, или… презентация

и логическому мышлению в сочетании с эдисоновским талантом сооружать все что угодно, из нуля и единицы. Он должен сочетать аккуратность бухгалтера с проницательностью разведчика, фантазию автора детективных романов, с трезвой практичностью экономиста. А кроме того, программист должен иметь вкус к коллективной работе, понимать интересы пользователя и многое другое”

оператор -
Выполнить выражение, заданное в его правой части, и присвоить результат переменной, имя которой указано в его левой части предписывает оператор -

ветвления

присваивания.

служит оператор -

цикла

с предусловием


Цикл с постусловием

While . . . do . . . ;


For . . . to . . . do . . . ;


Repeat . . . until . . .;

for…to…do) она соответствует

13

128

1

алгоритма;
4) перевод алгоритма в программу;
5) отладка и испытание программы;
6) получение и анализ результатов.

b)

Решение

двух чисел
Вычитаем из этого числа второе (меньшее)
Полученной разностью заменяем большее число
Повторяем пункты 2,3,4 до тех пор, пока одно из чисел не станет равным 0, - в этом случае второе число и будет искомым наибольшим делителем.

WHILE A<>B DO
IF A>B THEN A:=A-B ELSE B:=B-A;
WRITE(‘НОД=‘,A);
READKEY;
END.

A:=ABS(A);B:=ABS(B);
WHILE A<>B DO
IF A>B THEN A:=A-B ELSE B:=B-A;
WRITE(‘НОД=‘,A);
READKEY;
END.

IF A*B=0 THEN WRITE (‘Некорректные данные’)
ELSE
BEGIN
A:=ABS(A);B:=ABS(B);
WHILE A<>B DO
IF A>B THEN A:=A-B ELSE B:=B-A;
WRITE(‘НОД=‘,A);
END;
READKEY;
END.