Операторы ввода/вывода, присваивания. Арифметические выражения

Ввод данных с клавиатуры read read (, …, ) Ввод в оперативную память значений переменных : Выполнение оператора read: 1)компьютер переходит в режим ожидания данных: 2)пользователь вводит данные с клавиатуры: несколько значений переменных числовых типов могут вводиться через пробел или через запятую; при вводе символьных переменных пробел и запятую ставить нельзя; 3)пользователь нажимает клавишу Enter. список ввода

Ввод данных с клавиатуры var i, j: integer;x: real;a: char; read (i, j, x, a); После выполнения оператора readln курсор переходит на новую строку. варианты организации входного потока: А 1, , А А Типы вводимых значений должны соответствовать типам переменных, указанных в разделе описания переменных. !

Вывод данных Вывод данных из оперативной памяти на экран монитора: rite write (,,..., ) список вывода Выражения - символьные, числовые, логические, в том числе переменные и константы Пример: write ( 's=', s ). Для s=15 на экране будет: s=15. Информация в кавычках выводится на экран без изменений

Варианты организации вывода Вариант организации вывода Оператор вывода Результат Без разделителей write (1, 20, 300) Добавить разделители – запятые write (1,,, 20,,, 300) 1, 20, 300 Добавить разделители – пробелы write (1,, 2,, 3)

Формат вывода Формат вывода позволяет установить количество позиций на экране, занимаемых выводимой величиной. Оператор вывода Результат выполнения оператора write ( s=, s:2:0); s=15 write ( s=, s:3:1); s=15.0 write ( s=, s:5:1); s= 15.0 write ( s:x:y) x - общее количество позиций, отводимых под число; y - количество позиций в дробной части числа. writeln - вывод c новой строки!

Первая программа program n_1; const pi=3.14; var r, c, s: real ; begin r:=5.4; c :=2*pi*r; s:=pi*r*r; writeln ('c =', c:6:4); writeln ('s=', s:6:4) end. Результат работы программы: Turbo Pascal Version 7.0 c = s = Вычислить длину окружности и площадь круга радиусом 5,4 см. Входные данные: r=5,4 см. Выходные данные: С- длина окружности, С=2Пr S – площадь круга, S=Пr 2

8 Стандартные функции Abs(x) - |x| модуль х Exp(x) - e x экспонента Ln(x) - Ln x натуральный логарифм х Sqr(x) - x 2 Sqrt (x) - Квадратный корень из х Sin (x) Cos(x) Arctan (x) Pi - Число

A div b – выдаёт целую часть от деления A mod b – выдаёт остаток от деления Trunk(x) – выдаёт целую часть дробного числа х Round(x) – округляет число х до целого по правилам математики Int(x) – целая часть х Frac(x) – дробная часть х Random – случайное число от 0 до 1 Random(x) – случайное число от 0 до х Например: 20 div 3 = 6Int(25.62)=25 5 mod 2 = 1Frac(25.62)=62 trunk(3.545)=3 round(3.545)=4

1. Запишите оператор, обеспечивающий во время работы программы ввод значения переменной summa. 2. Целочисленным переменным i, m, k нужно присвоить соответственно значения 10, 20 и 30. Запишите оператор ввода, соответствующий входному потоку: Опишите переменные, необходимые для вычисления периметра четырёхугольника, и запишите оператор, обеспечивающий ввод необходимых исходных данных. 4. Что является результатом выполнения оператора? 1.Write(a) 2.Write(a) 3.Write(a, а) Практическая работа (выполнять в тетради)

5. Какой тип имеет переменная f, если после выполнения оператора Write(f) на экран было выведено следующее число? a)125 b)1.25Е+2 6. Каким образом можно вывести на экран вещественное число в формате с фиксированной запятой? 7. Запишите операторы ввода двух чисел и вывода их в обратном порядке. 8. Дан фрагмент программы: read(a); read(b); c:=a+b; write(a,b); write(c) Упростите его, сократив число операторов ввода и вывода. 9. Дан фрагмент программы: a:=10; b:=a+1; a:=b-a; write(a, b) 10. Напишите программу, которая вычисляет площадь и периметр прямоугольника по двум его сторонам.

11. Найдите значение выражения А mod (B div C +5) – 10, если А=35, В=6, С=4 12. Отметьте выражения, которые относятся к целому типу: 1.1+0,0 2.20/5 3.Sqr(5,0) 4.Trunk(3.1415) 5.Sqrt(4) 6.5+round(12.7)

13. Запишите выражение по правилам языка Паскаль. 14. Перепишите выражение 1+sqr(cos((x+y)/2)) в традиционной математической форме.

15. Найдите ошибки в программе. Program control 1; Var x,y,z:integer; Begin X:=5; Y:=7; Z=x+y; Writeln(z=,z); end.

16. Исследуйте работу функций Round, Int, Frac, применив их к некоторому вещественному х. Соответствующая программа будет иметь вид: Program qq; var x:real; Begin writeln(исследование функций Round, Int, Frac); write(введите x=); readln(x); writeln(Округление -,round(x)); writeln(Целая часть -, int(х)); writeln(Дробная часть -, frac (х)); End. Запустите программу несколько раз для х={10,2; 10,8; - 10,2; -10,8}

17. Исследуйте работу функции random, запустив многократно на выполнение программу: Program n_8; var x,n:integer; Begin writeln(исследование функции random); randomize; write(введите x>>); readln(x); write(введите n>>); readln(n); writeln(random(, x, )=, random(x)); writeln(random(, x, )+, n, =, random(x)+n); end.

18. Если сумма налога исчисляется в рублях и копейках, то налоговая служба округляет её до ближайшего рубля (до 050 копеек – с недостатком, свыше 50 копеек – с избытком). Напишите программу, которая выводит точную сумму налога и сколько следует уплатить. 19. Напишите программу, которая для произвольного натурального двузначного числа определяет: а) сумму и произведение его цифр; б) число, образованное перестановкой цифр исходного числа.