это стандарт на программный инструментарий для обеспечения связи между отдельными процессами параллельной задачи. MPI предоставляет программисту единый механизм взаимодействия процессов внутри параллельно исполняемой задачи независимо от машинной архитектуры (однопроцессорные, многопроцессорные с общей или раздельной памятью), взаимного расположения процессов (на одном физическом процессоре или на разных) и API операционной системы. Программа, использующая MPI, легко отлаживается и переносится на другие платформы, часто для этого достаточно простой перекомпиляции исходного текста программы.
это стандарт на программный инструментарий для обеспечения связи между отдельными процессами параллельной задачи. MPI предоставляет программисту единый механизм взаимодействия процессов внутри параллельно исполняемой задачи независимо от машинной архитектуры (однопроцессорные, многопроцессорные с общей или раздельной памятью), взаимного расположения процессов (на одном физическом процессоре или на разных) и API операционной системы. Программа, использующая MPI, легко отлаживается и переносится на другие платформы, часто для этого достаточно простой перекомпиляции исходного текста программы.
var a:integer;
function F(a:integer):integer;
var Max,x:integer;
begin
Max:=a mod 10;
while a>0 do begin
x:=a mod 10;
a:=a div 10;
if x>Max then Max:=x;
end;
F:=Max;
end; {F}
function F1(a:integer):integer;
var Min,x:integer;
begin
Min:=a mod 10;
while a>0 do begin
x:=a mod 10;
a:=a div 10;
if x<Min then Min:=x;
end;
F1:=Min;end; {F1}
begin
Write('Введите число-');
readln(a);
Writeln('Максимальная цифра в числе: ',F(a));
Writeln('Минимальная цифра в числе: ',F1(a));
end.
Пример:
Введите число-31842
Максимальная цифра в числе: 8
Минимальная цифра в числе: 1