شرح عملت برنامج بالـ pascal ما رايكم؟؟

[abderahim-dz]

كود PHP:

program salaire2cal;
uses wincrt;
var s,e,d,dz:real;
    tm,run:integer;
begin
writeln('Programme qui calcule votre salaire annuel, aprés 5ans, en Euro, $ et DZD');
writeln('Pour executer le programme entrer 1 pour arréter entrer 0');
readln(run);
while run=1 do
begin
writeln('Entrer le montant de votre salaire');
readln(s); 
while s<0 do
readln(s);
writeln('Choisir la monaie de votre salaire');
writeln('Euro (1), $ (2) et DZD (3)');
readln(tm);
while (tm<>1) and (tm<>2) and (tm<>3) do
readln(tm);
if tm=1 then
            begin
            e:=s;
            d:=s*140/78;
            dz:=s*140;
            end
else if tm=2 then
            begin
            e:=s/140*78;
            d:=s;
            dz:=s*78;
            end
else
            begin
            e:=s/140;
            d:=s/78;
            dz:=s;
            end;
writeln('SM=Salaire monseuelle | SA=Salaire annuel | S5=Salaire en 5ans');
writeln('SM | SA | S5');
writeln(e:0:0,' E | ',e*12:0:0,' E | ',e*12*5:0:0,' E');
writeln(d:0:0,' $ | ',d*12:0:0,' $ | ',d*12*5:0:0,' $');
writeln(dz:0:0,' DZD | ',dz*12:0:0,' DZD | ',dz*12*5:0:0,' DZD');          
writeln('Pour continuer enter 1 pour arréter entrer 0');
readln(run);
end;
if run=0 then writeln('vous nous quittez déja !! , Merci et a bientot. PROGRAMED BY A/RAHIM MI Bejaia');
end.