Program zadacha2_1a;

var а, b, s, p: real;

Begin

writeln('введите число а ');

Readln(a);

writeln('введите число b ');

Readln(b);

s: =a/b;

p: =a*b;

writeln('а/b =', s);

writeln('а*b =', p);

End.

В даному прикладі введення і висновок даних для кожної змінної здійснюється окремо. А можна було записати і так:

Program zadacha2_1b;

var а, b, s: real;

Begin

writeln('введите числа а і b');

Readln(а, b);

s: =a/b;

p: =a*b;

writeln('а/b = ', s, ' а*b = ', p);

End.

В цій задачі використовувався речовинний тип числа – real, тому відповідь була отримана в напівлогарифмічній формі запису числа. Згадуємо:

2.5670000000Е+02 слід розуміти 2.567 * 102

3.4906710000Е-03 слід розуміти 3.490671 * 10-3.

Якщо ми хочемо при висновку на екран реальних чисел вказати певне число знаків після коми, то можна скористатися форматом висновку writeln(а: n1: n2). Де

n1 - кількість знакомісць виділених під все число;

n2 - кількість знакомісць виділених під дробову частину числа.

Наприклад команда writeln(pi) виведе рядок:

3.1415926536E+00

а команда writeln(pi: 9: 3) виведе рядок:

3.142

пропустивши перед числом, що виводиться, чотири пропуски і вирівнявши 3.142

(всього 5 знаків) по правому краю дев'яти знакомісць.

Складемо програму, що виводить на екран число р.

program zadacha2_2;

Begin

writeln(pi: 9: 3);

End.

Змінюючи числа у форматі висновку(: 9: 3: 9: 2: 17: 3: 17: 7: 3: 7 і т.д.) перегляньте і проаналізуйте отримані результати.

Задана сторона куба. Обчислити об'єм куба і площу бічної поверхні.