Практическое задание N 1. 7

1. Определить, является ли шестизначный номер билета счастливым: счастливым считается билет, у которого сумма первых трех цифр равна сумме последних трех цифр.

2. Проверить, является ли пятизначное число "A" симметричным,

т. е. изменится ли значение числа при записи его цифр в обратном порядке.

3. Проверить, делится ли трехзначное число "A" нацело на сумму цифр, составляющих это число в случаях целого и вещественного типа числа "A".

4. Проверить, делится ли четырехзначное число "A" нацело на произведение цифр, составляющих это число в случаях целого и вещественного типа числа "A".

Примечание: программы запрашивают ввод значения числа с клавиатуры и выводят на экран результирующее сообщение. Программы должны содержать оператор контроля правильного ввода данных. Для больших чисел используйте тип LongInt.

Условный оператор может применяться для идентификации(распознавания) объекта по определенным признакам составляющих его элементов. Например, если объектом является треугольник, то элементами объекта могут быть:

1) три его угла (a, b, c); 2) три его стороны (a1, b1, c1); и т. д.

Признаками являются значения элементов по которым производится идентификация, например, для углов:

1) один угол > 90 - (один признак);

2) три угла < 90 - (три признака); и т. д.

В результате идентификации объект получает имя. Например, треугольник - остроугольный, либо тупоугольный и т. д.

Если идентификация проводится по одному признаку для нескольких элементов, то несколько условий связываются служебным словом "or", например:

If (a >90) or (b >90) or (c >90) then writeln ( 'Треугольник - тупоугольный' );

Если идентификация проводится по нескольким признакам, число которых равно числу элементов, то несколько условий связываются служебным словом "and", например:

If (a<90) and (b <90) and (c <90) then writeln('Треугольник - остроугольный');

Если имя объекта составное, то добавляются признаки для идентификации второй части имени и применяются вложенные условные операторы, например, для равнобедренного треугольника:

If (a<90) and (b<90) and (c<90) then If (a=b) or (b=c) or (a=c) then writeln('Треугольник - остроугольный и равнобедренный') else writeln('Треугольник - остроугольный');

Напомним, что условный оператор можно применять для контроля правильности вводимых данных, например:

If (a+b+c)<>180 then begin writeln('Сумма углов<>180'); Halt end;

Если для идентификации объекта достаточно меньшего числа признаков, чем число элементов, то условия, связанные "and" группируются, а группы соединяются служебным словом "or". Например, четырехугольник имеет элементами четыре стороны ( a, b, c, d ), а его имя устанавливается по двум признакам (равенство двух пар сторон), тогда можно использовать операторы:

If ((a=b) and (c=d)) or ((a=c) and (b=d)) or ((a=d) and (b=c)) then writeln('Параллелограмм');

Таким образом, если при идентификации объекта число признаков меньше, чем число элементов, то условия группируются. Например, пусть для идентификации зайца достаточно трех признаков для четырех элементов: YXO - длинное ('D'), XBOCT - короткий ('K'), LAPA - передние меньше задних ('PmZ'), HOC - короткий ('K'), тогда можно использовать операторы:

If ((YXO='D') and (XBOCT='D') and (LAPA='PmZ')) or

((YXO='D') and (XBOCT='D') and ( HOC='K')) or

((YXO='D') and ( HOC='K') and (LAPA='PmZ')) then writeln('Это ЗАЯЦ');