Для разделения целой и дробной частей десятичной дроби использовать запятую.
Вводить отрицательные числа со знаком минус или взять число в скобки.
Для обозначения процентов после числа вводить символ "%".
Обычную дробь нужно вводить, указывая и отделяя её от дробной пробелом.
Обозначение единиц измерения после чисел не вводится, только если это не денежные единицы.
перевод:
Для поділу цілої та дробової частин десяткового дробу використовувати кому.
Вводити негативні числа зі знаком мінус або взяти число в дужки.
Для позначення відсотків після числа вводити символ "%".
Звичайну дріб потрібно вводити, вказуючи і відокремлюючи її від дробу прогалиною.
Позначення одиниць виміру після чисел не вводиться, тільки якщо це не грошові одиниці.
program D1;
uses GraphABC;
const c: array[1..3] of integer = (15,20,65);
n: array[1..3] of string = (' Белки ',' Жиры ',' Углеводы ');
var nu,u, i: integer;
begin
SetWindowTitle ('Сбалансированное питание');
SetFontSize(15);
TextOut(185,30,'Сбалансированное питание');
SetFontSize(10);
nu:=0;
for i:=1 to 3 do
begin
case i of
1: SetBrushColor(clred);
2: SetBrushColor(clgreen);
3: SetBrushColor(clblue)
end;
TextOut(285,385+(i*20),n[i]+IntToStr(c[i])+' % ');
u:=nu+trunc(c[i]*360/100);
Pie(320,230,150,nu,u);
nu:=u;
end;
SaveWindow ('Диаграмма питания.bmp')
end.
Объяснение:
картинка
