BÀITẬP THỰC HÀNH (TIN 11) SGK 50 - 51 1) Hãy cho biết giống khác hai dạng câu lệnh if-then - Câu lệnh if-then có dạng: dạng thiếu dạng đủ Việc giống khác dạng xoay quanh cú pháp ngữ nghĩa - Về cú pháp: dạng giống có điều kiện (là biểu thức logic) nằm sau if câu lệnh (có thể câu lệnh ghép) nằm sau then Khác nhau, có dạng đủ có else sau else có câu lệnh khác (có thể câu lệnh ghép) Như vậy, dạng thiếu dùng điều kiện, câu lệnh; dạng đủ dùng điều kiện, câu lệnh Ngoài ra, dấu chấm phẩy “;” kết thúc câu lệnh if-then nằm sau câu lệnh sau else dạng đủ nằm sau câu lệnh sau then dạng thiếu - Về ngữ nghĩa: dạng giống kiểm tra điều kiện thực câu lệnh sau then điều kiện (true) Khác nhau, dạng đủ, điều kiện sai thực câu lệnh nằm sau else 2) Câu lệnh ghép gì? Tại phải có câu lệnh ghép? - Câu lệnh ghép tập hợp hay nhiều câu lệnh nằm cặp begin … end; câu lệnh ghép hay gọi khối lệnh (block) - Câu lệnh ghép dùng để gộp câu lệnh đơn lại nhằm thể nhiều thao tác với nhiều biến, giúp dùng dùng lại nhiều lần câu lệnh rẽ nhánh, lệnh lặp 3) Có thể dùng câu lệnh while-do để thay cho câu lệnh for-do không? Nếu được, thực điều với chương trình Tong_1a - Hoàn toàn dùng câu lệnh while-do để thay cho câu lệnh for-do, ví dụ sau thể điều đó: Program Tong_1a; 4.Viết câu lệnh rẽ nhánh tính: Uses crt; a) Var S:real; Program za; a,N:integer; Uses crt; Begin Var x,y,x2,y2,z:real; Clrscr; Begin Write('Hay nhap gia tri a: '); Clrscr; Readln(a); Write('x,y: '); S:=1.0/a; N:=1; Readln(x,y); While (N=x)then Writeln('Tong S la: ',S:8:4); z:=x+y; Readln if(x2+y2>1) and (y=25)) begin Write('Nhap tuoi cha, tuoi : '); Readln(tcha,tcon); end; dem:=0; While not(tcha=tcon*2) begin tcha:=tcha+1; tcon:=tcon+1; dem:=dem+1; end; Write('Tuoi cha gap doi tuoi sau ',dem,' nam'); Readln End 8.Lập trình Program Lai; Uses crt; Var A,B:real; dem:integer; Begin Clrscr; Write('Nhap so tien A: '); Readln(A); Write('Nhap so tien tong cong B: '); Readln(B); dem:=0; While B>A+dem*A*0.003 begin dem:=dem+1; end; Write('Ban nhan duoc ',B:8:3,' sau ',dem,' thang'); Readln End ... trình tính: Program Cau5aTrang51; Uses crt; Var Y:real; n:integer; Begin 6.Lập trình để giải toán cổ - Nếu giải toán hệ phương trình bậc ẩn số không hay cách dùng vòng lặpwhile Hiển nhiên vào