BÀI THỰC HÀNH TIN HỌC SỐ 4

Tham khảo tài liệu bài thực hành tin học số 4, công nghệ thông tin, tin học văn phòng phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả
Nội dung trích xuất từ tài liệu:
BÀI THỰC HÀNH TIN HỌC SỐ 4 Bµi thùc hµnh sè 4Gi¸o viªn híng dÉn : ThÇy TrÇn Do·n Vinh Sinh viªn thùc tËp : Ph¹m ThÞ Minh Thïy Líp K56A_Khoa CNTT_§HSP Hµ Néi 1I_Bµi 1:► a) H·y t×m hiÓu vµ ch¹y thö ch¬ng tr×nh thùc hiÖn thuËt to¸n s¾p xÕp d·y sè nguyªn b»ng thuËt to¸n tr¸o ®æi víi c¸c gi¸ trÞ kh¸c nhau cña n díi ®©y.Qua ®ã nhËn xÐt vÒ thêi gian ch¹y cña ch¬ng tr×nh ? 2I_Bµi 1:Uses Crt ; BEGINConst Nmax=250 ; ClrScr;Type ArrInt = Randomize ;array[1..Nmax] of integer ; Write (‘Nhap n = ‘) ;Var n , i , j , t : integer ; Readln(n); A : ArrInt ; For i :=1 to n do A[i] :=random(300)- random(300); For i:=1 to n do write (A[i] :5) ; Writeln ; 3I_Bµi 1:For j := N downto 2 do Writeln (‘ Day so duoc sap xep : ‘) ; For i :=1 to j – 1 do For i := 1 to n do If A[i] > A[i+1] then Write (A[i] :7 ); Begin Writeln ; t :=A[i]; Readln A[i] := A[i+1]; END. A[i+1] := t ; End ; 4I_Bµi 1:►b) Khai b¸o thªm biÕn nguyªn Dem vµ bæ sung vµo ch¬ng tr×nh nh÷ng c©u lÖnh cÇn thiÕt ®Ó biÕn Dem tÝnh sè lÇn thùc hiÖn tr¸o ®æi trong thuËt to¸n .§a kÕt qu¶ t×m ®îc ra mµn h×nh . 5 I_Bµi 1:+ Khai b¸o : n , i , j ,t , d :integer ; End ;+ Bæ sung ch¬ng tr×nh : Writeln (‘ So lan thuc hien thuat toan :’,d,’’);d :=0 ; Writeln (‘ Day so duoc sap xep: ‘);For j:= N downto 2 do For i:=1 to n do For i:=1 to j – 1 do Write (A[i] : 7); If A[i] > A[i+1] then Write (d); Begin Writeln; d:= d+1 ; Readln t := A[i] ; End. A[i] := A[i+1] A[i+1] := t ; 6II_Bµi 2: H·y ®äc vµ t×m hiÓu nh÷ng ph©n tÝch ®Ó► viÕt ch¬ng tr×nh gi¶i bµi to¸n :► Cho m¶ng A gåm n phÇn tö . H·y viÕt ch¬ng tr×nh t¹o m¶ng B[1..n], trong ®ã B[i] lµ tæng cña i phÇn tö ®Çu tiªn cña A. 7II_Bµi 2:Program SubSum1; BeginConst max=100; Radomize;Type Write (‘ Nhap n =’);MyArray=array[1..max] Readln(n) ;of integer; For i :=1 to n doVar A , B : MyArray; A[i] := random(300) – n , i , j : integer ; random(300) ; For i :=1 to n do write(A[i] :5); Writeln ; 8II_Bµi 2: Ta t¹o c¸c phÇn tö thø i cña For i :=1 to n do Begin m¶ng B b»ng c¸ch cho vßng B[i]:=0; For ch¹y tõ 1 ®Õn i , sau ®ã For j :=1 to i do céng dÇn c¸c A[i] l¹i víi nhau :B[i]:=B[i]+A[j]; For i :=1 to n do End ; Begin For i :=1 to n do write (B[i]:6); B[i] :=0 ; Readln For j := 1 to i do B[i] := B[i]+A[j] ;End. 9II_Bµi 2:► Ta cã hÖ thøc sau : B[1]:=A[1] ; B[i]:=B[i-1]+A[i] , 1 Bµi tËp vÒ nhµ :► -ViÕt ch¬ng tr×nh t×m phÇn tö cã gi¸ trÞ lín nhÊt cña m¶ng vµ ®a ra mµn h×nh chØ sè vµ gi¸ trÞ cña phÇn tö t×m ®îc . NÕu cã nhiÒu phÇn tö cã cïng gi¸ trÞ lín nhÊt th× ®a ra phÇn tö cã chØ sè nhá nhÊt ?► - Híng dÉn qua : + X¸c ®Þnh d÷ liÖu vµo , d÷ liÖu ra ? + Sö dông biÕn j ®Ó lu gi¸ trÞ max . 11Xin c¶m ¬n c¸c b¹n ®· theo dâi ! 12 ...