Технология выполнения индивидуальных заданий. Часть 1 - 12 стр.

UptoLike

Составители:

Рубрика:

Разработка алгоритма

Алгоритм представляется в виде последовательности следующих дейст-

вий:

– определить a = max(a,b);

– определить количество повторений меньшей стороны b на большей

стороне a: k:=a div b;

– определить остаток от деления a на b: a:=a mod b;

– последовательность действий выполнить до условия a=0.

Текст программы

program Cycle;

var a,b,k,c,n: integer;

begin

write('Введите стороны прямоугольника');

readln(a,b);

n:=0;

repeat

if a<b then {установить a = max(a,b) }

begin c:=a; a:=b; b:=c end;

k:=a div b;

a:=a mod b;

n:=n+k

until a=0;

writeln('Количество квадратов = ', n)

end.

Контрольные примеры

1) стороны прямоугольника: 10, 3

всего квадратов: 6