Giải bài tập Tin học 11 Bài tập và thực hành 1 VnDoc com Thư viện Đề thi Trắc nghiệm Tài liệu học tập miễn phí Trang chủ https //vndoc com/ | Email hỗ trợ hotro@vndoc com | Hotline 024 2242 6188 Giải[.]
Thư viện Đề thi - Trắc nghiệm - Tài liệu học tập miễn phí Giải tập Tin học 11: Bài tập thực hành 1 Mục đích, yêu cầu + Giới thiệu chương trình Pascal hồn chỉnh đơn giản + Làm quen với số dịch vụ Turbo Pascal Free Pascal việc soạn thảo, lưu trữ, dịch thực chương trình Nội dung a) Gõ chương trình sau: program Giai_PTB2; uses crt; var a,b,c,D: real; x1,x2:real; begin clrscr; write(‘a,b,c:’); readln(a,b,c); x1:=(-b-sqrt(b*b-4*a*c))/(2*a); X2:=-b/a-x1;Write(‘x1=’,x1:6:2,’x2=’,x2:6:2); Readln end b) Nhấn phím F2 lưu chương trình với tên hello1.pas lên đĩa c) Nhấn tổ hợp phím Alt+F9 để dịch sửa lỗi cú pháp (nếu có) Trang chủ: https://vndoc.com/ | Email hỗ trợ: hotro@vndoc.com | Hotline: 024 2242 6188 Thư viện Đề thi - Trắc nghiệm - Tài liệu học tập miễn phí Nếu thành cơng Compile successful hình Nếu thất bạn thông báo Compile failed d) Nhấn tổ hợp phím Ctrl+F9 để thực chương trình Nhập giá trị 1;-3,2 Quan sát kết hình e) Nhấn tổ hợp phím Ctrl+F9 để thực chương trình Nhập giá trị 1;0,-2 Quan sát kết hình Trang chủ: https://vndoc.com/ | Email hỗ trợ: hotro@vndoc.com | Hotline: 024 2242 6188 Thư viện Đề thi - Trắc nghiệm - Tài liệu học tập miễn phí f) Thực chương trình mà khơng dung biến trung gian D Cách làm: chỗ sử dụng biến trung gian D ta thay thẳng giá trị b*b-4*a*c vào program Giai_PTB2; uses crt; var a,b,c,D: real; x1,x2:real; begin clrscr; write(‘a,b,c:’); readln(a,b,c); x1:=(-b-sqrt(b*b-4*a*c))/(2*a); X2:=-b/a-x1;Write(‘x1=’,x1:6:2,’x2=’,x2:6:2); Readln end g) Sửa lại chương trình nhận câu c) cách thay đổi cơng thức tính x2(Có cách để tính x2) Cách làm: ta có a*2=a+a Như ta thay 2*a=a+a cho kết program Giai_PTB2; uses crt; var a,b,c,D: real; x1,x2:real; begin clrscr; write(‘a,b,c:’); Trang chủ: https://vndoc.com/ | Email hỗ trợ: hotro@vndoc.com | Hotline: 024 2242 6188 Thư viện Đề thi - Trắc nghiệm - Tài liệu học tập miễn phí readln(a,b,c); x1:=(-b-sqrt(b*b-4*a*c))/(a+a); X2:=-b/a-x1;Write(‘x1=’,x1:6:2,’x2=’,x2:6:2); Readln end h) Thực chương trình sửa với liệu 1; 5; -6 Quan sát kết hình i)Thực chương trình với liệu 1;1;1 quan sát kết hình Lỗi ta tính b*b-4*a*c với a=b=c=1 giá trị 1-4=-3 Mà lấy bậc số âm nên chương trình gây lỗi Xem thêm tại: https://vndoc.com/tai-lieu-hoc-tap-lop-11 Trang chủ: https://vndoc.com/ | Email hỗ trợ: hotro@vndoc.com | Hotline: 024 2242 6188 ... readln(a,b,c); x1:=(-b-sqrt(b*b-4*a*c))/(a+a); X2:=-b/a-x1;Write(‘x1=’,x1:6:2,’x2=’,x2:6:2); Readln end h) Thực chương trình sửa với liệu 1; 5; -6 Quan sát kết hình i)Thực chương trình với liệu 1; 1 ;1 quan... b*b-4*a*c vào program Giai_ PTB2; uses crt; var a,b,c,D: real; x1,x2:real; begin clrscr; write(‘a,b,c:’); readln(a,b,c); x1:=(-b-sqrt(b*b-4*a*c))/(2*a); X2:=-b/a-x1;Write(‘x1=’,x1:6:2,’x2=’,x2:6:2);... hình Lỗi ta tính b*b-4*a*c với a=b=c =1 giá trị 1- 4=-3 Mà khơng thể lấy bậc số âm nên chương trình gây lỗi Xem thêm tại: https://vndoc.com/tai-lieu -hoc -tap- lop -11 Trang chủ: https://vndoc.com/ |