Ветвление

Ветвление – участок программы, позволяющий выбрать для исполнения, в зависимости от истинности условия, одну из двух групп команд. If - ЕСЛИ Then – ТО (ТОГДА) Else - ИНАЧЕ

Вася собирает древние монеты. Он приобрел а динариев и b сестерциев разного достоинства и года выпуска. Хватит ли ему места в альбоме, если там всего с ячеек для монет?

Program money; Var A,b,c: integer; Begin Write(Сколько динариев купил Вася? ); readln(a); Write(Сколько сестерциев купил Вася? ); readln(b); Write(Cколько свободных ячеек в альбоме? ); readln(с); If a+b

Ветвление в данной задаче является полным, поскольку используется все команды( ЕСЛИ, ТО, ИНАЧЕ). Если ветвление организуется с помощью команд ЕСЛИ-ТО, то оно является неполным. Любая ветвь может быть не линейным участком программы, а сама содержать ветвление. Такое ветвление называется вложенным.

В первом магазине хозяйка приобрела а кг помидор. Их оказалось b штук. Во втором магазине – с кг. Их – d штук. В каком магазине помидоры крупнее?

Program magazin; Var A,b,c,d,m1,m2: real; Begin Write(Введите массу и количество помидор в первом магазине ); readln(a,b); Write(Введите массу и количество помидор во втором магазине ); readln(c,d); M1:=a/b; M2=c/d If m1>m2 then Writeln(в первом магазине помидоры крупнее) Else If m1

Задача 3: Определить, является ли одно из двух введенных чисел делителем другого.

Примеры программ 10 класс

Пример 1 Составьте программу, определяющую наибольшее значение переменных X,Y,Z. Program Pr5; Var x, y, z, p: integer; Begin WriteLn (Задайте значения x, y, z); ReadLn (x, y, z); p:=x; If p

Пример 2. Сравнение строк Составить программу, проверяющую правильность пароля Предположим, что пароль – это слово «груша». Программа запрашивает у пользователя пароль, сравнивает его с нашим паролем. Если пользователь ввел правильный пароль, то для него доступ открыт, а если пароль не правильный, то доступ закрыт. Program Pr6; Var parol :string; Begin WriteLn (Какой пароль?); ReadLn (parol); If parol=груша then writeLn (Доступ для Вас открыт) Else writeLn (Доступ закрыт!!!); ReadLn; End.

Оператор множественного выбора CASE

Вид списка Список, состоящий из одного значения a8a8 Список, содержащий перечисление значений 1, 4, 5 a, Список, содержащий интервалы значений 1..5, a..z Список, содержащий смешанную форму представления значений 1.. 5, 15, 55 a..z, A, B могут быть заданы следующими способами:

Program Pr; Var month: Integer; Begin Writeln (Введите номер месяца (число от 1 до 12) и нажмите ); Read (month); Case month of 1, 2, 12: Writeln(Зима); 3.. 5: Writeln(Весна); 6.. 8: Writeln(Лето); 9..11: Writeln (Осень); Else Writeln (Ошибка ввода данных – число должно быть от 1 до 12); End; End.

Домашнее задание 1. Написать программу, которая проверяет, делится ли на 3 целое число, введенное с клавиатуры. 2. Написать программу, которая вычисляет оптимальный вес пользователя, сравнивает его с реальным и выдает рекомендации о необходимости поправиться или похудеть. Оптимальный вес вычисляется по формуле: рост (в сантиметрах) – * Составить программу, которая после введенного с клавиатуры числа (в диапазоне от 1 до 99), обозначающего денежную единицу, дописывает слово «Копейка» в правильной форме. Например, 5 копеек, 41 копейка и т. д.