Một Số Bài Tập Pascal Lớp 11

Có thể bạn quan tâm

Trang Chủ
Đăng ký
Đăng nhập
Upload
Liên hệ

Trang Chủ › Tin Học Lớp 11 Một số bài tập Pascal lớp 11

Câu 1: Viết chương trình giải hệ 2 phương trình bậc nhất, với a, b, c, d, e, f, là các hệ số thực nhập vào từ bàn phím. Thông báo kết quả ra màn hình.

Câu 2: Viết chương trình giải phương trình bậc hai: ax2 + bx + c = 0, với a, b, c là các hệ số thực nhập vào từ bàn phím.

Câu 3: Nhập vào một dãy n số bất kỳ từ bàn phím. Tìm giá trị lớn nhất và nhỏ nhất của dãy số đó. In kết quả tìm được ra màn hình cùng vị trí của các giá trị max, min trong dãy số.

Câu 4: Viết chương trình nhập vào ma trận thực Anxm . Sau đó tìm giá trị lớn nhất, giá trị nhỏ nhất của ma trận này. In ma trận cùng kết quả tìm được ra màn hình.

3 trang

minh_thuy

11004

5 Download Bạn đang xem tài liệu "Một số bài tập Pascal lớp 11", để tải tài liệu gốc về máy bạn click vào nút DOWNLOAD ở trênMột số bài tập Pascal lớp 11 Câu 1: Viết chương trình giải hệ 2 phương trình bậc nhất, với a, b, c, d, e, f, là các hệ số thực nhập vào từ bàn phím. Thông báo kết quả ra màn hình. Câu 2: Viết chương trình giải phương trình bậc hai: ax2 + bx + c = 0, với a, b, c là các hệ số thực nhập vào từ bàn phím. Câu 3: Nhập vào một dãy n số bất kỳ từ bàn phím. Tìm giá trị lớn nhất và nhỏ nhất của dãy số đó. In kết quả tìm được ra màn hình cùng vị trí của các giá trị max, min trong dãy số. Câu 4: Viết chương trình nhập vào ma trận thực Anxm . Sau đó tìm giá trị lớn nhất, giá trị nhỏ nhất của ma trận này. In ma trận cùng kết quả tìm được ra màn hình. Hướng dẫn giải bài tập 1. Giải hệ bậc nhất 2 ẩn: PHP: {HE 2 PHUONG TRINH BAC NHAT} uses crt; var a,b,c,d,e,f,DD,Dx,Dy:real; BEGIN clrscr; Writeln('Nhap he so a, b, c: '); readln(a,b,c); Writeln('Nhap he so d, e, f: '); readln(d,e,f); DD:=a*e-d*b; Dx:=c*e-f*b; Dy:=a*f-d*c; IF DD0 then writeln('HPT co nghiem duy nhat: x=',Dx/DD:5:2,' va y=',Dy/DD:5:2); IF DD=0 then Begin IF (Dx0) or (Dy0) then writeln('HPT vo nghiem :('); IF (Dx=0) and (Dy=0) then writeln('HPT vo so nghiem :))'); End; readln; END. 2. Giải PT bậc 2: PHP: {Giai phuong trinh bac 2} uses crt; var a,b,c,delta:real; BEGIN clrscr; repeat write('Nhap a, b, c:'); readln(a,b,c); Until (a0) or (b0) or (c0); IF a=0 then IF b0 then writeln('Phuong trinh co nghiem duy nhat: x= ',-c/b:6:3) else write('Phuong trinh vo nghiem!!!') ELSE Begin DELTA:=b*b-4*a*c; If delta=0 then write('Phuong trinh co nghiem kep: x=',-b/a:6:3); IF delta>0 then begin writeln('Phuong trinh co 2 nghiem phan biet: '); writeln('X1= ',(-b+sqrt(delta))/2/a:6:3); writeln('X2= ',(-b-sqrt(delta))/2/a:6:3); end; If delta<0 then write('Phuong trinh vo nghiem.!!.'); end; readln; END. 3. Nhập vào dãy n số bất kỳ từ bàn phím. Tìm giá trị max, min của dãy. In kết quả tìm được ra màn hình cùng vị trí max, min trong dãy. PHP: {MAX, MIN cua day} uses crt; var A: array[1..1000] of INTEGER; n,i,max,min:integer; BEGIN clrscr; write('Nhap so phan tu cua day: '); read(n); FOR i:=1 to n do Begin write('A[',i,']= '); read(a[i]); end; max:=a[1]; min:=a[1]; FOR i:=1 to n do BEGIN IF a[i]>max then max:=a[i]; IF a[i]<min then min:=a[i]; END; writeln('Gia tri MAX = ',max); writeln('Gia tri MIN = ',min); write('Cac vi tri max la: '); For i:=1 to n do If a[i]=max then write(i:4); writeln; write('Cac vi tri min la: '); For i:=1 to n do If a[i]=min then write(i:4); readln; readln; END. Bài 4: Tìm giá trị MAX, MIN của ma trận PHP: uses crt; var A: array[1..100,1..100] of INTEGER; n,m,i,j,max,min:integer; BEGIN clrscr; write('Nhap n,m cua ma tran A[n,m]: '); read(n,m); FOR j:=1 to m do FOR i:=1 to n do Begin write('A[',i,',',j,']= '); read(a[i,j]); end; max:=a[1,1]; min:=a[1,1]; tong:=0; FOR j:=1 to m do FOR i:=1 to n do Begin IF a[i,j]>max then max:=a[i,j]; IF a[i,j]<min then min:=a[i,j]; End; writeln('Gia tri MAX cua ma tran la ',max); writeln('Gia tri MIN cua ma tran la ',min); readln; END.

Tài liệu đính kèm:

mot_so_bai_tap_Pascal_hay_lop_11.doc

Tài liệu liên quan

Giáo án Tin học lớp 11 - Bài tập
Lượt xem: 2042 Lượt tải: 0
Một số đề Phần “xâu” trong môn Tin Học:
Lượt xem: 1642 Lượt tải: 0
Giáo án Tin học khối 11 - Trung tâm GDTX Hữu Lũng - Bài 4: Chèn các đối tượng đặc biệt (tiếp)
Lượt xem: 1752 Lượt tải: 0
Đề kiểm tra 45 phút năm học: 2007 - 2008 môn: Tin Học
Lượt xem: 1601 Lượt tải: 0
Ôn tập môn Tin học
Lượt xem: 2102 Lượt tải: 0
Giáo án Tin học 11 - Chương VI: Chương trình con và lập trình có cấu trúc - Bài 17: Chương trình con và phân loại
Lượt xem: 5590 Lượt tải: 1
Giáo án Tin học 11 - Tiết 47 - Bài 13: Bảo mật thông tin trong các hệ cơ sở dữ liệu
Lượt xem: 2532 Lượt tải: 1
Giáo án môn Tin học khối 11 - Bài 17: Chương trình con và phân loại
Lượt xem: 1996 Lượt tải: 0
Giáo án Tin học 11 - Tiết 26 - Bài 12: Kiểu xâu
Lượt xem: 883 Lượt tải: 0
Giáo án Tin học 11 - Bài 10: Cấu trúc lặp (tiết 2) - Vũ Thị Thanh
Lượt xem: 4235 Lượt tải: 2