|
Повторим:
Умножение
Этот оператор умножает два числа друг на друга, обозначается, как "*"
(без кавычек):
Program primer1;
var
a, b: integer;
begin
a:=5;
b:=7
a:= a*b;
writeln
('Результат ', a);
end.
Или с предыдущего урока
Program primer2;
var
a, b: real;
begin
writeln ('Введите
переменные ');
readln (a, b);
a:= a*b;
writeln
('Результат ', a);
end.
Здесь переменная а в следствии умножения приобретёт новое значение .
3)Операторы деления
Операторов деления - три, и все они работают по разному и соответственно
выполняют разные действия:
1.Простое деление
Простое деление выполняется с помощью оператора вида "/" (без
кавычек), он делит одно число на другое. Данный оператор работает только с
типом чисел real, о котором я писал в прошлом уроке.
Program primer3;
var a, b: real;
begin
writeln ('Введите переменные ');
readln (a, b);
a:= a/b;
writeln ('Результат ', a);
end.
2. Целочисленное деление
Данное действие делит число только на цело, при таком способе деления
невозможно получить десятичную или периодическую дробь. В программе пишется,
как "div" (без кавычек). Данный оператор работает только с типом integer.
Program
primer4;
var
a, b: integer;
begin
writeln ('Введите
переменные ');
readln (a, b);
a:= a div b;
writeln
('Результат ', a);
end.
Или частная задача
Program
primer5;
var a, b, x: integer;
begin
a:=17;
b:=5;
x:= a div b; writeln ('Результат ', x);
end.
В последнем примере a будет равно 3, а не 3,4, как при обычном делении.
3.Получение остатка.
Возможно получить не само число как результат деления, а только его
остаток.
При делении 17 на 5 мы получим 2 в остатки,его и получим с помощью оператора mod .
Program
primer6;
var
a, b: integer;
begin
writeln ('Введите
переменные ');
readln (a, b);
a:=a mod b;;
writeln
('Результат ', a);
end.
Или частная задача
Program primer7;
var a, b, x: integer;
begin
a:=17;
b:=5;
x:= a mod b; writeln ('Результат ', x);
end.
Ну и программа «калькулятор», которая
выполняет с нашими двумя числами все действия, которые мы выучили.
program primercalcul; //вводим название программы
var a,
b,c,sum, raz, proizv, z: integer; del:
real; //вводим переменные
begin //начинаем программу
readln (a, b); // вводим в программу два числа
sum:=a+b; // складываем числа
raz:= a-b; // вычитаем
proizv:=a*b; // умножаем
del:=a/b; // выполняем простое деление
z:=a div b; //делаем целочисленное деление
c:= a mod b; // находим остаток, при этом меняем значение a
writeln ('Для числа ',a );
writeln
('и числа ' , b);
writeln ('сумма - ', sum); // выводим на экран сумму
writeln ('разность - ', raz); // выводим на экран разность
writeln ('произведение - ', proizv); // выводим на экран произведение
writeln ('простое деление - ', del); // выводим на экран обычное деление
writeln ('целочисленное деление - ', z); // выводим на экран результат целочисленного деления
writeln ('остаток - ', c); // выводим на экран остаток
end. ДР Напишите программу вычисление площади треугольника по формуле Герона.
| 
