![]() |
Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | |
|
Нехай 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
Дата публикования: 2014-11-04; Прочитано: 322 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!