Đề cương ôn tâp môn Pascal

1.Viết chương trình tìm các số nguyên tố nhỏ hơn n cho trước, với n nhập từ bàn phím
2. Viết chương trình tính tổng
S= 1+ x/1!+x^2/2!+x^3/3!+...+x^n/n! : x>0,n nhập từ bàn phím
3. Nhập ma trận cấp MxN. In ma trận đó ra màn hình và tính tổng của mỗi hàng, mỗi cột của ma trận
4. Nhập mảng MxN. In ra màn hình và tìm phần tử lớn nhất của mảng. cho biết chỉ số dòng và cột của phần tử đó
5. Nhập ma trận A cấp MxN. In ra ma trận A, tìm và đưa ra ma trận chuyển vị của ma trận A
6. Nhập vào 1 xâu kí tự. Kiểm tra tính đối xứng của xâu và đưa ra thông báo
7.Nhập vào xâu kí tự. Đếm số từ trong xâu và đưa kết quả ra màn hình(Giữa các từ cách nhau bởi 1 ký tự trống)
8.Nhập vào họ và tên 1 người với các ký tự viết thường. Đưa ra màn hình tên người đó với các kí tự đầu từ đã được viết hoa
9. Viết chương trình thực hiện các phép toán cộng, trừ, nhân, chia 2 phân số ( sử dụng cấu trúc Record)
10. Viết chương trình nhập vào danh sách 7 sinh viên với các thông tin sau: Họ tên, quê quán, giới tính, năm sinh, điểm 3 môn thi. Sắp xếp cà in ra màn hình theo thứ tự giảm dần của tổng điểm. Đưa ra màn hình danh sách các sinh viên có tổng điểm >20.

Đề cương ôn tập

Đề cương ôn tập môn Pascal tập trung vào các nội dung sau:
- Cấu trúc rẽ nhánh. If ... then... else
- Cấu trúc lặp FOR .. TO .. DO, WHILE .. DO , REPEAT .. UNTIL
- Lệnh CASE .. OF
- Kiểu dữ liệu bản ghi.
- Hàm, thủ tục
- Ghi dữ liệu ra file.
Một bài kiểm tra sẽ giải quyết hai công việc. Mỗi công việc được viết trên một thủ tục. Công việc này sẽ được thực hiên khi người dùng chọn.
Đầu mỗi bài kiểm tra phải có ghi chú về tên sinh viên, lớp, đề thi số

Ví dụ:
Đề số 05
Viết một chương trình giải quyết các công việc sau:

1. Tính biểu thức: S = ax+ by
2. giải phương trình bậc 2 ax2 + bx +c = 0


Bài làm
{ Họ và Tên: Chương Thúy Quỳnh
Lớp : 37 CDTH
Đề Thi số: 05 }
Program de05;
{Uses CRT;}
var S,a,b :real;
Cv:byte;

{Lam cong viec 1: Tinh gia tri bieu thuc}
Procedure bieuthuc;
var x,y:integer;
Begin
Write('Nhap gia tri a: ');
Readln(a);
Write('Nhap gia tri x: ');
readln(x);
Write('Nhap gia tri b: ');
Readln(b);
Write('Nhap gia tri y: ');
readln(y);
S:= a*x+b*y;
Writeln('Gia tri bieu thuc la: ', s:15:3);

End;

{Lam cong viec 2: Giai phuong trinh bac 2}
Procedure GiaiPT;
Var Delta,c,x1,x2:real;
Begin
Write('Nhap gia tri a: ');
Readln(a);
Write('Nhap gia tri b: ');
Readln(b);
Write('Nhap gia tri c: ');
Readln(c);
If a <> 0 then
Begin
delta := sqr(b) - 4*a*c;
if delta < delta =" 0" x2=" ',X2:7:2);" b =" 0)">0) then Writeln('Phuong trinh vo nghiem')
else if (b=0) and (c=0) then Writeln('Phuong trinh vo so nghiem')
else Writeln('Phuong trinh co nghiem = ', -c/b:7:2);

End;

{Tao Menu}
Procedure Menu;
Begin
WriteLn;
Writeln;
Writeln('Ban chon cong viec');
Writeln('1 : Tinh bieu thuc S= ax +by ');
Writeln('2 : Giai phuong trinh bac hai ');
Writeln('3 : Thoat');
End;

Begin
{Clrscr;}
cv:=0;
While cv<>3 do {Lap den khi chon thoat}
Begin
menu; { Goi menu}
readln(cv);
Case cv of
1: bieuthuc;
2:giaiPt;
end;
end

end.
Click vao day de tai vidu

Tài liệu Môn Pascal

Môn Pascal chúng ta đã học gần hết phần lý thuyết. Để thuận lợi cho việc ôn tập, cũng như làm bài tập nhóm. Tôi up tài liệu phần lý thuyết, và một số bài tập để chúng ta tham khảo, ôn tập.
Tài liệu về bài giảng chúng ta có thể tải tại Đường link
Hoặc chúng ta có thể tham khảo giáo trình này

Tài liệu lý thuyết và bài tập ta tải tại đây

Các bạn có thắc mắc gì hoặc muốn đề suất vấn đề gì xin Click vào từ Đăng một nhận xét Sau đó gõ vào nhận xét của mình.
Thân mến.