ПРОГРАММИРОВАНИЕ БЕЛЬЯ И АЛГОРИТМЫ РАЗВЕТКИ УРОК ВИДЕО-КОНФЕРЕНЦИЯ Открыть чат Программирование линейных и ветвящихся алгоритмов Введите любое целое число. Если введенное число положительное, добавьте к нему 2. Если введенное число отрицательное, вычтите из него 3. Если введенное число равно нулю, измените его на 19. Подсчитайте полученное число.  Рисунок 1  фигура 2  Рисунок 3  Рисунок 4 Назад Проверять

должно по идее получиться "нет худо без добра.", но у меня получилось

"нет худо бrз одра." может ты в условии что-то напутала? вот программа которая переводит

function Pow(a, x:integer):integer;
var
  rez, i:integer;
begin
  rez := 1;
  for i := 1 to x do
    rez := rez * a;
  Pow := rez;
end;

function BinToDec(a:string):integer;
var
i ,r:integer;
begin
  r := 0;
  for i := length(a) downto 1 do
    r := r + StrToInt(a[i]) * Pow(2, length(a) - i);

  BinToDec := r;
end;

var
  s:array[1..100] of string;
  i:integer;
begin
  s[1] := '11001101';
  s[2] := '11100101';
  s[3] := '11110010';
  s[4] := '00100000';
  s[5] := '11110101';
  s[6] := '11110011';
  s[7] := '11100100';
  s[8] := '11100000';
  s[9] := '00100000';
  s[10] := '11100001';
  s[11] := '1110010';
  s[12] := '11100111';
  s[13] := '00100000';
  s[14] := '11101110';
  s[15] := '11100001';
  s[16] := '11110000';
  s[17] := '11100000';
  s[18] := '00101110';
  for i := 1 to 18 do
    write(chr(BinToDec(s[i])));
end.

1г углеводы - 4,1 ккал

1 г жиров — 9,3 ккал

1 г белков — 4,2 ккал

Вычесления крайне простые,на пример возмем порцию картлофеля с маслом:

1.

От белков : 2,7г*4,2ккал/г=11.34ккал

От углеводов:39г*4.1ккал/г=159.9ккал

От жиров:7г*9.3ккал/г=65.1ккал

2.Общая калорийность блюда

11.34+159.9+65.1=236.34(кка)

3.Если в обед входят ещё какие блюда то сумируешь их энергетические ценности каждого компонента(б,угл,ж).

4.Суммируешь общую каллорийность блюд .

Здесь главное продумать структуру таблицы .