Операторы Паскаль

Составной оператор - это последовательность любого количества любых операторов, которая начинается

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

IF <условие> THEN <Оператор 1>
ELSE <Оператор 2>;

X<=0

нет

да

y=2x*x+3

y=2x*x-3

X<=0

нет

да

y=2x*x-3

Вычисление функции

program l2;
uses crt;
const a=2;b=5;
var
x:integer;
y:real;
begin
clrscr;
write('vvedite X=');
readln(x);
if x>=0

program l2;
uses crt;
const a=2;b=5;
var
x:integer;
y:real;
begin
clrscr;
write('vvedite X=');
readln(x);
if x>=0 then
y:=

сокращенная форма

Если Оператор2 - пустой, то получается
сокращенная форма
if (<условие>)

program l2;
uses crt;
const a=2;b=5;
var
x:integer;
y:real;
begin
clrscr;
write('vvedite X=');
readln(x);
if x>=0 then
y:=

Составные условия

В условных операторах if B then P else Q

Оператор Case

case n_day of 1,2,3,4,5: day:='Рабочий день. ' ; 6: day:='Cyббoтa!';

Циклические алгоритмы

Цикл
Итерация
Тело цикла

J=1

X=(A+B)*J

J

J=J+1

Печать
Х=…

Конец

да

нет

Оператор цикла с предусловием (цикл "пока")

while <условие В> do

Выполняется оператор цикла следующим образом:проверяется условие В, и если оно

Табулирование функции

program l3;
uses crt;
const a=2;b=5;dx=0.5;dk=10;
var
y,x:real;
begin
clrscr;
write('vvedite X=');
readln(x);
while x

repeat
<оператор Р>;{тело цикла}
until <условие В>;
Повторять тело цикла до тех пор

Опреатор Repeat

program l3;
uses crt;
const a=2;b=5;dx=0.5;dk=10;
var
y,x:real;
begin
clrscr;
write('vvedite X=');
readln(x);
repeat
y:=sqr(x);

for I:=A to B do
<оператор S>;{тело цикла}
A

program l3;
uses crt;
const a=2;b=5;dx=0.5;dk=10;x0=5;
var
i:integer;
y,x:real;
begin
clrscr;
write('vvedite X=');
readln(x);
x:=x0;
For

Вариант оператора цикла с параметром

for I:=A downto B do
<оператор

Алгоритм умножения

При возведении числа в степень в промежуточную ячейку записывают единицу.
При

Const n = 5;
Var n, I, p: integer;
Begin p:=1; for i:=1 to

Вложенные операторы цикла

Получаются тогда, когда оператор, расположенный после do, сам является

Const n=10;
Var i,j: integer;
a, s, p: real ;
Begin

Заполнение одномерного массисва

Var m: Array[1..5] of Char;
i: Integer;
Begin
For

Датчик случайных чисел

Для формирования одномерного или двухмерного массивов при программировании используется

Ввод одномерного массива с использованием датчика

Вариант 1:
TYPE
VEK=ARRAY[1..10] OF REAL;
VAR A:

Вариант 2:
VAR
A:ARRAY[1..10] OF REAL;
X, I: INTEGER;
BEGIN
RANDOMIZE; {каждый раз

Сумма элементов массива

Var A: Array[1..10] of Integer;
s, i: Integer;
Begin
Randomize;

Определение наименьшего (наибольшего) среди чисел

Пример. Заданы n чисел
k2·sin(n+k/n), (k=1,2,…n),
определить

Begin
min:=sin(n+1/n); {присваивается первое число массива }
for k:=2 to n

Заполнение матрицы

Var m: Array[1..5,1..5] of Char;
I, j : Integer;
Begin

Вывод матрицы

For i := 1 to 10 do
begin
For

Транспонирование матриц

FOR i := 1 to 2 do
FOR J

Вариант 1:
TYPE
MAS=ARRAY[1..5,1..5] OF REAL;
VAR
M: MAS;
I,

Вариант 2.
VAR
M:ARRAY[1..5,1..5] OF REAL;
I, J: INTEGER;
BEGIN
RANDOMIZE;
FOR I:=1

Работа с матрицей

program l2;
uses crt;
var
mas: array[1..5,1..5] of integer;
i,j:integer;
begin
clrscr;
Randomize;
For

writeln;
writeln;
For i:=1 to 5 do
begin
For j:=1 to 5

Упорядочивание (сортировка) массива

Упорядочить массив Х1, Х2 , …, Хn –

Как только наименьший элемент занял свое место, он сразу выводится из

CONST N=5;
TYPE
POR=ARRAY[1..N] OF INTEGER;
VAR
X:POR;
V:INTEGER;
I,J,K:INTEGER;

BEGIN
FOR I:=1 TO N DO
X[I]:=RANDOM(10);
FOR I:=1

Сортировка методом обмена

В основе алгоритма лежит обмен соседних элементов массива. Каждый

На рис. цифрой 1 обозначено исходное состояние массива и перестановки

var
Form2: TForm2;
Mas: array[1..10]of integer;
i,k,buf,z:integer;
flag:boolean;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
randomize;
z:=0;

repeat
flag:=false; // Пусть в текущем цикле нет обменов
for k:=1

Метод бинарного поиска

Метод (алгоритм) бинарного поиска реализуется следующим образом:
1. Сначала образец

var
Form1: TForm1;
i,ver,niz,sred,obr:integer;
Mas: array [0..10] of integer;
Flag:boolean;
implementation
{$R *.dfm}
procedure

for i:=1 to 10 do
begin
Mas[i]:=i-1;
memo1.Lines.Add(inttostr(Mas[i])) ;
end;
i:=0;
repeat

Подпрограммы. Функции и процедуры

Функция, выполняя некоторые действия, вычисляет единственное значение, которое

Процедура просто выполняет какие-то действия, не возвращая никакого значения. Именно эти

function <имя>(<СписокФормПарам>):<типРезульт>;
<Разделы описаний>
begin
<Операторы>
<имя> := <выражение> //ОБЯЗАТЕЛЬНЫЙ ОПЕРАТОР!!
end;

Структура описания

procedure <имя>(<СписФормПарам>);
< Разделы описаний >
begin
< Операторы >

ФОРМАЛЬНЫЕ параметры - это не сами данные, передаваемые в подпрограмму, а

ФАКТИЧЕСКИЕ параметры - данные, фактически передаваемые подпрограмме при ее вызове.

ЛОКАЛЬНЫЕ параметры - это данные, которые описаны внутри самой подпрограммы. Эти

1 function LatinChar(Litera: char): boolean;
begin
LatinChar := ((Litera >= 'A')

2. function kolich_cifr(chislo : integer): integer;
var
i: integer;
begin
i

procedure Obmen(var Znach1, Znach2:integer);
var
Znach: integer;
begin
Znach := Znach1;
Znach1

Операции над целыми числами

Операция DIV (division-деление);
Операция MOD (modulus-мера);
Эти операции

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

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

Структура оператора выбора:

CASE < ключ выбора> OF <список выбора>
ELSE <оператор> END.

<константа выбора> - это константа того же типа, что выражение <ключ

Найденный оператор выполняется, после чего оператор выбора завершат свою работу.

Пусть задано описание переменной I – как переменная целого типа,

При выполнении этой программы могут возникать ошибки, если значение переменной I

IF (I>=1) AND (I<=4)
THEN
CASE I OF
1:

Все константы выбора внутри одного оператора выбора обязательно должны быть

Описание объектов

Классы и объекты

Объекты объединяют в единое целое данные и средства действий над ними.

Класс – это средство описания типа объекта, поэтому он помещается разделе

Инкапсуляция

скрытие данных и методов внутри использующего их класса. Это означает,

Наследование

это возможность порождения новых классов от уже описанных. В этом

Полиморфизм

это возможность использовать одинаковые имена для методов разных классов с

Структура описания класса

Описание класса напоминает описание записей, в которых наряду с

<имя класса> = class (<имя наследуемого класса>)
// Для классов, описываемых в

protected
//Здесь помещаются описания элементов класса, которые
// доступны напрямую в пределах

private
// Здесь помещаются описания элементов класса, которые
// доступны напрямую только

public
// Здесь помещаются описания элементов класса, которые
// доступны напрямую в

Например, описание класса для выделения разрядов целого числа может иметь вид

public
procedure PoluchitCeloe(Chislo: integer);
procedure VydelitRazriady;
function ZnachenieRazriada (N:integer) :integer;
end;
Теперь можно описать объект (переменную)

Полное описание объявленных в классе процедур помещается в секцию Implementation модуля:
Implementation
procedure

procedure TRazriadyCelogo.VydelitRazriady;
var
i, CelChislo : integer;
begin
CelChislo := Celoe;
i := 1;
while ((CelChislo div