2 1 2018 Условный оператор 2 1 2018 Для записи

2/1/2018

Пример 1 Составить программу, которая выводит на экран компьютера пример на умножение двух однозначных чисел, запрашивает ответ пользователя, проверяет его и выводит сообщение «Правильно» или «Вы ошиблись» и правильный результат. 2/1/2018

Program Pr 6; Uses Crt; Var m 1, m 2, p, otv: integer; Begin Randomize; M 1: =random(9)+1; M 2: =random(9)+1; P: =m 1*m 2; Writeln (‘Сколько будет’, m 1, ‘ x ’, m 2, ’ ? ’); Writeln (‘Введите ответ и нажмите ’); Readln (otv); If otv=p Then Writeln (‘Правильно’) Else Writeln (‘Вы ошиблись ’, m 1, ‘ x ’, m 2, ’ =’, p); Readln; End. 2/1/2018

Вторая серия команд в условном операторе может отсутствовать. При этом признак ее начала – служебное слово Else – опускается. Неполная команда ветвления выглядит так: If условие Then действие; Здесь при справедливости условия выполняется действие, а если условие нарушено, то сразу переходим к оператору, который следует за условным оператором. 2/1/2018

Пример 2 Составьте программу, удваивающую значение целой переменной а, если а>5. Решение Если а > 5, то значение а надо заменить на 2 а. В противном случае (а <= 5) никаких действий производить не нужно. Program Pr 2; Var а : Integer; Begin Write. Ln (‘Введите число’); Read. Ln (а); If а >5 Then а : = а*2; Write. Ln (‘а =', а); End. 2/1/2018

Использование нескольких команд после слов Then и Else Выполнив эту программу, вы заметите, что подчеркнутые строки выполняются вне зависимости от того, какие числа вы ввели. Такая ошибка связана с тем, что после ключевого слова Then в условном операторе If выполняется только одна команда, стоящая после него. Остальные же строки выполняются вне зависимости от условных 2/1/2018 операторов, стоящих перед ними.

2/1/2018

Способы ветвления алгоритма на несколько рукавов. 2/1/2018

Один из способов реализации ветвления на несколько рукавов – использование вложенных операторов IF Рассмотрим этот способ на примере: 2/1/2018

Программа для нашего примера примет вид: Program Pr 4; Var a, x: integer; Begin Writeln('Введите x') Read (x); If x<0 then a: =x+1 Else If x<10 Then a : = 2*x Else a : = 0; Writeln (a); End. 2/1/2018

Второй способ реализации ветвления на несколько рукавов – использование нескольких неполных операторов IF Пример 5 Составьте программу, определяющую наибольшее значение переменных X, Y, Z. Program Pr 5; Var x, y, z, p: integer; Begin Write. Ln (‘Задайте значения x, y, z’); Read. Ln (x, y, z); p: =x; If p

2/1/2018

Пример 6. Составить программу, проверяющую правильность пароля Предположим, что пароль – это слово «груша» . Программа запрашивает у пользователя пароль, сравнивает его с нашим паролем. Если пользователь ввел правильный пароль, то для него доступ открыт, а если пароль не правильный, то доступ закрыт. Program Pr 6; Var parol : string; Begin Write. Ln (‘Какой пароль? ’); Read. Ln (parol); If parol=‘груша’ then write. Ln (‘Доступ для Вас открыт’) Else write. Ln (‘Доступ закрыт!!!’); Read. Ln; End. 2/1/2018

Пример 7. Составить программу, которая предлагает Ивану-Царевичу выбрать правильное направление пути. У Ивана-Царевича есть три варианта дальнейшего пути: • направо, • налево, • вперед. Program Pr 7; Var p : string; Begin Write. Ln (‘Куда путь держишь? ’); Read. Ln (p); If p=‘направо’ then write. Ln (‘Коня потеряешь’); If p=‘налево’ then write. Ln (‘Голову сложишь’); If p=‘прямо’ then write. Ln (‘Невесту найдешь’); Read. Ln; End. 2/1/2018

Сегодня мы узнали: Ветвление на три и более рукава можно организовывать с помощью вложенных команд IF, нескольких неполных команд IF, а также, комбинируя обе возможности. Сравнение строк на компьютере основано на том, что каждый символ имеет свой АSСII-код, и при сравнении строк сравниваются коды составляющих их символов. 2/1/2018

Оператор варианта case … of case выражение of Р 1 : <оператор 1>; P 2 : <оператор 2>; … Pn : <оператор n>; [else : <оператор>] end;

Пример: case a of 4 : writeln(‘ 4’); 5, 6 : wtiteln(‘ 5 или 6’); 7. . 12 : writeln(‘от 7 до 12’); end;

1. Написать программу, которая проверяет, делится ли на 3 целое число, введенное с клавиатуры. 2. Написать программу, которая вычисляет оптимальный вес пользователя, сравнивает его с реальным и выдает рекомендации о необходимости поправиться или похудеть. Оптимальный вес вычисляется по формуле: рост (в сантиметрах) – 100. 3. Из трех данных чисел выбрать наибольшее. 2/1/2018