Форум принадлежит организации NezarTM [реклама вместо картинки]

NezGD Cоздание, разработка игр и не только!

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.

Вы здесь » NezGD Cоздание, разработка игр и не только! » Delphi/Pascal/Object Pascal » Pascal - Урок 2.Команда if/then/else.Сравнение.

Pascal - Урок 2.Команда if/then/else.Сравнение.

Страница: 1

Сообщений 1 страница 2 из 2

1

  • Автор: NezGold
  • Dark Админ
  • NezGold
  • Откуда: Владивосток
  • Зарегистрирован: 2011-08-19
  • Приглашений: 0
  • Сообщений: 59
  • Уважение: [+9/-0]
  • Позитив: [+13/-0]
  • Пол: Мужской
  • Провел на форуме:
    19 часов 54 минуты
  • Последний визит:
    2012-04-16 20:09:55

Приступим ко второму уроку на языке программирования Паскаль!В этот раз мы изучим команду if/then/else позволяющая сравнивать переменные и исходя их результат совершать с ними манипуляции.Как не трудно догадаться if переводится с английского "если" then "тогда" else "иначе(в противном случае)".Работает это по такому принципу. "Если" выполняется определённое условие "тогда" выполняется следующее действие.Теперь можно поставить "else" - то есть...если условие не выполняется (в противном случае) то выполняется другое действие.Рассмотри это всё на примере программы.

Код:
program sravnenie;
   var 
        a,b,c:integer;
     begin
        c:=0;
        readln(a,b);
        if(a>b) then
            c:=c+1 else
               c:=c-1;
                  writeln(c);
        readln;
     end.

И так!Что делает программа?Мы вводим 2 числа.Изначально мы присваеваем переменной "с" значение 0.Если "a" больше чем "b" тогда переменной "с" мы присвоим с+1(то есть 1) иначе(в противном случае(если a меньше b))то мы присваеваем "с" с-1(то есть -1).И наконец выводим на экран ответ.*Примечание"Перед и после "then" и "else" ";" не ставится!!!".Думаю здесь всё придельно просто.Эту функцию можно использовать во многих программах и она будет очень полезна.В этой же теме я в дальнейшем приведу и объясню ещё несколько программ с этой функцией.

0

2

  • Автор: NezGold
  • Dark Админ
  • NezGold
  • Откуда: Владивосток
  • Зарегистрирован: 2011-08-19
  • Приглашений: 0
  • Сообщений: 59
  • Уважение: [+9/-0]
  • Позитив: [+13/-0]
  • Пол: Мужской
  • Провел на форуме:
    19 часов 54 минуты
  • Последний визит:
    2012-04-16 20:09:55

Сделаем программку переставляющую 3 числа по возрастанию, или по убыванию(не важно).

Код:
program perestanovka;
   var 
        a,b,c:integer;
     begin
        if (a>b) and (a>c) and (b>c) then
            writeln(a,b,c);
        if (a>b) and (a>c) and (c>b) then
            writeln(a,c,b);
        if (a>b) and (c>a) and (b>c) then
            writeln(c,a,b);
        if (c>a) and (c>b) and (b>a) then
            writeln(c,b,a);
        if (b>a) and (b>c) and (c>a) then
            writeln(b,c,a);
        if (b>a) and (b>c) and (a>c) then
            writeln(b,a,c);
        readln;
     end.

Вообщем сия программа, так сказать "тупо" сравнивает все числа друг с другом.Здесь можно заметить оператор "and", что ясно дело переводится "и".Возьмем элемент кода

Код:
if (a>b) and (a>c) and (b>c) then
            writeln(a,b,c);

Прокомментирую его."Если" "а" больше "b" "и" b больше "с" "тогда" напишем их в последовательности a,b,c.И так все остальные...

0

Страница: 1

Вы здесь » NezGD Cоздание, разработка игр и не только! » Delphi/Pascal/Object Pascal » Pascal - Урок 2.Команда if/then/else.Сравнение.