Основы программирования на языке Turbo Pascal. Беляева И.В. - 143 стр.

UptoLike

Составители:

Рубрика:

143

then writeln('''',a,'''<=''',b,'''')

else writeln('Неправда, что ''', a, '''<=''', b, '''');

{Следовательно, будет выведено

'Неправда, что 'кремний'<='крем'}

if a >= b {Поскольку ‘кремний’ больше, чем ’крем’}

then writeln('''',a,'''>=''',b,'''') {Будет выведено

‘кремний’>=’крем’}

else writeln('Неправда, что ''', a, '''>=''', b, '''');

end.

Отдельного пояснения требуют операции сравнения строк.

Правила сравнения двух строк

При сравнении двух строк (назовем их A и B) последовательно

сравниваются соответствующие символы двух строк – первый с первым

(A[1] с B[1]), второй со вторым (A[2] с B[2]) и так далее (A[i] с B[i]).

Сравнение производится по значению ASCII кодов соответствующих

символов, то есть условие равенства двух символов выглядит примерно

таким образом: ord(A[I])=ord(B[I]). Если первые символы равны, то

сравниваются вторые. Если равны и вторые, тогда сравниваются третьи.

И так далее до тех пор, пока либо не попадется пара неодинаковых

символов, либо обе строки не закончатся одновременно. Если встретилась

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

которой в несовпадающей паре имеет больший ASCII код. Если строки

закончились одновременно, то они считаются равными.

Пример:

‘Ложка’=’Ложка’ (все символы совпадают)

‘Китай’<’китай’ (ord(‘К’)<ord(‘к’))

‘к рошка’<’крошка’ (ord(‘ ’)<ord(‘р’))

‘тол’<’толстый’ (все три символа ‘тол’ совпали с ‘толстый’,