Информатика и ИКТ Омский техникум мясной и молочной промышленности Я услышал и забыл. Увидел и запомнил. Сделал и понял! Чарльз Бэббидж Преподаватель: Абулхаева Гульсум Абылаевна
Найти периметр пятиугольника programm 1; begin var a, b, c, d, e, P: integer writeln (‘введите стороны пятиугольника’); read (a,b,c,d,e) P:=a+b+c+d+e; Writeln (‘периметр пятиугольника =‘ P); end
Верное решение program primer1; var a, b, c, d, e, P: integer; begin writeln (‘введите стороны пятиугольника’); read (a,b,c,d,e); P:=a+b+c+d+e; writeln (‘периметр пятиугольника = ‘, P); end.
Программирование алгоритмов ветвления Омский техникум мясной и молочной промышленности
Разветвляющийся алгоритм – это алгоритм, в котором в зависимости от условия выполняется либо одна, либо другая последовательность действий.
Основные варианты структуры ветвления: если - то; если – то - иначе; Полная форма Неполная форма
Запись команды ветвления на языке Pascal Не полная форма Полная форма if then ; if then else ; Сложное условие if then begin end; else begin end;
Задача №1. Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число. Program primer1; Var a :integer; Begin Writeln(‘введите целое число а '); read(а); if a>0 then a:=a+1; Writeln('Полученное число ', а); end.
Задача №2. Дано два целых числа. Вывести на экран наибольшее из них. program primer2; var a, b, max: integer; begin writeln('Введите два целых числа'); read (a, b); if a>b then max:=a else max:=b; writeln (‘Наибольшее из введенных чисел ’,max); end.
Оператор варианта case Необходим в тех случаях, когда в зависимости от значений какой-либо переменной надо выполнить те или иные операторы. case выражение of значение_1: оператор_1; значение_2: оператор_2; … значение_N: оператор_N; else альтернативный_оператор; end;
Задача №3. Дано целое число К. Вывести строку-описание оценки, соответствующей числу К: 1- «плохо», 2 –«неудовлетворительно», 3 – «удовлетворительно», 4 – «хорошо», 5 – «отлично». Если К не лежит в диапазоне 1-5, вывести «ошибка».
Решение: Program primer3; var k: integer; begin writeln (‘Введите целое число’); read(k); case k of 1: writeln (‘плохо’ ); 2: writeln (‘неудовлетворительно ‘); 3: writeln (‘удовлетворительно ‘); 4: writeln (‘хорошо’); 5: writeln (‘отлично’) else writeln (‘такой оценки не существует’); end; end.
Практическая часть (возьми карточку)
Тест «Программирование разветвляющихся алгоритмов» Краткая форма записи оператора условного перехода ... ? IF ( условие ) ELSE ( что выполнять ) IF ( условие ) THEN ( что выполнять ) END IF ( условие ) THEN ( что выполнять ) IF ( условие ) THEN ( что выполнять ) ELSE ( что выполнять )
2. Назначение оператора условного перехода - ...? Выбор той или иной последовательности действий в зависимости от выполнения или невыполнения условия Чтобы перейти в конец программы Выбор той или иной последовательности действий в независимости от выполнения или невыполнения условия Выбор одной и той же последовательности действий в независимости от выполнения или невыполнения условия
3. Как переводятся слова краткой формы записи условного перехода? ЕСЛИ .... ТО ... ЕСЛИ .... ИНАЧЕ .... ЕСЛИ .... КОНЕЦ ДЛЯ ... ТО
4. Полная форма записи оператора условного перехода ... ? IF (что выполнять) THEN (условие) ELSE (что выполнять) IF (что выполнять) ELSE (условие) THEN (что выполнять) IF (условие) THEN (что выполнять) END (что выполнять) IF (условие) THEN (что выполнять) ELSE (что выполнять)
5. Как переводятся слова полной формы записи условного перехода? ЕСЛИ .... ТО ... КОНЕЦ ДЕЛАЙ .... ТО .... ИНАЧЕ .... ЕСЛИ .... ИНАЧЕ .... ТО .... ЕСЛИ .... ТО .... ИНАЧЕ ....
Задача. Ввести два числа. Если их сумма больше 100, то сумму уменьшить в 2 раза, в противном случае увеличить в 2 раза.
Желаю удачи в изучении информатики!