ورود

نسخه کامل مشاهده نسخه کامل : کمک خیلی خیلی فوری در پاسکال



rain_man672006
21-01-2008, 14:48
program zarb2bordar (input , output);
uses wincrt;
Var
A,b:array[1..20] of integer;
c:array[1..40]of integer;
s,i,j,k,l,m,n:integer;
begin
writeln('please enter two number');
read(m,n);
for i := 1 to m do;
read(a[i]);
for i := 1 to n do;
read(b[i]);
for i := 1 to 40 do;
c[i]:=0;
k :=40;
l:= k;
for i := n downto 1 do;
begin
for j := m downto 1 do;
begin
s:= ( a[i] * b[j] ) + c[l];
c[l] := s mod 10;
l := l-1;
c[l] := s div 10;
end;
k := k-1;
l := k;
end;
k:= k+1;
for i := k to 40 do;
writeln(c[k]);
end.
اقا لطفا یکی به من بگه چرا این برنامه که نوشتم اجرا نمیشه
لطفا خیلی فوری

esadeghi
21-01-2008, 15:08
ایرادش برای wincrt که استفاده کردی.