Паскаль

Назад Главная
Паскаль. Некоторая информация.
Переменные:
Real : дробные (вещественные) числа.
Integer : целые числа.
String: строковый тип
String[10] : тоже строковый тип, но объявлено, что в переменной будет не больше 10 символов.
Boolean : логический тип, может принимать только 2 значения true и false.

Вывод информации:
Оператор write, writeln
Все что будет написано в скобках оператора, будет выведено на экран.
Program wiwod;
Begin
Writeln(‘привет’);
Writeln(‘как вы сегодня’);
End.
На экран выведется:
Привет
Как вы сегодня
Чтение с клавиатуры:
Операторы rear, readln
Запись : readln(переменная), где переменная – переменная описанная в секции Var.
После этого в переменную будут занесены данные с клавиатуры.

Структура программы:
PROGRAM (заголовок);

Const
(секция описания констант)

Var
(секция описания переменных)

Begin
(тело программы)

End.

Математические выражения:
+, -, *, / сложение , вычитание , умножение, деление.
Trung(число) – отбрасывает дробную часть.
Round(число) – округляет число по правилам математики.
Примеры: a := trung(2.73); a = 2
B := trung(-3.4); b = 3
C := trung(1.9); c = 1
A1 := round(2.5); a1 = 3
B1 := round(-3.7); b1 = -4
C1 := round(2.3); c1 = 2

Sqr(x) квадрат x или х*х или х²
Sqrt(x) корень квадратный из х
Abs(x) абсолютное значение из х т.е abs(-4) = 4, abs(4) = 4.
Sin(x) синус х
Cos(x) косинус х
Pred(x) следующее целое х т.е Pred(10) = 11 в обоих функциях используются
Succ(x) предыдущее х т.е Succ(10) = 9 только целые числа

Условные операторы:
IF (условие) THEN оператор 1
ELSE оператор 2
Работает оператор так:
Сначала проверяется условие если оно верно то выполняется оператор 1
Если не верно то выполняется оператор 2
Ветвь ELSE может быть опущена т.е оператор записывается в упрощенном виде
IF (условие) THEN оператор 1

В простейшем случае условие—это математическое сравнение двух значений по величине. Отношение можно записать с помощью следующих знаков:
< меньше
> больше
<= меньше или равно
>= больше или равно
<> не равно
= равно
Пример:
…
a := 2;
b := 4;
IF a > b then writeln(‘привет’)
Else writeln(‘досвидание’);
…
на экран будет выведена надпись «досвидание».
В другом случае если записать так:
…
IF b>a then writeln(‘привет’)
Else writeln(‘досвидание’);
…
На экран, при тех же значениях a и b будет выведено «привет»

Следующий оператор выбор из множества:

Case выражение of
Список значений : оператор 1;
Список значений : оператор 2;
…
…
список значений : оператор n
else оператор ;
end;
«выражение» может быть integer, char, Boolean
пример:
a := 5;
case a of
1 : writeln(‘один’);
3…6 : writeln(‘много’);
end;
на экран будет выведено «много». В данном примере нет ветви else можно писать без него. Это более простая запись. Т.е можно без него.
Работа со строками.

LENGTH(stroka) функция вычисляет длину строки.
Пример: srtoka := ‘opa na’;
A := length(stroka);
В «а» будет 6.

STR(I, S);
где I – число, S – строка. Функция преобразовывает число в строку.
…
I := 10;
Str(I,s);
…
в переменной S будет ‘10’ уже строковое значение.

VAL(s, i, a);
Где s – строка, I – число, a – число. Функция преобразовывает строку s в число I, если в строке будет символ отличный от числа, то номер этого символа запишется в а.
Пример:
…
I := ‘132’;
Val(s,I,a);
…
в s будет 132, в а будет 0.

…
I := ‘123e’;
Val(s,I,a);
…
в s ничего не будет в а будет 4, т.к. 4 символ не число.

COPY(str, pos,len);
возвращает подстроку строки str, начиная с позиции pos, длиной len.
Пример:
Str := ‘разразраз’;
A := 4;
A1 := 3;
Str1 := copy(str,a,a1);

В str1 будет находится ‘раз’.

POS(str1, str2);
Ищет подстроку str1 в строке str2, если подстрока str1 не встречается в строке str2
То функция возвращает 0, если встречается то функция вернёт номер позиции с которой она начинается.
Пример:

Str1 := ‘a’;
Str10 := ‘m’;
Str2 := ‘motiw112’;
I := pos(str1, str2);
I1 := pos(str10, str2);

То в I будет 0, т.к. а в строке ‘motiw112’ не встречается, а в i1 будет 1 т.к символ m занимает первую позицию.

DELETE(str, a, a1);
Процедура обратная copy. Удаляет из строки str начиная с позиции а, кол-во символов указанных в переменной а1.
Пример:

Str := ‘moskay’;
A := 2;
B := 3;
Delete(str,a,b);

После этого в переменной str будет находится строка ‘may’ удалено со второй позиции 3 символа.