Программа с условным оператором как решать

В Паскале проверить какую-то часть программы для определения дальнейшего пути, по которому ей следует идти, есть оператор If . В зависимости от выполнения логического условия он указывает, какой блок выполниться следующим. Существует две формы записи: полная и краткая. Вторая отличается от первой тем что в ней имеется ветвь Else (иначе).

Общий вид краткой формы:

Общий вид полной формы:

If Then Else ;

В краткой форме выполняется оператор 1 тогда, когда условие A истинно, иначе управление переходит к следующему оператору. В полной форме если условие A истинно, то выполняется оператор 1, иначе выполняется оператор 2. Следует запомнить, что перед else точка с запятой не ставится.

Простейший пример:
If a>b Then a:=a+b Else b:=b+a;

Оператор IF проверяет правда ли, что a больше b . Если правда, то выполняем присвоение после THEN a:=a+b , в противном случае (если ложь) выполняем то, что следует после ELSE — b:=b+a .

В результате выполнения этой строчки в Паскале, переменной a присваивается значение выражения справа, т.е. значение a будет равно 45 .

Python. Условный оператор If else

Пример программы с условным оператором, записанным в краткой форме:

program if_else; uses crt; var Dima, Misha: integer; begin Misha:=18; write(‘Сколько лет Диме? ‘); read(Dima); if Dima=Misha then write(‘Миша и Дима ровесники’); readkey; end.

Пример программы с условным оператором, записанным в полной форме:

program if_else; uses crt; var Dima, Misha: integer; begin Misha:=18; write(‘Сколько лет Диме? ‘); read(Dima); if Dima=Misha then (* если возраст Димы равен возрасту Мише, то выполняется оператор 1 *) write(‘Миша и Дима ровесники’) else write(‘Миша и Дима не ровесники’); readkey; end.

В Паскале можно вкладывать один условный оператор в другой, причем делать это можно множество раз. При этом следует отметить, что каждому Then соответствует ближайшее Else .

Еще один пример — перевод килограммов в фунты.

Program Converter_1; Uses Crt; Const pound = 0.45359237; Var m:real; f:byte; Begin ClrScr; Write(‘Выберите режим конвертации: 1) фунт -> кг; 2) кг -> фунт’); ReadLn(f); Write(‘Введите массу: ‘) ReadLn(m); If f=1 Then m := m * pound Else m := m / pound; Write(‘Результат равен: ‘, m); ReadLn() End.

2 Оператор выбора

Когда количество альтернатив больше двух применяется оператор выбора Case . Его вид:

Case Of : ; : ; . . . : ; Else End;

Хорошим примером для данного оператора может послужить автомат с напитками, где нужно нажать кнопку соответствующую напитку, который Вы хотите.

Кнопка 1 — Coca-Cola
Кнопка 2 — Fanta
Кнопка 3 — Sprite
Кнопка 4 — Aqua Minerale
Кнопка 5 — Тархун

Т.е. когда Вы нажмете кнопку 3, то автомат выдаст Вам Sprite, конечно если Вы заплатили до этого =). По подобному принципу работает оператор CASE. Приведу пример программы для автомата с напитками.

Если селектором оператора If было логическое выражение, то в Case им выступает переменная, которая может быть целого, перечислимого, интервального или символьного типа. В случае совпадения селектора со значения выполняется соответствующий оператор. Задать значение селектору можно тремя способами:

Читаем программы с условным оператором | Информатика ОГЭ 2022 | Умскул

1) перечислением: 1, 10, 100, 1000

2) диапазоном: ‘d’..’k’

3) перечислением и диапазоном: 1..10, 20, 30, 50, 70..100

Выполнятся в операторе выбора, может только одна ветка (идущая раньше), даже когда селектор совпадает с несколькими значениями. Также, в отличие от If в Case можно ставить точку с запятой перед Else .

Пример программы выбора напитков:

Program Napitki; Uses Crt; Var button:1..8; Begin ClrScr; WriteLn(‘Choose:’ , #13, #10, ‘1: Coca-Cola’, #13, #10, ‘2: Fanta’, #13, #10, ‘3: Sprite’, #13, #10, ‘4: Aqua Minerale’); ReadLn(button); Case button of 1 : WriteLn(‘Вы выбрали Coca-Cola! ‘); 2 : WriteLn(‘Вы выбрали Fanta! ‘); 3, 4 : WriteLn(‘Извините, этого напитка нет.’); Else WriteLn(‘Такого напитка нет!’); End; ReadLn End.

Программа выполняется в зависимости от значения переменной button . Не обращайте внимания на #13 , #10 — это всего лишь спецсимволы перевода строки и возврата каретки, я их использовал просто для красивого вывода списка напитков.

Другой пример использования оператора case на pascal — программа, выбора валюты:

program case_primer; uses crt; var money: char; begin write(‘Первая буква кода денежной единицы: ‘); readln(money); case money of ‘A’, ‘a’: writeln (‘Французский франк’); ‘B’, ‘b’: writeln (‘Динар’); ‘C’, ‘c’: writeln (‘Юань’); ‘E’, ‘e’: writeln (‘Испанская песета’); ‘G’, ‘g’: writeln (‘Английский фунт стерлингов’); ‘I’, ‘i’: writeln (‘Итальянская лира’); ‘J’, ‘j’: writeln (‘Иена’); ‘R’, ‘r’: writeln (‘Рубль’); ‘U’, ‘u’: writeln (‘Доллар США’); ‘X’, ‘x’: writeln (‘Восточнокарибский доллар’); else writeln (‘Неизвестная единица’) end; readkey; end.

Программа проверяет селектор на соответствие его с имеющимися значениями. Если совпадений не находится, то выполняется блок Else .

Источник: pro-prof.com

1. Условный оператор

Условный оператор предназначен для выбора к исполнению одного из возможных действий в зависимости от некоторого условия. Если условие после слова if верно, то выполняется оператор 1 после команды then , в другом случае оператор 2 после команды else .

Используя условный оператор, напишем программу, которая будет выводить на экран сначала большее, а потом меньшее из двух введённых чисел.

Найдём минимальное из трёх введенных с клавиатуры чисел.

Источник: www.yaklass.ru

Программа с условным оператором как решать

11 ноября, 2015 Andrey K

(17 голос, значение: 3,12 из 5)

Продолжаем изучать язык программирования Паскаль. Рассмотрим первую алгоритмическую конструкцию, которая изучается при изучении языка — условие (ветвление). Статья предназначения для начинающих программистов, а также для учителей информатики. Задачи в конце статьи помогут закрепить знания и проверить себя.

Алгоритмическая конструкция УСЛОВИЕ используется в тех случаях, когда перед нами стоит выбор: сделать так или иначе.

Неполное условие

Блок-схема неполного условия выглядит следующим образом:

ЕСЛИ УСЛОВИЕ ИСТИННО, ТО ВЫПОЛНЯЕТСЯ ДЕЙСТВИЕ , ИНАЧЕ НИЧЕГО НЕ ПРОИСХОДИТ

На языке Паскаль данная алгоритмическая конструкция выглядит следующим образом:

IF условие THEN действие;

Если условие, стоящее после IF истинно, то выполняется действие, стоящее после слова THEN.

Что такое условие?

Условие — это выражение, которое может быть либо истинным, либо ложным. Условие обязательно содержит логические операторы , =, =, <> (не равно).

Например:

var a:integer; begin readln(a); if a=7 then writeln(‘Привет!’); end.

Если введенное значение переменной a равно 7, то на экране мы увидим слово Привет! Если не равно — то на экран ничего выводится не будет.

Рассмотрим другой пример:

var a:integer; begin readln(a); if a=7 then writeln(‘Привет!’); writeln(‘До встречи’); end.

Что мы увидим на экране, введя число 7? Увидим:

Привет!
До встречи

Что мы увидим на экране, введя число 10?

Почему так? Почему До встречи выводится на экран в любом случае? Команда

writeln(‘До встречи’);

не относится к конструкции If-Then

var a:integer; begin readln(a); if a=7 then writeln(‘Привет!’); writeln(‘До встречи’); // условие подсвечено голубым цветом end.

Как сделать так, чтобы оба действия относились к конструкции If-Then?

Необходимо заключить эти действия в так называемые операторные скобки: begin… end;

var a:integer; begin readln(a);
if a=7 then begin writeln(‘Привет!’);
writeln(‘До встречи’);
end;

end.
Теперь, если мы введем число 10, то на экране ничего не увидим.

Составное (сложное) условие

Иногда приходится использовать сложное условие. Для его составления используются логические союзы: and или or.

• Если мы используем and, то составное условие будет истинно, когда все простые условия истинны.
• Если мы используем or, то составное условие будет истинно, когда хотя бы одно простое условие будет истинно.

Например:

(a>7) and (a<15)

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

(a=7) or (a>15)

Составное условие будет истинно, если: либо a=7, либо a>17.

Используя конструкцию If-Then, найти максимальное среди трех введенных чисел.

Решение

var a, b, c:integer; begin readln(a); readln(b); readln(c); if (a>b) and (a>c) then writeln(‘число ‘, a, ‘ максимальное’); if (b>a) and (b>c) then writeln(‘число ‘, b, ‘ максимальное’); if (c>a) and (c>b) then writeln(‘число ‘, c, ‘ максимальное’); end.

Полное условие

Блок-схема полного условия выглядит так:

Полное условие. Блок-схема

IF условие THEN действие_1 ELSE действие_2;

• Если условие истинно, то выполняется действие, стоящее после слова Then.
• Если условие ложно, то выполняется действие, стоящее после слова Else.

Если действий, которые выполняются, если условие истинно или ложно несколько — используются операторные скобки .

if условие then begin действие; действие; . end else begin действие; действие; . end;

(перед else точка с запятой не ставится)

Задачи для самостоятельного выполнения:

1. Сумма покупки составляет а рублей. Если а больше 1000 рублей, то предоставляется скидка 15%. Вывести на экран сумму покупки с учетом скидки либо сообщение о том, что скидка не предоставляется.
2. Известны площади круга и квадрата. Определить:
3. уместится ли круг в квадрате
4. уместится ли квадрат в круге
5. Определить, является ли число а делителем числа b
6. Проверить, принадлежит ли число введенное с клавиатуры, интервалу (-5;3).
7. Дано двузначное число. Определить:
8. входит ли в него цифра 3
9. входит ли в него цифра а
10. Определить, является ли треугольник со сторонами a, b, c равнобедренным
11. Даны три различных числа. Определить, какое из них (первое, второе или третье)
12. самое большое
13. самое маленькое
14. является средним

(список задач будет пополняться)

(17 голос, значение: 3,12 из 5)

Опубликовано в рубрике Программирование Метки: задачи на программирование, Паскаль, программирование

Источник: krivaksin.ru