Đề 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