![:rolleyes:](/public/style_emoticons/default/rolleyes.gif)
ratunku pomocy ja tego nie rozumiem...
Napisano 08 09 2007 - 11:05
Napisano 08 09 2007 - 15:13
Napisano 08 09 2007 - 15:49
Napisano 08 09 2007 - 22:58
Napisano 09 09 2007 - 11:18
Napisano 14 09 2007 - 19:27
Aman bez urazy ^^
Napisano 12 10 2007 - 17:15
schemat przez komputer to już prościej kodpotrzebuje tylko sam schemat
Napisano 26 10 2007 - 13:54
Napisano 18 06 2008 - 16:27
Napisano 18 06 2008 - 17:52
b:=A[nr]; A[nr]:=A[1]; A[1]:=b;Tłumacząc po kolei w tym wypadku:
nr:=5; //czyli: b:=A[5]; //gdzie A[5] jest równe 2, czyli b:=2; A[5]:=A[1]; //gdzie A[1] jest równe 4, czyli A[5]:=4; A[1]:=2;Także wynik zamiast A[1]:=4; co masz zapisane, powinien być A[1]:=2;.
s:=5;Algorytm dalszy mówi Ci, że w pętli od 1 elementu do elementu m (a m:=8; w Twoim przypadku) ma być sprawdzone, czy t[i] > s, gdzie t[1]:=-2;, t[2]:=11, itd. Jeśli jest to prawda to dane t[i] ma być wyświetlone na ekranie. Czyli wypisując co robi ta pętla krok po kroku:
t[1] > s // fałsz, bo t[1]:=-2, a s:=5; t[2] > s // prawda, bo t[2]:=11 - program wypisuje wynik na ekranie; t[3] > s // prawda, bo t[3]:=8 - wypisanie na ekran; t[4] > s // fałsz, bo t[4]:=-22; t[5] > s // prawda, bo t[5]:=32 - wypisanie na ekran; t[6] > s // fałsz, bo t[6]:=-11; t[7] > s // prawda, bo t[7]:=9 - wypisanie na ekran; t[8] > s // prawda, bo t[8]:=6 - wypisanie na ekran;Tak więc powinno być jeszcze t[3]:=8;.
Napisano 18 06 2008 - 18:41
Napisano 18 06 2008 - 22:13
Napisano 18 06 2008 - 22:25
Napisano 16 09 2008 - 17:54
Napisano 19 10 2008 - 11:13
Napisano 11 11 2008 - 17:13
program 1; uses crt; const w=6; {liczba wierszy} k=6; {liczba kolumn} type tab=array [1..w,1..k] of integer; var A:tab; i,j:integer; {zmienne tablicowe} k1,w2:integer; {odpowiadają za podanie wiersza,kolumny do zmiany} zamiana:integer; {odpowiada za zmianę} begin begin clrscr; writeln ('Losowanie elementow tablicy'); randomize; for i:=1 to w do for j:=1 to k do A[i,j]:=random(100); end; writeln ('Oto elementy tablicy przed zamiana'); for i:=1 to w do begin for j:=1 to k do write (A[i,j]:4); writeln; end; writeln; writeln ('Podaj numer kolumny do zamiany'); write ('k1= '); readln (k1); while (k1>k) or (k1<1) do begin writeln ('Podaj poprawny numer kolumny od 1 do ',k); readln (k1); end; writeln ('Podaj numer wiersza do zamiany'); write ('w2= '); readln (w2); while (w2>w) or (w2<1) do begin writeln ('Podaj poprawny numer wiersza od 1 do ',w); readln (w2); end; {zamiana} j:=1; for i:=1 to w do begin zamiana:=A[i,k1]; A[i,k1]:=A[w2,j]; A[w2,j]:=zamiana; j:=j+1 end; writeln ('Elementy tablicy po zamianie'); for i:=1 to w do begin for j:=1 to k do write (A[i,j]:4); writeln; end; repeat until keypressed; end.
Napisano 12 11 2008 - 21:42
0 użytkowników, 1 gości, 0 anonimowych