Билет 12

Напишите программу на языке программирования (или составьте алгоритм). Из пункта А в пункт Б движется велосипедист с постоянной скоростью V км/час. Через 0.5 часа после его старта из пункта А стартовал второй велосипедист, который двигался с постоянной скоростью U км/час. Построить алгоритм (нарисовать блок – схему) и составить программу на языке программирования для определения: догонит ли второй велосипедист первого во время своего движения при данных значений расстояния между пунктами А и Б и скоростей V, U?

Program z3_12;

Uses crt;

Var

L, V,U: Real;

Begin

ClrScr;

Write ('Введите расстояние между А и Б :');

Read (L);

Write ('Введите скорость первого велосипедиста V :');

Read (V);

Write (' Введите скорость второго велосипедиста U :');

Read (U);

If L / V > L / U - 0.5

Then Writeln ( ‘Второй велосипедист при скорости ‘, U, ‘ ДОГОНИТ первого велосипедиста движущегося со скоростью’, V )

Else Writeln ( ‘Второй велосипедист при скорости ‘, U, ‘ НЕ догонит первого велосипедиста движущегося со скоростью’, V )

repeat until KeyPressed;

end.

Алг z3_12 (вещ L, V,U)

арг L, V,U

нач

Если L / V > L / U - 0.5

То Вывод ( ‘Второй велосипедист при скорости ‘, U, ‘ ДОГОНИТ первого велосипедиста движущегося со скоростью’, V )

Иначе Вывод ( ‘Второй велосипедист при скорости ‘, U, ‘ НЕ догонит первого велосипедиста движущегося со скоростью’, V )

все

кон

Билет 13

Напишите программу на языке программирования (или составьте алгоритм). Сколько существует упорядоченных пар натуральных чисел а и b, для которых известны их наибольший общий делитель d и их наименьшее общее кратное m?

Program z3_b13;

Uses CRT;

Var

a, b, i, j, d, m:integer;

Function nod(a, b:integer):integer;

begin

If a=b then nod:=a

else

If a>b then nod:=nod(a-b, b)

else nod:=nod(a, b-a)

end;

Begin

ClrScr;

Writeln (' Введите НОД двух чисел D');

Readln (d);

Writeln (' Введите НОK двух чисел M ');

Readln (m);

For i:=1 to 2000 do

begin

For j:=1 to 2000 do

begin

a:=i;

b:=j;

If ((nod(a, b)=d) and ((a*b div nod(a, b))=m)) then

writeln (i, j);

end;

end;

Repeat Until KeyPressed;

End.

Алг z3_b13 (цел d, m, к)

арг d, m

рез к

нач цел a, b, i, j

для i от 1 до 2000

нц

для j от 1 до 2000

нц

a:=i

b:=j

Если ((nod(a, b)=d) и ((a*b div nod(a, b))=m))

то

вывод (i, j); к:=к+1

все

кц

кц

кон

цел алг nod(цел a, b)

нач

если a=b

то знач:=a

иначе

если a>b

то знач:=nod(a-b, b)

иначе знач:=nod(a, b-a)

все

все

кон