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

Chia sẻ: Paradise4 Paradise4 | Ngày: | Loại File: PDF | Số trang:12

Thêm vào BST

Báo xấu

97
lượt xem 7
download

Download Vui lòng tải xuống để xem tài liệu đầy đủ

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ả

Chủ đề:

Bình luận(0) Đăng nhập để gửi bình luận!

Lưu

Nội dung Text: BÀI THỰC HÀNH TIN HỌC SỐ 4

Bµi thùc hµnh sè 4 Gi¸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 1
I_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 ? 2
I_Bµi 1: Uses Crt ; BEGIN Const 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 ; 3
I_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 ; 4
I_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 ; 6
II_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. 7
II_Bµi 2: Program SubSum1; Begin Const max=100; Radomize; Type Write (‘ Nhap n =’); MyArray=array[1..max] Readln(n) ; of integer; For i :=1 to n do Var A , B : MyArray; A[i] := random(300) – n , i , j : integer ; random(300) ; For i :=1 to n do write(A[i] :5); Writeln ; 8
II_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. 9
II_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 . 11
Xin c¶m ¬n c¸c b¹n ®· theo dâi ! 12