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 і т.д.) перегляньте і проаналізуйте отримані результати.

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