Процедуры Dec и Inc в Pascal.

При работе с целыми числами используются процедуры DEC и INC. Процедура Dec уменьшает число на определенное значение, а процедура Inc увеличивает число на определенное значение.

Ветвления в Pascal.

Ветвления в Паскаль позволяют выполнять действия не поочередно, как мы делали в предыдущих программах, а в зависимости от каких - либо условий. Для этого в языке программирования Pascal предусмотрены различные условные операторы. В данном уроке мы ...

Процедуры STR и VAL.

В строковую переменную можно записывать не только буквы, но и цифры. Однако это будут не числа, как таковые, а их символьное представление. Для преобразования символьных представлений числа в само число, и наоборот, используются процедуры STR и VAl.

...

Циклы и массивы

Организация условного перехода. Оператор IF.

Для программирования разветвляющихся процессов, содержащих две ветви, используется оператор IF условного перехода (ветвления), имеющий две конструкции.

Вложенный арифметический цикл. Часть 2.

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

При написании достаточно сложной программы можно разделить эту программу на несколько простых блоков. Т. е. можно какую-то группу операторов, к которой часто обращается программист, заключить в отдельный блок. Для этого служат процедуры. Процедура является как-бы небольшой программой в Pascal.

Она также имеет заголовок, раздел описаний (переменных, констант, типов, других процедур и функций и т.д.), и исполняемую часть, которая находится внутри составного оператора Begin..End. После того как процедура выполнится, она должна вернуть управление программе, вызвавшей ее. В программе процедура записывается после раздела описания переменных Var.

Рассмотрим использование процедуры на примере простой программы. Мы будем вводить с клавиатуры 2 числа, а на экране будет выводиться сообщение о том больше или меньше первое число второго.

Процедуры в Паскаль.




Program procedura1;
uses crt;
var a, b: integer;
procedure poisk;
begin
if a>b then
writeln ('Первое число больше второго')
else
if a<b then
writeln ('Первое число меньше второго')
else
writeln ('Оба числа равны');
end;
begin
clrscr;
writeln('Введите a, b ');
readln(a, b);
poisk;
readln
end.


В строке №4 записываем зарезервированное слово Procedure, которая открывает раздел для описания процедур. После этого слова через пробел пишем заголовок процедуры. Заголовок придумывает сам программист. Я назвал процедуру «poisk».

В строке №5-№13 находится тело (исполняемая часть) процедуры. Она начинается, как и основная программа, со слова begin, а заканчивается словом end. После слова end ставится точка с запятой, т.к. программа не заканчивается после описания процедуры.

Строка №6. Если «a» больше «b», то на экран выводится сообщение в строке №7.

Строка №8. В противном случае (т.е. если «a» меньше либо равно «b»), то проверяется условие в строке №9. И если «a» меньше «b», то на экран выводится сообщение в строке №10.

Строка №11. В противном случае (т.е. если «a» равно «b»), то на экран выводится сообщение в строке №12.

В строке №14 начало основной программы.

В строке №16 выводится сообщение.

В строке №17 вводим числа с клавиатуры.

В строке №18 записываем название нашей процедуры «poisk». Т.е. с этого момента основная программа перестает работать и начинает работать процедура, которую мы записали в строках №4-№13. Она сравнивает числа, которые мы ввели с клавиатуры и в зависимости от результата, выводит на экран то или иное сообщение. После того как процедура будет выполнена она передаст управление основной программе.

procedurih v paskalj

Вводим два числа и нажимаем Enter.

procedurih v paskalj.


Предыдущая статья : Подпрограммы в Паскаль.

Оглавление : Уроки Паскаль. Процедуры и функции.

Следующая статья : Использование процедур в Паскале.


Комментарии   

+11 # Гоша 19.09.2012 13:37
Мде, что тут может быть непонятного? Если хочешь можешь скачать паскаль абц и там в справке прочитать более подробную информацию.
+12 # Антон 25.11.2012 14:25
Ярик статья очень даже понятная
-2 # WapRay_Ru 12.12.2012 12:13
Думал посложнее разбор будет.. Здесь слишком простенький(( Поверхностный..
+4 # Макс 16.01.2013 14:39
автору зачёт)))
+9 # newgeniy 09.02.2013 02:18
а про функции будет что то?
+2 # Евгений 16.02.2013 13:28
слабовато на мой взгляд для того чтобы понять читателю
-1 # djigit95 18.02.2013 18:43
Блин вот нашел УУРРАА )))) нормальную статейку про процедур )))))) :D
0 # Зухра 25.03.2013 14:34
это задача правильная или нет.че вы тут материтесь то
0 # Adel 30.03.2014 14:05
Описать процедуру SortDec3(A, B, C), меняющую содержимое переменных A, B, C таким образом, чтобы их значения оказались упорядоченными по убыванию (A, B, C — вещественные параметры, являющиеся одновременно входными и выходными). С помощью этой процедуры упорядочить по убыванию два данных набора из трех чисел: (A1, B1, C1) и (A2, B2, C2). Pascal' помогите :sad: :sad: :sad: :sad:
-4 # petrova olya shluha 02.09.2015 06:33
:D отлично :lol:
-4 # lol228 04.09.2015 04:17
просто 5 хачу 8)
-2 # Жека 09.09.2015 13:37
Fatal: Syntax error, "BEGIN" expected but "identifier A" found
Пишет мне и нихрена не работает =) 150 раз сравнил код - все 1 в 1 перепечатал. Может потому, что у меня FreePascal x64?
-4 # Жека 09.09.2015 13:43
Все, я нашел, простите =)
-1 # сергей 27.10.2015 17:17
на сайте надо сделать форум т.к. слишком много вопросов не потеме в комментариях
-3 # Сурик 26.04.2016 15:06
Опапа! может у кого исходник есть?
   ГлавнаяПаскальПроцедуры и ФункцииПрограмма, которая вводит слово в одном регистре и выводит в другом.