Команда ветвления.. IF условие THEN серия1 ELSE серия2;

Информатика 9 класс

Продолжаем изучать Паскаль.

Команда ветвления.

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

то серия1

иначе серия2

всё

Сначала компьютер проверяет условие. Если условие верное, то выполняет серию1, а если неверное, то выполняет серию2. Запишем теперь эту команду на Паскале. Все служебные слова переводим на английский и пишем в одну строку.

IF условие THEN серия1 ELSE серия2;

Слово всё не пишется, т.к. в конце строки ставим ;

1)В компьютер вводятся два числа. Если их произведение превосходит 2000, то написать «Произведение большое», а иначе –написать «Произведение маленькое». Затем вывести ответ-чему действительно равно произведение.

Var a,b,y:integer;

Begin

Writeln(‘введи 2 числа’);

Read(a,b);

y:=a*b;

IF y>2000 THEN write(‘произведение большое’) ELSE write(‘произведение маленькое’);

Write(‘произведение=’,y);

End.

2)Прочитав и разобравшись в решении задачи 1, оформите задачу 2- компьютер для этого не нужен. Итак, условие: В компьютер вводятся два числа- длины сторон двух кубиков. Найти объем кубика- большего по размерам.

Выслать только решение этой задачи, ничего лишнего не надо.

Uchitel9.informatika@yandex.ru Работы подписывайте.