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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 08.11.2014, 11:51   #11
маргарита123
Пользователь
 
Регистрация: 08.11.2014
Сообщений: 12
По умолчанию

а без допмассива никак нельзя?
маргарита123 вне форума Ответить с цитированием
Старый 08.11.2014, 11:52   #12
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,629
По умолчанию

Это очень плохо.
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 08.11.2014, 12:46   #13
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Если педагоги не могут научить друг друга, то как они будут учить наших детей?
Не знаю. Вот с потолка в качестве идеи:
Код:
program Project1;
const n=5;m=5;
var a:array[1..n,1..m] of integer;
  l,k,i,j:integer;
  dir:boolean;
begin
  for i:=1 to n do begin
    for j:=1 to m do begin
      a[i,j]:=random(100);write(a[i,j]:5);
    end; writeln;
  end;
  dir:=true;
  for i:=1 to n do begin
    if dir then begin
      for j:=1 to m do for k:=1 to m do
        if a[i,j]<a[i,k] then begin l:=a[i,j];a[i,j]:=a[k,j];a[k,j]:=l; end;
    end else
     for j:=m downto 1 do for k:=m downto 1 do
       if a[i,j]<a[i,k] then begin l:=a[i,j];a[i,j]:=a[k,j];a[k,j]:=l; end;
    dir:= not dir;
  end;
  writeln;
  for i:=1 to n do begin
    for j:=1 to m do begin
      write(a[i,j]:5);
    end; writeln;
  end;
  readln;
end.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 08.11.2014, 15:15   #14
маргарита123
Пользователь
 
Регистрация: 08.11.2014
Сообщений: 12
По умолчанию

как реализовать змейку?
Код:
uses crt;
var i,j,k,l,m,n,x,p,max:integer;
A:array [1..100,1..100] of integer;
flag : boolean;
procedure swap (var a,b:integer);
var t:integer;
begin
t:=a;
a:=b;
b:=t;
end;

function ceil(a:real):integer;
begin
if a-trunc(a)=0 then ceil:=trunc(a) else ceil:=trunc(a)+1;
end;

begin
clrscr;
write ('Input n= ');
readln (n);
write ('Input m=');
readln (m);
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
A[i,j]:=random(20);
write(A[i,j]:4);
end;
writeln;
end;
writeln;
p:=n*m;
flag:=false;
while (p>1) do
begin
i:=1; j:=1; k:=1; l:=1; max:=A[1,1];
begin
for x:=1 to p do
repeat
begin
j:=ceil(x/n);
i:=x-n*(j-1);
if A[i,j]>max then
begin
max:=A[i,j];
k:=i;
l:=j;
end;
end;
until not flag;
swap(A[k,l],A[n*(1-ceil(p/n))+x,ceil(p/n)]);
dec(p);
end;
end ;

for j:=1 to m do
begin
for i:=1 to n do write (A[i,j]:4);
writeln;
end;
readln;
end.

Последний раз редактировалось Stilet; 08.11.2014 в 16:36.
маргарита123 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сортировка массива методом простого обмена studentkotoriysmog Помощь студентам 5 10.11.2013 19:00
C++ сортировка методом простого обмена User_system Помощь студентам 0 30.03.2012 09:20
сортировка методом прямого обмена sestrenka141989 Паскаль, Turbo Pascal, PascalABC.NET 1 27.05.2010 09:22
Сортировка односвяного динамического списка методом обмена MyQwErTy Помощь студентам 11 13.05.2009 21:06