Заполнить массив случайными числами и вывести на экран отсортированный массив.

@Аська · Регистрация: 29.12.2008

Студворк — интернет-сервис помощи студентам

Заполнить массив случайными числами и вывести на экран отсортированный массив.

Добавлено через 3 минуты 43 секунды
очень срочно!!!

Добавлено через 57 минут 37 секунд
я не понимаю в этом((((помогите!пожалуйста(((((

@Puporev · 29.12.2008, 14:18

Это самый примитив. Откройте любой учебник в разделе массивы и спишите первую же программу на сортировку массива. Куча таких программ в этом разделе форума, полистайте немного, здесь шикарный поиск, а тема сортировок вынесена во главу раздела. Не ленитесь! и не наглейте!

@zx345 · 19.04.2009, 23:52

Pascal

{ Заполнение массива случайными числами }
  procedure FillRand( var A : mas );
    var
      i : Integer;
      t : LongInt;
    begin
      for i := 1 to max do
        begin
          t := Random(32768);
          t := t * 32768;
          t := t + Random(32768);
          A[i] := t mod randmax;
        end;
    end;

ну вот так в факе написано, но зачем так сложно?
как попроще написать для двумерного массива?

@Puporev · 19.04.2009, 23:56

Pascal

begin
randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(20);//целые от [0 до 19] или
a[i,j]:=20*random;//вещественные от (0 до 20)

@zx345 · 20.04.2009, 00:12

Pascal

uses crt;
const nmax=50;
var n,i,j,imax,jmax,k: integer;
A: array [1..nmax,1..nmax] of integer;
begin
clrscr;
randomize;
writeln ('‚ўҐ¤ЁвҐ а*§¬Ґа*®бвм ¬*ббЁў*');
readln (n);
       for i:=1 to n do
       for j:=1 to n do
       A[i,j]:=random(20);
       write (A[i,j],' ');
       readkey
       end.

а я так уже писал только у меня выводиться всего одна цифра
не подскажите в чем там у меня ошибка?

@c00le® · 20.04.2009, 02:07

вот так:

Pascal

uses crt;
const nmax=50;
var n,i,j,imax,jmax,k: integer;
A: array [1..nmax,1..nmax] of integer;
begin
clrscr;
randomize;
writeln ('‚ўҐ¤ЁвҐ а*§¬Ґа*®бвм ¬*ббЁў*');
readln (n); clrscr;
for i:=1 to n do
begin
for j:=1 to n do
begin
gotoxy(i*3,j*2);
A[i,j]:=random(20);
write (A[i,j],' ');
end;
writeln; end;
readkey
end.

Добавлено через 1 час 33 минуты 37 секунд
вот с сортировкой:

Pascal

uses crt;
const nmax=50;
 
var n,i,j,imax,jmax,k,buf,v: integer;
A: array [1..nmax,1..nmax] of integer;
begin
clrscr;
randomize;
writeln ('‚ўҐ¤ЁвҐ а*§¬Ґа*®бвм ¬*ббЁў*');
readln (n);clrscr;
{вывод матрицы}
for i:=1 to n do
   begin
     for j:=1 to n do 
        begin
 
  gotoxy(i*3,j*1);
    A[i,j]:=random(20);
       write (A[i,j],' ');
   end;
   writeln; end;
{сортировка пузырьком}
 for k:= 1 to n*n do
     for i:= 1 to n do
 for j:= 1 to n do
begin
  if j<>n then
  begin
     if a[i,j+1]<a[i,j] then 
  begin
     buf:=a[i,j+1];
        a[i,j+1]:=a[i,j];
        a[i,j]:=buf;
     end; end
  else
        if(a[i+1,1]<a[i,j])and(i<>n)then {сравниваем с следующей в следующей строке} 
        begin
    buf:=a[i+1,1];
    a[i+1,1]:=a[i,j];
    a[i,j]:=buf; end; end;
{вывод осотрированной матрицы}
  writeln('Отсортиров*нный: ');
  for i:= 1 to n do 
     begin
       for j:= 1 to n do
          begin 
              write(a[i,j]:3);
          end; 
       writeln; end;
     readkey;
end.

@lexus_ilia · 20.04.2009, 03:37

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

не подскажите в чем там у меня ошибка

Всё-таки я отвечу на ваш вопрос, дабы у Вас в дальнейшем не было таких проблем...
Вот Ваш кусок кода:

Pascal

  for i:=1 to n do
    for j:=1 to n do
      A[i,j]:=random(20);
  write (A[i,j],' ');

Если делать отступы, то видно, что ваша программа только заполняет массив, а строка

Pascal

1	write (A[i,j],' ');

Выполняется сразу после циклов 1-ин раз и ,по-идее, выводит последний элемент матрицы A[n,n], попробуйте добавить в ваш цикл begin и End, например вот так:

Pascal

  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      A[i,j]:=random(20);
      write (A[i,j],' ')
    end;
    Writeln
  end;

@Puporev · 20.04.2009, 05:26

И еще, если выводить через пробел
write (A[i,j],' ')
то матрица будет "кривая", лучше выделять под каждое число одинаковое количество позиций, учитывая просветы. Тоскольку числа максимум из 2х знаков, достаточно 3 позиции, т.е.
write (A[i,j]:3)

@zx345 · 20.04.2009, 22:19

спасибо!

@Аська 0 / 0 / 0 Регистрация: 29.12.2008 Сообщений: 10
		1
	Заполнить массив случайными числами и вывести на экран отсортированный массив. 29.12.2008, 12:30. Показов 35493. Ответов 8 Метки нет (Все метки) Заполнить массив случайными числами и вывести на экран отсортированный массив. Добавлено через 3 минуты 43 секунды очень срочно!!! Добавлено через 57 минут 37 секунд я не понимаю в этом((((помогите!пожалуйста((((( 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	29.12.2008, 14:18	2
	Это самый примитив. Откройте любой учебник в разделе массивы и спишите первую же программу на сортировку массива. Куча таких программ в этом разделе форума, полистайте немного, здесь шикарный поиск, а тема сортировок вынесена во главу раздела. Не ленитесь! и не наглейте! 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	20.04.2009, 05:26	8
	И еще, если выводить через пробел write (A[i,j],' ') то матрица будет "кривая", лучше выделять под каждое число одинаковое количество позиций, учитывая просветы. Тоскольку числа максимум из 2х знаков, достаточно 3 позиции, т.е. write (A[i,j]:3) 1

@zx345 0 / 0 / 0 Регистрация: 31.03.2009 Сообщений: 3
	20.04.2009, 22:19	9
	спасибо! 0

Опции темы

Заполнить массив случайными числами и вывести на экран отсортированный массив.

Решение