Учебник по TURBO PASCAL

Назначение кнопок переход на следующий слайд переход на следующий слайд переход на предыдущий слайд переход на предыдущий слайд просмотр содержимого в данном разделе просмотр содержимого в данном разделе возврат к содержанию возврат к содержанию просмотр примера просмотр примера возврат к предыдущему слайду возврат к предыдущему слайду далее содержание пример назад

Содержание: Несколько слов об истории языка Несколько слов об истории языка Алфавит языка Алфавит языка Операции Операции Базовые конструкции Базовые конструкции Структура программы Структура программы далее

Алгоритмический язык АЛГОЛ был разработан в 1950-х-60-х годах. Паскаль стал «наследником» АЛГОЛа. Его разработчиком был швейцарский ученый Никлаус Вирт, собиравшийся использовать этот язык для обучения своих студентов методом разработки компиляторов. Время рождения языка Паскаль – начало 70-х годов. По сравнению с АЛГОЛом, Паскаль проще и яснее. У него намного лучше возможности обработки данных и имеются встроенные процедуры ввода/вывода, которых не было в АГОЛе. Турбо Паскаль фирмы Borland является расширением стандарта языка и содержит, кроме того, интегрированную среду, намного ускоряющую и облегчающую процесс разработки программ. Этот программный продукт прошел через 6 версий, прежде чем появился Турбо Паскаль 7.0. Алгоритмический язык АЛГОЛ был разработан в 1950-х-60-х годах. Паскаль стал «наследником» АЛГОЛа. Его разработчиком был швейцарский ученый Никлаус Вирт, собиравшийся использовать этот язык для обучения своих студентов методом разработки компиляторов. Время рождения языка Паскаль – начало 70-х годов. По сравнению с АЛГОЛом, Паскаль проще и яснее. У него намного лучше возможности обработки данных и имеются встроенные процедуры ввода/вывода, которых не было в АГОЛе. Турбо Паскаль фирмы Borland является расширением стандарта языка и содержит, кроме того, интегрированную среду, намного ускоряющую и облегчающую процесс разработки программ. Этот программный продукт прошел через 6 версий, прежде чем появился Турбо Паскаль 7.0.

Турбо Паскаль, в свою очередь, положил начало новой линии продуктов фирмы Borland – Delphi, системе быстрой разработки приложений для Windows. Используемый в Delphi язык программирования Object Pascal сохранил основные черты Турбо Паскаля, обогатившись новыми возможностями. Имеются и другие реализации языка Паскаль, в том числе предназначенные для работы не на персональных компьютерах (как Турбо Паскаль), а на других компьютерных платформах. Турбо Паскаль, в свою очередь, положил начало новой линии продуктов фирмы Borland – Delphi, системе быстрой разработки приложений для Windows. Используемый в Delphi язык программирования Object Pascal сохранил основные черты Турбо Паскаля, обогатившись новыми возможностями. Имеются и другие реализации языка Паскаль, в том числе предназначенные для работы не на персональных компьютерах (как Турбо Паскаль), а на других компьютерных платформах. содержание

Языком называется совокупность символов, соглашений и правил, используемых для общения. Алфавит – конечный набор знаков, состоящий из букв, десятичных и шестнадцатеричных цифр, специальных символов. В качестве букв в Паскале используются прописные и строчные буквы латинского алфавита: A B C D E F G H I J K L M N O P R S T U V W X Y Z a b c d e f g h I j k l m n o p r s t u v w x y z и знак подчеркивания (_); в качестве десятичных цифр: Шестнадцатеричные цифры строятся из десятичных цифр и букв от А до F (или от a до f). Языком называется совокупность символов, соглашений и правил, используемых для общения. Алфавит – конечный набор знаков, состоящий из букв, десятичных и шестнадцатеричных цифр, специальных символов. В качестве букв в Паскале используются прописные и строчные буквы латинского алфавита: A B C D E F G H I J K L M N O P R S T U V W X Y Z a b c d e f g h I j k l m n o p r s t u v w x y z и знак подчеркивания (_); в качестве десятичных цифр: Шестнадцатеричные цифры строятся из десятичных цифр и букв от А до F (или от a до f).

Зарезервированные слова языка Паскаль absolute absolute and and array array assembler assembler begin begin break break case case const const constructor constructor continue continue destructor destructor div div do do down to down to else else end end external external far far file file for for function function go to go to label label mod mod near near nil nil not not object object of of or or packed packed private private procedure procedure program program if if implementation implementation in in inline inline interface interface interrupt public interrupt public record record repeat repeat

Зарезервированные слова языка Паскаль set set shl shl shr shr String String then then to to type type unit unit Until Until uses uses var var virtual virtual while while with with xor xor

Заголовки, то есть первые операторы программ и библиотечных модулей – это program и unit. Для описания переменных, констант и составных частей программы – подпрограмм- процедур и программ-функций – используются зарезервированные слова var, const, procedure, function. Операторы описания типов переменных, задаваемых пользователем, - это type, array, string, record…end, file of…. Слова, используемые для программирования составных операторов, а также начинающие и оканчивающие последовательность исполняемых операторов программы, - begin и end. Заголовки, то есть первые операторы программ и библиотечных модулей – это program и unit. Для описания переменных, констант и составных частей программы – подпрограмм- процедур и программ-функций – используются зарезервированные слова var, const, procedure, function. Операторы описания типов переменных, задаваемых пользователем, - это type, array, string, record…end, file of…. Слова, используемые для программирования составных операторов, а также начинающие и оканчивающие последовательность исполняемых операторов программы, - begin и end.

Операторами, управляющими ходом выполнения программы, являются if…then…else, for…to…do, repeat…until, case…of…end, for…down to…do, while…do. В библиотечных модулях используются зарезервированные слова implementation, interface. Зарезервированные слова для обозначения арифметических и логических операций – div, mod, shl, shr, and, or, not и некоторые другие. В программах, написанных с использованием методов объектно-ориентированного программирования, применяются зарезервированные слова object, constructor, destructor, public и virtual. Операторами, управляющими ходом выполнения программы, являются if…then…else, for…to…do, repeat…until, case…of…end, for…down to…do, while…do. В библиотечных модулях используются зарезервированные слова implementation, interface. Зарезервированные слова для обозначения арифметических и логических операций – div, mod, shl, shr, and, or, not и некоторые другие. В программах, написанных с использованием методов объектно-ориентированного программирования, применяются зарезервированные слова object, constructor, destructor, public и virtual.

Одиночные и двойные специальные символы языка Паскаль := присваивание переменной (слева от символа) значения выражения (справа от символа) := присваивание переменной (слева от символа) значения выражения (справа от символа) ; разделитель операторов в программе ; разделитель операторов в программе ( ) скобки для арифметических и логических выражений ( ) скобки для арифметических и логических выражений : разделитель в описаниях переменных и формате операторов вывода : разделитель в описаниях переменных и формате операторов вывода.. многоточие для списков.. многоточие для списков + бинарные операции (не только арифметические!) + бинарные операции (не только арифметические!) - - * * / /

Одиночные и двойные специальные символы языка Паскаль = логическое равенство = логическое равенство отношения «меньше чем» и «больше чем» отношения «меньше чем» и «больше чем» = отношение «больше или равно». Конец программы или модуля, а также десятичная точка в константах вещественного типа. Конец программы или модуля, а также десятичная точка в константах вещественного типа ограничители константы строкового типа ограничители константы строкового типа { } пары скобок для комментариев { } пары скобок для комментариев

Одиночные и двойные специальные символы языка Паскаль (* *) пары скобок для комментариев (* *) пары скобок для комментариев, разделитель элементов списка, разделитель элементов списка [ ] скобки для ссылки на элемент массива или указания диапазона значений индекса [ ] скобки для ссылки на элемент массива или указания диапазона значений индекса # номер # номер $ знак денежной единицы $ знак денежной единицы ^ тильда ^ коммерческое коммерческое а содержание

При программировании арифметических выражений следует помнить о приоритетах операций, то есть о порядке их выполнения. Первыми выполняются арифметические операции умножения и деления, они считаются равноприоритетными операциями. Затем выполняются операции сложения и вычитания, тоже равноприоритетные. Если подряд идут несколько равноприоритетных операций, они выполняются слева направо. Порядок выполнения операций может быть изменен с помощью круглых скобок. При наличии в арифметическом выражении круглых скобок первыми будут выполняться операции в круглых скобках, начиная с самых внутренних. При программировании арифметических выражений следует помнить о приоритетах операций, то есть о порядке их выполнения. Первыми выполняются арифметические операции умножения и деления, они считаются равноприоритетными операциями. Затем выполняются операции сложения и вычитания, тоже равноприоритетные. Если подряд идут несколько равноприоритетных операций, они выполняются слева направо. Порядок выполнения операций может быть изменен с помощью круглых скобок. При наличии в арифметическом выражении круглых скобок первыми будут выполняться операции в круглых скобках, начиная с самых внутренних.

В Паскале имеются две разновидности деления. Это обычная операция деления / и операция целочисленного деления div. В первом случае делимое и делитель могут быть любого числового типа, а во втором они должны быть целыми числами. Результат целочисленного деления – тоже целое число, которое получается отбрасыванием дробной части частного. Есть еще одна операция вычисления остатка от деления одного целого числа на другое – mod. Множества языка Паскаль обладают свойствами математических множеств. В частности, над ними можно выполнять те же операции. Если S1 и S2 – константы или переменные множественного типа, то S1+S2 будет их объединением, S1*S2 - пересечением, S1-S2 – разностью. В Паскале имеются две разновидности деления. Это обычная операция деления / и операция целочисленного деления div. В первом случае делимое и делитель могут быть любого числового типа, а во втором они должны быть целыми числами. Результат целочисленного деления – тоже целое число, которое получается отбрасыванием дробной части частного. Есть еще одна операция вычисления остатка от деления одного целого числа на другое – mod. Множества языка Паскаль обладают свойствами математических множеств. В частности, над ними можно выполнять те же операции. Если S1 и S2 – константы или переменные множественного типа, то S1+S2 будет их объединением, S1*S2 - пересечением, S1-S2 – разностью. примеры

Операции отношений = (равенство), (неравенство), = (является надмножеством) к множествам применяются, а отношения строгого включения - не применяются. Основными бинарными операциями являются сложение (+), вычитание (-), умножение (*), деление (/). В том случае, когда они применяются к значениям, имеющим разные целые типы, будет производиться преобразование типа. При этом значение, имеющее более «простой» (короткий) тип, вначале преобразуется в более «сложный» (длинный) формат. Наряду с привычными арифметическими операциями в Паскале есть операции, выполняющие более сложные преобразования целых значений. Операции отношений = (равенство), (неравенство), = (является надмножеством) к множествам применяются, а отношения строгого включения - не применяются. Основными бинарными операциями являются сложение (+), вычитание (-), умножение (*), деление (/). В том случае, когда они применяются к значениям, имеющим разные целые типы, будет производиться преобразование типа. При этом значение, имеющее более «простой» (короткий) тип, вначале преобразуется в более «сложный» (длинный) формат. Наряду с привычными арифметическими операциями в Паскале есть операции, выполняющие более сложные преобразования целых значений. примеры

Логический (булев) тип имеет два возможных значения – «истина» (true) и «ложь» (false). Эти значения считаются упорядоченными, так что false и т.д.) и булевы операции. Логический (булев) тип имеет два возможных значения – «истина» (true) и «ложь» (false). Эти значения считаются упорядоченными, так что false и т.д.) и булевы операции. примеры

Паскаль допускает использование сложных выражений, в которых могут объединяться арифметические, логические и некоторые другие операции. В этом случае следует учитывать порядок выполнения операций. Порядок выполнения операций определяется их старшинством, или приоритетом. Первый уровень приоритетов является наивысшим, а четвертый – низшим. Паскаль допускает использование сложных выражений, в которых могут объединяться арифметические, логические и некоторые другие операции. В этом случае следует учитывать порядок выполнения операций. Порядок выполнения операций определяется их старшинством, или приоритетом. Первый уровень приоритетов является наивысшим, а четвертый – низшим. Notпервый *, /, div, mod, and, shl, shr второй +, -, or, xorтретий =, ,, =, in четвертый

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

Оператор if…then… Оператор if…then… называется условным оператором и имеет вид: Оператор if…then… называется условным оператором и имеет вид: if условие then оператор1; Где выражение, записанное в условии, является логическим. Логическое выражение принимает одно из двух возможных значений – true (истина) или false (ложь). Если логическое выражение условия принимает значение «истина», то выполняется оператор1. В противном случае выполняться будет оператор2, следующий за данным логическим оператором1. Где выражение, записанное в условии, является логическим. Логическое выражение принимает одно из двух возможных значений – true (истина) или false (ложь). Если логическое выражение условия принимает значение «истина», то выполняется оператор1. В противном случае выполняться будет оператор2, следующий за данным логическим оператором1. Согласно формальным правилам языка, в условном операторе после then допускается применение только одного оператора.

Но возникают ситуации, когда при выполнении условия в логическом выражении следует выполнить несколько операторов языка. Решается эта проблема применением составного оператора, который заключается в операторные скобки begin …end. Операторы if…then… можно вкладывать друг в друга, так как конструкция if условие then оператор1; также является оператором и может заместить оператор1: if условие1 then if условие2 then оператор2; Но возникают ситуации, когда при выполнении условия в логическом выражении следует выполнить несколько операторов языка. Решается эта проблема применением составного оператора, который заключается в операторные скобки begin …end. Операторы if…then… можно вкладывать друг в друга, так как конструкция if условие then оператор1; также является оператором и может заместить оператор1: if условие1 then if условие2 then оператор2;

Оператор if…then…else… Этот оператор является полной версией условного оператора и имеет вид if условие then оператор1 else оператор2; Этот оператор является полной версией условного оператора и имеет вид if условие then оператор1 else оператор2; Если выражение, записанное в условии, принимает значение «истина», то управление передается на оператор1, если же нет, то на оператор2. Если выражение, записанное в условии, принимает значение «истина», то управление передается на оператор1, если же нет, то на оператор2. Вложенные операторы if…then…else… Вложенные операторы if…then…else… Рассмотрим следующий оператор: if условие1 then оператор1 if условие1 then оператор1 else if условие2 then оператор2 else if условие2 then оператор2 else if условие3 then оператор3 … else if условие thenоператор;

Вначале вычисляется значение логического выражения, записанного в условии1. Если оно истинно, выполняется оператор1, если же это значение ложно, вычисляется значение выражения, записанного в условии2. В этом случае, когда полученное значение истинно, будет выполняться оператор2, при значении «ложь» будет вычисляться выражение, записанное в условии3 и т.д. Если выражения, записанные в условии i независимы, то есть вычисление их значений в любом порядке дает один и тот же результат для каждого из них, имеет смысл располагать их в таком порядке, чтобы выражение, с наибольшей вероятностью принимающее значение «истина», стояло на первом месте, выражение, принимающее значение «истина» с меньшей вероятностью,- на втором и т.д. Вначале вычисляется значение логического выражения, записанного в условии1. Если оно истинно, выполняется оператор1, если же это значение ложно, вычисляется значение выражения, записанного в условии2. В этом случае, когда полученное значение истинно, будет выполняться оператор2, при значении «ложь» будет вычисляться выражение, записанное в условии3 и т.д. Если выражения, записанные в условии i независимы, то есть вычисление их значений в любом порядке дает один и тот же результат для каждого из них, имеет смысл располагать их в таком порядке, чтобы выражение, с наибольшей вероятностью принимающее значение «истина», стояло на первом месте, выражение, принимающее значение «истина» с меньшей вероятностью,- на втором и т.д. примеры

Case… of…end… Для ситуаций, где имеется несколько (три и более) альтернатив, больше подходит оператор case. Этот оператор называется оператором выбора и имеет следующий вид: case выражение-селектор of список1: оператор1; список2: оператор2; … Список n: оператор; else оператор; end; Выражение – селектор оператора case. В списках значений оператора case допустимыми являются

типы переменных, называемые скалярными, включая целые и исключая вещественные типы. Любое заданное значение селектора может входить в список значений неоднократно, но выполняться будет лишь первая подходящая ветвь. типы переменных, называемые скалярными, включая целые и исключая вещественные типы. Любое заданное значение селектора может входить в список значений неоднократно, но выполняться будет лишь первая подходящая ветвь. пример

Оператор цикла while…do… Оператор цикла с предусловием имеет вид: while условие do оператор; При выполнении этого оператора вначале вычисляется значение логического выражения, записанного в условии. Если это значение истинно, выполняется оператор, затем значение выражения проверяется вновь и т.д., до тех пор, пока выражение не примет значение «ложь». Если выражение принимает значение «ложь» при первой же проверке, то оператор не выполняется вообще. Оператор цикла с предусловием имеет вид: while условие do оператор; При выполнении этого оператора вначале вычисляется значение логического выражения, записанного в условии. Если это значение истинно, выполняется оператор, затем значение выражения проверяется вновь и т.д., до тех пор, пока выражение не примет значение «ложь». Если выражение принимает значение «ложь» при первой же проверке, то оператор не выполняется вообще. Частный случай: while true do оператор; Частный случай: while true do оператор; Здесь оператор будет выполняться бесконечно. пример

Оператор цикла repeat…until… Оператор цикла с постусловием имеет вид: Оператор цикла с постусловием имеет вид: Repeat оператор until условие; Здесь вначале выполняется оператор, а затем вычисляется значение логического выражения, записанного в условии. Процесс повторяется, пока выражение, записанное в условии, принимает значение «ложь». Как только это значение станет истинным, выполнение цикла прекращается. Оператор может быть любым, в том числе и составным оператором. Здесь вначале выполняется оператор, а затем вычисляется значение логического выражения, записанного в условии. Процесс повторяется, пока выражение, записанное в условии, принимает значение «ложь». Как только это значение станет истинным, выполнение цикла прекращается. Оператор может быть любым, в том числе и составным оператором. пример

Частный случай: repeat оператор1; оператор2; …; оператор n; until false; Здесь цикл выполняется бесконечно.

Операторы цикла for…to…do и for…down to…do… Это цикл со счетчиком. For параметр цикла := s1 to s2 do оператор; s1 и s2 –выражения, определяющие соответственно начальное и конечное значения параметра цикла. for…do – заголовок цикла; for…do – заголовок цикла; Оператор – тело цикла. Оператор – тело цикла. Тело цикла может быть простым или составным оператором. Оператор for обеспечивает выполнение тела цикла до тех пор, пока не будут перебраны все значения параметра цикла от начального до конечного. Тело цикла может быть простым или составным оператором. Оператор for обеспечивает выполнение тела цикла до тех пор, пока не будут перебраны все значения параметра цикла от начального до конечного. Заголовок оператора повтора for определяет диапазон изменения значений управляющей переменной и одновременно число повторений оператора, содержащегося в теле цикла. Заголовок оператора повтора for определяет диапазон изменения значений управляющей переменной и одновременно число повторений оператора, содержащегося в теле цикла. примеры

Вариант for…down to…do… цикла for аналогичен циклу for…to…do… за исключением того, что в нем управляющая переменная на каждом шаге выполнения не увеличивается, а уменьшается на единицу: for параметр цикла := s2 down to s1 do оператор; Рекомендации для применения циклов: 1. Используйте цикл for в том случае, когда точно знаете, сколько раз должно быть выполнено тело цикла. В противном случае обратитесь к циклам repeat и while.

2. Используйте repeat, если необходимо, чтобы тело цикла выполнялось по крайней мере один раз. 3. Используйте while, если хотите, чтобы проверка была произведена прежде, чем будет выполняться тело цикла. Иногда бывает удобно проводить проверку на возможный выход из цикла где-нибудь в его середине, а не в начале или конце. Такой выход из цикла обеспечивается процедурой break модуля system, которая прерывает выполнение самого внутреннего вложенного цикла. Следует также упомянуть процедуру continue, которая прерывает выполнение тела самого внутреннего цикла и передает управление на его заголовок, так что начинается выполнение очередной итерации цикла. содержание

Программа реализует алгоритм решения задачи. В ней программист записывает последовательность действий, выполняемых над определенными данными с помощью определенных операций для реализации заданной цели. В начале программы находится заголовок, состоящий из зарезервированного слова program. Заголовок программы несет чисто смысловую нагрузку и может отсутствовать. После заголовка следует программный блок, состоящий в общем случае из семи разделов: 1. списка имен подключаемых библиотечных модулей (он определяется зарезервированным словом uses). Формат: uses,,… Программа реализует алгоритм решения задачи. В ней программист записывает последовательность действий, выполняемых над определенными данными с помощью определенных операций для реализации заданной цели. В начале программы находится заголовок, состоящий из зарезервированного слова program. Заголовок программы несет чисто смысловую нагрузку и может отсутствовать. После заголовка следует программный блок, состоящий в общем случае из семи разделов: 1. списка имен подключаемых библиотечных модулей (он определяется зарезервированным словом uses). Формат: uses,,…

2. описания меток. Перед любым оператором языка Паскаль можно поставить метку, что позволяет выполнить прямой переход на этот оператор с помощью оператора перехода go to из любого места программы. Формат: label ; 3. описания констант. Раздел начинается зарезервированным словом const, за которым следует ряд выражений, присваивающих идентификаторам постоянные числовые или строковые значения. Формат: const = ; 4. определения типа данных. Тип данных может быть либо описан непосредственно в разделе описания переменных, либо определяться идентификатором типа. Формат: type = ;

5. описания переменных. Раздел описания переменных начинается зарезервированным словом var. Формат: var : ; 6. описания процедур и функций. Здесь используется зарезервированное слово procedure и function, которые записываются в начале подпрограммы. 7. операторов. Раздел операторов начинается зарезервированным словом begin (начало) и завершает раздел зарезервированное слово end (конец).

Типы данных в Турбо Паскале 1 Простые типы. Порядковые типы. Порядковые типы. Целые типы: byte, integer, longint. Целые типы: byte, integer, longint. Логический тип Boolean. Логический тип Boolean. Символьный тип char. Символьный тип char. Перечисляемый тип. Перечисляемый тип. Интервальный тип (диапазон). Интервальный тип (диапазон). Вещественные типы: real, double. Вещественные типы: real, double. Ссылочный тип. Ссылочный тип. 2 Структурированные типы. Строковый (string). Строковый (string). Регулярный (array). Регулярный (array). Комбинированный (record). Комбинированный (record). Множественный (set). Множественный (set). Файловый (file). Файловый (file). 3 Процедурные типы. содержание

Примеры на использование операций языка Паскаль Пример1: Выражение Результат 11 div div div 3 0 Пример2: Выражение Результат 10 mod mod mod mod 5 4 назад

Примеры на использование операций языка Паскаль Пример1: 1 and 1=1 1 and 0=0 0 and 1=0 0 and 0=0 Пример2: 1 or 1=1 1 or 0=1 0 or 1=1 0 or 0=0 Пример3: 1 xor 1=0 0 xor 1=1 1 xor 0=1 0 xor 0=0 Пример4: Выражение Результат NOT 0 -1 NOT выход

Примеры на использование операций языка Паскаль Пример1: Выражение Результат -(-256) 256 -(+39) -39 Пример2: Выражение Результат +(-777) (422) 422 назад

Примеры на использование оператора условия if Пример1: Read (ch); If ch= n then Parol:=true else Parol:=false; else Parol:=false; Read (x); If Parol =true then if x=100 then write (Пароль и код правильные) if x=100 then write (Пароль и код правильные) else begin else begin writeln (Ошибка в коде); writeln (Ошибка в коде); halt(1) halt(1) end; end; назаддалее

Примеры на использование оператора условия if Пример2: Program Tutor_if_then_else; var var A, B: integer; A, B: integer; Rezult: real; Rezult: real;Begin write(Введите значение делимого A >); write(Введите значение делимого A >); read (A); read (A); write(Введите значение делителя B >); write(Введите значение делителя B >); read (B); read (B); If B=0 then writeln (На нуль делить нельзя) else begin else begin Rezult:=A/B; Rezult:=A/B; writeln (Частное чисел,A, и,B, =,Rezult); writeln (Частное чисел,A, и,B, =,Rezult); end; end;End. назад

Пример на использование оператора case Пример программы, которая по введенному вами номеру дня недели выводит на экран видеомонитора его название на русском языке. Program Day_week; var var Day: byte; Day: byte;Begin write(Введите номер дня недели: ); write(Введите номер дня недели: ); readln (Day); readln (Day); case Day of case Day of 1: writeln(Понедельник); 1: writeln(Понедельник); 2: writeln(Вторник); 2: writeln(Вторник); 3: writeln(Среда); 3: writeln(Среда); 4: writeln(Четверг); 4: writeln(Четверг); 5: writeln(Пятница); 5: writeln(Пятница); 6: writeln(Суббота); 6: writeln(Суббота); else writeln(Воскресенье); else writeln(Воскресенье); end; end;End. назад

Пример на использование оператора while Пример программы, которая производит суммирование 10 произвольно введенных целых чисел. Program DemoWhile; const limit=10; const limit=10; var var count, item, sum: integer; count, item, sum: integer;Begin count:=0; count:=0; sum:=0; sum:=0; while (count

Пример на использование оператора repeat Пример программы, которая вводит и суммирует любое количество целочисленных значений. Если введено значение 999, то на экран выводится результат суммирования. Program DemoRepeat; var var x: integer; x: integer; sum: real; sum: real;Begin sum:=0; sum:=0; repeat repeat write(Значение х =); write(Значение х =); readln (x); readln (x); if x999 then sum:=sum+x; if x999 then sum:=sum+x; until x=999; until x=999; Writeln(Сумма введенных чисел =, sum); End. назад

Примеры на использование оператора for Пример1: For i:=1 to 100 do read (M[i]); {чтение элементов массива} For i:=100 down to 1 do write (M[i]); {вывод элементов массива} Пример2: Программа, которая выводит таблицу перевода из градусов по шкале Цельсия(С) в градусы по Фаренгейту(F) для значений от 15˚С до 30˚С с шагом 1 градус. Перевод осуществляется по формуле: F=C* Program DemoFor; var i: integer; var i: integer; F: real; F: real;Begin writeln(Температура); writeln(Температура); for i:=15 to 30 do for i:=15 to 30 do begin begin F:=i*1.8+32; F:=i*1.8+32; writeln(По Цельсию=, I, по Фаренгейту=, F:5:2) writeln(По Цельсию=, I, по Фаренгейту=, F:5:2) end; end;End. назад

Конец 1 части