Операции с числами
После объявления переменной, вы можете присвоить ей значение, для этого используется оператор :=. Переменной можно присвоить как единственное значение, так и математическую последовательность.
var x : integer; y : real; begin x := 1; y := 1/3 + 1/4; end. При использовании присваивания, необходимо следить за правильностью типов данных. Если присвоить переменной значение несоответствующего типа, то это приведет к ошибке.
Арифметические операции в языке программирования Паскаль
Pascal поддерживает все арифметические операции, операции можно применять к числам, переменным и константам.
Сложение двух чисел или унарный плюс
a := +2; b := 4 + 1; //5 Вычитание двух чисел или унарный минус
c := -3; d := 6 - 5; //1 Умножение двух чисел
e := 7 * 3; //21 Умножение матриц
Три продавца продают четыре вида товаров. Количество проданного товара сведено в таблицу A.
В таблице B представлены цена каждого товара и комиссионные (наценка), получаемые от продажи.
Вырученные от продажи деньги подсчитываются так:
1-й продавец: 5 * 20.30 + 3 * 18.60 + 7 * 12.10 + 0 * 23.00 = 242.00
2-й продавец: 7 * 20.30 + 1 * 18.60 + 9 * 12.10 + 2 * 23.00 = 315.60
3-й продавец: 3 * 20.30 + 4 * 18.60 + 7 * 12.10 + 6 * 23.00 = 358.00
А полученные комиссионные так:
1-й продавец: 5 * 1.60 + 3 * 1.30 + 7 * 1.00 + 0 * 1.80 = 18.90
2-й продавец: 7 * 1.60 + 1 * 1.30 + 9 * 1.00 + 2 * 1.80 = 25.10
3-й продавец: 3 * 1.60 + 4 * 1.30 + 7 * 1.00 + 6 * 1.80 = 27.80
Эти вычисления называются умножением матриц и записываются так, как представлено на рисунке выше. Число столбцов таблицы A должно совпадать с числом строк таблицы B. Результирующая таблица C имеет столько строк, сколько у A, и столько столбцов, сколько у B.
Следующая программа вводит матрицы A и B, перемножает их, затем выводит их произведение – матрицу C.
Программа на языке Паскаль:
type atype = array[1..3,1..4] of integer; btype = array[1..4,1..2] of real; ctype = array[1..3,1..2] of real; var a: atype; b: btype; c: ctype; n,i,j,k: integer; begin for n := 1 to 3 do readln(a[n,1],a[n,2],a[n,3],a[n,4]); for n := 1 to 4 do readln(b[n,1],b[n,2]); for i := 1 to 3 do for j := 1 to 2 do begin c[i,j] := 0; for k := 1 to 4 do c[i,j] := c[i,j] + a[i,k] * b[k,j]; end; for n := 1 to 3 do writeln(c[n,1]:8:2, c[n,2]:8:2); end.Умножение, деление, сложение, вычитание вещественных чисел в Pascal.
С вещественными числами можно производить операции умножения, сложения, вычитания, а также операцию деления. Причем операция деления отличается от операции Div. Деление вещественных чисел — это обычное математическое деление, в результате которого может получится как дробное, так и целое число.
program number11; uses crt; var a, b, c:real; begin clrscr; a:=17.3; b:=3.4; c:=a*b; writeln('a*b=',c:4:1); c:=a/b; writeln('a/b=',c:4:1); c:=a+b; writeln('a+b=',c:4:1); c:=a-b; writeln('a-b=',c:4:1); readln end.
В строке №8 записываем операцию умножения.
В строке №10 записываем операцию деления. Ее отличие от операции «Div» в том, делить можно дробные числа и результате операции могут получаться дробные числа. Запомните, что операция деления «/» не производится над переменными целого типа integer, т.к. в результате такой операции могут получиться дробные числа, и программа выдаст ошибку.
Строка №12 — операция сложения.
Строка №14 — операция вычитания.
В строках вывода сообщения на экран (№9, 11, 13, 15) для переменной «C» мы записали формат вывода «:4:1». (должно выводиться максимум 4 цифры и одна цифра после запятой).
Дополнение к материалу.
Действия над разными типами данных.
- Если мы складывает, вычитаем или умножаем 2 числа, одно из которых вещественное (REAL), то и результат будет иметь тип REAL.
- При делении ( / )получается вещественное число (REAL).
- При целочисленном делении (DIV) или при вычислении остатка от целочисленного деления (MOD), получается целое число (INTEGER).
- Функции Abs и Sqr определены для обоих типов данных, поэтому для целого аргумента результат будет INTEGER, а для вещественного аргумента – REAL.
Операции умножения и сложения в Pascal.
В данном уроке мы рассмотрим операции умножения и сложения в Pascal. Умножение в Pascal обозначается знаком «*», а сложение — знаком «+».
program number6; uses crt; var A, B, C: integer; begin clrscr; A:=5; writeln (A); writeln ('A'); A:=A+1; Writeln (' Теперь A=',A); B:=7; C:=A*B; writeln ('Произведение=', C); Readln end.
Строка №3. В раздел описания переменных Var записываем 3 переменные «A,B,C» и в дальнейшем мы будем использовать только эти три переменные. После записи переменных через двоеточие указывается тип данных INTEGER (целый). Это означает, что наши переменные «A,B и C» могут быть только целыми числами.
В строке №6 мы присваиваем переменной «A» значение равное 5. Сначала записывается сама переменная, затем ставится знак присваивания (:=), а затем пишем число, которое нужно присвоить. Таким образом, на данном этапе в переменную «A» записывается значение равное 5.
В строке №7 записываем оператор Writeln. Этот оператор выводит сообщение, указанное в скобках на экран. Обратите внимание, что переменная «A», записанная в скобках после оператора Writeln стоит без апострофов ‘ ‘, поэтому на экран выведется не сама буква «A», а то значение, которое мы ей присвоили выше, т.е. число 5.
Строка №8. Здесь буква «A» стоит уже в апострофах, поэтому она сама и выведется на экран.
В строке №9 нашей переменной «A» мы присвоили значение «A+1», т.е. то значение, которое раньше было у «A» (это число 5), мы увеличили на 1 (теперь «A» равна 6). Здесь следует сказать, что при присвоении переменной нового значения, старое значение стирается. Т.е. если раньше в переменной «A» содержалось значение 5, то после выполнения строки №9 число 5 удалится и в переменной будет содержаться новое значение 6.
В строке №10 выводим на экран сообщение «Теперь A=». Это сообщение берется в апострофы, а далее через запятую записываем переменную «A». Т.е. на экран у нас выведется сообщение «Теперь A=» и значение переменной «A» (т.е. число 6).
В строке №11 второй переменной «B» мы присвоили значение 7.
В строке №12 третей переменной «C» мы присвоили значение «A» умноженное на «B». Знак * означает в паскале операцию умножения. Таким образом «C» теперь равно 6*7=42.
Строка №13.На экран будет выведено сообщение «Произведение=», а затем на этой же строчке будет выведено значение, которое мы присвоили переменной C.
Теперь наберем эту программу в Паскале и запустим ее.