Программка в Паскале. Помогите решить

TpaXmopucm · 28.12.2011, 00:37

Помогите пожалуйста!

Цитата:

Обработка двумерных массивов. Методы сортировки.

Цель задания:
1. Использование массивов.
2. Обработка алгоритмов сортировки.

Постановка задачи:
1. Написать программу, которая работает с любыми численными массивами.
2. Входную информацию и результаты вывести на печать.

Методические указания:
Исходные данные должны включать и положительные числа, и отрицательные, и нули.

ВАРИАНТЫ ЗАДАНИЯ

2. Дан двумерный массив 4×5. Упорядочить массив по невозрастанию элементов последнего столбца.

fagot86 · 28.12.2011, 02:26

Вот:

PHP код:


			
uses crt;

const n=4;m=5;

var i,j,k:integer;

    a:array[1..n,1..m] of integer;

begin

clrscr;

textcolor(2);

     for i:=1 to n do

       begin

            for j:=1 to m do

              begin

                   a[i,j]:=(random(20)-10);

                   if j=m then textcolor(4);

                   write(a[i,j]:5);

                   textcolor(2);

              end;

            writeln;

       end;

     for i:=1 to n do

         for j:=1 to n-1 do

             if a[j,m]<a[j+1,m] then

                begin

                     k:=a[j,m];

                     a[j,m]:=a[j+1,m];

                     a[j+1,m]:=k;

                end;

     writeln;

     for i:=1 to n do

       begin

            for j:=1 to m do

                begin

                     if j=m then textcolor(4);

                     write(a[i,j]:5);

                     textcolor(2);

                end;

            writeln;

       end;

end.

28.12.2011, 02:26	#2 (permalink)
fagot86 Новичок Регистрация: 25.12.2011 Сообщений: 6 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Вот: PHP код: uses crt; const n=4;m=5; var i,j,k:integer; a:array[1..n,1..m] of integer; begin clrscr; textcolor(2); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=(random(20)-10); if j=m then textcolor(4); write(a[i,j]:5); textcolor(2); end; writeln; end; for i:=1 to n do for j:=1 to n-1 do if a[j,m]<a[j+1,m] then begin k:=a[j,m]; a[j,m]:=a[j+1,m]; a[j+1,m]:=k; end; writeln; for i:=1 to n do begin for j:=1 to m do begin if j=m then textcolor(4); write(a[i,j]:5); textcolor(2); end; writeln; end; end.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070