Сортировать нечетные столбцы по убыванию

@hottab92 · Регистрация: 23.01.2012

Кто нибудь может это сделать!?я не понимаю как!без const,через gotoxy,просто,по старому.ввод матрицы с клавиатуры.(п.с.и не важно что вы супер мега умные и можете сделать проще и лучше,мне очень нужно именно так)..спасибо заранее

@Dani · 09.03.2012, 20:40

1) вводите число
2) считаете кол-во цифр в нем
3) делаете gotoXY (x, y+длина). Если y больше ширины экрана, то gotoXY (x+1, y mod ширина).
4) и так все числа

не знаю, как правильно, а я раньше считал ширину экрана так:

Pascal

1
2
3

x:= GetX; y:= GetY; x1:= x+1; 
while x<>x1 do begin inc (y1); write (' '); end;
clrscr;

@hottab92 · 09.03.2012, 20:45 **[ТС]**

спасибо.еще есть версии?

@КонецСвета · 10.03.2012, 00:12

Pascal

uses crt;
var a: array [1..20,1..20] of integer;
    i,j,k,n,m: byte;
    buf: integer;
begin
write('n=');
readln(n);
write('m=');
readln(m);
for i:=1 to n do
    for j:=1 to m do
        begin
        write('a[',i,',',j,']=');
        readln(a[i,j]);
        end;
writeln('');
for i:=1 to n do
    begin
    for j:=1 to m do
        write(a[i,j]:4);
    writeln;
    end;
for j:=1 to m do
    if j mod 2=0 then
begin
    k:=0;
    while k<=n do
          begin
          for i:=1 to n-1 do
              if a[i,j]<a[i+1,j] then
                 begin
                 buf:=a[i,j];
                 a[i,j]:=a[i+1,j];
                 a[i+1,j]:=buf;
                 end;
          k:=k+1;
          end;
    end;
writeln('');
for i:=1 to n do
    begin
    for j:=1 to m do
        write(a[i,j]:4);
    writeln;
    end;
writeln;
end.

@Dani · 10.03.2012, 00:14

КонецСвета,

Сообщение от hottab92

мне очень нужно именно так

@КонецСвета · 10.03.2012, 00:55

Не по теме:

Dani, восприятие у меня хитрое, читаю как "без const,без gotoxy"

Добавлено через 16 минут
the end

Pascal

uses crt;
var a: array [1..20,1..20] of integer;
    i,j,k,n,m: byte;
    buf: integer;
begin
write('n=');
readln(n);
write('m=');
readln(m);
for i:=1 to n do
    for j:=1 to m do
        begin
        gotoxy(5+j*4,5+i);
        readln(a[i,j]);
        end;
for j:=1 to m do
    if j mod 2=1 then
    begin
    k:=0;
    while k<=n do
          begin
          for i:=1 to n-1 do
              if a[i,j]<a[i+1,j] then
                 begin
                 buf:=a[i,j];
                 a[i,j]:=a[i+1,j];
                 a[i+1,j]:=buf;
                 end;
          k:=k+1;
          end;
    end;
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        gotoxy((n*4)+10+j*4,5+i);
        write(a[i,j]:4);
        end;
    end;
readln;
end.

@hottab92 0 / 0 / 0 Регистрация: 23.01.2012 Сообщений: 11
		1
	Сортировать нечетные столбцы по убыванию 09.03.2012, 20:35. Показов 465. Ответов 5 Метки нет (Все метки) Кто нибудь может это сделать!?я не понимаю как!без const,через gotoxy,просто,по старому.ввод матрицы с клавиатуры.(п.с.и не важно что вы супер мега умные и можете сделать проще и лучше,мне очень нужно именно так)..спасибо заранее 0

@hottab92 0 / 0 / 0 Регистрация: 23.01.2012 Сообщений: 11
	09.03.2012, 20:45 [ТС]	3
	спасибо.еще есть версии? 0

@Dani 1404 / 646 / 135 Регистрация: 11.08.2011 Сообщений: 2,299 Записей в блоге: 2
	10.03.2012, 00:14	5
	КонецСвета, Сообщение от hottab92 мне очень нужно именно так 0

Опции темы