Read обеспечивает ввод данных в память ЭВМ, при этом курсор остается на месте. Readln обеспечивает ввод данных в память ЭВМ, при этом осуществляется перевод курсора на новую строку.
Вывод данных:
Write [(<список вывода>)];
Writeln [(<список вывода>)];
Write предназначена для вывода значений на экран. Writeln выводит значения данных на экран и перводит курсор в начало следующей строки.
Список вывода состоит из идентификаторов переменных и выражений, отделенных друг от друга запятой.
В списке вывода могут присутствовать параметры, задающие формат вывода результатов. После идентификатора следует двоеточие и число, определяющее число знакомест для вывода, после второго двоеточия указывается количество знаков после запятой.
Пример:
program example_3;
var
b, c: integer;
v: real;
begin
write(‘b=’);
readln(b);
write(‘c=’);
readln(c);
v:=(b+c)/3.56;
writeln(‘v=’,v:8:4)
end.
Для переменной v определено для вывода поле шириной 8 позиций, в том числе 4 позиции для знаков после десятичной точки, которая так же займет одну позицию из 8.
Операторы ветвления
Оператор условия If <условие> then <оператор - да> else <оператор - нет>; предназначен для реализации простого ветвления алгоритма.
Пример: Проверим квадратное уравнение на наличие корней. для чего вычислим дискриминант и проверим его знак.
program example_4;
var a, b, c, d: real;
begin
writeln(‘Введите коэффициенты квадратного уравнения А, В и С’);
readln(a, b, c);
d:=sqr(b)-4*a*c;
if d>0 then writeln(‘Вещественные корни существуют’) elsewriteln(‘Нет вещественных корней’);
end.
Оператор выбора Case <селектор> of
<значение1>:<оператор1>;
<значение2>:<оператор2>;
………………………………;
<значениеN>:<операторN>
Else <оператор - нет>;
Оператор Case используется при множественном разветвлении алгоритма, например, если необходимо по числовому значению дня недели указать его название (1 - понедельник, 2 - вторник, 3 – среда и т.д.).
program example_5;
var n: 1..7; {перечисляемый тип, здесь допускает только значения от 1 до 7 }
begin
writeln(‘Введите числовое значение дня недели’);
readln(n);
case n of
1: writeln(‘понедельник’);
2: writeln(‘вторник’);
3: writeln(‘среда’);
4: writeln(‘четверг’);
5: writeln(‘пятница’);
6: writeln(‘суббота’)
7: writeln(‘воскресенье’);
end.
Циклы
Циклы (операторы повтора) используются в программе при необходимости неоднократного повторения какого-либо оператора или группы операторов. В Pascal различают три вида циклов: цикл с параметром For, цикл с предусловием While, цикл с постусловием Repeat.
Оператор повтора For применяется, когда заранее известно число повторений. Переменная, хранящая количество повторений называется параметром цикла. Существует две структуры данного оператора.
Счет по возрастанию: For <параметр цикла>:=<целочисленное выражение1 > to < целочисленное выражение2> do <оператор цикла>;
Счет по убыванию: For <параметр цикла>:=<целочисленное выражение2 > downto < целочисленное выражение1> do <оператор цикла>;
Пример: Вывести на экран результат умножения 7 на числа от 11 до 25.
program example_6;
var i: byte; {i- параметр цикла}
r: integer;
begin
writeln (‘Таблица умножения для 7’);
for i:=11 to 25 do begin {при выполнении в цикле более одного оператора ставятся операторные скобки Begin end;}
r:=7*I;
write(r:5); {вывод результата в строку с промежутком в 5 позиций}
end;
end.
Формат цикла с предусловием While <условие> do <тело цикла>; Проверка условия осуществляется перед циклом, цикл выполняется, если условие принимает значение True (истина).
Пример: Посчитать сумму 10 произвольно введенных чисел.
