величина первого сопротивления (Ом) – > 15 величина второго сопротивления (Ом) – > 27,3
–––––––––––––––––––––––––––––––––––––––––––-––––––––––
Сопротивление цепи (последовательное соединение): 42,30 Ом
2. Написать программу, выводящую на сиреневом фоне черными буквами следующий текст, который надо расположить на экране c 15-й позиции, 10-й строки:
Громада войск во тьме кипит, И над пылающей Москвою Багрово зарево лежит…
(Д.В. Давыдов)
3. Написать программу на языке Паскаль для вычисления выражения по формуле
a = |
|
cos5 |
+ |
|
sin1 |
|
4 |
− 11 |
3 |
+ 7 |
|||
|
|
ЛАБОРАТОРНАЯ РАБОТА № 3
УСЛОВНЫЙ ОПЕРАТОР (РАЗВИЛКА)
Цели работы
1.Освоение простейшей структуры программы с условием (сокращенная и полная форма записи).
2.Получение навыков в организации программ с условием.
Теоретический материал
1. Общие положения
В разветвляющихся вычислительных процессах (алгоритм ветвления) используется оператор ветвления IF. Следует помнить следующее:
–оператор IF используется для выбора одного из двух направлений дальнейшего хода программы (последовательности операторов, которые должны быть выполнены);
–выбор последовательности операторов осуществляется во время выполнения программы в зависимости от выполнения «условия»;
38
–«условие» – это выражение логического типа, которое может принимать одно из двух значений: TRUE (истина – условие выполняется) или FALSE (ложь – условие не выполняется);
–при помощи логических операций AND (логическое «и») и OR (логическое «или») из простых условий можно строить сложные.
2. Условный оператор IF ... THEN
Условный оператор имеет две формы записи: полную и сокращенную.
2.1. Полная форма записи оператора IF
IF «условие» THEN < оператор 1 > ELSE < оператор 2 >.
В этом случае при истинности логического «условия» выполняется < оператор 1 >, в противном случае выполняется < оператор 2 >.
Внимание! Перед словом ELSE нельзя ставить точку с запятой. Схематично этот случай изображается следующим образом:
Рис. 9. Полная форма оператора ветвления
Задача 1
Вычислить max (X + Y + Z, XYZ), вывести на экран значение большего вычисленного числа.
Program Lab3_1; Uses Crt;
Var X, Y, Z: integer; max: integer;
Begin
WriteLn('Введите X, Y, Z');
If Х + Y + Z > X*Y*Z then max: = X + Y + Z Else max: = X*Y*Z;
WriteLn ('большее число = ', max); End.
39