Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 24.09.2009, 11:58   #1
Dines
Новичок
Джуниор
 
Регистрация: 24.09.2009
Сообщений: 1
По умолчанию Помогите плз а то отчислят(((((

Здравствуйте помогите плз решить задачку,Сортировать столбцы в матрице 5х5 по убыванию наименьших элементов в столбце.Просто сдавать сегодня нужно...(,может есть у кого-нибудь что подобное
вот что у мне я получилось но матрица не сортируется(
Код:
program denis;
uses crt;
const n=5; m=5;
type arr= array[1..n,1..m] of integer;
Var ft,fi: text;
i,j:integer;
A:Arr;
E:char;
f:string;

Procedure SWP(Var X,Y:Integer);
Var T:Integer;
Begin
T:=X;
X:=Y;
Y:=T;
End;

Procedure SWPC(X,Y:Integer);
Var T:Integer;
Begin
For T:=1 To M Do
SWP(A[X,T],A[Y,T]);
End;

Function MinC(X:Integer):Integer;
Var Min,T:Integer;
Begin
Min:=A[X,1];
For T:=1 To M Do If A[X,T]>Min Then Min:=A[X,T];
MinC:=Min;
End;

Procedure Sort;
Var X,Y:Integer;
Begin
For X:=1 To N-1 Do
For Y:=X+1 To N Do
If MinC(X)>MinC(Y) Then SWPC(X,Y);
End;
begin
clrscr;
writeln('Vi hotite zadat matrizu s klaviaturi? (Y/N):'); 
readln(E);
If UpCase(E)='Y' then   
begin
for i:=1 to n do
for j:=1 to m do
begin
Write('Введите A[',i,',',j,']=');
Readln(A[i,j]);
end;
writeln;
end;
writeln('Ishodnaya matrica:');  
writeln;
writeln(fi,'Ishodnaya matrica:');
writeln(fi);
for i:=1 to n do begin
for j:=1 to m do write(' ',a[i,j]);
writeln;
end;

Последний раз редактировалось Dines; 24.09.2009 в 12:01.
Dines вне форума
Старый 24.09.2009, 13:24   #2
kakawkin
Форумчанин
 
Регистрация: 21.09.2009
Сообщений: 431
По умолчанию

чтото вроде этого выходит вообще:
Код:
program E641;
uses Crt;
var i,j,m,n:word;
    x:array[1..50,1..50] of real;
    b:array[1..2500] of real;
    k:real;
    c:byte;
Begin
   ClrScr;
   Writeln;
   Writeln;
   Write('Введите кол-во строк (m>0). m=');
   Readln(m);
   Write('Введите кол-во столбцов (n>0). n=');
   Readln(n);
   for i:=1 to m do
    for j:=1 to n do
    begin
     Write('Введите x[',i,',',j,']=');
     Readln(x[i,j]);
    end;
   c:=0;
   for i:=1 to m do
    for j:=1 to n do
begin
     inc(c);
     b[c]:=x[i,j];
end;
 
    {--------Сортировка методом пузырька--------}
    For i:=1 to c-1 do
     For j:=i+1 to c do
      begin
       if b[j]<b[i] then
        begin
         k:=b[i];
         b[i]:=b[j];
         b[j]:=k;
        end;
      end;
{А дальше ты выводишь полученный массив как хочешь. можешь так:}
   c:=0;
   for i:=1 to m do
    begin
    
    for j:=1 to n do
    begin
     c:=c+1;
     Write(b[c]:5:2);
    end;
writeln;
    end;
   Write('Нажмите <Enter> для выхода');
   Readln;
End.
kakawkin вне форума
Старый 24.09.2009, 15:02   #3
Вавел из ГМТУ
Форумчанин
 
Регистрация: 19.06.2009
Сообщений: 896
По умолчанию

Грош цена такому специалисту если отчисляют из института из за такой ерунды... пусть отчислят... хотябы не будешь отсиживаться на рабочем месте заместо тех, кто действительно этого места достоен.
И не надо писать "я гуманитарий и пр."
Вавел из ГМТУ вне форума
Старый 24.09.2009, 17:47   #4
NSvirus
пропагандирую жизЪ
Форумчанин
 
Аватар для NSvirus
 
Регистрация: 19.03.2007
Сообщений: 950
По умолчанию

Вавел из ГМТУ, вот только не надо так, все науки поддаются с трудом.. многим дается с трудом программирование, если у вас лучше получается вырезать из дерева, а у другого мастерить самолеты, то не нужно его гнобить, может быть он будующий заведующий аэропортом...
Посторонним В.

Последний раз редактировалось NSvirus; 24.09.2009 в 17:52.
NSvirus вне форума
Старый 25.09.2009, 12:55   #5
SuperVisor
Павел Сергеевич
Форумчанин
 
Регистрация: 05.11.2006
Сообщений: 665
По умолчанию

Вавел из ГМТУ: +1
NSvirus: http://programmersforum.ru/showthread.php?t=62462
Dines: Читаем правила, используем поиск.

Motivation H,FR
Тема закрыта в ходе "Рейда борьбы с халявщиками"
Тема закрыта из-за нарушения правил форума
Познавая других, мы познаем себя.
С'est la vie...
SuperVisor вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задачки на Паскале помогите пожалуйста решить 2 задачки, а то отчислят. плиз VADOS2009-1 Помощь студентам 0 03.06.2009 18:11
помогите плз а то меня отчислят( Broneslav Паскаль, Turbo Pascal, PascalABC.NET 2 07.01.2009 23:52