Примеры простейших программ

Ниже приведены примеры 2-х простых программ. Примеры программ для других разделов приведены в отдельном пособии «Сборник первых программ на PascalABC». Также много разных программ есть в разделе SAMPLES базисного комплекта PascalABC. Они все помогают осознать принцип решения многих задач. Эти программки рекомендуется ввести, отладить, протестировать и, по способности, – видоизменять Примеры простейших программ с целью усложнения.

Программка 1

{Написать программку, которая запрашивает два числа, находит их сумму и выводит итог.}

Program summa;

Var

a,b,s:integer;

BEGIN

Cls;

Writeln(‘Введите 1-ое число’);

Readln(a);

Writeln(‘Введите 2-ое число);

Readln(b);

s:=a + b;

Writeln(‘сумма равна ’, s);

END.

Программка 2

{Написать программку, которая вводит два числа, вычисляет остаток от деления первого на 2-ое Примеры простейших программ и выводит итог.}

Program delenie;

Var

a,b,q:integer;

BEGIN

Cls;

Writeln(‘Введите 1-ое число’);

Readln(a);

Writeln(‘Введите 2-ое число);

Readln(b);

q:=a mod b;

Writeln(‘Остаток от деления 1-го числа на 2-е ‘,q:7);

END.

Структурированные операторы

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

Условный оператор употребляется в тех случаях, вычисления могут идти по разным путям, зависимо от выполнения либо не выполнения некого условия Примеры простейших программ. Он позволяет делать либо пропускать отдельные операторы программки

Вид условного оператора:

а) для обычного варианта If <условие> then <оператор1> else <оператор2>; Если условие поистине, производится оператор1,по другому – производится оператор2, после этого выполнение перебегает к последующему оператору. б) для сложного варианта If <условие> then begin <оператор1>; <оператор2>; end else begin <оператор3>; <оператор4>; end; Если после then Примеры простейших программ либо else необходимо выполнить группу операторов, то употребляется составной оператор (операторные скобки) “Begin – End”

В качестве условия используются операции дела (сопоставления):

=, , =, >, <.

К примеру:

а) If х>0

then writeln(‘Число ’,Х, ‘больше 0’)

else writeln(‘Число ’,Х, ‘меньше либо равно 0’);

б) If sum>k then z:=10 else z:=5; Перед else ; не ставится!!!!!

Условный оператор можно Примеры простейших программ использовать и в короткой форме: If <условие> then <оператор>; К примеру: If x<0 then x:=-x;

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

Если условный оператор припоминает дорожную развилку, то оператор выбора – это разделение пути на огромное количество дорог, по одной из которых пойдет выполнение программки.

Вид оператора выбора:

Полная форма Короткая форма
Case <переменная выбора> of :; :; … : else ; end; {Case Примеры простейших программ} Case <переменная выбора> of :; :; … :; end; {Case}

Примечание. Оператор Case – единственный, который в собственном синтаксисе содержит служебное слово End без парного ему Begin. Потому рекомендуется всегда рядом с таким End ставить комментарий принадлежности к Case

Пример:

Case N of

1,2,12: writeln(‘Зима’);

3..5: writeln(‘Весна’);

6..8: writeln(‘Лето’);

9..11: writeln(‘Осень’)

Else

writeln(‘Введенное число не является номером Примеры простейших программ месяца’);

end; {Case}

Оператор case работает последующим образом. Если в одном из списков выбора найдено текущее значение тумблера, то производится оператор, соответственный данному списку. Если же значение тумблера не найдено ни в каком перечне, то производится оператор по ветке else либо, если ветка else отсутствует, оператор case не делает никаких действий.

Переменная выбора Примеры простейших программ может быть хоть какого перечислимого типа (хоть какой целочисленный либо тип char).


Цикл с параметром (For)

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

Вид:

а) для обычного варианта For <переменная>:=<нач.значение> to <кон.значение> do <оператор>;
б Примеры простейших программ) для сложного варианта For <переменная>:=<нач.значение> to <кон.значение> do begin <оператор1>; <оператор2>; … <операторN>; End;

Где <переменная> (параметр цикла) – переменная порядкового типа (integer, byte, время от времени – char); <изначальное значение> и <конечное значение> такого же типа, что и <переменная>.

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

К примеру:

For i:=1 to 80 do

K:=K+3;

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


Вероятен вариант оператора For, когда управляющая переменная воспринимает поочередно убывающие значения.

Вид:

а) для обычного варианта For <переменная>:=<нач.значение> downto <кон.значение> <оператор>;
б) для сложного варианта For <переменная>:=<нач.значение> downto <кон.значение> do begin <оператор1>; <оператор2>; End Примеры простейших программ;

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

К примеру:

For k:=’Z’ downto ‘A’ do

Writeln(k);

При решении сложных задач нередко встречаются «вложенные» циклы, когда

оператор, выполняемый в теле цикла, сам является циклом.


primeri-shizoidnih-perezhivanij-riman-f-osnovnie-formi-strahaper-s-nem-e-l-gushanskogo.html
primeri-sistem-fazzi-regulirovaniya.html
primeri-situacionnih-zadach-dlya-samostoyatelnogo-resheniya.html