majidmir
چهارشنبه 26 فروردین 1388, 10:27 صبح
سلام
من يه برنامه دارم كه بايد اين كار رو انجام بده .
دو تا 7-seg دارم كه بايد اعداد 0 تا 99 رو واسم نشون بده . (با زبان پاسكال !) حالا اينو نوشتم ولي نميدونم كار ميكنه يا نه ؟
program 7-seg;
uses crt;
a:array[0..9] of byte=($3f,$06,$4f,$66,$6d,$7d,$07,$7f,$6f)
var i:byte;
var n:byte;
var s:byte;
begin
for i:=0 to 99 do
begin
if i<10 then begin
port[$378]:=a(i);
end;
if i>=10 then begin
n=i div 10
s=i mod 10
port[$378]:=a(n);port[$378]:=512
port[$378]:=a(s);
port[$378]:=1024
end;
end;
until keypressed
end.
من يه برنامه دارم كه بايد اين كار رو انجام بده .
دو تا 7-seg دارم كه بايد اعداد 0 تا 99 رو واسم نشون بده . (با زبان پاسكال !) حالا اينو نوشتم ولي نميدونم كار ميكنه يا نه ؟
program 7-seg;
uses crt;
a:array[0..9] of byte=($3f,$06,$4f,$66,$6d,$7d,$07,$7f,$6f)
var i:byte;
var n:byte;
var s:byte;
begin
for i:=0 to 99 do
begin
if i<10 then begin
port[$378]:=a(i);
end;
if i>=10 then begin
n=i div 10
s=i mod 10
port[$378]:=a(n);port[$378]:=512
port[$378]:=a(s);
port[$378]:=1024
end;
end;
until keypressed
end.