begin
var N,B:real;
write('Введите количество кВт: '); readln(N);
if N<0 then write('Некорректный ввод: значение должно быть положительным') else
begin
case N.Round of
0..99:B:=N*0.96;
100..500:B:=N*1.68;
else B:=N*2.24;
end;
append(output,'output.txt');
write(output,'Использовано энергии '+N+' кВт на сумму '+B+' рублей');
end;
end.
Примечание:
Программа может выдать ошибку при попытке подключения к файлу output.txt в коренной папке Паскаля. В таком случае нужно создать другой файл, и поместить его в ту же папку, после чего заменить имя 'output.txt' на имя нового файла в процедурах append и write.
Файл = в закрепе, также приложен скрин таблицы.
СТОЛБЕЦ ПРОЦЕНТ.
Нам нужно посчитать, сколько "%" одно число (кол-во набранных ) составляет от другого числа (макс. кол-во ).
Чтобы посчитать, сколько "%" одно число составляет от другого, нужно первое число разделить на второе, и потом умножить на 100.
Здесь в формуле на 100 мы не умножаем, т.к. потом мы выбираем формат числа "процентный", и Excel сам умножает числа 0,8; 0,8; 0,85 на 100 соответственно и ставит знак "%".
Формула: D2=C2/B2 ⇒ выбираем формат "процентный"
СТОЛБЕЦ ОЦЕНКА:
В идеале, конечно, нужно знать диапазоны:
"% выполненной работы" - "оценка".
Но конкретно в Вашем случае я написал формулу для столбика "оценка" след. образом: E2=ЕСЛИ(D2=80%;4;ЕСЛИ(D2=85%;5)), потому что диапазоны с 0 до 100 "%" мне неизвестны, если что, подкорректируете.
