Логика перевести в универсальный код

@PierL · Регистрация: 18.07.2013

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

В моем случае, из вне приходят значения Integer:
1
2
3
4
5
6...
99
100
значения могут приходить в разнобой, но мне надо, чтобы они записывались в мой массив в отдельный порядковый номер.
Есть массив специальный mass[1..50][1][1];
чтобы было так
mass[1][1][2]; //если пришло значение 1, чтобы записалось под №1. Если пришло зн.2, чтобы записалось под №1
mass[2][3][4];
mass[3][5][6];
mass[4][7][8];
mass[5][9][10];
mass[6][11][12];
mass[7][13][14];//если пришло значение 13, чтобы записалось под №7. Если пришло зн.14, чтобы записалось под №7
mass[8][15][16];
...
mass[50][99][100];
Такая логика.
Можно же как-то упростить код?
Моего интеллекта хватает только, если прописывать по отдельности

Дайте на водку!

@VladWH · 16.07.2015, 15:42

PierL, если массив объявлен так

Delphi

type
 mas = record
  field1: integer;
  field2: integer;
 end;
 
var
 mass: array [0..50] of mas;

то можно так

Delphi

i := Входный данные;
if i mod 2 = 0 then
 begin
 r := i div 2;
 mass[r].field2 := i;
 end else
 begin
 r := (i div 2) + 1;
 mass[r].field1 := i;
 end;

Смысл такой

@PierL · 16.07.2015, 16:19 **[ТС]**

VladWH, спасибо!!!

@PierL 4 / 4 / 0 Регистрация: 18.07.2013 Сообщений: 382
		1
	Логика перевести в универсальный код 16.07.2015, 14:45. Показов 1044. Ответов 2 Метки нет (Все метки) В моем случае, из вне приходят значения Integer: 1 2 3 4 5 6... 99 100 значения могут приходить в разнобой, но мне надо, чтобы они записывались в мой массив в отдельный порядковый номер. Есть массив специальный mass[1..50][1][1]; чтобы было так mass[1][1][2]; //если пришло значение 1, чтобы записалось под №1. Если пришло зн.2, чтобы записалось под №1 mass[2][3][4]; mass[3][5][6]; mass[4][7][8]; mass[5][9][10]; mass[6][11][12]; mass[7][13][14];//если пришло значение 13, чтобы записалось под №7. Если пришло зн.14, чтобы записалось под №7 mass[8][15][16]; ... mass[50][99][100]; Такая логика. Можно же как-то упростить код? Моего интеллекта хватает только, если прописывать по отдельности Дайте на водку! 0

@PierL 4 / 4 / 0 Регистрация: 18.07.2013 Сообщений: 382
	16.07.2015, 16:19 [ТС]	3
	VladWH, спасибо!!! 0

Логика перевести в универсальный код

Решение