Les chercheurs grenoblois inventent un nouveau langage informatique

Les chercheurs grenoblois ont contribué à la création d’ALGOL68, ancêtre du langage informatique Pascal.

Exemple de programme écrit en Algol (ici 60) :
procedure Absmax(a) Size:(n, m) Result:(y) Subscripts:(i, k);
value n, m; array a; integer n, m, i, k; real y;
comment Le plus grand élément en valeur absolue de la matrice a de taille
comment n par m est transféré à y et les indices de cet élément à i et k
begin integer p, q;
y := 0; i := k := 1;
for p:=1 step 1 until n do
for q:=1 step 1 until m do
if abs(a[p, q]) > y then
begin
y := abs(a[p, q]);
i := p; k := q
end
end Absmax

Voir d'autres raisons dans la catégorie Science.

Laisser un commentaire

Votre adresse de messagerie ne sera pas publiée. Les champs obligatoires sont indiqués avec *