Упорядочить по возрастанию одномерный массив A размером N
program primer_1;
const N = 5;
var A : array [ 1..N ] of real;
p : real;
i, j, k, g : integer;
begin
writeln('упорядочение массива по возрастанию');
writeln('введите элементы массива через пробел в конце ENTER ');
for i := 1 to N do read (A [ i ] ); writeln;
{ второй вариант ввода одномерного массива }
{ for i := 1 to N do
begin write (' введите A [', i:2 ,' ] = ' ) ; readln ( A[i] ); end;}
{ для упорядочивания массива задействуем промежуточные
переменные p - для запоминания минимального значения массива,
k - для запоминания его местонахождения }
for i := 1 to N - 1 do
begin
p := a [ i ] ; k := i ;
for j := i + 1 to N do
if A [ j ] < p then begin p := A[ j ]; k := j ; end;
A [ k ] := A [ i ] ; A [ i ] := p ;
end;
for i := 1 to N do
begin write( ' A [ i ] ='); writeln( A [ i ] : 8 : 5 ); end;
end.
В следующем примере представлен более удобный вариант оформления программ, где самостоятельные части работы вынесены в процедуры. Главная программа ( вызывающая ) получается тогда очень короткой, а отладка таких программ значительно проще.
Пример 2.
Программа для умножения сцепленных матриц A = ?aik? размера m x n и B = ?bik? размера r x s ( матрицы называются сцепленными, если число столбцов первой матрицы равно числу строк второй ). Произведение AB двух сцепленных матриц есть матрица C=?cik? размера m x s, где cik = ? aijbjk.
program primer_2;
uses CRT;
const n = 3; m = 2; r = 3; s = 3;
type massiv = array [1..10,1..10] of real;
var a,b,c : massiv;
sum : real;
i, j, k : integer;
ch : char;
procedure VVOD_2(n,m:integer;ch:char;var a:massiv);
{ процедура ввода двумерной матрицы построчно}
begin
writeln( ' введите элементы массива ');
for i := 1 to n do
begin
for j := 1 to m do read ( A [ i , j ] );
writeln; { для перехода на новую строку}
end;
end;
procedure PRINT_MAS(n,m:integer;ch:char;a:massiv);
{ печать матрицы построчно }
{ n,m - размер матрицы }
{ ch - название матрицы , для обозначения при выводе }
begin
writeln(' Элементы массива ',ch);
for i := 1 to n do
begin
for j := 1 to m do write(a [ i , j ] : 8 : 2);
writeln; { для перехода на новую строку }
end;
end;
begin {---------- main ------------------}
{ В рассматриваемом примере размеры матриц A, B, C заданы с помощью
констант. Заметим, что лучше это сделать вводом с клавиатуры или чтени-
ем данных из файла }
VVOD_2(m,n,'A',a); { вызов процедуры VVOD_2 для ввода матрицы A }
VVOD_2(r,s,'B',b); { вызов процедуры VVOD_2 для ввода матрицы B }
{ формирование матрицы C равной произведению матриц A*B }
for i := 1 to m do
for k := 1 to s do
begin
sum := 0; { обнуление переменной для вычисления суммы }
for j := 1 to N do sum := sum + a[ i , j ] * b [ j , k ] ;
c[ i , k ] := sum;
end;
{ вывод на экран исходных данных и результатов }
PRINT_MAS(m,n,'A',a); { m,n - размеры матрицы A }
PRINT_MAS(r,s,'B',b); { r,s - размеры матрицы B }
PRINT_MAS(m,s,'C',c); { m,s - размеры матрицы C }
end.
Опубликовал Kest
November 12 2008 21:19:33 ·
3 Комментариев ·
23973 Прочтений ·
• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •
Комментарии
anuta_kirova October 31 2011 20:13:53
Благодарю!
новичек December 17 2011 13:33:08
кому нужно перевела в С++:
#include <cstdlib>
#include <iostream>
using namespace std;
int main(int argc, char *argv[])
{
int a[7],i,j,k,p,n;
cout<<"vvedi n";cin>>n;
srand(time(NULL));
for (i=0;i<n;i++){
a[i]=rand()%90+10;
cout<<a[i]<<" ";
}
for ( i=0;i<n-1; i++) {p=a[i];k=i;
for (j=i+1;j<n;j++)
if(a[j]<p){p=a[j];k=j;}
a[k]=a[i];a[i]=p;
}
cout <<"Novii massiv";
for(i=0;i<n;i++)
cout << a[i]<< " ";
system("PAUSE");
return EXIT_SUCCESS;
}
лол December 28 2011 09:01:26
Кто может перевести в Delphi
Добавить комментарий
Рейтинги
Рейтинг доступен только для пользователей.
Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.
Нет данных для оценки.
Гость
Вы не зарегистрированны? Нажмите здесь для регистрации.
Главная
Каталог файлов
