Условный оператор if…then…else

Вывести на экран среднее арифметическое цифр трехзначного числа

Даны две переменных с разными значениями. Поменять местами значения переменных.

Поменять местами первую и третью цифры трехзначного числа.

Вывести на экран сумму и произведение цифр двухзначного числа.

ЦЕЛОЧИСЛЕННЫЕ АРИФМЕТИЧЕСКИЕ ОПЕРАЦИИ

ПРОЦЕДУРА

Слова begin и end играют роль операторных скобок.

Составной оператор

Если при некотором условии надо выполнить определенную последовательность операторов, то их объединяют в один составной оператор.

Составной оператор начинается ключевым словом begin и заканчивается словом end. Между этими словами помещаются составляющие операторы, которые выполняются в порядке их следования. После end ставится точка с запятой, а после begin – только пробелы (либо комментарий).

Clrscr – очистка экрана

Целочисленная арифметика языка Паскаль основана на использовании пяти стандартных целых типов: Byte, Word, ShortInt, Integer, LongInt.

Cо всеми целыми типами связан набор из пяти основных арифметических операций:
+, -, *, div, mod.

А mod B = 0	- условие делимости целого A на целое B.
A mod 2 = 0	- условие чётности целого A.
A mod 10	- значение последней цифры в десятичной записи целого А (например, 1234 mod 10 = 4).
A div 10	число, десятичная запись которого получится отбрасыванием последней цифры в десятичной записи целого числа А (например, 1234 div 10 =123).
A mod p	- значение последней цифры в p-ичной записи целого А (например, при p=2, A mod 2 - последняя цифра записи А в двоичной системе счисления);
A div p	- число, p-ичная запись которого получится отбрасыванием последней цифры в p-ичной записи целого числа А (например, 510=1012; 510 div 2 =210=102; т.е. из 1012 получили 102);

var ab, b, s, p, a: integer;

begin

readln(ab); //ввод двузначного числа

a:=ab div 10; //вывод первой цифры числа

b:=ab mod 10; // вывод второй цифры числа

s:=a+b; //сумма цифр числа

p:=a*b; //произведение цифр числа

writeln(s); //вывод суммы

writeln(p); //вывод произведения

end.

var abc,a,b,c,cba: integer;

begin

readln(abc);

a:=abc div 100; //первая цифра числа

b:=(abc div 10) mod 10; //вторая цифра числа

c:=abc mod 10; //третья цифра числа

cba:=c*100+b*10+a; //единицы*100+единицы*10+единицы

writeln(cba);

end.

var a,b,c: integer; //вводим дополнительную переменную для промежуточного хранения данных

begin

readln(a,b);

c:=a;

a:=b;

b:=c;

writeln(a);

writeln(b);

end.

var sr: real;

х: integer;

begin

readln(х); //ввод трехзначного числа

sr:=((х div 100)+((х div 10) mod 10)+(х mod 10))/3; //среднее арифметическое цифр числа

writeln(sr);

end.

Условный оператор if служит для организации процесса вычислений в зависимости от какого-либо логического условия. Оператор имеет вид:

if <условие> then <оператор_1> else <оператор_2>;

Если условие истинно, то выполняется оператор (простой или составной), следующий за словом then. Но если условие ложно, то будет выполняться оператор, следующий за словом else.

Если в задаче требуется, чтобы в зависимости от значения условия выполнялся не один оператор, а несколько, то ставятся операторные скобки begin …end

if <условие> then

begin

<оператор_1>; <оператор_2>;

end

else

begin

<оператор_3>; <оператор_4>;

end;

Альтернативная ветвь else может отсутствовать, если в ней нет необходимости. В таком «усеченном» операторе в случае невыполнения условия ничего не происходит, и управление передается следующему оператору

if <условие> then <оператор_1>

Для сравнения переменных в условных выражениях применяются операции отношения

=, <, >, >=, <=, <>