Контрольные вопросы:

1. Из каких разделов состоит программа, написанная на языке программирования TurboPascal?

2. Как определить значение переменной?

3. Опишите операторы ввода информации?

4. Опишите операторы вывода информации?

5. Опишите оператор присваивания и правила его использования?

Лабораторная № 4



1. Какие из приведенных ниже команд ветвления являются:

1. правильными

2. неправильными

а) if a<b then a:=a+1 else b:=b-1;

б) if (x<5) and (y>3) then s:=s+1; else s:=s-1;

в) if a<>b then b:=a;

г) if 9 then k:=k+1;

2. Какие значения будут принимать переменные A и B в результате выполнения команды ветвления:

if A<B then A:=B else B:=A;

если перед ее выполнением A=0.5, B=-1.7?

3. Какая задача решается в результате выполнения команды:

if x<y then max:=y else max:=x;?

4. При каких значениях a и b, условие a>b будет:

1. истинным

2. ложным

а) a=2, b=5; б) a=5, b=2; в) a=2, b=2

5. Найти значение величины c после выполнения команд ветвления:

if b>=6 then c:=5 else c:=10, если

1) b=2; 2) b=16; 3)b=6

6. Каким было значение величины d, если после выполнения команд ветвления:

if d<=4 then c:=5 else c:=10, переменна я c равна:

1)с=5; 2)с=10

а) d=4; б) d=10; с) d=2

7. Какое значение принимает переменная s после выполнения команды ветвления:

Label 1, 2;

Begin

s:=1;

m:=3;

1: if k >=m then goto 2;

s:=s+m

k:=k+1;

goto 1;

2: end.

Если

1. k=2;

2. k=3;

3. k=1;

4. k=5;

5. k=0;

а) s=5

б) s=1

в) s=10

г) s=7

д) s=3

е) s=6

ё) s=4

Лабораторная работа №5

Тема работы:Программирование операторов ветвления.

Цель работы: изучение и использование операторов ветвления в программировании.

Задания:

вариант	задание
1	Y= |2*cos(a)|+6*b при a<1; 2*sin(b)+6*a при a>=1;
2	Y= 7*tg(a)+|6*b| при a<5; 2*tg(b)+6*ln(b) при a>=5;
3	Y= 2*cos(a)*sin(b)+7при a<1; 2*ctg(b)-6*a при a>=1;
4	Y= 2*cos(a)+6*bпри a<1; 2*ln(b)+6*ln(a) при a>=1;
5	Y= 2*ctg(a)+|6*cos(3*a)|при a<1; 2*sin(b)-3 при a>=1;

Оператор IF реализует алгоритмическую конструкцию РАЗВИЛКА и изменяет порядок выполнения операторов в зависимости от истинности или ложности некоторого условия. Существует два варианта оператора:

if S then A   else В;            {полная развилка} и if S then А;         {укороченная развилка}

В этих операторах: S - некоторое логическое выражение, истинность которого проверяется; А - оператор, который выполняется, если выражение S истинно; В - оператор, который выполняется, если выражение S ложно.

Так как условный оператор IF является единым предложением, ни перед then, ни перед else точку с запятой ставить нельзя. Примеры использования оператора:

if X < 0 then X := -Y; if X < 1.5 then Z := X + Y else Z := 1.5;

Пример. Ввести целое число и вывести символ, соответствующий этому числу в кодировке ASCII, если такой символ есть, или сообщение, что такого символа нет (управляющие символы не учитываются).

program EXAMPLE5; var X: Integer; begin   Write('Введите целое число: ');   ReadLn(X);   if (X > 31) and (X < 256) then       WriteLn('Соответствующий символ - ', Chr(X))   else       WriteLn('Такого символа НЕТ') end.