Witam Mam olbrzymią prośbe dla ludzi, ktorzy mają wieksze pojecie o Turbo Pascalu niż ja - jest ich tu zapewne dużo :D Mam 6 zadanań, właśnie z Pascala przez, ktore nie potrafie przebrnać. Prosze w zwiazku z tym o pomoc kogoś kto zna sie na tym. Oto one: Zad.1 Napisz program w Pascalu, który a)...

Witam.Jedno z sumowaniem dla przykładu zrobiłem.Z resztą kolega powinien sobie poradzić bo wzór już będzie i programiki są bardzo proste Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka program suma_tablic; uses crt; type tab=array[0..10] of array[0..10] of integer; var a,b,c:tab; i,j:integer; procedure wyswietl(d:tab); var i,j:integer; BEGIN for i:=0 to 5 do BEGIN for j:=0 to 5 do BEGIN if d >=10 then write(d ,' ') else write(d ,' '); END; writeln; END; END; BEGIN clrscr; randomize; {petla losowania liczb do tablic oraz sumowania} for i:=0 to 5 do BEGIN for j:=0 to 5 do BEGIN a :=random(10); b :=random(10); c :=a +b END; END; writeln('Tablica A :'); wyswietl(a); writeln; writeln('Tablica B :'); wyswietl(b); writeln; writeln('Tablica po sumowaniu :'); wyswietl(c); writeln; write('Nacisnij ENTER'); readln; END.

Witam Zmień tytuł tematu bo jest niezgodny z regulaminem. Napisz z czym konkretnie masz problem to pomyślimy. Pozdrawiam Artur

W miare mozliwości prosiłbym o rozwiazanie 2 dowlolnych przykładów, wtedy bede wiedział dokładnie jak sie do tego zabrać.

Witam Rozumiem, że przedstawione rozwiązanie dotyczy zadania nr 4. Chciałem zwrócić uwagę na pomyłkę w kodzie. Funkcja random (X) losuje liczby naturalne z przedziału [0,X) czyli od 0 do X-1. Więc jeżeli chcemy wylosować liczby z przedziału od 0 do 10 to należy użyć np. Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowkajakas_zmienna := random (11); gdy to miałby być zakres np. od 1 do 10 wpisujemy Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowkajakas_zmienna := random (10)+1; funkcję random można użyć również bez parametrów mniej więcej tak: Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowkajakas_zmienna := random ; losuje wtedy liczby rzeczywiste z przedziału [0,1) Pozdrawiam Artur

Faktycznie, dzieki 'podpowiedzi' zadania okazały sie proste . Temat uważam za zamkniety. I dziekuje wszystkim, którzy zdecydowali sie pomóc.

REKLAMA

Adblock/uBlockOrigin/AdGuard mogą powodować znikanie niektórych postów z powodu nowej reguły.

Pascal Turbo: tablica 10x10, losowe liczby [-10,10], minima kolumn, transpozycja

RaffaelloNSX 20 Sty 2007 17:25 20430 5

REKLAMA

Zgłoś naruszenie prawa

Odpowiedz | Nowy temat

#1 3466064 20 Sty 2007 17:25

RaffaelloNSX RaffaelloNSX

Poziom 10

Posty: 25
Autor tematu

Post #1
3466064 20 Sty 2007 17:25

Witam

Mam olbrzymią prośbe dla ludzi, ktorzy mają wieksze pojecie o Turbo Pascalu niż ja - jest ich tu zapewne dużo Mam 6 zadanań, właśnie z Pascala przez, ktore nie potrafie przebrnać. Prosze w zwiazku z tym o pomoc kogoś kto zna sie na tym. Oto one:

Zad.1

Napisz program w Pascalu, który
a) stworzy tablice 10 x 10 liczb
b) wypełnij ją losowymi wartościami z zakresu [-10, +10]
c) dla każdej kolumny wyznacz minimum.
Program ma wyświetlać tablice wypełnioną liczbami oraz jeden wiersz w którym będą odpowiadające kolumnom minima.

Zad.2
Napisz program w Pascalu, który
a) stworzy tablice 10 x 10 liczb
b) wypełnij ją losowymi wartościami z zakresu [-10, +10]
c) zamieni wiersze z kolumnami
Program ma wyświetlić tablice wypełnioną liczbami przed i po transformacji
MOŻESZ UŻYC TABLICY POMOCNICZEJ

Zad.3
Napisz program w Pascalu, który
a) stworzy tablice 10 x 10 liczb
b) wypełnij ją losowymi wartościami z zakresu [0, +10]
c) i policzy ile razy wystąpiły wartości 5 i 7.
Program ma wyświetlić tablice wypełnioną liczbami oraz jeden wiersz w którym będą liczby opisujące ile razy wystąpiła liczba 5 i 7.

Zad.4
Napisz program w Pascalu, który
a) stworzy tablice A(6 x 6) i B(6 x 6) liczb
b) wypełnij ją losowymi wartościami z zakresu [0, +10]
c) stworzy tablice C(6 x6) której wartości będą sumą tablic A i B

Zad.5
Napisz program w Pascalu, który
a) stworzy tablice A(5 x 5) i B(5 x 5) liczb
b) wypełnij tablice A losowymi wartościami z zakresu [0, +1]
c) wypełnij tablice B losowymi wartościami z zakresu [1, +10]

Zad.6
Napisz program w Pascalu, który
a) stworzy tablice 7 x 7 liczb
b) stwórz plik dane.txt z liczbami które wykorzystasz w punkcie C
c) wypełnij ją wartościami pobranymi z pliku dane.txt

Z góry dziekuje.

REKLAMA
#2 3468203 21 Sty 2007 02:12

Lucart Lucart

Poziom 12

Posty: 9

Pomógł: 1

Ocena: 4
Pomocny post? (0)

Post #2
3468203 21 Sty 2007 02:12

Witam

Zmień tytuł tematu bo jest niezgodny z regulaminem.

Napisz z czym konkretnie masz problem to pomyślimy.

Pozdrawiam

Artur
REKLAMA
#3 3468283 21 Sty 2007 07:24

RaffaelloNSX RaffaelloNSX

Poziom 10

Posty: 25
Autor tematu Pomocny post? (0)

Post #3
3468283 21 Sty 2007 07:24

W miare mozliwości prosiłbym o rozwiazanie 2 dowlolnych przykładów, wtedy bede wiedział dokładnie jak sie do tego zabrać.
REKLAMA

Pomocny post

#4 3470824 21 Sty 2007 19:48

Killerca Killerca

Poziom 13

Posty: 56

Pomógł: 5

Pomocny post

Post #4

3470824 21 Sty 2007 19:48

Witam.Jedno z sumowaniem dla przykładu zrobiłem.Z resztą kolega powinien sobie poradzić bo wzór już będzie i programiki są bardzo proste

 program suma_tablic;
uses crt;
type tab=array[0..10] of array[0..10] of integer;
var
a,b,c:tab;
i,j:integer;

procedure wyswietl(d:tab);
var
i,j:integer;
BEGIN
  for i:=0 to 5 do
  BEGIN
    for j:=0 to 5 do
    BEGIN
      if d[i,j]>=10 then
      write(d[i,j],' ')
      else
      write(d[i,j],'  ');
    END;
    writeln;
  END;
END;

BEGIN
  clrscr;
  randomize;
  {petla losowania liczb do tablic oraz sumowania}
  for i:=0 to 5 do
  BEGIN
    for j:=0 to 5 do
    BEGIN
      a[i,j]:=random(10);
      b[i,j]:=random(10);
      c[i,j]:=a[i,j]+b[i,j]
    END;
  END;
  writeln('Tablica A :');
  wyswietl(a);
  writeln;
  writeln('Tablica B :');
  wyswietl(b);
  writeln;
  writeln('Tablica po sumowaniu :');
  wyswietl(c);
  writeln;
  write('Nacisnij ENTER');
  readln;
END.

REKLAMA
#5 3472078 21 Sty 2007 23:50

Lucart Lucart

Poziom 12

Posty: 9

Pomógł: 1

Ocena: 4
Pomocny post? (+2)

Post #5
3472078 21 Sty 2007 23:50

Witam
Rozumiem, że przedstawione rozwiązanie dotyczy zadania nr 4.

Chciałem zwrócić uwagę na pomyłkę w kodzie.

Funkcja random (X) losuje liczby naturalne z przedziału [0,X) czyli od 0 do X-1.
Więc jeżeli chcemy wylosować liczby z przedziału od 0 do 10 to należy użyć np.
Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka
jakas_zmienna := random (11);

gdy to miałby być zakres np. od 1 do 10 wpisujemy
Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka
jakas_zmienna := random (10)+1;

funkcję random można użyć również bez parametrów mniej więcej tak:
Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka
jakas_zmienna := random ;

losuje wtedy liczby rzeczywiste z przedziału [0,1)

Pozdrawiam
Artur
#6 3481683 24 Sty 2007 13:47

RaffaelloNSX RaffaelloNSX

Poziom 10

Posty: 25
Autor tematu Pomocny post? (0)

Post #6
3481683 24 Sty 2007 13:47

Faktycznie, dzieki 'podpowiedzi' zadania okazały sie proste . Temat uważam za zamkniety. I dziekuje wszystkim, którzy zdecydowali sie pomóc.
Zarejestruj konto, Zaloguj się i bądź aktywny na forum, a wtedy reklamy nie będą się pojawiać. Dołącz do dyskusji i otrzymaj punkty za rejestrację oraz odpowiedzi.

Zainstaluj aplikację Elektroda

Odpowiedz | Nowy temat

Zgłoś naruszenie prawa

REKLAMA