Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Vanya_94
0 / 0 / 0
Регистрация: 21.05.2012
Сообщений: 6
#1

Создать массив 5 на 5 в котором числа будут от 1 до 12 и повторятся по 2 раза - Turbo Pascal

21.05.2012, 10:57. Просмотров 1209. Ответов 6
Метки нет (Все метки)

Помогите создать массив 5 на 5 в котором числа будут от 1 до 12 и повторятся по 2 раза помогите плиз заранее спасибо!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.05.2012, 10:57
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Создать массив 5 на 5 в котором числа будут от 1 до 12 и повторятся по 2 раза (Turbo Pascal):

Описать цикл, при котором в массив будут записываться числа от 1 до n - Pascal
Program Masif; Var Arr:Array of Integer;N,I:Integer; Begin Repeat Writeln ('введите четное число N'); ReadLn (N); Until (n mod...

Используя стек, создать другой текстовый файл, в котором числа будут записаны в обратном порядке - Free Pascal - Pascal
Создать текстовый файл, содержащий текстовую и числовую информацию. Используя стек, создать другой текстовый файл, в котором числа будут...

Из данного линейного массива создать другой массив, в котором первыми будут стоять отрицательные элементы, а затем положительные - Turbo Pascal
Помогите еще с одной задачей :) Из данного линейного массива создать другой массив, в котором первыми будут стоять отрицательные...

Создать новый файл, в котором будут находиться все слова, длина которых будет наименьшей - Turbo Pascal
создать текстовый файл.За один просмотр файла создать новый файл, в котором будут находиться все слова, длина которых будет наименьшей.

Файлы последовательного доступа. Сформировать второй файл, в котором будут содержаться отрицательные числа из первого файла - Turbo Pascal
Дан файл действительных чисел. Сформировать второй файл, в котором будут содержаться отрицательные числа из первого файла .

Создать массив, в котором будут хранится названия / типы классов - C#
Собственно, вот в чем задача, есть некоторые классы реализовывающие интерфейс IPacket. Нужно завести массив, в котором будут хранится...

6
ermolay
3421 / 2360 / 686
Регистрация: 04.12.2011
Сообщений: 3,963
21.05.2012, 11:49 #2
уточните, как должны числа располагаться в массиве - случайным образом? и в таком массиве одно из чисел будет повторяться 3 раза..
0
Vanya_94
0 / 0 / 0
Регистрация: 21.05.2012
Сообщений: 6
21.05.2012, 20:17  [ТС] #3
Цитата Сообщение от ermolay Посмотреть сообщение
уточните, как должны числа располагаться в массиве - случайным образом? и в таком массиве одно из чисел будет повторяться 3 раза..
Массив 5 на 5 может меняться 3 на 3 числа должны распологаются случайным образом и каждое число должно повторяться 2 раза (не больше не меньше). помогите а то препод не помогаяет гибну просто!
0
ermolay
3421 / 2360 / 686
Регистрация: 04.12.2011
Сообщений: 3,963
21.05.2012, 21:43 #4
программка не сложная, но условие черезчур то-ли жесткое, то-ли мутное. Допустим массив 5х5, итого элементов 25, числа с 1 по 12 повторяются 2 раза - 24.. какое значение присвоить 25-му элементу? или 3х3 - девять элементов, нечетное число, одни и те же значения элементов ну никак не повторятся ровно (не больше, не меньше) два раза..
0
Vanya_94
0 / 0 / 0
Регистрация: 21.05.2012
Сообщений: 6
21.05.2012, 23:18  [ТС] #5
Цитата Сообщение от ermolay Посмотреть сообщение
программка не сложная, но условие черезчур то-ли жесткое, то-ли мутное. Допустим массив 5х5, итого элементов 25, числа с 1 по 12 повторяются 2 раза - 24.. какое значение присвоить 25-му элементу? или 3х3 - девять элементов, нечетное число, одни и те же значения элементов ну никак не повторятся ровно (не больше, не меньше) два раза..
один остаётся лишним т.е пустой
0
ermolay
3421 / 2360 / 686
Регистрация: 04.12.2011
Сообщений: 3,963
22.05.2012, 01:02 #6
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
const
  n=5;
var
  a: array[1..n,1..n] of integer;
  b: array[1..n*n] of integer;
  i,j,k,q,tmp: integer;
begin
  randomize;
  {создаем одномерный массив}
  k:=0;
  for i:=1 to 2 do
    for j:=1 to 12 do
    begin
      inc(k);
      b[k]:=j;
    end;
  
  {смотрим, что получилось (необязатльно)}
  for i:=1 to n*n do write(b[i],' '); writeln;
  
  {и тщательно его перемешиваем}
  for q:=1 to 999 do
  begin
    i:=random(25)+1; //если хочешь оставить ноль в конце - (24)
    tmp:=b[i];
    j:=random(25)+1; //если хочешь оставить ноль в конце - (24)
    b[i]:=b[j];
    b[j]:=tmp;
  end;
  
  {смотрим, что получилось (необязатльно)}
  for i:=1 to n*n do write(b[i],' '); writeln;
  
  {затем последовательно присваиваем значения
  одномерного - значениям двумерного
  и выводим на печать}
  writeln('Полученный массив:');
  k:=0;
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      inc(k);
      a[i,j]:=b[k];
      write(a[i,j]:4);
    end;
    writeln;
  end;
  
  writeln;
end.
1
Vanya_94
0 / 0 / 0
Регистрация: 21.05.2012
Сообщений: 6
23.05.2012, 09:56  [ТС] #7
А можно сделать используя один двумерный массив например a:array [1..n,1..n] of integer
а второй не использовать?
0
23.05.2012, 09:56
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.05.2012, 09:56
Привет! Вот еще темы с ответами:

Создать массив n на n-1, в котором будут записаны расстояния от одной точки до других - C (СИ)
Здравствуйте. Помогите найти ошибку в коде. Мне на вход подается число n - число точек. Надо создать массив n на n-1, в котором будут...

Можно ли в com-сервере создать массив в котором будут храниться данные какое-то время - Delphi
Можно ли в com-сервере сделать так, чтобы одна из процедур выполняла вычисления и заносила их в массив, который хранится там же, а другой...

Массив: Из массива чисел создать новый массив, в котором каждое четное число уменьшено в два раза без использования операции деления - Assembler
Задание: Из массива целых положительных чисел создать новый массив, в котором каждое четное число уменьшено в два раза без использования...

Работа с бинарным файлом (Создать новый текстовый файл, в котором числа будут отсортированы в порядке возрастания.) - C++
Аларм! Срочно прошу помощи! Есть задача: Записать бинарный файл с массивом целых чисел. Создать новый текстовый файл, в котором числа...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru