Great by: Nguyn Trng Hong Email: quanaxiem_lovelytnt@yahoo.com Giải Bài Tập Tin Học 11 Great by: Nguyn Trng Hong Email: quanaxiem_lovelytnt@yahoo.com Chơng 1: M ột số khái niệm lập trình ngôn ngữ lập trình Bài tập Ngi ta phi xõy dng ngụn ng lp trỡnh bc cao vỡ - Ngụn ng lp trỡnh bc cao gn gi vi t nhiờn hn, thun tin cho ủụng ủo ngi lp trỡnh - Ngụn ng lp trỡnh bc cao núi chung khụng ph thuc vo loi mỏy, cựng mt chng trỡnh cú th thc hin nhiu mỏy khỏc - Chng trỡnh vit bng ngụn ng bc cao d hiu, d hiu chnh v d nõng cp hn - Ngụn ng lp trỡnh bc cao cho phộp lm vic vi nhiu kiu d liu v cỏch t chc d liu dng, thun tin cho mụ t thut toỏn Chng trỡnh dch l chng trỡnh ủc bit, cú chc nng chuyn ủi chng trỡnh ủc vit trờn ngụn ng lp trỡnh bc cao thnh chng trỡnh thc hin ủc trờn mỏy tớnh - Biờn dch: duyt, kim tra, phỏt hin li, xỏc ủnh chng trỡnh ngun cú dch ủc khụng Dch ton b chng trỡnh ngun thnh mt chng trỡnh ủớch cú th thc hin trờn mỏy v cú th lu tr li ủ s dng v sau cn - Thụng dch: ln lt dch tng cõu lnh ngụn ng mỏy ri thc hiờn cõu lnh va dch ủc hoc thụng bỏo li nu khụng dch ủc Cỏc ủim khỏc gia tờn dnh riờng v tờn chun: tờn dnh riờng khụng ủc dựng khỏc vi ý ngha xỏc ủnh, tờn chun cú th dựng vi ý ngha khỏc ỳng: tamgiac, bai5a, xemxonxiu_ngu C: 6,23 6.23 E: A20 tờn cha cú giỏ tr G: + H: C CI: TRUE true l hng logic Great by: Nguyn Trng Hong Email: quanaxiem_lovelytnt@yahoo.com Chơng 2: C hơng trình đơn giản Bài Thực Hành Số -***** -***** ***** S khỏc gia hng cú ủt tờn v tờn bin: Giỏ tr ca hng cú ủt tờn khụng thay ủi thc hin chng trỡnh cũn giỏ tr ca bin cú th thay ủi ti tng thi ủim thc hin chng trỡnh Khai bỏo bin nhm nhng mc ủớch sau: - Xỏc ủnh kiu ca bin Trỡnh dch s bit cỏch t chc ụ nh cha giỏ tr ca bin - a tờn bin vo danh sỏch cỏc ủi tng ủc chng trỡnh qun lớ - Trỡnh dch bit cỏch truy cp giỏ tr ca bin v ỏp dng thao tỏc thớch hp cho bin integer, real, extended, longint D C (1 + z ) * ( x + y / z ) /(a /(1 + x * x * x * x)) 2a a) ; b) abc ; c) b ; d) 2b b ac a +b a) program bai8a; uses crt; crt; var x,y:real; kt:boolean; begin clrscr; write('Nhap x: ');readln(x); write('Nhap y: ');readln(y); kt:=false; if ((yabs(x)) or (y=abs(x))) then kt:=true; if kt then write('Diem vua nhap thuoc phan gach cheo') Great by: Nguyn Trng Hong Email: quanaxiem_lovelytnt@yahoo.com else write('Khong thuoc'); thuoc'); readln end end Ví Dụ b) program bai8; uses crt; var x,y:real; kt:boolean; begin clrscr; write('Nhap x: ');readln(x); write('Nhap y: ');readln(y); kt:=false; if (abs(y)=2*1esh>=2*1e-16 begin n:=n+1; sh:=sh*(1/n); e:=e+sh; end; end; writeln('Gia tri e(n) la: ',e:10:6); readln end end Ví Dụ Bi program program Bai6; Bai6; uses crt; var x, y:byte; begin clrscr; for x:=1 to 36 for y:=0 to 20 if (x+y=36) and (2*x+4*y=100) then begin writeln('Co ',x,' Ga'); write('Co ',y,' Cho'); end; end; readln end end Ví Dụ Bi program Bai7; Bai7; uses crt; var b, c, n:byte; begin begin clrscr; repeat write('Nhap tuoi write('Nhap tuoi if (b(b-c=25) and (b>=2*c); if b=2*c then writeln('Hien tuoi cha gap hai lan tuoi con.') else if b>2*c then writeln('Sau ',b',b-2*c,' nam tuoi cha se gap doi tuoi con'); readln end end Ví Dụ Bi program Bai8; Bai8; uses crt; var A, B, St, Luu :real; n:byte; begin clrscr; write('Nhap so tien gui: ');readln(a); write('Nhap write('Nhap so tien nhan: ');readln(b); luu:=A; n:=0; st:=a; while St