Микроволновая печь. Алгоритм работы: 1. Включение
2. Выставление человеком программы
3. Расчет времени для выполнения программы
4. Разогрев пищи
5. Выключение
А) МЫСЛЬА) МЫСЛЬ
Б) ТЕКСТОВАЯ ИНФОРМАЦИЯ
В) ДОКУМЕНТ
Г) СИМВОЛ
<u>PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Исходный массив ***');
var a:=MatrRandom(m,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
for var i:=0 to a.RowCount-1 do begin
var row:=a.Row(i);
var imin:=row.IndexMin;
Swap(row[imin],row[row.High]);
a.SetRow(i,row)
end;
Writeln('*** Полученный массив ***'); a.Println(4)
end.
program raf105;
var
dr: real;
day: integer;
a,b: boolean;
begin
dr:= 0.75;
while not(a) or not(b) do
begin
day:= day+1;
dr:= dr + dr/100*160;
dr:= dr - 0.6;
if day = 6
then begin
writeln('а) Через 6 дней в установке будет ',dr:0:2,' т. дрожжей');
a:= True;
end;
if (dr >= 9) and not(b)
then begin
writeln('б) Через ',day,' суток масса дрожжей достигнет порога 9 т.');
b:= True;
end;
end;
end.
<h3><u>PascalABC 3.4.2</u></h3>