1. Створіть у Delphi новий проект і розв’яжіть задачу:
Якщо Слюника обізвати Хрямзиком, він почне битися ногами і не заспокоїться, доки не вдарить того, хто обізвав, кожною ногою по N разів. Одного разу Бряка його обізвала M разів і отримала за це К ударів. Скільки ніг у Слюника?
Вхідні дані. Число ударів кожною ногою N, число обзивань M і загальне число отриманих ударів K вводиться з клавіатури.
Вихідні дані. Число ніг Слюника виводиться на екран.
Вказівка. Число ніг Слюника K/(M*N).
Припустимо, розв’язана задача має такий вигляд:
| procedure TForm1.Button1Click(Sender: TObject);
var
m,n,k:integer;
begin
m:=StrToInt(Edit1.Text);
n:=StrToInt(Edit2.Text);
k:=StrToInt(Edit3.Text);
ShowMessage(FloatToStr(K/(M*N)));
end;
|
2. Запустіть програму на виконання і введіть N=5, M=4, K=51. Число ніг за програмою буде 2.55, але цей результат не має смислу. Очевидно, що вхідні дані до задачі були неправильними, якщо маємо неправильний результат. Виникає проблема: а чи можна, щоб при отриманні неправильного результату програма повідомляла про це, а при отриманні правильного – просто виводила його на екран?
3. Ознайомтеся з поняттями цілої та дробової частини числа. Заповніть пропуски нижче.
Ціла частина числа 5,45 дорівнює 5. Дробова частина його 0,45.
Ціла частина числа 6,51 дорівнює 6. Дробова частина його 0,51.
Ціла частина числа 7,8 дорівнює ____. Дробова частина його ____.
Ціла частина числа 0,6 дорівнює ____. Дробова частина його ____.
Ціла частина числа 9 дорівнює ____. Дробова частина його ____.
Ціла частина числа 10,5 дорівнює ____. Дробова частина його ____.
Ціла частина числа 0,025 дорівнює ____. Дробова частина його ____.
