А. Рассчитайте количество молока для приготовления 20 порций молочного коктейля с выходом 200 мл. Б. Рассчитайте количество мороженного для приготовления 50 порций молочного коктейля выходом 100 грамм.
123
491
Ответы на вопрос:
program progressbar_Console;
uses crt,sysutils;
const lBar=10;
bar100=110;
var i:integer;
procedure pBar(const cp:integer);
var i,n,m:integer;s:string;s1:String;ch:char;
begin
m:=round(100/bar100*cp);
n:=round(lBar/bar100*cp);
s:='[]';
s1:=' '+IntToStr(m)+' % ';
for i:=1 to lBar do
begin
if i<n then ch:=#35 else ch:=#45;
insert(ch,s,pos(']',s));
end;
insert(s1,s,pos('[',s)+1+(lBar div 2));
gotoxy(1,1);writeln(s);
end;
begin
clrscr;
for i:=1 to bar100 do
begin
pBar(i);
delay(50);
end;
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Другие предметы
-
liana14425.08.2021 01:32
-
mfaig26.04.2023 22:00
-
АлинаПетрищева13.03.2023 16:22
-
IvanovaYulia20001.10.2020 00:27
-
danilponomary15.07.2022 12:01
-
mastheadchan101.05.2023 19:26
-
VaReNiK3718.10.2022 19:20
-
MrDark1129.12.2020 01:31
-
Ильяна11124.08.2020 21:58
-
SvetlanaSagina03.10.2022 03:07
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.