pacan

Tiểu luận chuyên ngành: Tìm hiểu Pascal Lời cảm ơn Là sinh viên ngành CNTT nhu cầu tìm hiểu phát triển ngôn ngữ, ý tởng điều quan trọng Với sinh viên năm cuối nhu cầu cấp thiết Trong trình thực tiểu luận chuyên ngành "Tìm hiểu pascal", Em đà nỗ lực, cố gắng nhiều để tìm hiểu tài liệu, trao đổi với thầy cô, bạn bè để hoàn thành cách tốt đề tài Nhng hẳn tránh khỏi hạn chế kiến thức cịng nh kinh nghiƯm thùc tiƠn RÊt mong q thÇy cô bạn bè góp ý để em có thêm kinh nghiệm quý báu hoàn thành tốt đề tài sau Qua đây, em xin đợc gửi lời cảm ơn sâu sắc, chân thành tới Thầy Phan Anh Phong tổ ngôn ngữ lập trình đà tạo cho em điều kiện thuận lợi để em hoàn thành đề tài chuyên ngành Cuối xin cảm ơn gia đình, bạn bè tập thể lớp 45E3 - CNTT - ngời bên cạnh động viên, ủng hộ góp ý suốt trình học tập thực đề tài Em xin chân thành cảm ơn! Sinh viên thực hiện: Lê thị kim xuân SVTH: Lê Thị Kim Xuân Anh Phong GVHD: Phan Tiểu luận chuyên ngành: Tìm hiểu Pascal Mục lục Chơng I:Các toán mảng Bài 1: Vit chng trỡnh nhp vo n số thực từ bàn phím tính tổng chúng in mmàn hình Bµi 2: Viết chương trình nhập vào mảng m*n số nguyên tính tổng phần tử hàng chẵn cột lẻ Bµi 3: Viết chương trình nhập n số ngun từ bàn phím tính tổng số chẵn tổng số lẻ Bµi 4: Viết chương trình nhập n số nguyên xếp số theo thứ tự tăng dần Bµi 5: Viết chương trình tính tổng bình phương số âm mảng cỏc s nguyen Chơng II: Các toán trá Bµi 1: Sử dụng biến trỏ tính in hình s=2+5+ +3n-1,vói n nhập từ bàn phím Bµi 2: Sử dụng biến trỏ tính tổng in hình s=1!+2!+ +n!,vói n nhập từ bàn phím Bµi 3: Tính tổng mười số ngun nhập từ bàn phím Bµi 4: Sử dụng biến trỏ lập trình làm cơng việc : - Nhập n sv,mỗi sv gồm: hoten,tuoi,diem.Với n nhập vào - In danh sách sv nhập - Sắp xếp danh sacg sv theo th t im tng dn SVTH: Lê Thị Kim Xuân GVHD: Phan Anh Phong Tiểu luận chuyên ngành: Tìm hiểu Pascal Chơng I: toán vỊ m¶ng Bài 1: Viết chương trình nhập vào n số thực từ bàn phím tính tổng chúng in mmàn hình Mơ tả tốn: sử dụng cấu trúc liệu kiểu mảng để lưu trữ phần tử số thực 1.1 Phần khai báo - Khai báo mảng chiều để lưu phần tử nhập vào có kiểu số thực.Với số có kiểu liệu nguyên giới hạn khoảng định mà phần tử nhập vào không vượt qua - Khai báo số phần tử đựoc nhập vào có kiểu nguyên,và biến chạy i - Khai báo biến s để lưu kết tính tổng có kiểu số thực 1.2 Phần thân chương trình - Nhập giá trị phần tử n (n=1,2,3 ) - Sử dụng biến chạy i để duyệt tư phần tử thứ nhât đển phần tử cuối mảng,duyệt đến phần tử nhập giá trị cho phàn tử - Sau nhập giá tri cho phần tử cuối mảng thực hiên tính tổng + §ầu tiên ta gán s:=0; +Cho biến chạy i duyệt phần tử mảng,duyệt đến phần tử lấy phần tử để cộng dần vào biến tổng s:=s+a[i]; - Thực hiên i=n dừng in kết Mơ tả thuật tốn b1: nhập số phần tử n,và giá trị phần tử ú b2: gỏn s:=0; SVTH: Lê Thị Kim Xuân Anh Phong GVHD: Phan Tiểu luận chuyên ngành: Tìm hiểu vÒ Pascal b3: i:=i+1 b4: s:=s+a[i] b5: i=n dừng b6: in kết Cài đặt chương trình program sothuc; var a:array[1 100] of real; i,n:integer; s:real; begin write('nhap n');readln(n); for i:=1 to n begin write('a[',i,']=');readln(a[i]); end; s:=0; for i:=1 to n s:=s+a[i]; write('tong cua chung la s=',s:10:2); readln; end Bộ liệu chạy chương trình kết nhập vào n=5 a[1]=2; a[2]=3; a[3]=5; a[4]=1; a[5]=4; tổng chúng là: s=15 Bài 2:Viết chương trình nhập vào mảng m*n số nguyên tính tổng phần tử hàng chẵn cột lẻ Mô tả toán:sử dụng cấu trúc liệu kiểu mảng để lu tru cỏc SVTH: Lê Thị Kim Xuân Anh Phong GVHD: Phan Tiểu luận chuyên ngành: Tìm hiểu Pascal phần tử số nguyên 1.1 Phần khai báo - Khai báo mảng chiều để lưu phần tử số nguyên.Với số có kiểu liệu nguyên giới hạn khoảng định mà phần tử nhập vào không vượt qua - Khai báo số phần tử đựoc nhập vào có kiểu nguyên,và biến chạy i,j - Khai báo biến s để lưu tổng số nguyên 1.2 Phần thân chương trình - Nhập vào m phần tư tương ứng vói m hàng,n phần tử tương ứng với n cột - Sử dụng biến chạy i,j để duyệt phần tử mảng,duyệt từ phần tử đần đến phần tử cuối,duyệt đến phần tử nhập giá trị cho phần tử - Sau nhập giá trị cho phần tử ta thực tính tổng + Gán s:=0; + Cho biến chạy i,,j duyệt phần tử mảng duyệt đến phần tử kiểm tr điếu kiên sau Nếu phần tử hàng chẵn (i mod 2=0) phần tử cột lẻ (j mod 2=1) thi thực hiên lấy phần tử khỏi mảng cộng dần vào biến tổng s:=s+a[i,j] - Thực khi:i=m , j=n dừng in kết qủa Mơ tả thuật tốn b1: nhập m,n giá trị phần tử b2: gỏn s:=0 b3: i:=i+1; j:=j+1; SVTH: Lê Thị Kim Xuân Anh Phong GVHD: Phan Tiểu luận chuyên ngành: Tìm hiĨu vỊ Pascal b4: kiểm tra (i mod 2=0)and(j mod 2=1) b5: s:=s+a[i]; b6: i=m , j=n dừng b7: in kết Cài đặt chương trình program m*n; var a:array[1 100,1 100] of integer; i,j,m,n,s:integer; begin write('nhap m,n ');readln(m,n); for i:=1 to m for j:=1 to n begin write('a[',i,',',j,']='); readln(a[i,j]); end; s:=0; for i:=1 to m for j:=1 to n if(i mod 2=0) and(j mod 2=1) then s:=s+a[i,j]; write('tong cac phan tu tren hang chan cot le la s=',s); readln; end Bộ d liu u vo v kt qu SVTH: Lê Thị Kim Xuân Anh Phong GVHD: Phan Tiểu luận chuyên ngành: Tìm hiểu Pascal nhp vo m=4 , n=3 a[1,1]=1; a[1,2]=3; a[1,3]=5 a[2,1]=2; a[2,1]=2; a[2,3]=3 a[3,1]=3; a[3,2]=1; a[3,3]=5 a[4,1]=2; a[4,2]=3; a[4,3]=6 tổng phần tử hàng chãn cột lẻ là:s=13 Bài 3: Viết chương trình nhập n số nguyên từ bàn phím tính tổng số chẵn tổng số lẻ Mơ tả tốn: sử dụng cấu trúc liệu kiểu mảng để lưu trữ phần tử số nguyên 1.1 Phần khai báo - Khai báo mảng chiều để lưu phần tử nhập vào có kiểu số nguyên.Với số có kiểu liệu nguyên giới hạn khoảng định mà phần tử nhập vào không vượt qua - Khai báo n phần tử nhập vào có kiểu số nguyên,và biến chạy i - Khai báo biến sc sl để lưu tống số nguyên chẵn,và tổng số nguyên lẻ 1.2 Phần thân chương trình - Nhập vào n phần tử - Sử dụng biến chạy i đẻ duyệt phần tử mảng ,duyệt từ phần tử đến phần tử cuối mảng,duyệt đến phần tử thí nhập giá trị cho phần tử - Sau nhập giá trị cho phần tử ta thực tinh tổng gán sc:=0; sl:=0; - Cho biến chạy i duyệt phần tử mảng,duyệt đến phần tử kiểm tra phần tử (a[i] mod 2=0 )thì lấy phần tử khỏi mảng v cng dn vo bin sc sc:=sc+a[i] SVTH: Lê Thị Kim Xuân Anh Phong GVHD: Phan Tiểu luận chuyên ngành: Tìm hiểu Pascal ngc li thỡ cng phn tử vào biến sl sl:=sl+a[i] - Thực hiên i=n thi dừng in tổng chãn, tổng lẻ Mơ tả thuật tốn b1: nhập n giá trị phần tửư b2: gán sc:=0; sl:=0; b3: i:=i+1; kiểm tra (i mod 2=0)qua b4,ngược lại qua b5 b4: sc:=sc+a[i] b5: sl :=sl+a[i] b6: i=n dừng thuật toán b7 in tổng chẵn,tổng lẻ Cài đặt chương trình program tong_chan_le; var a:array[1 100] of integer; i,n,sl,sc:integer; begin write('nhap n');readln(n); for i:=1 to n begin write('a[',i,']=');readln(a[i]); end; sl:=0;sc:=0; for i:=1 to n if a[i] mod 2=1 then sl:=sl+a[i] else SVTH: Lê Thị Kim Xuân Anh Phong GVHD: Phan Tiểu luận chuyên ngành: T×m hiĨu vỊ Pascal sc:=sc+a[i]; writeln(' tong chan la sc=',sc:3); writeln('tong le la sl=',sl:3); readln; end Bộ liệu chạy chương trình kết nhập n=5 a[1]=3; a[2]=4; a[3]=6; a[4]=5; a[5]=1; tong phần tử chẵn là:sc=10 tổng phần tử lẻ : sl=9 4: Viết chương trình nhập n số nguyên xếp số theo thứ tự tăng dần Mơ tả tốn:sử dụng cấu trúc liệu kiểu mảng để lưu trữ phần tử số nguyên 1.1 Phần khai báo - Khai báo mảng chiếu để lưu trữ phần tử số nguyên.Với số có kiểu liệu nguyên giới hạn khoảng định mà phần tử nhập vào không vượt qua - Khai báo n phần tử nhập vào kiểu số nguyên,và biến chạy i - Khai báo biến làm trung gian để phần tử theo thứ tự 1.2 Phần thân chương trinh - Nhập vào n phần tử.sử dụng biến chạy i để duyệt từ phần tử đến phần tử cuối mảng,duyệt đến phần tử nhập giá trị cho phần tử - Sau nhập giá tri cho phần tử thực hiên kiểm tra cách so snhfs phần tử với - Cho i duyệt từ phần tử đến phần tử n-1 j:=i+1 đến phần tử n thực so sánh phần tử a[i] a[i+1] a[i]>a[i+i] sử dụng biến trung gianđể đổi chỗ phần tử cho SVTH: Lª Thị Kim Xuân Anh Phong GVHD: Phan Tiểu luận chuyên ngành: Tìm hiểu Pascal nhau,v tip tc so sánh - In mảng sau xếp Mơ tả thuật tốn b1: nhạp nvà giá trị phần tử b2: i:=1 đến n-1 j:=i+1 đến n b3: so sánh a[i] a[j] a[i]>a[j] b4: đổi chỗ a[i] cho a[j] b5: in mảng sau xếp Cài đặt chương trình program sapxep; var a:array[1 100] of integer; tg,i,j,n:integer; begin write('nhap n');readln(n); writeln('nhap tung phan tu of mang'); for i:=1 to n begin write('a[',i,']=');readln(a[i]); end; for i:=1 to n-1 for j:=i+1 to n if a[i]>a[j] then begin tg:=a[i];a[i]:=a[j];a[j]:=tg; end; write('mang sau sap xep la:'); SVTH: Lê Thị Kim Xuân 10 Anh Phong GVHD: Phan Tiểu luận chuyên ngành: Tìm hiểu Pascal begin for i:=1 to n write(a[i]:3); end; readln; end Bộ liệu chạy chương trình kết nhập n=5 a[1]=3; a[2]=1; a[3]=5; a[4]=2; a[5]=6; a[4]=5; a[5]=6 mảng sau xếp là: a[1]=1; a[2]=2; a[3]=3; Bài 5: Viết chương trình tính tổng bình phương số âm mảng số ngun Mơ tả tốn:sử dụng cấu trúc liệu kiểu mảng để lưu phần tử số nguyên 1.1 Phần khai báo - Khai báo mảng chiếu để lưu trữ phần tử số nguyên.Với số có kiểu liệu nguyên giới hạn khoảng định mà phần tử nhập vào không vượt qua - Khai báo biến tổng s kiểu số nguyên biến chạy i gán giá tri cho n nằm giới hạn mảng 1.2 Phần thân chương trình - Cho i chạy từ phần tử thứ nhât đến phần tử cuối - Tạo giá trị ngẫu nhiên cho phần tử nắm khoảng -n đến n-1 - Gán s:=0 - Cho i chạy từ phần tử thứ đến phần tử cuối cùng,duyệt đến phần tử kiểm tra phần tử