Лекция: Арифметические операции

Операция	Обознач	Тип аргументов	Тип результата	Примеры
Сложение Вычитание Умножение	+ — *	Real, Integer	Зависит от типов аргументов	50+6=56 50+6.1=5.6E+1
Деление	/	Real, Integer	Real	1000/2=5.0E+2 2/1000=2.0E-3
Деление нацело без остатка	div	Integer	Integer	7 div 2=3; 2 div 7=0 23 div 10=2
Остаток от деления (целый)	mod	Integer	Integer	7 mod 2=1; 2 mod 7=2 23 mod 10=3

Упражнение 3:Определить номер подъезда по номеру квартиры пятиэтажного дома, считая, что в каждом подъезде 10 квартир. Составить программу и блок-схему.

ProgramPodezd; VarNp,Nk:integer; Begin Write(Введите номер квартиры); Read(Nk); Np:=(Nk-1) div10 + 1; Writeln('Квартира № ',Nk,' находится в подъезде № ',Np); End.

Домашние вопросы и задачи:

1.Даны числа 10 и 2. Число какого типа получится после

a) сложения б) умножения в) деления этих чисел?

2. Остаток от деления x на 2 = 1. Целая часть от деления x на 2 = 5. Определите x.

Задачи:

№13. Вычислите:

a)19 div 4= в) 12 div 4= д)-21 div 4= ж) -7 div (-4)= б)19 mod 4= г) 12 mod 4= е)-21 mod 4= з) -7 mod (-4)=.

№14. Какие значения примут переменные в результате выполнения программы?

program qq;

var a, b: integer;

begin a := 5; b := a + 2; a := (a + 2)*(b – 3); b := a div 5;

a := a mod b; a := a + 1; b := (a + 14) mod 7;