Здравейте,
Искам да си пусна едно старо PC за рутер и се спрях на Freesco. Направих си дискета и го настроих, обаче имам проблем с лан картите. Сложих му прекъсванията, обаче не знам адресите им как мога да ги настроя, защото при зареждането ми казва, че няма намерени лан карти. Използвам Realtek 8139 rev16. В "Detect Hardware" ми ги показва, че ги вижда, обаче не знам как да ги настроя да тръгнат.

Предварително благодаря!


edit by neter: Редактирано, съгласно т.3 от правилата на форума. Нека не се повтаря

Здравейте,
Искам да си пусна едно старо PC за рутер и се спрях на Freesco. Направих си дискета и го настроих, обаче имам проблем с лан картите. Сложих му прекъсванията, обаче не знам адресите им как мога да ги настроя, защото при зареждането ми казва, че няма намерени лан карти. Използвам Realtek 8139 rev16. В "Detect Hardware" ми ги показва, че ги вижда, обаче не знам как да ги настроя да тръгнат.

Предварително благодаря!


edit by neter: Редактирано, съгласно т.3 от правилата на форума. Нека не се повтаря

Добре,вече наистина направих всичко по силите си,но ми излиза грешка.Моля ви да ми помогнете да я открия!Благодаря ви предварително!!!А ето и какво сум направил:
program zadcha;
Const m=11;
Var A:array[1..m,1..m] of Integer;
    C,Cmax,I,J,x,y,:Integer;
Begin
Writeln(‘Avtor..’);
Writeln(‘Fak.nom..,gr..,spec..’);
Writeln(‘Uslovie na zadachata..’);

{Vavejdane na elementite na masivaA}

for I:=1 to m do
 for J:=1 to m do
  Repeat
   Write(‘Vavejdate chislo mejdu 0;1000-A[‘,I,’,’,J,’]=’);
   Readln(A[I,J]);
  until((A[I,J]>=0) and (A[I,J]<1000));

{Izvejdane na elementite na masiva A}

writeln;
writeln(‘Vavedenite stoinosti na masiva A:’);
for I:=1 to m do
begin
 for J:=1 to m do
  write(A[I,J]:11);
 writeln;
end;

{noviq masiv C}

for I:=1 to m do
 for J:=1 to m do
  begin
    C[I,J]:=0;
    pom:=A[I,J];
    repeat
      C[I,J]:=C[I,J]+(pom mod 10);
      pom:=pom div 10;
    until (pom=0);
  end;

{Izvejdane na elementite na masiva C}

writeln(‘Vavedenite stoinosti na masiva C:’);
for I:=1 to m do
begin
 for J:=1 to m do
  write(C[I,J]:11);
 writeln;
end;

{tyrsene an maksimalen element na masiv C i negovite indexi}

Cmax:=C[1,1];
x:=1; y:=1;
for I:=1 to m do
 for J:=1 to m do
   if (C[I,J]>Cmax) then begin
            Cmax:=C[I,J];
            x:=I;
            y:=J;
          end;
writeln("maximalniq element na masiva C e C[",I,",",J,"]=",Cmax:11, ".");
 end.

Редактирано съгласно т.3 от правилата на форума!

E da prav si,no problemut e che nishtichko ne shvashtam ot Pascal! '> Vse pak se opitah da napravq ne6to,no dori ne sum siguren dali e vqrno.Ako nqkoi moje da mi pomogne she sum mu mnogo blagodaren, zashtoto chetvurtuk e krainiqt srok za predavane!   Blagodarq vi predvaritelno! A eto i opita mi :                                                                    Program masiv;
Const m=11;
Var
A:array[1..m,1..m] of Integer;
,C,Br,Cmax,I,J,x,y,SUM:Integer;
Begin
Writeln(‘Avtor..’);
Writeln(‘Fak.nom..,gr..,spec..’);
Writeln(‘Uslovie na zadachata..’);

{Vavejdane na elementite na masivaA}

for I:=1 to m do
for J:=1 to m do
Repeat
Write(‘Vavejdate chislo mejdu 1;999.99-A[‘,I,’,’,J,’]=’);
Readln(A[I,J]);
until((A[I,J]>=1) and (A[I,J]<999.99));

{Izvejdane na elementite na masiva A}

writeln;
writeln(‘Vavedete stoinosti na masiva A:’);
for I:=1 to m do
begin
for J:=1 to m do
write(A[I,J]:11);
writeln;
end;

{Vavejdane na C I intervala [x,y]}

writeln;
write(‘Vavedete chisloto C=’);
readln©;
write(‘Vavedete dolna granica x=’);
readln(x);
write(‘Vavedete gorna granica y=’);
readln(y);

здравейте имам да направя една програмка на турбо паскал но проблема е 4е не го разбирам дали има някой от форума който може да ми помогне ще съм много благодарен
ето я и самата задача:
Да се състави програма за обработка на масива