mirror of
https://github.com/adambard/learnxinyminutes-docs.git
synced 2024-12-23 09:41:36 +00:00
215 lines
12 KiB
Markdown
215 lines
12 KiB
Markdown
---
|
||
filename: learnpascal-ru.pas
|
||
contributors:
|
||
- ["Ganesha Danu", "http://github.com/blinfoldking"]
|
||
- ["Keith Miyake", "https://github.com/kaymmm"]
|
||
translators:
|
||
- ["Anton 'Dart' Nikolaev", "https://github.com/dartfnm"]
|
||
---
|
||
|
||
|
||
>Pascal - это процедурный язык программирования, который Никлаус Вирт разработал в 1968–69 годах и опубликовал в 1970 году как небольшой эффективный язык, предназначенный для поощрения хороших методов программирования с использованием структурированного программирования и структурирования данных. Он назван в честь французского математика, философа и физика Блеза Паскаля.
|
||
>
|
||
>source : [wikipedia](https://ru.wikipedia.org/wiki/Паскаль_(язык_программирования)))
|
||
|
||
|
||
|
||
Для компиляции и запуска программы на языке Паскаль вы можете использовать бесплатный компилятор FreePascal. [Скачать здесь](https://www.freepascal.org/)
|
||
|
||
Либо современный бесплатный компилятор Паскаля нового поколения под платформу .Net [PascalABC.NET](http://pascalabc.net)
|
||
|
||
```pascal
|
||
// это комментарий
|
||
{
|
||
а вот это:
|
||
- комментарий на несколько строк
|
||
}
|
||
|
||
//объявляем имя программы
|
||
program learn_pascal; //<-- не забываем ставить точку с запятой (;)
|
||
|
||
const
|
||
{
|
||
это секция в которой вы должны объявлять константы
|
||
}
|
||
type
|
||
{
|
||
здесь вы можете объявлять собственные типы данных
|
||
}
|
||
var
|
||
{
|
||
секция для объявления переменных
|
||
}
|
||
|
||
begin //начало основной программы
|
||
{
|
||
тело вашей программы
|
||
}
|
||
end. // В конце основной программы обязательно должна стоять точка "."
|
||
```
|
||
|
||
```pascal
|
||
//объявление переменных
|
||
//вы можете сделать так
|
||
var a:integer;
|
||
var b:integer;
|
||
//или так
|
||
var
|
||
a : integer;
|
||
b : integer;
|
||
//или даже так
|
||
var a,b : integer;
|
||
```
|
||
|
||
```pascal
|
||
program Learn_More;
|
||
|
||
// Познакомимся с типами данных и с их операциями
|
||
const
|
||
PI = 3.141592654;
|
||
GNU = 'GNU''s Not Unix';
|
||
// имена константам принято давать ЗАГЛАВНЫМИ_БУКВАМИ (в верхнем регистре)
|
||
// их значения фиксированны т.е никогда не меняются во время выполнения программы
|
||
// содержат любой стандартный тип данных (integer, real, boolean, char, string)
|
||
|
||
type
|
||
ch_array : array [0..255] of char;
|
||
// массивы - это составной тип данных
|
||
// мы указываем индекс первого и последнего элемента массива ([0..255])
|
||
// здесь мы объявили новый тип данных содержащий 255 символов 'char'
|
||
// (по сути, это просто строка - string[256])
|
||
|
||
md_array : array of array of integer;
|
||
// массив в массиве - по сути является двумерным массивом
|
||
// можно задать массив нулевой (0) длины, а потом динамически расширить его
|
||
// это двумерный массив целых чисел
|
||
|
||
//Объявление переменных
|
||
var
|
||
int, c, d : integer;
|
||
// три переменные, которые содержат целые числа
|
||
// Тип "integer" это 16-битное число в диапазоне [-32,768..32,767]
|
||
r : real;
|
||
// переменная типа "real" принимает вещественные (дробные) значения
|
||
// в диапазоне [3.4E-38..3.4E38]
|
||
bool : boolean;
|
||
// переменная логического типа, принимающая булевы-значения: True/False (Правда/Ложь)
|
||
ch : char;
|
||
// эта переменная содержит значение кода одного символа
|
||
// тип 'char' это 8-битное число (1 байт), так что никакого Юникода
|
||
str : string;
|
||
// это переменная составного типа, являющееся строкой
|
||
// по сути, строка это массив в 255 символов длиною, по умолчанию
|
||
|
||
s : string[50];
|
||
// эта строка может содержать максимум 50 символов
|
||
// вы можете сами указать длину строки, чтобы минимизировать использование памяти
|
||
my_str: ch_array;
|
||
// вы можете объявлять переменные собственных типов
|
||
my_2d : md_array;
|
||
// динамически расширяемые массивы требуют указания длины перед их использованием.
|
||
|
||
// дополнительные целочисленные типы данных
|
||
b : byte; // диапазон [0..255]
|
||
shi : shortint; // диапазон [-128..127]
|
||
smi : smallint; // диапазон [-32,768..32,767] (стандартный Integer)
|
||
w : word; // диапазон [0..65,535]
|
||
li : longint; // диапазон [-2,147,483,648..2,147,483,647]
|
||
lw : longword; // диапазон [0..4,294,967,295]
|
||
c : cardinal; // тоже что и longword
|
||
i64 : int64; // диапазон [-9223372036854775808..9223372036854775807]
|
||
qw : qword; // диапазон [0..18,446,744,073,709,551,615]
|
||
|
||
// дополнительные вещественные типы данных (дробные)
|
||
rr : real; // диапазон зависит от платформы (т.е. 8-бит, 16-бит и т.д.)
|
||
rs : single; // диапазон [1.5E-45..3.4E38]
|
||
rd : double; // диапазон [5.0E-324 .. 1.7E308]
|
||
re : extended; // диапазон [1.9E-4932..1.1E4932]
|
||
rc : comp; // диапазон [-2E64+1 .. 2E63-1]
|
||
|
||
Begin
|
||
int := 1; // так мы присваиваем значение переменной
|
||
r := 3.14;
|
||
ch := 'a';
|
||
str := 'apple';
|
||
bool := true;
|
||
// Паскаль не чувствителен к регистру
|
||
|
||
// арифметические операции
|
||
int := 1 + 1; // int = 2; заменяет предыдущее значение
|
||
int := int + 1; // int = 2 + 1 = 3;
|
||
int := 4 div 2; //int = 2; 'div' операция деления, с отбрасыванием дробной части
|
||
int := 3 div 2; //int = 1;
|
||
int := 1 div 2; //int = 0;
|
||
|
||
bool := true or false; // bool = true
|
||
bool := false and true; // bool = false
|
||
bool := true xor true; // bool = false
|
||
|
||
r := 3 / 2; // деления вещественных чисел с дробной частью
|
||
r := int; // вещественной переменной можно присвоить целочисленное значение, но не наоборот
|
||
|
||
my_str[0] := 'a'; // для доступа к элементу массива нужно указать его индекс в квадратных скобках ([0])
|
||
|
||
c := str[1]; // первая буква во всех Строках находится по индексу [1]
|
||
str := 'hello' + 'world'; //объединяем 2 строки в одну
|
||
|
||
SetLength(my_2d,10,10); // инициализируем динамически расширяемый массив
|
||
// задаём размер 2х-мерного массива 10×10
|
||
|
||
// первый элемент массива лежит в индексе [0], последний [длина_массива-1]
|
||
for c := 0 to 9 do
|
||
for d := 0 to 9 do // переменные для счетчиков циклов должны быть объявлены
|
||
my_2d[c,d] := c * d;
|
||
// обращаться к многомерным массивам нужно с помощью одного набора скобок
|
||
|
||
End.
|
||
```
|
||
|
||
```pascal
|
||
program Functional_Programming;
|
||
|
||
Var
|
||
i, dummy : integer;
|
||
|
||
function factorial_recursion(const a: integer) : integer;
|
||
{ Функция расчёта Факториала целочисленного параметра 'a', рекурсивно. Возвращает целое значение }
|
||
|
||
// Мы можем объявлять локальные переменные внутри своей функции:
|
||
// Var
|
||
// local_a : integer;
|
||
|
||
Begin
|
||
If a >= 1 Then
|
||
factorial_recursion := a * factorial_recursion(a-1)
|
||
// возвращаем результат, присваивая найденное значение переменной с тем же именем, как у функции
|
||
Else
|
||
factorial_recursion := 1;
|
||
End; // Для завершения функции, используется символ ";" после оператора "End;"
|
||
|
||
|
||
|
||
procedure get_integer( var i : integer; dummy : integer );
|
||
{ Эта процедура ждёт от пользователя ввода целого числа и возвращает его значение через параметр i.
|
||
Если параметр функции начинается с 'var', это означает, что его значение было передано, по ссылке, то есть, оно может использоваться не только как входное значение, но и для возвращения дополнительных результатов работы функции.
|
||
Параметры функции (без 'var'), (такие как "dummy" (пустышка)), передаются по значению, и по сути являются - локальными переменными, таким образом изменения, внесенные внутри функции/процедуры, не влияют на значение переменной за её пределами.
|
||
}
|
||
Begin // начало процедуры
|
||
write('Введите целое число: ');
|
||
readln(i); // число, введённое пользователем, сохранится в переменной i
|
||
// и её значение будет доступно вызывающей подпрограмме
|
||
|
||
dummy := 4; // значение 'dummy' не будет влиять на значения переменной вне процедуры
|
||
End; // конец процедуры
|
||
|
||
Begin // главный блок программы
|
||
dummy := 3;
|
||
get_integer(i, dummy); // вызываем процедуру получения числа от пользователя
|
||
writeln(i, '! = ', factorial_recursion(i)); // ввыводим значение факториала от i
|
||
|
||
writeln('dummy = ', dummy);
|
||
// всегда выводит "3", поскольку фиктивная переменная не изменяется.
|
||
End. // конец программы
|
||
```
|
||
|