كود 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.
( تقرير عن مشاركة سيئة )، و الموجودة أسفل كل مشاركة .
2013-12-17, 21:45
عملت برنامج بالـ pascal ما رايكم؟؟
العرض العادي
