§ 4.Оператор ввода.
Программа может запрашивать данные у пользователя. Ввод данных с клавиатуры выполняется оператором READ (список переменных), где в списке переменных - последовательность имен переменных, разделенных запятыми. Например:
При выполнении оператора READ программа останавливается и ждет, пока пользователь введет значение и нажмет Enter. Введенное значение записывается в переменную. Если вводится несколько переменных, то вводимая информация разделяется пробелами или клавишей "Enter". Заканчивают ввод всегда клавишей Enter.
Упражнение 2: Составьте блок-схему и программу для определения сдачи после покупки товара: перчаток стоимостью а руб., портфеля - b руб., галстука - с руб. Сумма, выделенная на покупку d руб. В случае нехватки денег сдача sd будет отрицательной.
|
program pokupka; var a,b,c,d,sd:real; begin; write('введите стоимость перчаток, портфеля, галстука '); read(a,b,c); write('введите кол-во денег, имеющихся в наличии-'); read(d); sd:= d - (a + b + c); writeln('Сдача - ',sd,' руб.'); end.
|
Домашние вопросы и задачи:
Для чего используется и как работает оператор ввода? Приведите примеры.
Дано описание: Var x:real; Что произойдет, если при выполнении команды Read(x); пользователь введет: а) -5; б) 5,8; в) 5.8; г) привет ?
Задачи:
№10. Вычислить стоимость поездки на автомобиле, если известны расстояние (км), цена бензина (руб./литр), потребление бензина (литров на 100 км). Составить блок-схему и программу.
№11. В самом углу прямоугольного двора со сторонами a,b стоит прямоугольный дом со сторонами c,d. Посчитать площадь дома, свободную площадь двора и длину забора (в углу, где дом, забора нет). Составить блок-схему и программу.
№ 12. Одно число в 2 раза больше другого, а их сумма равна 93. Составьте блок-схему и программу нахождения этих чисел.
§ 5. Арифметические операции
Операция |
Обознач |
Тип аргументов |
Тип результата |
Примеры |
Сложение Вычитание Умножение |
+ - * |
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 квартир. Составить программу и блок-схему.
|
Program Podezd; Var Np,Nk:integer; Begin Write(Введите номер квартиры); Read(Nk); Np:=(Nk-1) div 10 + 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;
end.
№15. С начала суток прошло x секунд. Сколько полных часов и минут прошло к этому моменту? Составить блок-схему и программу.