Thư viện tài liệu học tập, tham khảo online lớn Nội dung viết Soạn SGK Tin Học lớp 11: Bài tập thực hành 1 Mời em học sinh quý thầy cô giáo tham khảo hướng dẫn Soạn SGK Tin học lớp 11: Bài tập thực hành ngắn gọn đầy đủ nhất, biên soạn chia sẻ Soạn SGK Tin Học lớp 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*b4*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ó) Website: https://tailieu.com/ | Email: info@tailieu.com | https://www.facebook.com/KhoDeThiTaiLieuCom Thư viện tài liệu học tập, tham khảo online lớn 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 Website: https://tailieu.com/ | Email: info@tailieu.com | https://www.facebook.com/KhoDeThiTaiLieuCom Thư viện tài liệu học tập, tham khảo online lớn 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 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*b4*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: ’ ); readln(a,b,c); x1:=(-b-sqrt(b*b4*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 Website: https://tailieu.com/ | Email: info@tailieu.com | https://www.facebook.com/KhoDeThiTaiLieuCom Thư viện tài liệu học tập, tham khảo online lớn 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 ►►CLICK NGAY vào nút TẢI VỀ để tải Giải tập Tin học lớp 11: Bài tập thực hành (Ngắn gọn) file PDF hồn tồn miễn phí Website: https://tailieu.com/ | Email: info@tailieu.com | https://www.facebook.com/KhoDeThiTaiLieuCom ... cho kết 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*b4*a*c))/(a+a); X2:=-b/a-x1; Write( ‘ x1= ’,x1:6:2, ’ x2=’ ,x2:6:2);... 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 ►►CLICK NGAY vào nút TẢI VỀ để tải Giải tập Tin học lớp 11 : Bài tập thực hành (Ngắn gọn) file... 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*b4*a*c))/(2*a); X2:=-b/a-x1; Write( ‘ x1= ’,x1:6:2, ’ x2=’ ,x2:6:2); readln end