Формати оператора виведення

Нехай I - ціле число. Тоді:

· Write(I) - виводить десяткове подання величини I, починаючи з позиції курсора.

· Write(I:p) - виводить десяткове подання величини I в крайні праві позиції поля шириною p.

Приклад: I=173 Write(I:6) Вивід _ _ _173

Нехай R - дійсне число. Тоді:

· Write(R) - в полі шириною 18 символів виводиться десяткове подання величини R в форматі з плаваючою крапкою.

Приклад: R=715.432 Write(R) Вивід _ _7.1543200000E+02

· Write(R:p) - в крайні праві позиції поля шириною p символів виводиться десяткове подання значення R в форматі з плаваючою крапкою.

Приклад: R=715.4 Write(R:13) Вивід 7.154320E+02

· Write(R:p:q) - в крайні праві позиції поля шириною p символів виводиться десяткове подання R в форматі з фіксованою крапкою, причому після десяткової крапки виводиться q цифр (0<=q<=24), що подають дробову частину числа.

Якщо q>24,то при виведенні використовується формат з плаваючою крапкою.

Приклад: R=511.04 Write (R:8:4) Вивід 511.0400

· Write (Ch:p) - в крайню праву позицію шириною p виводиться символ Ch.

Приклад: Ch:="Х" write (Ch:5) Вивід _ _ _ _ _X.

Приклад:

Обчислити значення виразу:

Текст програми

PROGRAM LIN;

Var A,X,Z,Y,C: Real;

BEGIN

Writeln ('Введіть А: ');

Readln (A);

Writeln ('Введіть X: ');

Readln (X);

Writeln ('Bвeдiть Z: ');

Readln (Z);

C:=sin(X*X)/cos(X*X);

Y:=A*C*Sqr(C)+Sqrt(Sgr(Z)/(Sgr(A)+Sgr(X)));

Writeln ('Y=', Y:8:3)

END.

Результат виконання програми

Введіть А:

Введіть X:

0.5

Введіть Z:

Y= 0.911