ЗАДАЧА № 86(777 задач. Т. Караванова)
Постановка задачі:
Чебурашка вирішив купити килими, щоб застелити кімнату, в якій він мешкав разом з Геною. Їхня прямокутна кімната виявилася розмірами а х b, де а та b – цілі числа. Коли Чебурашка запитав у магазині, які килими є у продажу, то продавець повідомив, що є квадратні килими зі стороною с, де с – ціле число. Яку кількість килимів необхідно придбати Чебурашці, щоб максимально накрити площу кімнати? Килими не можна накладати та підгинати. Визначити, яка площа кімнати буде не накритою килимами. Передбачити ситуацію, коли розміри килиму перевищують розміри кімнати.
Аналіз алгоритму:
Очевидно, що якщо довжина сторони килиму більша за будь-яку зі сторін кімнати, то застелити її цими килимами неможливо. Крім того, для знаходження кількості килимів, що вміщуються по одній зі сторін кімнати без їх підгинання, необхідно поділити націло довжину кімнати на довжину килиму. Загальна кількість килимів знаходиться за формулою:
К = K1 × К2,
де K1 та К2 – кількості килимів, що вміщуються вздовж двох суміжних сторін кімнати.
Площа, що не закрита килимами, визначається як різниця між площею кімнати та площею всіх куплених килимів.
Використані змінні: a, b – розміри кімнати; с – розмір килиму; К1, К2 – кількість килимів вздовж однієї та другої стінки відповідно; К – загальна кількість килимів; S – площа кімнати, що не накрита килимами.
текст програми:
Program Task_16;
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
K1:=а div с; К2:=b div с;
К :=К1*К2; S :=а*b–К*с*с;
Writeln(‘Кількість куплених килимів: ‘, К);
Writeln(‘Площа кімнати, що не накрита килимами: ‘, S);
End;
Readkey;
End.
Немає коментарів:
Дописати коментар