- •2.1. Основные понятия и операторы языка программирования Турбо Паскаль (тп).
- •2.1.1. Простейшая программа.
- •2.1.2. Типы переменных.
- •Целочисленные типы переменных
- •Вещественные типы переменных
- •2.1.3. Математические функции и операции.
- •2.1.4. Оператор вывода.
- •Write (список переменных или текст);
- •2.1.5. Оператор присваивания.
- •2.1.6. Оператор ввода.
2.1.6. Оператор ввода.
Для того чтобы была возможность использовать программу многократно, не редактируя ее, пользуются операторами ввода.
Операторы ввода обеспечивают ввод числовых данных, символов, строк и т.д. для последующей их обработки программой.
Структура:
read(список переменных); илиreadln(список переменных);.
Графически оператор ввода изображается, как и оператор вывода в виде параллелограмма:
Оператор компьютером выполняется следующим образом: машина приостанавливает работу и ждет ввода значений указанных данных. Значения набираются минимум через один пробел на клавиатуре и высвечиваются на экране. После набора последнего значения нажимается клавиша ввода Enter. Значения переменных вводятся в строгом соответствии с синтаксисом языка Паскаль.
Оператор readln(список переменных);аналогична операторуread(список переменных);, единственное отличие в том, что после считывания последнего в списке значения курсор автоматически переходит на следующую строку.
Оператор readln также можно использовать без параметров, тогда происходит приостановка работы компьютера до нажатия клавишиEnter. Используется, для того чтобы сразу просмотреть результаты вычислений программы.
Пример:Вычислить гипотенузу треугольника, если известны катеты.
Постановка задачи:
Дан прямоугольный треугольник, катеты которого известны: A,B.
Найти гипотенузу: C.
Анализ задачи:
Для решения задачи используем теорему Пифагора: откуда
Переменные aиbмогут быть как целого, так и вещественного типа:. Переменнаяcтакже вещественного типа, так как при ее вычислении используется квадратный корень:
Алгоритм:Блок-схема решения данной задачи.
Программа:
program Pr1;
uses crt;
const A=3;
B=4;
var C: real;
begin
clrscr;{очистка экрана}
writeln(‘Введите A и B’);
readln(A, B);
c:=sqrt(sqr(A)+sqr(B));
write(‘Гипотенуза равна’,C:6:0);
readln;
end.