<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
<u>1. Современное решение</u>
begin
var (a,b,c):=ReadReal3;
if (a>b) and (b>c) then else (a,b,c):=(a*a,b*b,c*c);
Println(a,b,c)
end.
<u>Пример</u>
15.8 4.9 13
249.64 24.01 169
<u>2. А так, увы, все еще учат писать во многих школах...</u>
program Toska;
var
a,b,c:real;
begin
Read(a,b,c);
if not ((a>b) and (b>c)) then begin
a:=a*a; b:=b*b; c:=c*c
end;
Writeln(a,' ',b,' ',c)
end.
Дискретность.
Алгоритм представляется в виде конечной последовательности шагов (алгоритм имеет дискретнуюструктуру) и его исполнение расчленяется на выполнение отдельных шагов (выполнение очередного шага начинается после завершения предыдущего).
Так :)
program p1;
var a:integer;
begin
writeln('Введите число: ');
read(a);
writeln('число: ',a);
<span>end.</span>
<span>ДЕДУКЦИЯ (от лат. deductio — выведение), вывод по правилам логики; цепь умозаключений (рассуждение), звенья которой (высказывания) связаны отношением логического следования. Началом (посылками) дедукции являются аксиомы, постулаты или просто гипотезы, имеющие характер общих утверждений («общее»), а концом — следствия из посылок, теоремы («частное»). Если посылки дедукции истинны, то истинны и ее следствия. </span>
Самый простой вариант кодирования - задавать номера клетки по горизонтали и по вертикали. Если горизонталей ("строк") 8, то их можно занумеровать от 0 до 7 и для задания номера горизонтали будет достаточно 3 бита (комбинации 000 - 111). Вертикалей 4, пронумеруем их от 0 до 3 и закодируем битами от 00 до 11 - такой код займет 2 бита. Итого потребуется 3+2=5 бит.
Можно и проще было посчитать. 8х4=32, 32 это 2^5, поэтому потребуется 5 бит для нумерации клеток от 0 до 31.