02 Ввод и вывод данных

,< выражение 2> , ...,< выражение N>)

список вывода

Выражения - символьные, числовые, логические, в том числе переменные и константы
Пример: write ('s=', s).

Информация в кавычках выводится на экран без изменений

величиной.

write (s:x:y)
x - общее количество позиций, отводимых под число; y - количество позиций в дробной части числа.

writeln - вывод c новой строки!

c :=2*pi*r;
s:=pi*r*r;
writeln ('c =', c:6:4);
writeln ('s=', s:6:4)
end.

)

Ввод в оперативную память значений переменных :

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

список ввода

a: char;
read (i, j, x, a);

После выполнения оператора readln курсор переходит на новую строку.

Варианты организации входного потока:
1 0 2.5 А 1,0 1
2.5, А 0
2.5
А

Типы вводимых значений должны соответствовать типам переменных, указанных в разделе описания переменных.

!

длины окружности и площади круга');
write('Введите r>>');
readln(r);
c:=2*pi*r;
s:=pi*r*r;
writeln ('c =', с:6:4);
writeln ('s=', s:7:4)
end.

{10,2; 10,8; –10,2; –10,8}.
Какой будет тип результата каждой из этих функций?

program n_3;
var x: real;
begin
writeln ('Исследование функций round, int, frac');
write ('Введите x>>');
readln (x);
writeln ('Округление: ', round(x));
writeln ('Целая часть: ', int(x));
writeln ('Дробная часть: ', frac(x))
end.

?

b: string;
begin
writeln ('Код и строка');
write ('Введите исходную букву>>');
readln (a);
kod:=ord(a);
b:=chr(kod–1)+a+chr(kod+1);
writeln ('Код буквы ', a, '-', kod);
writeln ('Строка: ', b)
end.

Вывод на экран кода буквы, введённой с клавиатуры

Вывод на экран строки из трёх букв.
Каких?

результате выполнения оператора присваивания
ans:=n mod 2=0
переменной ans будет присвоено значение true при любом чётном n и false в противном случае.

program n_6;
var n: integer; ans: boolean;
begin
writeln ('Определение истинности высказывания о чётности числа');
write ('Введите исходное число>>');
readln (n);
ans:=n mod 2=0;
writeln ('Число ', n,' является четным - ', ans)
end.

истинности высказывания
о равнобедренном треугольнике');
write ('Введите значения a, b, c>>');
readln (a, b, c);
ans:=(a=b) or (a=c) or (b=c);
writeln ('Треугольник с длинами сторон ', a, ',', b,
',', c, ' является равнобедренным - ', ans)
end.

Логический тип данных

и readln.

Вывод данных из оперативной памяти на экран монитора выполняют операторы вывода write и writeln.

read(<имя переменной1>, …, <имя переменной N> )

список ввода

write <выражение 1> ,< выражение 2> , ...,< выражение N>

список вывода