Để tải tài liệu học môn Truyền số liệu các bạn có thể tải về từ các đường link dưới đây. Phần bài tập và câu hỏi ôn tập các bạn sẽ tải về sau.
Download1
Tài liệu 2
Có thắc mắc gì về môn học các bạn Click chuột vào mục nhận xét.
Chúc các bạn học tốt.
Tim kiếm
Đề 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
- 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.
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.
Đăng ký:
Bài đăng (Atom)
Quảng cáo
Câu hỏi trắc nghiệm tin học căn bản và đáp án
1). Lệnh nào sau đây dùng để xóa màn hình ? A). CLS B). CD C). TYPE D). RD 2). Để bôi đen toàn bộ trang văn bản sử dụng lệnh nào sau đâ...
-
1/ Để khởi động MS Excel ta chọn lệnh: a Start Programs Microsoft Word b Start Programs Microsoft Excel c Start Programs Microsoft Fontpage...
-
I/ Yêu cầu: Sử dụng bảng tính EXCEL để xây dựng chương trình giải bài toán xác định mớn nước của tàu tại cảng đến sau: Dữ liệu nhập vào - Mớ...
-
I/ YÊU CẦU: Sử dụng bảng tính điện tử EXCEL hãy xây dựng chương trình tính toán mớn nước của tàu như sau: Dữ liệu nhập vào - Trọng lượng t...
Học, học nữa, học mãi.
Kiến thức là vô tận không ai có thể nắm bắt được hết kho kiến thức của nhân lọai. Tôi với khả năng có hạn, cũng còn nhiều thứ tôi chưa biết. Nhưng với những gì đã biết, cũng xin chia sẻ với các bạn. Có thể với bạn là cũ và cũng có thể là mới, cùng với tinh thần cùng nhau học hỏi, cùng nhau phát triển. Tôi hy vọng đây là nơi chúng ta cùng học tập, chia sẻ, và cùng nhau phát triển.
Kiến thức là vô tận không ai có thể nắm bắt được hết kho kiến thức của nhân lọai. Tôi với khả năng có hạn, cũng còn nhiều thứ tôi chưa biết. Nhưng với những gì đã biết, cũng xin chia sẻ với các bạn. Có thể với bạn là cũ và cũng có thể là mới, cùng với tinh thần cùng nhau học hỏi, cùng nhau phát triển. Tôi hy vọng đây là nơi chúng ta cùng học tập, chia sẻ, và cùng nhau phát triển.