Odczyt partycji ufs

[Omol]

Mam problem. Na jutro potrzebuje rozwiazanie, kombinuje sam i lipa:( otóz mam juz taki program:

program Tablica;

var
m,i,los,n,MAX: integer;
tab: array [1..100] of integer;

Begin
  writeln (\\'Podaj ilosc elementow tablicy: \\'); readln(m);
  n:=100;
  randomize;
     for i:=1 to m do
       Begin
          los:=random(100);
          writeln (\\'  tab[\\',i,\\']=\\',los);
       end;
 readln;
end.
 
I teraz do tego musze dopisac takie polecenie aby program wybierał mi i wyswietlal najwiekszą wartość z tej tablicy. A takie bylo cale polecenie dla tego zadania:
{zadeklarowac tablice 1 - wymiarowa o wymiarze 0..max max=const=100.
elementy tablicycalkowite.
program ma pytac sie o faktyczny wymiar tablicy \\"n\\" [n należy (0..max)].
tablica ma byc generowana
automatycznie (RANDOMIZE)
napisac program znajdujacy wartosc maksymalna w tablicy.
efekt dzialania:
1)wyswietlenie tablicy
a[1]=...
a[2]=...
.
.
.
a[n]=...
2)wypisac wartosc maksymalna}

Prosze o pomoc:)

[Insenic]

zmienna tmp = 0

sprawdzaj po kolejno wartości tablicy

jeżeli wartość tablica > tmp to tmp = wartość tablica

jak przeszukasz w ten spsób wszystkie elementy to znajdziesz największy

[Omol]

Qrcze, tylko jak pisalem jestem z tego jeszcze \\"zielony\\" wiec jak bys mi napisal polecenie ktore mam tam wpisac bylbym wdzieczny!!

[Insenic]

Czyli piszesz program tak:

--- cut here ---

var
  m, i, tmp,: integer;
  tab: array [1..100] of integer;

begin
  writeln (\\'Podaj ilosc elementow tablicy: \\');
  readln(m);
  randomize;
  for i := 1 to m do
  begin
    tab := random(100);
    writeln (\\' tab[\\',i,\\']=\\', tab);
    if tab > tmp then tmp := tab
  end;
  writeln;
  writeln(\\'Najwieksza wartosc w tablicy to: \\', tmp);
  readln
end.

[Insenic]

Gdzieś mogłem popełnić drobne błędy bo pisałem z pamięci...

[Omol]

Super!! Wielkie dzieki:)

[Omol]

Jeszcze jedno pytanie! Chcialem zrobic petle! ALe w czasi kompilacji wyskakuje blad! A zrobilem to tak:

  program Tablica;

  uses CRT;

var
m,i,n,tmp,g: integer;
tab: array [1..100] of integer;
label powtorz;

Begin

 writeln (\\'Podaj ilosc elementow tablicy: \\'); readln(m);
  n:=100;
  powtorz;
    randomize;
       for i:=1 to m do
         Begin
           tab:=random(100);
           writeln (\\'  tab[\\',i,\\']=\\',tab);
           if tab>tmp then tmp:=tab;
           delay(1000);
         end;

 writeln (\\'Najwieksza licza tablicy jest liczba: \\',tmp);

writeln (\\'Czy chcesz powtórzyć to jeszcze raz? Tak(1)!\\'); readln(g);

if g = 1 then goto powtorz ;


readln;

end.

Za wskazanie bledy bede wdzieczny:)

[chmooreck]

2006-01-17 21:28:36 Omol napisał:

 > Mam problem. Na jutro potrzebuje rozwiazanie, kombinuje sam i lipa:(

bylo sie uczyc caly semestr...

 > Jeszcze jedno pytanie! Chcialem zrobic petle! ALe w czasi kompilacji wyskakuje blad!

tresc bledu mowi ci co zrobiles zle... a co najwazniejsze w ktorym miejscu...

[Lorenzo]

Ja bym ci proponował zmienić to:

[ciach]
(...)
label 1:powtórz;
(....)
goto 1;
[/ciach]

na pętle do while.
Goto jest deprecated i nie wskazane ;-)

[Lorenzo]

Sory.
Oczywiście w pascalu jest repeat until a nie do while. Za dużo tych języków mam w głowie ;-)

Spox Lorenzo niewielka pomyłka. W Pascalu ( a przynajmniej fpc i Turbo Pascal jest komenda while warunek do polecenie;

Rzeczywiście, w pascalu jest label oraz go to ale to jest jak z prezerwtywą: masz, ale nie należy używać Pozdr

[olka]

Cześć,
skompilowałam jądro z obsługą ufs, załadowałam moduł, robię mount a linuks mi na to, że nie może :/. O co chodzi? Googlam, googlam i co widzę:

2004-05-08 15:48:03 jezior napisał:

(...)
> FreeBSD uzywa defaultowo systemu plików ufs do 5.0, od 5.1 defaultowo jest ufs2.
 >
 > Linux potrafi czytac ufs, natomiast nie potrafi ufs2.
(...)

sprawdzam, że może jednak... przypadkiem... ufs..., ale niestety, mam ufs2.
Ale post jest dość stary, dlatego zwracam się tutaj z zapytaniem: nadal nie ma szans na odczyt partycji ufs2, czy to może ja źle mountuję ?

pozdrawiam
olka

[Maciek_Rutecki]

2.6.15.1 ./Documentation/filesystems/ufs.txt:

UFS OPTIONS
===========

ufstype=type_of_ufs
   UFS is a file system widely used in different operating systems.
   The problem are differences among implementations. Features of
   some implementations are undocumented, so its hard to recognize
   type of ufs automatically. That's why user must specify type of
   ufs manually by mount option ufstype. Possible values are:

   old   old format of ufs
      default value, supported as read-only

   44bsd   used in FreeBSD, NetBSD, OpenBSD
      supported as read-write

   ufs2    used in FreeBSD 5.x
      supported as read-only

   5xbsd   synonym for ufs2

   sun   used in SunOS (Solaris)
      supported as read-write

   sunx86   used in SunOS for Intel (Solarisx86)
      supported as read-write

   hp   used in HP-UX
      supported as read-only

   nextstep
      used in NextStep
      supported as read-only

   nextstep-cd
      used for NextStep CDROMs (block_size == 2048)
      supported as read-only

   openstep
      used in OpenStep
      supported as read-only

--
Maciek

[olka]

2006-01-17 16:56:40 Maciek_Rutecki napisał:

> 2.6.15.1 ./Documentation/filesystems/ufs.txt:
 >
 > UFS OPTIONS
 > ===========
 >
 > ufstype=type_of_ufs

(...)
 >    ufs2    used in FreeBSD 5.x
 >       supported as read-only
(...)
 
Dzięki ogromne, na usprawiedliwienie dodam, że w manie nie ma takiej opcji
są tylko: old, 44bsd, sun, sunx86, hp, nextstep, nextstep-cd, openstep.

Z tego, co widzę, tak mozna zamountować tylko partycję główną, a partycji mountowanych we FreeBSD jako /var czy /usr nie (puste katalogi). Jest na to jakaś rada?

dziękuję
olka

[jezior]

2006-01-17 16:44:43 olka napisał:

> Cześć,
 > skompilowałam jądro z obsługą ufs, załadowałam moduł, robię mount a linuks mi na to, że nie
 > może :/. O co chodzi? Googlam, googlam i co widzę:
 >
 > 2004-05-08 15:48:03 jezior napisał:
 >
 > (...)
 > > FreeBSD uzywa defaultowo systemu plików ufs do 5.0, od 5.1 defaultowo jest ufs2.
 >  >
 >  > Linux potrafi czytac ufs, natomiast nie potrafi ufs2.
 > (...)

I nadal jest to obowiazujace w kernelach serii 2.4.x, zmienilo sie w 2.6.x ale to juz opisal Maciek.