Задание 2. Нахождение максимума двух чисел
Найти максимум двух чисел a и b.
1. Запустите QBasic. 2. В окне редактирования наберите текст программы: REM Нахождение максимума двух чисел CLS INPUT “Введите значение первого числа a”; a INPUT “Введите значение второго числа b”; b IF a >= b THEN max = a ELSE max = b END IF PRINT “Максимум двух чисел равен ”; max
3. Запустите программу на выполнение. 4. Протестируйте программу при некоторых значениях переменных a и b. 5. Сохраните программу на диске под именем USLOV_2. Задание 3. Проверка числа на делимость Составьте программу, выясняющую, является ли натуральное число K делителем числа N. Число k является делителем числа n тогда и только тогда, когда n делится на k без остатка. Поэтому условием делимости является равенство остатка от деления нулю, т.е. выполнение условия n MOD k = 0. 1. Запустите QBasic. 2. В окне редактирования наберите текст программы: REM Проверка на делимость CLS INPUT “Введите значение числа n”; n INPUT “Введите значение числа k”; k IF n MOD k = 0 THEN PRINT “Число k является делителем числа n“ ELSE PRINT “Число k не является делителем числа n “ END IF
3. Запустите программу на выполнение. 4. Протестируйте программу при некоторых значениях переменных a и b. 5. Сохраните программу на диске под именем USLOV_3.
|
