Семинар 1

Семинар 1

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

1.  Постановка задачи

Дано. Значения A, B, C.

Требуется. Определить максимальное значение.

При:

§  A<>0, B<>0, C <>0.

§  A, B, C – целые.

2.  Связь

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

3.  Внешняя спецификация.

Назначение:

Определение максимального из трех значений.

Входн. данные:

A –цел.

B – цел.

C – цел.

Вых. данные:

Определение максимального значения.

Введите целое значение переменной A<>0 <A>

Введите целое значение переменной B<>0 <B>

Введите целое значение переменной C<>0 <C>

Максимальное значение равно <Max>

4.  Запись алгоритма на РАЯ

Алгоритм "Определение максимального значения "
Внутрен. перемен.
A, B,C : цел. {Исходные данные}
Max: цел. {Максимальное значение}
Начало
Вывод (' Определение максимального значения ')

Вывод (' Введите целое значение переменной A <>0 ')
Ввод (A)

Вывод (' Введите целое значение переменной B <>0 ')
Ввод (B)
Вывод (' Введите целое значение переменной C <>0 ')
Ввод (C)
Max:=A;

Если B>Max, то Max:=B

Кесли

Если C>Max, то Max:=C

Кесли

Вывод (‘Максимальное значение равно‘, Max)

Конец

5.  Тесты для проверки алгоритма

Тест 1

A=5, B=-7 C=45

Максимальное значение равно 45

Тест 2

A=15, B=-7 C=4

Максимальное значение равно 15

Тест 3

A=1, B=7 C=4

Максимальное значение равно 7

6.  Текст программы

Uses Crt; {Объявление служебного модуля}

Var A, B,C, Max: Integer; {Описание переменных}

Begin

Clrscr; {Очистка экрана}

Writeln (' Определение максимального значения ');

Write (' Введите целое значение переменной A <>0');
Readln (A);

Writeln; {Переход на следующую строку экрана}

Write (' Введите целое значение переменной B <>0 ');
Readln (B);

Writeln;

Write (' Введите целое значение переменной C <>0 ');
Readln (C);

Writeln;

Max:=A;

If B>Max Then Max:=B;

If C>Max Then Max:=C;

Writeln (‘Максимальное значение равно‘, Max);

Readln;

End.

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

1.  Постановка задачи

Дано. Значение X.

Требуется. Определить, является ли это значение четным числом.

При:

1.  X<>0.

2.  Х – целое.

2.  Связь

Если Х – четное число, то вывести сообщение “Число <X> - четное”,

в противном случае вывести сообщение “Число <X> - не является четным”,

3.  Внешняя спецификация.

Назначение:

Проверка числа на четность.

Входн. данные:

X – значение переменной.

Вых. данные:

1.  Если X - четное.

Проверка числа на четность

Введите целое значение переменной X не равное нулю

<X>

Число <X> - четное

2.  Если X нечетное.

Проверка числа на четность.

Введите целое значение переменной X не равное нулю

<X>

Число <X> не является четным

4.  Запись алгоритма на РАЯ

Алгоритм "Проверка на четность "
Внутрен. перемен.
X : цел. {Значение входной переменной}
Начало
Вывод (' Проверка числа на четность ')

Вывод (' Введите целое значение переменной X не равное нулю ')
Ввод (X)
Если X – четное , то Вывод (‘Число ’,<X>. ‘- четное’)

Иначе Вывод (‘Число ’,<X>. ‘ не является четным’)

Конец

5.  Тесты для проверки алгоритма

Тест 1

X=44

Число 44 - четное

Тест 2

X=-7

Число -7 – не является четным

6.  Текст программы

Uses Crt;

Var X: Integer;

Begin

Writeln(' Проверка числа на четность ');

Writeln(' Введите целое значение переменной X не равное нулю ');
Readln (X);
If X mod 2 =0 Then Writeln (‘Число ’,<X>. ‘- четное’)

Else Writeln (‘Число ’,<X>. ‘ не является четным’);

End.
Задачи для самостоятельной работы

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

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

3.  Разработать программу, которая вычисляет стоимость покупки с учетом скидки. Скидка в 10% предоставляется, если стоимость покупки больше 1000 руб.

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

5.  Разработать программу, которая вводит значения двух однозначных чисел, выводит пример на умножение этих чисел, запрашивает ответ пользователя, проверяет его и выводит сообщение “Правильно!” или “Вы ошиблись” и правильный результат.