Я готуюсь до курсу інформатики. Алгоритмізація та програмування

килимів.

Використані змінні: a, b - розміри кімнати; с - розмір килиму; К1, К2 - кількість килимів вздовж однієї та другої стінки відповідно; К — загальна кількість килимів; S - площа кімнати, що не накрита килимами.

Програма, що реалізує алгоритм розв’язку даної задачі, має вигляд:

Program Example_86;

Uses crt;

Var a,b,c,S:word;

K,K1,K2 : word;

Begin

Clrscr; {Очищення екрану}

Write(‘Введіть розміри кімнати: ‘);

Readln(a,b);

Write(‘Введіть розміри килима: ‘);

Readln(c);

If (с > a) or (с > b)

Then writeln (‘Кімнату неможливо накрити такими килимами’)

Else

Begin

Kl:=а div с; К2:=b div с;

К := К1*К2; S := а*b - К*с*с;

Writeln(‘Кількість куплених килимів ‘, К);

Writeln(‘Площа кімнати, що не накрита килимами ‘, S);

End;

Readkey;

End.

ЗАДАЧА № 89

Умова задачі: Від річкового вокзалу відійшли одночасно у протилежних напрямках теплохід та турист. Теплохід рухався зі швидкістю V1 км/ год, а турист по стежці вздовж річки зі швидкістю V2 км/год. Якщо через N годин турист передумає і вирішить попливти річкою назад за теплоходом зі швидкістю V3 км/год, то чи встигне він підсісти на теплохід, який має за графіком зупинку через Y годин після початку руху і стоїть на цій зупинці Z годин? Вважати на те, що всі події відбувалися протягом однієї доби.

Якщо турист на протязі N годин рухався в протилежному напрямку від теплоходу, то відстань між ними в той момент, коли турист вирішив наздогнати теплохід, була наступна:

S= (V1+ V2) *N

де V1 та V2 — швидкості теплоходу та туриста відповідно.

Швидкість, з якою турист почне наздоганяти теплохід, — (V3- V1) km за годину, де V3 —швидкість, з якою турист попливе навздогін теплохода. Час, який буде у туриста для наздоганяння, (Y-N + Z) годин, тому що зупинка в теплохода буде за розкладом через Угодин після початку руху, але N годин він уже плив, а Z годин теплохід буде стояти на цій зупинці. Тоді за цей час турист пройде відстань:

St=(V3-V1)*(Y-N+Z)

Вочевидь, турист встигне підсісти на теплохід тільки в тому випадку, якщо відстань St буде не менше, ніж відстань, на яку теплохід перегнав туриста. Програма, що реалізує запропонований алгоритм, має вигляд:

Program Example_89;

Uses crt;

Var Vl,V2,V3:real;

N,Y,Z : real;

Begin

Clrscr;