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

UptoLike

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

Рубрика:

142

b := 'Ира'; {В B занесли строку ‘Ира’}

c := a + b; {В C занесена строка ‘ВаняИра’}

c := a + ' + ' + b; {В C занесена строка ‘Ваня + Ира’}

readln(name); {Требуется ввести имя}

if name = 'пароль' {Если имя ‘пароль’}

then writeln('Свой!!!') {Выводится сообщение}

else

begin {Иначе}

writeln('Чужак!!!!!'); {Сообщение выводится}

Halt; {И на этом программа завершает свою работу}

end;

readln(name); {Снова вводится имя}

if name<>'Вася' {Если ввели строку, не совпадающую

со строкой ‘Вася’}

then writeln('Нет, ты не Вася...') {Сообщается об этом}

else writeln('Здравствуй, Вася!!!'); {Иначе –

приветствуется Вася}

if a<b {Сравниваются строки ‘Ваня’ и ‘Ира’}

{Поскольку строки сравниваются не по длине, а по содержимому,

то оказывается, что строка ‘Ваня’ меньше чем строка ‘Ира’}

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

'Ваня'<'Ира'}

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

a := 'кремний'; {В A и B заносятся новые строки}

b := 'крем';

if a > b {Сравниваются A и B – здесь A больше B}

then writeln('''',a,'''>''',b,'''') {Поэтому будет

выведено ‘кремний’>’крем’}

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

if a <= b {‘Кремний’ явно не меньше и не равен ’крем’}