Create a two-dimensional array at runtime
le vent nous portera mp3 cartina regione italia il pugnale e la croce libri grandi domani lettini pali katy dvd-rw mini cultura giuridica e attori toyota yaris torino il dizionario delle ragazze tv lcd akai 30 vivere per vivere oem dvd slim la camella finestra in alluminio condizionatori di aria no milk too day immagini folletti nhra com e300 cellulari samsung cover divx flauto pan cuffia philips wireless office italiano sony plasma 1024x768 testo giorgia horst wessel lied aci merate pci express 512 mb televisori 29 3 prese scart media center scaleo duma (siria) nuovi dettagli per le crociate frozen madonna cercare uomo radeon 9800 pro agp notaio costa ue man driver scheda video 0 9 villaggio tunisia albatross cultura mixteca ufficio postali video di ingoi italia ischia biglietti battesimi dvd home theater sono sposata decreto legislativo anno 2004 stephanie de monaco fotografie erotiche amatoriali il vento amico la boheme videoregistrazione per videosorveglianza heavy gear uomo nudi gratis passeggiata margherita monitor fujitsu siemens foto di irlanda hp toner laser q2612a lettori da tavolo cd per dj batteria bn-v408 the sains obiettivi sigma 18-200mm sesso ciccione ethernet playstation 2 bigliettini di auguri di compleanno canoscan 8400f al di la del bene e male guillaume de machaut o de mac... beethoven bagatelle sobrevivire de celia cruz relazione frankestein di mary shelley hotel pineta marina di massa immegini trans stile css videos de shakira cipro elenco telefonico modulo ddr 333 sodimm 512 sobre fuego orario ffss altalex com beatle the wall sbocco lg 8110 telecel bolivia ripper dvd schede video nvidia 6600 foto gratis sesso hong kong - colpo su colpo ciao tennessee www eva henger it topless gratuiti cubo rubick montgomerie, alexander planetesimale basi musicali rume www harrypotter com profumi alla frutta windows 2003 comune di fabro mica esibizioniste treviso sapphire x800 xl 512mb pci-e vivo ati redondo de ricota harman kardon 3480 www spiderman2 sony cyber-shot dsc-w7 kalin olson galeria de fotos de zoofilia de mujeres aumania krital lagosanto david spencer group ps2 slim swap magic v3 6 plus slide card amd 3200 barton cazzi gay italiani audio registratore sintoamplificatori hi fi video de white flag de dido chab nasro fle laserwriter 4 600 toner speedy j www affari erick saab 9 3 beauty point frigorifero anni 50 giochi che ce editor fotos insolitas condizionatore dual roma auto video nuda time of your life green day recuerdos de alhambra tonga taglia del cane dual 7800 isof bouquet praticante fell in love a boy www uu classicheggiante www sex toggolino de quello che sento ricette della francia bella ciao pluton com punto km0 multijet razorback2 grande dizionario garzanti libri film cruel intention dragostea den tin hamburg non guardarmi ti sento chen tu-hsiu rca online cucuna tu telecomando ati tatoo alfabeto cinese curtis, george william decreto legge n 104 palmari fujitsu siemens ya nada volvera a ser como antes el canto borsa in pelle il miglior controller per virtual on e mail natale tenda 6 posti campeggio cartoni cinesi porno hifi italia qware 512 vacanze di natale in casa disney farfield piscina como prenotazione hotel dublino midland (texas) scuole serali a milano incontro varese girls photos abito da lavoro culo della unzicher canzoni remix nadiya find the difference cavo component scart migueli mylogin host domain ibm portatile centrino linea interrotta racconti erotici clisteri ennepetal gries, johann dietrich carta gioco eiffel blue cd6000 dvd hd lg lo voglio duro testo ave maria shubert ethernet disk mini 250
You are encouraged to solve this task according to the task description, using any language you may know.
Get two integers from the user, then create a two-dimensional array where the two dimensions have the sizes given by those numbers, and which can be accessed in the most natural way possible. Write some element of that array, and then oputput that element. Finally destroy the array if not done by the language itself.
Ada
with Ada.Text_Io; use Ada.Text_Io;
with Ada.Float_Text_Io; use Ada.Float_Text_Io;
with Ada.Integer_Text_Io; use Ada.Integer_Text_Io;
procedure Two_Dimensional_Arrays is
type Matrix_Type is array(Positive range <>, Positive range <>) of Float;
Dim_1 : Positive;
Dim_2 : Positive;
begin
Get(Item => Dim_1);
Get(Item => Dim_2);
-- Create an inner block with the correctly sized array
declare
Matrix : Matrix_Type(1..Dim_1, 1..Dim_2);
begin
Matrix(1, Dim_2) := 3.14159;
Put(Item => Matrix(1, Dim_2), Fore => 1, Aft => 5, Exp => 0);
New_Line;
end;
-- The variable Matrix is popped off the stack automatically
end Two_Dimensional_Arrays;
C
With language built-in facilities:
#include <iostream>
#include <istream>
#include <ostream>
int main()
{
// read values
int dim1, dim2;
std::cin >> dim1 >> dim2;
// create array
double* array_data = new double[dim1*dim2];
double** array = new double*[dim1];
for (int i = 0; i < dim1; i)
array[i] = array_data dim2*i;
// write element
array[0][0] = 3.5;
// output element
std::cout << array[0][0] << std::endl;
// get rid of array
delete[] array;
delete[] array_data;
}
Using std::vector from the standard library:
#include <iostream>
#include <istream>
#include <ostream>
#include <vector>
int main()
{
// read values
int dim1, dim2;
std::cin >> dim1 >> dim2;
// create array
std::vector<std::vector<double> > array(dim1, std::vector<double>(dim2));
// write element
array[0][0] = 3.5;
// output element
std::cout << array[0][0] << std::endl;
// the array is automatically freed at the end of main()
}
Clean
import StdEnv
Start :: *World -> { {Real} }
Start world
# (console, world) = stdio world
(_, dim1, console) = freadi console
(_, dim2, console) = freadi console
= createArray dim1 (createArray dim2 1.0)
Common Lisp
(let ((d1 (read))
(d2 (read)))
(assert (and (typep d1 '(integer 1))
(typep d2 '(integer 1)))
(d1 d2))
(let ((array (make-array (list d1 d2) :initial-element nil))
(p1 0)
(p2 (floor d2 2)))
(setf (aref array p1 p2) t)
(print (aref array p1 p2))))
The assert will allow the user to reenter the dimensions if they are not positive integers.
Forth
: cell-matrix create ( width height "name" ) over , * cells allot does> ( x y -- addr ) dup cell >r @ * cells r> ; 5 5 cell-matrix test 36 0 0 test ! 0 0 test @ . \ 36
Java
import java.io.*;
public class twoDimArray {
public static void main(String[] args) {
try {
BufferedReader in = new BufferedReader(new InputStreamReader(System.in));
int nbr1 = Integer.parseInt(in.readLine());
int nbr2 = Integer.parseInt(in.readLine());
Double[][] array = new Double[nbr1][nbr2];
array[0][0] = 42.0;
System.out.println("The number at place [0 0] is " array[0][0]);
} catch(IOException e) { }
}
}
Perl
Interpreter: Perl 5.x
Predefining an array (or multi-dimension array) size is unnecessary, Perl dynamically resizes the array to meet the requirements. Of course I'm assuming that the user is entering array size 0 based.
sub make_array($ $){
# get array sizes from provided params, but force numeric value
my $x = ($_[0] =~ /^\d $/) ? shift : 0;
my $y = ($_[0] =~ /^\d $/) ? shift : 0;
# define array, then add multi-dimensional elements
my @array;
$array[0][0] = 'X '; # first by first element
$array[5][7] = 'X ' if (5 <= $y and 7 <= $x); # sixth by eighth element, if the max size is big enough
$array[12][15] = 'X ' if (12 <= $y and 15 <= $x); # thirteeth by sixteenth element, if the max size is big enough
# loop through the elements expected to exist base on input, and display the elements contents in a grid
foreach my $dy (0 .. $y){
foreach my $dx (0 .. $x){
(defined $array[$dy][$dx]) ? (print $array[$dy][$dx]) : (print '. ');
}
print "\n";
}
}
Pop11
vars itemrep; incharitem(charin) -> itemrep; ;;; Read sizes vars n1 = itemrep(), n2= itemrep(); ;;; Create 0 based array vars ar = newarray([0 ^(n1 - 1) 0 ^(n2 - 1)], 0); ;;; Set element value 15 -> ar(0, 0); ;;; Print element value ar(0,0) => ;;; Make sure array is unreferenced 0 -> ar;
Pop11 is garbage colleted so there is no need to destroy array. However, the array is live as long as variable ar references it. The last assignment makes sure that we loose all our references to the array turning it into garbage.
Pop11 arrays may have arbitrary lower bounds, since we are given only size we create 0 based array.
Python
Interpreter: Python 2.5
width = int(raw_input("Width of array: "))
height = int(raw_input("Height of Array: "))
array = [[0] * width for i in range(height)]
array[0][0] = 3.5
Note: Some people may instinctively try to write array as [[0] * with] * height, but the * operator creates n references to [[0] * width]
IDL
The following is only for demonstration. No real program should just assume that the user input is valid, integer, large enough etc.
read, x, prompt='Enter x size:' read, y, prompt='Enter y size:' d = fltarr(x,y) d[3,4] = 5.6 print,d[3,4] ;==> outputs 5.6 delvar, d
Toka
Toka has no direct support for 2D arrays, but they can be created and operated on in a manner similar to normal arrays using the following functions.
[ ( x y -- address ) cells malloc >r dup cells >r [ r> r> r> 2dup >r >r swap malloc swap i swap array.put >r ] iterate r> r> nip ] is 2D-array [ ( a b address -- value ) array.get array.get ] is 2D-get-element [ ( value a b address -- ) array.get array.put ] is 2D-put-element
And a short test:
5 5 2D-array >r #! Create an array and save the pointer to it 10 2 3 r@ 2D-put-element #! Set element 2,3 to 10 2 3 r@ 2D-get-element #! Get the element at 2,3 r> drop #! Discard the pointer to the array