Каким будет распределение температуры во внутренних точках пластины если в дополнение к условиям исходной задачи температура внешней среды по верхнему краю пластины равна 20° только в левом квадрате и возрастает на 50° с переходом к каждому следующему вправо квадрату

Microsoft Windows - IBM тәрізді компьютерлерде графикалық интерфейсті қолдануды кеңінен жүзеге асырған, қазіргі заман талабына сай жасалған операциялық орта. Оның дамытылған нұсқалары түрінде Windows NT, Windows 2000 сияқты операциялық жүйелер кеңінен қолданылуда.
shareAdvocacyHobbyist іUser spaceMicrokernelLoadable kernel moduleDevice driverProcess control switchScheduling algorithmsComputer -robinFixed-priority preemptiveMultilevel feedback queueShortest job nextMemory management and
resource protectionSecurity ringsMemory protectionVirtual memoryPagingSegmentation fault / Bus errorGeneral protection OSMorphOSOS/2 conceptsBoot loaderLive CDLive USBPXEAPIVirtual file systemVirtual tape libraryComputer networkOS shell CLITUIGUIVUI HAL

1).

program undm;

uses

crt;

var

i, a, b: real;

begin

writeln('Введите сначала первое число , затем второе:');

readln(a, b);

if a < b then

a := a * 2

else

a := b * 2;

writeln(a);

readln;

end.

2).

program yotx;

uses

crt;

function yotx(x: real) : real;

begin

if x <= 1 then

yotx := 0

else

yotx := 1 / (x + 6);

end;

var

x: real;

begin

writeln('Введите x:');

readln(x);

writeln(yotx(x));

readln;

end.

3).

program pp;

uses

crt;

var

x: real;

begin

writeln('Введите x:');

readln(x);

if (x >= 2) and (x <= 3) then

writeln('X принадлежит промежутку')

else

writeln('X не принадлежит промежутку');

readln;

end.

4).

program co;

uses

crt;

var

ocenka: integer;

begin

writeln('Введите оценку:');

readln(ocenka);

case ocenka of

1: writeln('Плохо');

2: writeln('Неудовлетворительно');

3: writeln('Удовлетворительно');

4: writeln('Хорошо');

5: writeln('Отлично') else writeln('Ошибка! Введите число от 1 до 5');

end;

readln;

end.