Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
1 Простые типы и операторы языка / 3 Простые операторы языка.ppt
Скачиваний:
17
Добавлен:
19.03.2015
Размер:
148.48 Кб
Скачать

Тема 3. Операторы языка Object Pascal

1.Организация операторов Object Pascal

2.Оператор присваивания

3.Операторы ввода данных

4.Операторы вывода данных

5.Пустой оператор

6.Метки и оператор безусловного перехода

1

3.1. Организация операторов Object Pascal

ПУП – ЦC – ПОП - ВВ

• Оператор присваивания

• Оператор безусловного перехода

• Пустой оператор

• Оператор вызова подпрограммы

• Составной оператор

• Условные операторы

• Оператор выбора

• Операторы цикла

• Описание подпрограммы

2

3.2. Оператор присваивания

переменная

:=

выражение

Примеры

 

 

 

 

 

Var x: integer;

 

 

 

 

 

Y: real;

 

 

 

 

 

C: char;

 

 

 

 

 

Test: Boolean;

 

 

 

 

 

х := 200

 

y := sin(Pi/3)

 

c := ‘6’

. . .

 

 

 

 

 

 

 

x:=200;

 

 

 

 

 

 

 

 

 

 

y:=Sin(Pi/3);

 

 

 

 

 

c:=‘6’;

 

 

 

 

 

test:=false;

 

 

 

 

 

y:=x;

 

 

 

 

 

3

3.3. Операторы ввода данных

процедура read

read ;

(

список ввода

)

список ввода

идентификатор

,

Примеры:

read(а); процедура readln read(x1,x2,x3);

readln(a,b,c); 4 пустой оператор ввода readln;

Примеры использования оператора ввода

на экране

Ошибка ввода!

5

Примеры оператора ввода readln

на экране

можно

нельзя!

6

2 вариант примера ввода

на экране

7

Можно вводить:

Числовые, символьные, строковые

Пример

Var c1,c2:Char;

. . .

readln(c1,c2); a¬b

ab

или

readln(c1);

readln(c2);

Нельзя вводить:

Логические, перечислимые

8

3.4. Операторы вывода данных

процедура write

write ;

(

список вывода

)

список вывода

выражение

 

формат

,

вывода

Можно выводить:

Ввод х

Вывод х,y

все стандартные, строковый

Нельзя выводить:

перечисляемый 9

Примеры использования оператора вывода

Пример 1.

на экране

 

var x1,x2,x3: integer;

 

y: real;

 

begin

 

x1:=1; x2:=2; x3:=3; y:=3;

 

write(x1,x2,x3);

 

write(7);

 

write(x1+sqr(y)); . . .

 

Пример 2.

 

. . .

 

write(‘Hello, Delphi!’);

 

x1:=5;

 

write(‘x1=’,x1);

 

. . .

10