Практическая работа по информатике в среде программирования ПаскальАВС

Практическое занятие PascalABS

ОПЕРАТОР УСЛОВНОГО  ПЕРЕХОДА (полная и неполная форма)

Неполная форма:  IF условие THEN серия;

УСЛОВИЕ   - это логическое выражение, принимающее значение истина или ложь.

Выполняется инструкция так: если условие истинно, то выполняется серия,

иначе выполняется следующая за IF..THEN инструкция.

СЕРИЯ   - один оператор языка.

Полная форма :    IF условие THEN серия1

    ELSE  серия2;

Если условие истинно , то выполняется серия1 , иначе выполняется серия2.

В Н И М А Н И Е!  Перед словом ELSE точка с запятой не ставится !!!

Найти большее из двух чисел а и b.

Program Bid;

  var a,b,max: integer;

Begin

  write('  Введите целое число а='); readln(a);

  write('  Введите целое число b='); readln(b);

  if a>=b then max:=a        { если условие =true,то max:=а  }

              else   max:=b;       { если условие =false,то max:=b }

  writeln('Max=',max);

  End.

При нажатии цифры 1 печатается слово1, а при нажатии любой клавиши слово2.

Program Text; Uses crt;

  var x: integer;

Begin

  ClrScr;

  write('Введите цифру 1 или любую :'); readln(x); ClrScr;

  if x=1 then write(' В а с я')

            else   write(' П е т я');

  readkey;

End.

З А Д А Н И Я:

1. Набрать программу Bid и проверить ее работу для '+' и '-' чисел.

2. В программе Bid применить округление для вещественных чисел.

3. Набрать программу Text , получить результат.

4. Изменить программу Text так, чтобы второе слово выводилось только при нажатии цифры 2 , а при нажатии цифры кроме 1 и 2 выводилось сообщение “ERROR”.

5. Составить программу вычисления для любого х функции  Y =1/x ,

    при х=0 выдать сообщение  ' функция не существует '.

6. Найти наибольшее из трех чисел.