Оператор условия If
Составим программу, которая вычисляет частное двух целых чисел. В связи с тем, что делить на нуль нельзя, организуем контроль ввода данных. Для контроля вводимых значений делителя используем оператор условного перехода If ... Then ... Else.
Program ABC2;
Uses crt;
Var A B: integer;
С: real;
Begin
clrscr;
Write (‘ Введите значение делимого A =1);
Readln (A) ;
Write (‘ Введите значение делителя В =1);
Readln (В);
If В = 0 { контроль ввода}
Then Writeln (1 на нуль делить нельзя!!!1) {условие выполнено}
Else {условие не вы пол няется}
Begin {начало составного оператора}
С: =А/В;
Writeln(‘Частоечисел ‘,А,‘и ‘,В,‘ = ‘,С:2:2);
End; {конец составного оператора}
Readln;
End.
Откомпилируйте программу клавишами Alt F9.
Запустите программу на выполнение, нажав клавиши Ctrl F9, и введите значения А=100 и В=0
Просмотрите результат выполнения программы, нажав клавиши Alt F5.
Вернитесь в среду программирования Турбо Паскаль, снова нажав клавиши Alt F5
Введите значения А=100 и В=5. Просмотрев результат выполнения программы, обратите внимание на то, что он записан в виде мантиссы (С=20000000000Е + 01) - вещественного десятичного числа в форме с плавающей точкой : тЕ + р, где т - мантисса (целое или дробное число с десятичной точкой), Е - означает десять в степени, р - порядок (целое число).
Введите значения А=5 и В=350. Результат С=1 4285714286Е - 02.
Сохраните программу F10/File/Save as... и введите путь E(F): \ АВС2, нажмите клавишу Enter.
Оператор выбора Case
Составьте программу с использованием оператора Case, которая по введенному номеру дня i недели выводит на экран видеомонитора его название на русском языке.
Program DayWeek;
Uses Crt; (* Подключение библиотеки *)
Var Day: Byte;
Begin
Clrscr; (* Очистка экрана *)
Writeln (‘ Введите номер дня недели: ‘);
Readln (Day);
Case Day Of {вычисление значения селектора и выбор}
1 : Writeln (‘ Понедельник ‘);
2: Writeln (1 Вторник ‘);
3: Writeln (‘ Среда ‘);
4: Writeln (‘ Четверг ‘);
5: Writeln (‘ Пятница ‘);
6: Writeln (‘ Суббота 1);
7: Writeln (‘ Воскресенье ‘);
Else
Writeln (‘ В одной неделе всего 7 дней!!! ‘);
End;
Readln;
End.
Откомпилируйте программу клавишами Alt F9.
Запустите программу на выполнение, нажав клавиши Ctrl F9, и введите поочередно цифры с 1 по 9.
Просмотрите результат выполнения программы комбинацией клавиш Alt F5.
Вернитесь в среду программирования Турбо Паскаль, снова нажав клавиши Alt F5.
Сохраните программу F10 / File / Save as... и введите имя программы E(F): \ DayWeek.
Практическое задание № 4
ОПЕРАТОРЫ ПОВТОРА
Если в программе возникает необходимость неоднократно выполнить некоторые операции, то используются операторы повтора (цикла). В языке Паскаль различают три веда операторов цикла:
While, repeat, for.
Они используются для организации циклов различных типов. Выражение, управляющее повторениями, должно иметь булевский тпп
(«True (Истина )/Ра1зе(Ложь)», «Да(1)/Нет(0)»).
Если число повторений заранее неизвестно, а задано лишь условие его повторения (или окончания), используются операторы while, repeat Оператор for используется, если число повторений заранее известно.
Оператор повтора WHILE Оператор while (пока) часто называют оператором цикла с предусловием за то, что проверка условия выполнения тела цикла производится в самом начале оператора. Формат записи:
While < условие продолжения повторений > do < тело цикла >;
Перед каждым выполнением тела цикла вычисляется значение выражения условия. Если результат равен True (Истина), тело цикла выполняется и снова вычисляется выражение условия. Если результат равен False (Ложь), происходят выход из цикла и переход к первому после while оператору.
Наберите программу АВСЗ, которая производит суммирование 10 произвольно введенных целых чиоел.
Program АВСЗ;
Const
Limit = 10; {ограничение на количество чисел}
VarА,В,С: integer;
Begin
А: = 0; {счетчик чисел}
С: = 0; { сумма чисел }
While (А < Limit) do { условие выполнение цикла } Begin А: =А +1;
Writeln (‘ ВведитеА- е целое число =1);
Readln (В);
С: =С + В;
End;
Writeln (‘ Сумма введенных чисел равна1, С); Readln;
End.