Quel Langage?

J'ai terminé le logiciel de lecture de rubans perforés. La vrai difficulté est le code utilisé à  l'époque. Chaque constructeur avait son code perso. Voici le début d'un ruban de programme. Qui connait ce langage?
begin comment KRIS/DUIA-ABSB Absorptieprogramma deel B. A.DUISENBERG, Laboratorium voor kristalchemie, Utrecht 1966.

blok A; real V,W1,W2,COSPSI,COSOM,SINPSI,SINOM,D,mu,hLAMBDA,TERM,NORM,COSB,SINTHETA,COSTHETA,SINCHI,COSCHI,SINPHI,COSPHI,

TERMI,TERMII,TERMIII,TERMIV,TERMV,TERMVI,WEG,L,HL,dl,dlmin,di,dj,dk,hx,hy,hz,ln10,hi,hj,hk,tijd,F,SCF;

integer i,j,k,t,w,R,f,g,code,n,loop,stap,eind,aantal,AIP,NI,NJ,NK,NINJ,I,J,K,IJ,

DX,DY,DZ,p,q,r,AH,hn,NH,MAX,MID,MIN,m,NB,qNI,FTERM;

Boolean BEKEND,RET,test,AV,SA;

array A,M,N,KR,TR[1:3,1:3],

a,aR,alpha,SINalphaR,COSalphaR,h,hR,C[1:3],

hCOS[1:3,1:2],

COSX,COSY,COSZ[1:2];

integer array hI,hJ,hK[1:2];



procedure PRINT3(n); value n; real n;

begin integer p;

p:= if n > 9.94 then entier(ln(n)/ln10) + 2 else 2;

ABSFIXT(p, if p > 3 then 0 else 4 - p, n)

end PRINT3 geeft 3 of meer cijfers, waarvan hoogstens 2 decimalen;

Réponses

  • DrakenDraken Membre
    février 2013 modifié #2
    Probablement du Fortran, ou du Basic !
  • Ni Fortran, ni Basic, ni Pascal. Voir la date: 1966 !
  • LarmeLarme Membre
    février 2013 modifié #4
    En 66, le Fortran existait déjà , hein image/wink.png' class='bbc_emoticon' alt=';)' />

    Mais bon, je n'ai aucune idée de ce que c'est.
  • Le premier compilateur Fortran est né en 1956 !
  • CéroceCéroce Membre, Modérateur
    février 2013 modifié #6
    ça ressemble fortement à  de l'Algol, non ?

    (J'ai recherché les ancêtres du Pascal pour trouver).
  • Grillé par céroce !





    procedure Absmax(a) Taille:(n, m) Resultat:(y) Indices:(i, k);

    value n, m; array a; integer n, m, i, k; real y;

    comment Dans la procédure Absmax (a, n, m, y, i, k)

    le plus grand élément en valeur absolue de la matrice a de taille

    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



    http://fr.wikipedia.org/wiki/Algol_(langage)
  • Bravo! c'est de l'Algol. On voit que c'est un ancêtre du pascal par le symbole de l'attribution de valeur qui est le même: :=

    Sur les anciennes imprimantes à  impact qui n'avaient pas de caractère gras, les mots clef étaient soulignés.

    Si, comme c'est envisagé, nous faisons un petit film de démonstration, je vous mettrait le lien adéquat pour le visualiser.



    Question subsidiaire au gestionnaire du site:

    Chaque fois que je fais un coupé collé d'un texte mis en forme, la mise en forme disparait!! J'ai essayé de la recréer dans l'éditeur du site, le problème reste le même: disparition des espacements qu'ils soient fait avec des tabulations ou des espaces consécutifs.

    L'exemple typique est le programme Algol ci-dessus. Comment faire pour conservé les mises en forme?
  • SethySethy Membre
    février 2013 modifié #9
    A toutes fins utiles :



    Boolean[font=helvetica, arial, sans-serif] BEKEND,RET,test,AV,SA;[/font]



    BEKEND : connu



    end[font=helvetica, arial, sans-serif] PRINT3 geeft 3 of meer cijfers, waarvan hoogstens 2 decimalen[/font]



    [font=helvetica, arial, sans-serif]Donne 3 chiffres ou plus, desquels au plus 2 sont des décimales.[/font]



    [font=helvetica, arial, sans-serif]BTW, des programmes de chimie, j'en ai écrit des centaines ... et (mais bon vu le labo, c'est assez logique) visiblement il s'agit de fonctions de rotations à  3D, avec les termes pour les matrices de rotations.[/font]
  • Simpa comme tout !
Connectez-vous ou Inscrivez-vous pour répondre.