Операторы языка Pascal

Сентябрь 7, 2022

Главная
Алгебра
Операторы языка Pascal

Содержание

2. Оператор присваивания Оператор присваивания предназначен для присваивания переменной значения выражения. Оператор обозначается символом := в левой
3. Примеры использования оператора присваивания: С переменной целого типа х := 6; Вещественного y := sin(Pi/3); Символьного
4. Операторы ввода-вывода Read( ); Readln( ); Write( ); Writeln( ); ОПЕРАТОРЫ ВВОДА ОПЕРАТОРЫ ВЫВОДА
5. Составной оператор Операторы, входящие в составной оператор, разделяются символом «;», в начале ставится служебное слово begin,
6. Пример составного оператора: Begin X:=10; y:=5; z:=1; Writeln(‘g=‘, sqr(x) + sqr(y) + sqr(z) end; Фактически весь
7. Объявление массива Var Имя переменной-массива : Array [ Диапазон индексов ] Of Тип элементов; Одномерный массив
8. Двумерный массив Var A : Array [1..20,1..30] Of Integer;
9. Трехмерный массив Var A : Array [1..20,1..30,1..20] Of Integer;
10. Оператор безусловного перехода Goto метка смысловое значение в программе «перейти к …»
11. Условный оператор 1. if then else ; 2. if then ; Полная форма условного оператора
12. Примеры Рассмотрим определение функции у: х2 -1, если х x+5, если х>=0 1 сп.) if x
13. Пример сокращенной формы условного оператора: If not ((x При использовании вложенных условных операторов может возникнуть неоднозначность,
14. if then begin if then else end; или if then begin if then end; else
15. Задача 1. Написать программу, проверяющую принадлежит ли число, введенное с клавиатуры, интервалу (1;5) program Z1; var
16. Операторы цикла Оператор цикла - с предусловием; - с постусловием; - с параметром.
17. Оператор цикла с предусловием Program Factorial1; Const n=5; Var i,fact : integer; Begin i:=1; fact:=1; while
18. Задача 2. Дано натуральное число. Найти количество четных цифр числа. Program Z2; Uses crt; Var m,n
19. Оператор цикла с постусловием Repeat ; ; Until ; где Repeat (повторять до тех пор), Until
20. Оператор цикла с параметром Используют этот оператор, когда количество повторений заранее известно. for := to do
22. Скачать презентацию

Слайд 2

Оператор присваивания
Оператор присваивания предназначен для присваивания переменной значения выражения.
Оператор обозначается

символом :=
в левой части указывается имя переменной,
в правой – вычисляемое выражение.
Примеры использования оператора присваивания:
С переменного целого типа - х := 6;
вещественного – y := sin(Pi/3);
символьного – с := ‘7’;
булевского – test := false;

Слайд 3

Примеры использования оператора присваивания:
С переменной целого типа
х := 6;
Вещественного
y

:= sin(Pi/3);
Символьного
с := ‘7’;
Булевского
test := false;

Слайд 4

Операторы ввода-вывода
Read(<Список ввода>);
Readln(<Список ввода>);
Write(<Список вывода>);
Writeln(<Список вывода>);
ОПЕРАТОРЫ ВВОДА
ОПЕРАТОРЫ ВЫВОДА

Слайд 5

Составной оператор
Операторы, входящие в составной оператор, разделяются символом «;», в начале

ставится служебное слово begin, в конце – end.
Составной оператор применяется в тех случаях, когда синтаксис языка допускает использование только одного оператора, а смысл требует выполнения нескольких действий.

Слайд 6

Пример составного оператора:
Begin
X:=10; y:=5; z:=1;
Writeln(‘g=‘, sqr(x) + sqr(y) + sqr(z)
end;
Фактически весь

раздел операторов, обрамленный словами begin … end представляет собой один составной оператор.
ВНИМАНИЕ! Перед служебным словом end разделитель (символ «;») не ставится.

Слайд 7

Объявление массива
Var Имя переменной-массива : Array [ Диапазон индексов ] Of

Тип элементов;
Одномерный массив
Var T : Array [1..40] Of Real;

Слайд 8

Двумерный массив
Var A : Array [1..20,1..30] Of Integer;

Слайд 9

Трехмерный массив
Var A : Array [1..20,1..30,1..20] Of Integer;

Слайд 10

Оператор безусловного перехода
Goto метка
смысловое значение в программе
«перейти к …»

Слайд 11

Условный оператор
1. if <условие>
then <оператор1>
else <оператор2>;
2. if <условие> then

<оператор1>;

Полная форма условного оператора

Слайд 12

Примеры
Рассмотрим определение функции у: х2 -1, если х<0,
x+5, если х>=0
1

сп.) if x<0
then y:= x*x – 1
else y:= x + 5;
2 сп.) b:=x<0;
if b
then y:= x*x – 1
else y:= x + 5;
Во 2-м способе описывается логическая переменная b, значение которой будет равно true, если x<0, и false – иначе.

Слайд 13

Пример сокращенной формы условного оператора:
If not ((x<3)) then y:= sqr(x);
При использовании

вложенных условных операторов может возникнуть неоднозначность, например:
if <условие1>
then if <условие2>
then <оператор1>
else <оператор2>
В данном случае необходимо помнить, что служебное слово else всегда ассоциируется с ближайшим по тексту программы if, которое еще не связано с else. А чтобы такая двусмысленность не возникала, лучше всего пользоваться составным оператором:

Слайд 14

if <условие1>
then
begin
if <условие2>
then <оператор1>

else <оператор2>
end;
или
if <условие1>
then
begin
if <условие2>
then <оператор1>
end;
else <оператор2>

Слайд 15

Задача 1. Написать программу, проверяющую принадлежит ли число, введенное с клавиатуры,

интервалу (1;5)

program Z1;
var x : integer;
begin
writeln (‘Введите число х’);
readln (x);
if (x>0) and (x<5)
then writeln (x, ‘принадлежит (1;5)’)
else writeln (x, ‘не принадлежит (1;5)’)
end.

Слайд 16

Операторы цикла
Оператор цикла
- с предусловием;
- с постусловием;
- с

параметром.

Слайд 17

Оператор цикла с предусловием
Program Factorial1;
Const n=5;
Var i,fact : integer;
Begin
i:=1;

fact:=1;
while i<=n do {заголовок цикла}
begin {начало цикла}
fact := fact * i;
i := i+1
end; {конец цикла}
writeln (‘факториал’, n, ‘=‘, fact:10);
End.

Program Factorial2;
Const n=5;
Var fact : integer;
Begin
fact:=1;
while n>0 do {заголовок цикла}
begin {начало цикла}
fact := fact * n;
n:=n-1
end; {конец цикла}
writeln (‘факториал’, n, ‘=‘, fact:10);
End.

while <условие> do <оператор>;
где while (пока), do (делать) – зарезервированные слова
Задача1. Вычисление факториала из числа n. ( 2 способа)

Слайд 18

Задача 2. Дано натуральное число. Найти количество четных цифр числа.
Program Z2;
Uses

crt;
Var m,n : longint; k,p: integer;
Begin
clrscr;
write(‘n=‘); readln(n);
m:=n; k:=0;
while m<>0 do begin
p:=m mod 10;
if p mod 2=0 then
k:=k+1; m:= div 10;
end;
writeln(‘Количество четных цифр К=‘,K);
readln;
end.

Слайд 19

Оператор цикла с постусловием
Repeat
<оператор1>;
<оператор2>;
Until <условие>;
где Repeat (повторять до тех

пор), Until (пока не будет выполнено условие) – зарезервированные слова

Задача. Написать программу для игры «Угадайка».
Program Ugadaika;
Var x,y,n : word;
Begin
randomize; {инициализация датчика}
x:= random(100);
n:=0;
repiat
writeln (‘Введите число’);
read (y);
n:=n+1;
if x>y then writeln (‘больше’);
if x until x=y;
writeln(‘Вы угадали число за ‘, n, ‘ попыток’);
end/.

Слайд 20

Оператор цикла с параметром
Используют этот оператор, когда количество повторений заранее известно.
for

<параметр> := <начальное значение> to <конечное значение> do <оператор>;
где for (для), to (до) do (выполнить) – зарезервированные слова.
Задача. Вычислить n-ую степень числа 2.
Program stepen _2_n;
Var n,x,k:word;
Begin
writeln (‘Введите n:’) ;
read (n);
for k:=1 to n do
x:=x*2;
Writeln (‘2 в степени n равно ‘,x);
end.

Операторы языка Pascal

Содержание

Оператор присваиванияОператор присваивания предназначен для присваивания переменной значения выражения. Оператор обозначается

Примеры использования оператора присваивания:С переменной целого типа х := 6;Вещественного y

Операторы ввода-выводаRead(<Список ввода>);Readln(<Список ввода>);Write(<Список вывода>);Writeln(<Список вывода>);ОПЕРАТОРЫ ВВОДАОПЕРАТОРЫ ВЫВОДА

Составной операторОператоры, входящие в составной оператор, разделяются символом «;», в начале

Пример составного оператора:BeginX:=10; y:=5; z:=1;Writeln(‘g=‘, sqr(x) + sqr(y) + sqr(z)end;Фактически весь

Объявление массиваVar Имя переменной-массива : Array [ Диапазон индексов ] Of

Двумерный массивVar A : Array [1..20,1..30] Of Integer;

Трехмерный массивVar A : Array [1..20,1..30,1..20] Of Integer;

Оператор безусловного перехода Goto меткасмысловое значение в программе «перейти к …»

Условный оператор1. if <условие> then <оператор1> else <оператор2>;2. if <условие> then

ПримерыРассмотрим определение функции у: х2 -1, если х<0, x+5, если х>=01

Пример сокращенной формы условного оператора:If not ((x<3)) then y:= sqr(x);При использовании

if <условие1> then begin if <условие2> then <оператор1>