LINUX.ORG.RU

История изменений

Исправление novus, (текущая версия) :

хотя конечно индексация массивов с 1 это лютый зашквар.

1. В обычных массивах индексом может быть значение любого дискретного типа, например,

program m;
type months=(January,February,March,April,May,June,July,August,September,October,November,December);
var  month: months;
     message: array[months] of string;
begin
 for month:=January to December do
  begin
   case month of 
    March..May: message[month]:='Весна!';
    June..August: message[month]:='Лето!';
    September..November: message[month]:='Осень...';
    else message[month]:='Нет повода не выпить.'
   end;
   writeln(message[month])
  end
end.

2. В динамических массивах - с нуля
(var letter: array of char; setlength(letter,10);letter[0]:='Z').
3. В вариантных массивах можно c любого целого.
program vars;
uses Variants;
var V: variant;
begin
V:=VarArrayCreate([-3,9],varVariant);
V[-3]:=true;
V[0]:='Ура!';
V[9]:=0;
writeln(V[-3]);writeln(V[0]);writeln(V[9])
end.

Исправление novus, :

хотя конечно индексация массивов с 1 это лютый зашквар.

1. В обычных массивах индексом может быть значение любого перечислимого типа, например,

program m;
type months=(January,February,March,April,May,June,July,August,September,October,November,December);
var  month: months;
     message: array[months] of string;
begin
 for month:=January to December do
  begin
   case month of 
    March..May: message[month]:='Весна!';
    June..August: message[month]:='Лето!';
    September..November: message[month]:='Осень...';
    else message[month]:='Нет повода не выпить.'
   end;
   writeln(message[month])
  end
end.

2. В динамических массивах - с нуля
(var letter: array of char; setlength(letter,10);letter[0]:='Z').
3. В вариантных массивах можно c любого целого.
program vars;
uses Variants;
var V: variant;
begin
V:=VarArrayCreate([-3,9],varVariant);
V[-3]:=true;
V[0]:='Ура!';
V[9]:=0;
writeln(V[-3]);writeln(V[0]);writeln(V[9])
end.

Исправление novus, :

хотя конечно индексация массивов с 1 это лютый зашквар.

1. В обычных массивах индексом может быть значение любого перечислимого типа, например,

program m;
type months=(January,February,March,April,May,June,July,August,September,October,November,December);
var  month: months;
     message: array[months] of string;
begin
 for month:=January to December do
  begin
   case month of 
    March..May: message[month]:='Весна!';
    June..August: message[month]:='Лето!';
    September..November: message[month]:='Осень...';
    else message[month]:='Нет повода не выпить.'
   end;
   writeln(message[month])
  end
end.

2. В динамических массивах - с нуля
(var letter: array of char; setlength(letter,10);letter[0]:='Z')
3. В вариантных массивах можно c любого целого.
program vars;
uses Variants;
var V: variant;
begin
V:=VarArrayCreate([-3,9],varVariant);
V[-3]:=true;
V[0]:='Ура!';
V[9]:=0;
writeln(V[-3]);writeln(V[0]);writeln(V[9])
end.

Исправление novus, :

хотя конечно индексация массивов с 1 это лютый зашквар.

1. В обычных массивах индексом может быть значение любого перечислимого типа, например,

program m;
type months=(January,February,March,April,May,June,July,August,September,October,November,December);
var  month: months;
     message: array[months] of string;
begin
 for month:=January to December do
  begin
   case month of 
    March..May: message[month]:='Весна!';
    June..August: message[month]:='Лето!';
    September..November: message[month]:='Осень...';
    else message[month]:='Нет повода не выпить.'
   end;
   writeln(message[month])
  end
end.

2. В динамических массивах - с нуля
(var letter: array of char; setlength(letter,10);letter[0]:='Z')
3. В вариантных массивах можно c любого целого .
program vars;
uses Variants;
var V: variant;
begin
V:=VarArrayCreate([-3,9],varVariant);
V[-3]:=true;
V[0]:='Ура!';
V[9]:=0;
writeln(V[-3]);writeln(V[0]);writeln(V[9])
end.

Исправление novus, :

хотя конечно индексация массивов с 1 это лютый зашквар.

1. В обычных массивах индексом может быть значение любого перечислимого типа, например,

program m;
type months=(January,February,March,April,May,June,July,August,September,October,November,December);
var  month: months;
     message: array[months] of string;
begin
 for month:=January to December do
  begin
   case month of 
    March..May: message[month]:='Весна!';
    June..August: message[month]:='Лето!';
    September..November: message[month]:='Осень...';
    else message[month]:='Нет повода не выпить.'
   end;
   writeln(message[month])
  end
end.

2. В динамических массивах - с нуля
(var letter: array of char; setlength(letter,10);letter[0]:='Z')
3. В вариантных массивах можно c любого целого .
var V: variant;
V:=VarArrayCreate([0,9],varVariant);
или
V:=VarArrayCreate([1,10],varVariant);


program vars;
uses Variants;
var V: variant;
begin
V:=VarArrayCreate([-3,9],varVariant);
V[-3]:=true;
V[0]:='Ура!';
V[9]:=0;
writeln(V[-3]);writeln(V[0]);writeln(V[9])
end.

Исходная версия novus, :

хотя конечно индексация массивов с 1 это лютый зашквар.

1. В обычных массивах индексом может быть любое значение любого перечислимого типа, например,

program m;
type months=(January,February,March,April,May,June,July,August,September,October,November,December);
var  month: months;
     message: array[months] of string;
begin
 for month:=January to December do
  begin
   case month of 
    March..May: message[month]:='Весна!';
    June..August: message[month]:='Лето!';
    September..November: message[month]:='Осень...';
    else message[month]:='Нет повода не выпить.'
   end;
   writeln(message[month])
  end
end.

2. В динамических массивах - с нуля
(var letter: array of char; setlength(letter,10);letter[0]:='Z')
3. В вариантных массивах можно c любого целого .
var V: variant;
V:=VarArrayCreate([0,9],varVariant);
или
V:=VarArrayCreate([1,10],varVariant);


program vars;
uses Variants;
var V: variant;
begin
V:=VarArrayCreate([-3,9],varVariant);
V[-3]:=true;
V[0]:='Ура!';
V[9]:=0;
writeln(V[-3]);writeln(V[0]);writeln(V[9])
end.