ru.algorithms

 
 - RU.ALGORITHMS ----------------------------------------------------------------
 From : Anton Dorofeev                       2:5055/201.17  11 Jan 2002  14:48:20
 To : Sergey Popkov
 Subject : дайте алгоритм, plz!
 -------------------------------------------------------------------------------- 
 

 
 09 Янв 02 01:59, _Sergey Popkov_ НН. /All/:
 
  SP>  имеется матрица, пусть 10x10, в которой заложены определеные
  SP> неповторяющиеся числа (целые числа), причем каждое ичсло в своей
  SP> ячейке.. необходимо эти числа как бы размешать и поместить в матрицу
  SP> (в другую, для простоты) случайным образом..
 
 А алгоритм то простой.
 Кстати выводится числа(матрица) в виде символов в лом было их переводить, да и
 думаю что это не принципиально.
 
 /*ДН>/* Здесь начинается programka.pas /*<НД/*
 
 program Matrix;
 uses crt;
 const
 a=10;
 b=10;
 var
 arr1,arr2:array[1..a,1..b] of string[5];
 n1,n2,m1,m2,th:word;
 label
 1;
 begin
 randomize;
 n1:=1;n2:=1;
 {Задаём значения для первого массива}
 clrscr;
 repeat
  repeat
    write('arr1[',n1,',',n2,']=');
    readln(th);
    str(th,arr1[n1,n2]);
    n1:=n1+1;
  until n1>a;
   n1:=1;
   n2:=n2+1;
  until n2>b;
 n1:=1;n2:=1;
 clrscr;
 {Выводим превую матрицу}
 repeat
  repeat
    gotoxy(n1*5,n2);write(arr1[n1,n2]);
    n1:=n1+1;
  until n1>a;
   n1:=1;
   n2:=n2+1;
  until n2>b;
 {Создаётся второй массив}
 n1:=1;n2:=1;
 repeat
  repeat
   1: m1:=random(a)+1;
   m2:=random(b)+1;
   if (arr1[m1,m2]<>'*') then begin
                            arr2[n1,n2]:=arr1[m1,m2];
                            arr1[m1,m2]:='*';
                           end
                     else goto 1;
   n1:=n1+1;
  until n1>a;
  n1:=1;
  n2:=n2+1;
 until n2>b;
 {Выводится второй массив}
 n1:=1;n2:=1;
 repeat
  repeat
    gotoxy(n1*5,n2+b+1);write(arr2[n1,n2]);
    n1:=n1+1;
  until n1>a;
   n1:=1;
   n2:=n2+1;
  until n2>b;
 n1:=1;n2:=1;
 end.
 
 /*ДН>/* А здесь, видимо, не начинается programka.pas /*<НД/*
 
                    Hу я вроде все сказал... Bye _*Sergey*_ !
 
 ... Слово не воробей: поймают - вылетишь...
 --- GoldEd 3.0.1-asa9 SR3 & Fido Master 2000
  * Origin: Ёжики варёные - 2 руб. 00 коп. (2:5055/201.17)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    дайте алгоритм, plz!   Sergey Popkov   09 Jan 2002 02:59:43   Hа: дайте алгоритм, plz!   Alex Chudnovsky   09 Jan 2002 14:44:12   дайте алгоритм, plz!   Andrew Plyako   10 Jan 2002 07:28:06   Re: дайте алгоритм, plz!   Sergey Politov   12 Jan 2002 05:43:26   Re: дайте алгоритм, plz!   Sergey Politov   10 Jan 2002 06:08:52   дайте алгоритм, plz!   Andrew Plyako   11 Jan 2002 01:30:44   Re: дайте алгоритм, plz!   Sergey Politov   12 Jan 2002 05:31:04   дайте алгоритм, plz!   Andrew Plyako   13 Jan 2002 01:49:00   Re: дайте алгоритм, plz!   Sergey Politov   14 Jan 2002 05:51:37   дайте алгоритм, plz!   Andrew Plyako   14 Jan 2002 16:15:44   Re: дайте алгоритм, plz!   Sergey Politov   15 Jan 2002 05:07:06   Re^2: дайте алгоритм, plz!   Sergey Politov   12 Jan 2002 09:35:44   Re: дайте алгоритм, plz!   Vasily Shmelev   10 Jan 2002 18:25:23   дайте алгоритм, plz!   Nickita A Startcev   10 Jan 2002 22:36:00   дайте алгоритм, plz!   Anton Dorofeev   11 Jan 2002 14:48:20