Название "алгоритм" произошло от латинской формы имени величайшего среднеазиатского математика Мухаммеда ибн Муса ал-Хорезми (Alhorithmi), жившего в 783—850 гг. В своей книге "Об индийском счете" он изложил правила записи натуральных чисел с арабских цифр и правила действий над ними "столбиком", знакомые теперь каждому школьнику. В XII веке эта книга была переведена на латынь и получила широкое рас в Европе.
Человек ежедневно встречается с необходимостью следовать тем или иным правилам, выполнять различные инструкции и указания. Например, переходя через дорогу на перекрестке без светофора надо сначала посмотреть направо. Если машин нет, то перейти полдороги, а если машины есть, ждать, пока они пройдут, затем перейти полдороги. После этого посмотреть налево и, если машин нет, то перейти дорогу до конца, а если машины есть, ждать, пока они пройдут, а затем перейти дорогу до конца.
В математике для решения типовых задач мы используем определенные правила, описывающие последовательности действий. Например, правила сложения дробных чисел, решения квадратных уравнений и т. д. Обычно любые инструкции и правила представляют собой последовательность действий, которые необходимо выполнить в определенном порядке. Для решения задачи надо знать, что дано, что следует получить и какие действия и в каком порядке следует для этого выполнить. Предписание, определяющее порядок выполнения действий над данными с целью получения искомых результатов, и есть алгоритм.
Исправленная программа: Program lab5; const n=11; type masiv=array[1..n]of integer; var l,k,m:masiv; i:integer; procedure vivod(mas:masiv); var i:integer; begin for i:=1 to n do write(mas[i],' '); writeln; end; procedure new_mas(var mas:masiv); var i,j:byte; min:integer; begin j:=1; min:=mas[1]; for i:=2 to n do if (min>mas[i]) then begin min:=mas[i]; j:=i; end; writeln('min = ',min); mas[j]:=mas[1]; mas[1]:=min; end; begin writeln('Дано:'); randomize; for i:=1 to n do begin l[i]:=random(-56,40); k[i]:=random(-56,40); end; write('массив L[',n,']: '); vivod(l); new_mas(l); write('измененный массив L[',n,']: '); vivod(l); write('массив K [',n,']: '); vivod(k); new_mas(k); write('измененный массив K[',n,']: '); vivod(k); for i:=1 to n do m[i]:=l[i]+k[i]; write('массив M[',n,']: '); vivod(m); end.
Название "алгоритм" произошло от латинской формы имени величайшего среднеазиатского математика Мухаммеда ибн Муса ал-Хорезми (Alhorithmi), жившего в 783—850 гг. В своей книге "Об индийском счете" он изложил правила записи натуральных чисел с арабских цифр и правила действий над ними "столбиком", знакомые теперь каждому школьнику. В XII веке эта книга была переведена на латынь и получила широкое рас в Европе.
Человек ежедневно встречается с необходимостью следовать тем или иным правилам, выполнять различные инструкции и указания. Например, переходя через дорогу на перекрестке без светофора надо сначала посмотреть направо. Если машин нет, то перейти полдороги, а если машины есть, ждать, пока они пройдут, затем перейти полдороги. После этого посмотреть налево и, если машин нет, то перейти дорогу до конца, а если машины есть, ждать, пока они пройдут, а затем перейти дорогу до конца.
В математике для решения типовых задач мы используем определенные правила, описывающие последовательности действий. Например, правила сложения дробных чисел, решения квадратных уравнений и т. д. Обычно любые инструкции и правила представляют собой последовательность действий, которые необходимо выполнить в определенном порядке. Для решения задачи надо знать, что дано, что следует получить и какие действия и в каком порядке следует для этого выполнить. Предписание, определяющее порядок выполнения действий над данными с целью получения искомых результатов, и есть алгоритм.
Program lab5;
const n=11;
type masiv=array[1..n]of integer;
var l,k,m:masiv;
i:integer;
procedure vivod(mas:masiv);
var i:integer;
begin
for i:=1 to n do write(mas[i],' ');
writeln;
end;
procedure new_mas(var mas:masiv);
var i,j:byte;
min:integer;
begin
j:=1;
min:=mas[1];
for i:=2 to n do
if (min>mas[i]) then
begin
min:=mas[i]; j:=i;
end;
writeln('min = ',min);
mas[j]:=mas[1];
mas[1]:=min;
end;
begin
writeln('Дано:');
randomize;
for i:=1 to n do
begin
l[i]:=random(-56,40);
k[i]:=random(-56,40);
end;
write('массив L[',n,']: ');
vivod(l);
new_mas(l);
write('измененный массив L[',n,']: ');
vivod(l);
write('массив K [',n,']: ');
vivod(k);
new_mas(k);
write('измененный массив K[',n,']: ');
vivod(k);
for i:=1 to n do m[i]:=l[i]+k[i];
write('массив M[',n,']: ');
vivod(m);
end.
Пример:
Дано:
массив L[11]: 4 -34 -2 3 -53 -53 38 1 -33 -3 11
min = -53
измененный массив L[11]: -53 -34 -2 3 4 -53 38 1 -33 -3 11
массив K [11]: -43 -18 -8 -9 34 -34 -49 40 -47 -22 9
min = -49
измененный массив K[11]: -49 -18 -8 -9 34 -34 -43 40 -47 -22 9
массив M[11]: -102 -52 -10 -6 38 -87 -5 41 -80 -25 20