Необходимые сведения

Описания логических переменных. Логические операции NOT, AND, OR. Условные операторы IF…THEN, IF…THEN…ELSE… .

Варианты заданий:

1. Логический тип данных.

   1. Вычислить значение выражений:

1) Sqr(x) + Sqr(y)=4 при x = 0.3, y = – 1.6;

2) k Mod 7 = k div 5 –1

3) Odd(Trunc(10*p)) при p=0.182

1. Записать на Паскале отношение, истинное при выполнении указанного условия и ложное в противном случае:

1. целое k делится на 7;

2. уравнение не имеет вещественных корней;

3. точка (x,y) лежит вне круга радиуса r с центром в точке (1,0);

3. Вычислить значения выражения:

1) Not Odd(N) при N=0;

2) t And (p Mod 3 = 0) при t=True,

3) (x*y<>0) And (y>x) при x = 2, y =1;

4. (x*y <>0) Or (y>x) при x=2, y=1;

1. Записать на Паскале выражение, истинное при выполнении указанного условия и ложное в противном случае:

1. 0 < x < 1;

2. t = max(x, y, z);

1. Указать порядок выполнения операции при вычислении выражения:

1. A And B Or Not C And D;

2. (x>=0) Or t And Odd(x) Or (y*y<4);

6. Объяснить ошибки в записях:

1) 1 And 0; 2) True + False;

3) True < 0; 4) x>0 Or y=4;

5) Not 2 =5;

1. Записать на Паскале выражение, истинное при выполнении указанного условия и ложное в противном случае:

1. x принадлежит отрезку [0,2];

2. x лежит вне отрезка [0,2];

3. x принадлежит отрезку [3,4];

4. x лежит вне отрезков [3,4] и [-2,1];

5. каждое из чисел x, y, z больше нуля;

6. хотя бы одно из чисел x, y, z больше нуля;

2. Условный и составной операторы.

   1. Записать указанное действие:

1. 

2. ;

3. ;

4. ;

5. 

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

z:=0;

If x>0 Then If y>0 Then z:=1 Else z:=2

при

a) x=1, y=1 б) x=1, y= – 1 в) x = –1, y=1.

1. Написать последовательность операторов для решения задач:

1. 

2. значения переменных А, В, С поменять местами так, чтобы оказалось .

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

Тема: Логические выражения. Условные операторы.

Необходимые сведения

Команды работы в текстовом редакторе TURBO PASCAL, пошаговая отладка программы – команда F8.

Пример задания: Разработать программу для вычисления выражения вида

Вариант программы:

Var A, B, C : Real;

Begin

WriteLn (‘Введите исходные данные’); ReadLn (a, b);

If A*B<0 Then C:= Ln(Sqr(A*B));

If A*B >0 Then C:= Ln(A*B);

If A*B=0 Then C:= 0 WriteLn(‘C’, C:8:3);

End.

Варианты заданий:

Разработать программу вычисления выражения (таблица 3) и вывода полученного результата на экран. Исходные данные ввести с клавиатуры.

Таблица 7 – Выражения для расчетов

Номер варианта	Выражение	Исходные данные
1		x, y
2		x, y
3		x, y
4		x, y
5		i, a
6		a, b, x
7		x, y
8		k, m
9		k, p
10		f, g
11		x, y, z
12		x, y, z
13		x, y, z
14		x, y, z
15		x, y, z
16		x, y, z

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

1. Какие команды текстового редактора вы знаете?

2. Какие команды работы с блоком текста вы знаете?

3. Как распечатать на принтере текст программы, не выходя из редактора TURBO PASCAL?

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

Тема:Программы циклической структуры.