Niezalogowany (Zaloguj się)
WItaj Gościu! Możesz się teraz zalogować lub poprosić o członkowstwo na Forum Turbo Pascal Web Pag

Turbo Pascal: Tablica jednowymiarowa i dwuwymiarowa

W dół

Od 1 do 3 z 3

  1.  
    • CommentAuthorkatakumba
    • CommentTime18 Feb 2009
     
    2.Wypełnij tablicę jednowymiarową (30 elementową) losowymi (od 1 do 100) liczbami całkowitymi, wypisz zawartość tablicy na ekran i znajdź liczbę, która występuje w tablicy najczęściej. 9.Wypełnij tablicę dwuwymiarową (3 wiersze , 4 kolumny) losowymi (od 1 do 100) liczbami całkowitymi, wypisz zawartość tablicy na ekran, znajdź ile razy w tablicy wystąpiła podana z klawiatury liczba PROSZĘ O POMOC
    •  
      CommentAuthorLisy
    • CommentTime21 Feb 2009 zmieniony
     
    Punkt drugi : program tab_30; uses crt; var tab:array[1..30] of integer; tab1:array[1..100] of integer; a,b,c,i:integer; begin randomize; for i:=1 to 30 do begin tab:=random(100); end; for i:=1 to 30 do begin Writeln(tab[i]); end; for i:=1 to 30 do begin for a:=1 to 100 do begin if tab[i]=a then begin tab1[a]:=tab1[a]+1; end; end; end; b:=0; c:=0; for a:=1 to 100 do begin if tab1[a]>c then begin b:=a; c:=tab1[a]; end; end; Writeln; Writeln('Najczesciej pojawila sie liczba ',b,' - ',c,' razy'); readkey; end.
    •  
      CommentAuthorLisy
    • CommentTime21 Feb 2009 zmieniony
     
    a to odnosnie tego kolejnego : program tab_3_4; uses crt; var tab:array[1..4,1..3] of integer; a,b,i,j:integer; begin randomize; for i:=1 to 4 do begin for j:=1 to 3 do begin tab:=random(100); end; end; for i:=1 to 4 do begin for j:=1 to 3 do begin Write(tab[i,j]:4); end; Writeln; end; Writeln; Write('Podaj liczbe : '); readln(a); b:=0; for i:=1 to 4 do begin for j:=1 to 3 do begin if tab[i,j]=a then begin b:=b+1; end; end; end; Writeln; if b=1 then Writeln('Liczba ',a,' wystepuje w zbiorze ',b,' raz'); if b<>1 then Writeln('Liczba ',a,' wystepuje w zbiorze ',b,' razy'); readkey; end.

Od 1 do 3 z 3

  1.