Вывод целых чисел:
Пусть А=45, В=123, тогда при выполнении команды Writeln (А, В); значения А и В сольются в одно число: 45123.
Чтобы разделить числа, используют форматы вывода, определяя для каждой переменной количество позиций в строке.
Оно записывается после имени переменной через ":" (знак двоеточие). Таким образом, оператор можно записать так: Writeln (A:4, B:6); и на экране значения будут напечатаны в виде _ _45_ _ _123.
Вывод дробных чисел:
Дробное число в памяти компьютера представлено в стандартном виде: целая часть числа - это 1 цифра, не равная 0, остальные цифры записываются в дробную часть. Чтобы исходное число сохранило свое значение, его следует домножить на 10 в соответствующей (положительной или отрицательной) степени.
Выражение "умножить на 10 в степени" компьютер записывает одним символом "Е". В дробной части - 10 цифр. Таким образом, число 1243,563 будет иметь вид 1.2435630000Е+03, число 0,0000345 будет иметь вид 3.4500000000Е-05.
Такая запись называется "число с плавающей точкой". Именно в этом виде и будет напечатано значение любой переменной X типа real, если в программе выполняется оператор Writeln (X);.
Чтобы напечатать дробное число в привычном нам виде, который называется "число с фиксированной точкой", следует указать для него форматы вывода, которые выбираем по своему желанию: Writeln ( <имя>: <колич. всех знаков>: <колич. знаков на дроб.часть> );
ПРИМЕР: пусть Х = 1243,563, тогда
Writeln (X:8:2); ==> _1234.56
Writeln (X:13:5); ==> _ _ _1234.56300
Writeln (X:10:3); ==> _ _1234.563
Задача #1. Форматы вывода чисел
program qq;
var i : integer;
x : real;
begin
i := 15;
writeln ('>', i, '<' ); {>15<}
writeln ('>', i:5, '<' ); {> 15<}
x := 12.345678;
writeln ('>', x, '<' ); {>1.234568E+001<}
writeln ('>', x:10, '<' ); {> 1.23E+001<}
writeln ('>', x:7:2, '<' ); {> 12.35<}
end.
Задача #2. Ввести с клавиатуры значение массы тела m. Считая g=9,8, найти вес тела P.
Комментарий: при решении задачи после умножения получится дробное число, поэтому печатать его будем с "фиксированной точкой": всего 7 знаков, в том числе и десятичная точка, из них 2 цифры - дробная часть.
program Ves;
const g=9.8; {константа g – ускорение свободного падения}
var m : integer; {переменная m – масса тела}
begin
write ('Введи массу'); {приглашение ввести значение массы}
readln (m); {введенное с клавиатуры число записывается в m}
writeln ('Веc =', m*g:7:2); {результат выражения m*g печатается «с фиксированной точкой»}
readln; {задержка в диалоговом режиме, выход - Enter}
end.
|