Лабораторная работа 1 по дисциплине Программирование Тема Программирование

Лабораторная работа 1 по дисциплине “Программирование” Тема. Программирование разветвляющихся алгоритмов Лабораторная работа_1 1

Задание 1 Разработать программу, которая проверяет, является ли четным введенное пользователем целое число. Лабораторная работа_1 2

Постановка задачи Дано. Значение X. Требуется. Определить, является ли это значение четным числом. При: 1. X≠ 0. 2. Х – целое. Лабораторная работа_1 3

Связь Если Х – четное число, то вывести сообщение “Число <X> - четное”, в противном случае вывести сообщение “Число <X> - нечетное”. Лабораторная работа_1 4

Внешняя спецификация Назначение: Проверка числа на четность. Входн. данные: X – цел. Лабораторная работа_1 5

Внешняя спецификация Выходные данные 1. Если X - четное Проверка числа на четность Введите целое значение переменной X <>0 <X> Число <X> - четное Лабораторная работа_1 6

Внешняя спецификация Выходные данные 2. Если X - нечетное Проверка числа на четность Введите целое значение переменной X <>0 <X> Число <X> - нечетное Лабораторная работа_1 7

Алгоритм "Проверка на четность " Внутрен. перемен. X : цел. Начало Вывод (' Проверка числа на четность ') Вывод (' Введите целое значение переменной X <>0 ') Ввод (X) Если X – четное , то Вывод (‘Число ’, <X>. ‘- четное’) Иначе Вывод (‘Число ’, <X>. ‘ не является четным’) Конец Лабораторная работа_1 8

Задание 2 Разработать программу для нахождения максимального из трех чисел Лабораторная работа_1 9

Постановка задачи Дано. Значения A, B, C. Требуется. Определить максимальное из трех значений. При: 1. A≠ 0, B≠ 0, C ≠ 0. 2. A, B, C – целые. Лабораторная работа_1 10

Текст программы Uses Crt; Var X: Integer; Begin Writeln(' Проверка числа на четность '); Writeln(' Введите целое значение переменной X<>0'); Readln (X); If X mod 2 =0 Then Writeln (‘Число ’, <X>. ‘- четное’) Else Writeln (‘Число ’, <X>. ‘ нечетное’); End. Лабораторная работа_1 11

Связь Присвоим переменной Max значение A. Далее последовательно сравним значения переменных B и C со значением переменной Max. Если B>Max , то Max=B. Если C>Max, то Max=C. Лабораторная работа_1 12

Внешняя спецификация Назначение: Определение максимального из трех значений. Входн. данные: A, B, C – цел. Лабораторная работа_1 13

Внешняя спецификация Вых. данные: Введите целое значение переменной A <> 0 <A> Введите целое значение переменной B <>0 <B> Введите целое значение переменной C <>0 <C> Максимальное значение равно <Max> Лабораторная работа_1 14

Алгоритм на РАЯ Алгоритм "Определение максимального значения " Внутрен. перемен. A, B, C : цел. {Исходные данные} Max: цел. {Максимальное значение} Начало Вывод (' Определение максимального значения ') Вывод (' Введите целое значение переменной A <>0 ') Ввод (A) Вывод (' Введите целое значение переменной B <>0 ') Ввод (B) Вывод (' Введите целое значение переменной C <>0 ') Ввод (C) Max: =A; Если B>Max, то Max: =B Кесли Если C>Max, то Max: =C Кесли Вывод (‘Максимальное значение равно‘, Max) Лабораторная работа_1 Конец 15

Текст программы Uses Crt; {Объявление служебного модуля } Var A, B, C, Max: Integer; {Описание переменных } Begin Clrscr; {Очистка экрана } Writeln (' Определение максимального значения '); Writeln (' Введите целое значение переменной A <>0') Readln (A) Writeln (' Введите целое значение переменной B <>0 ') Readln (B) Writeln (' Введите целое значение переменной C <>0 ') Readln (C) Max: =A; If B>Max Then Max: =B; If C>Max Then Max: =C; Writeln (‘Максимальное значение равно‘, Max) End. Лабораторная работа_1 16

Тест 1 A=5 B=-7 C=45 Присвоим переменной Max значение переменной A Max=5 Сравним значения переменных B и Max -7> 5 – Нет. Значение переменной Max не изменяется. Сравним значения переменных C и Max 45> 5 – Да. Значение переменной Max изменяется – Max =45. Тестирование окончено. Лабораторная работа_1 17

Задачи для самостоятельной работы Разработать программу, которая вычисляет частное от деления двух чисел. Программа должна проверять правильность введенных пользователем данных и, если делитель равен нулю, выдавать сообщение об ошибке. 2. Разработать программу, которая вычисляет площадь кольца. Программа должна проверять правильность введенных данных и, если радиус отверстия больше радиуса кольца, выдавать сообщение об ошибке. 1. Лабораторная работа_1 18

Задачи для самостоятельной работы 3. Разработать программу, которая вычисляет стоимость покупки с учетом скидки. Скидка в 10% предоставляется, если стоимость покупки больше 1000 руб. 4. Разработать программу, которая вводит значения двух однозначных чисел, выводит пример на умножение этих чисел, запрашивает ответ пользователя, проверяет его и выводит сообщение “Правильно!” или “Вы ошиблись” и правильный результат. Лабораторная работа_1 19