Задание 2.. Задание 3.. Задание 4.. Case Symbol of

Задание 2.

Задача 3. Определить, попадает ли точка с координатами (Xa, Ya) внутрь круга с радиусом R, центр круга совпадает с началом координат.

1) Рассмотреть программу решения задачи. Объяснить работу программы.

Program Krug;

Var xa, ya, r: Real;

Begin

Writeln ('Программа определяет принадлежит ли точка кругу радиуса R');

Write ('Введите значения координат Xa, Ya и радиуса R ');

Readln (xa, ya, r);

Write ('Точка ');

If (sqr(xa)+sqr(ya)> sqr(r)) then write ('не принадлежит ') else writeln ('принадлежит');

End.

2) Проверить работу программы на компьютере.

3) Заменить в программе строку

If (sqr(xa)+sqr(ya)> sqr(r)) then write ('не принадлежит ') else writeln ('принадлежит');

на строки

If (sqr(xa)+sqr(ya)> sqr(r)) Then Write ('не ');

Writeln ('принадлежит');

4) Объяснить в чем разница вывода ответа.

Задания для самостоятельного решения:

1. Составить и выполнить программу, которая находит среди данных трех чисел среднее (под средним числом будем понимать число, которое больше наименьшего, но меньше наибольшего).

2. Составить и выполнить программу вывода на экран номера четверти, которой принадлежит точка с координатами (Х, Y) при условии, что Х и Y отличны от 0.

3. Составить и выполнить программу, которая по заданному Х вычисляет Y, если

Y =

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

5. Составить и выполнить программу, которая выводит на экран частное от деления А на В, если А делится на В нацело, в противном случае - сообщение " А на В нацело не делится".

2) Оператор выбора Case — это оператор позволяющий осуществить выбор в программе одной из последовательностей команд (ветвей) в зависимости от значения переключателя. Оператор выбора имеет две формы:

– Полная форма записи: Case выражение of

список(диапазон)_констант_1: оператор1;

список(диапазон)_констант_2: оператор2;

…………………………………………………

список(диапазон)_констант_N: операторN

else операторE

end;

– Неполная форма записи: Case выражение of

список(диапазон)_констант_1: оператор1;

список(диапазон)_констант_2: оператор2;

…………………………………………………

список(диапазон)_констант_N: операторN

end;

Оператор Case работает следующим образом. Сначала вычисляется выражение. Если вычисленное значение равно одной из констант некоторого списка, то выполняется соответствующий оператор для данного списка. Затем управление передается за пределы оператора Case. Выражение может быть скалярного типа, кроме Real. В соответствии с этим и константа не может быть действительного типа. Тип константы должен совпадать с типом < выражения>. Символ точка с запятой (; ) перед else никогда не ставится! В случае, когда вместо одного оператора в какой-либо из ветвей оператора case должна стоять последовательность операторов, то ее необходимо заключить в командные скобки: Begin [список_операторов] end. В результате получается составной оператор, который уже можно поместить в любую ветвь оператора Сase.

Задание 3.

Задача 4. Ввести номер дня недели и вывести соответствующий день недели на русском языке.

1) Рассмотреть программу решения задачи. Объяснить работу программы.

Program Nedelya;

Var N: Integer;

Begin

Write ('Введите номер дня недели: '); Readln (N);

Write (n, ' - ');

Case N Of

1: Writeln ('Понедельник');

2: Writeln ('Вторник');

3: Writeln ('Среда');

4: Writeln ('Четверг');

5: Writeln ('Пятница');

6: Writeln ('Суббота');

7: Writeln ('Воскресенье')

Else Write ('Нет такого номера дня недели! ')

End

End.

2) Проверить работу программы на компьютере.

3) Доработать рассмотренную программу. По номеру дня недели необходимо выводить соответствующее название на русском и английском (немецком) языках.

Задание 4.

Задача 5. Составить программу, которая, на вводимый с клавиатуры символ, выдавала бы что это: цифра, буква (строчная или прописная, русская или латинская)), пробел или Enter.

1) Рассмотреть программу решения задачи. Объяснить работу программы.

Program Vvod_symbol;

var Symbol: Char;

Begin

WriteLn('Нажмите любую клавишу, а затем нажмите клавишу Enter');

ReadLn(Symbol);

Write('Это ');

Case Symbol of

'0'.. '9': WriteLn('цифра ', Symbol);

'a'.. 'z': WriteLn('строчная латинская буква ', Symbol);

'A'.. 'Z': WriteLn('прописная латинская буква ', Symbol);

'а'.. 'я': WriteLn('строчная русская буква ', Symbol);

'А'.. 'Я': WriteLn('прописная русская буква ', Symbol);

#13: WriteLn('Enter'); // ASCII-код клавиши Enter равен 13

' ': WriteLn('пробел')

else WriteLn('другой символ')

end; // конец оператора Case

end.

2) Проверить работу программы на компьютере.

Задача 6. Разработать программу вычисления функции. Дан список трех встроенных функций. При нажатии первой буквы имени функции на экран выводится полное название этой функции и вычисляется ее значение.

1) Рассмотреть программу решения задачи. Объяснить работу программы.

2) Какое назначение функции UpCase?

Program Menu;

Var Name: Char; // вводимый символ

X: Real; // аргумент функции

Begin

Writeln ('Введите имя функции: A-Abs, S-Sin, C-Cos');

Readln (Name);

Writeln ('Введите аргумент '); Readln (X);

Case UpCase(Name) Of

'A': Begin

Writeln ('Вычисление абсолютной величины');

Writeln ('Abs(', X: 2: 1, ') = ', Abs(X): 2: 1)

End;

'S': Begin

Writeln ('Вычисление синуса угла');

Writeln ('Sin(', X: 2: 1, ') = ', Sin(X): 8: 6)

End;

'C': Begin

Writeln ('Вычисление косинуса угла');

Writeln ('Cos(', X: 2: 1, ') = ', Cos(X): 8: 6)

End

Else Writeln ('Указанного имени нет в меню')

End

End.

3) Проверить работу программы на компьютере.

Задания для самостоятельного решения:

1. Составить и выполнить программу, которая осуществляет перевод арабской цифры в римскую.

2. Составить и выполнить программу, которая подсчитывает, сколько вводится 1, 2 и 3 среди последовательности 5 чисел.

3. Составить и выполнить программу, которая по возрасту человека в годах (В< 100) приписывает к этому числу текст ГОД, ГОДА или ЛЕТ. Например, 1 ГОД; 23 ГОДА, 45 ЛЕТ.

4. Составить и выполнить программу, которая по номеру месяца определяет количество дней в месяце (год - не високосный).

5. Составить и выполнить программу, которая вычисляет площади прямоугольника, прямоугольного треугольника, трапеции, круга.

⇐ Предыдущая 12