IndexIndex  PortalPortal  Đăng kýĐăng ký  Đăng NhậpĐăng Nhập  
Tìm kiếm
 
 

Display results as :
 
Rechercher Advanced Search
Latest topics
» forumforumforumforumforumforumforumforum
by phongtran_tk8 Tue Apr 17 2012, 06:38

» ewgds
by siriusblack Wed Mar 21 2012, 07:57

» Tổng hợp đề thi thử đại học 2011 môn Toán đây!
by 1234567 Sat Dec 31 2011, 02:33

» Ai chiến thắng mà không hề chiến bại, ai nên khôn mà chẳng dại đôi lần!
by lephi_pro_axx Fri Dec 23 2011, 02:30

» Kính mời bà con cô bác ghé đây xem bài thơ của tui
by lephi_pro_axx Fri Dec 23 2011, 02:26

» !^^_ Lễ hội Halloween liên khối toán NBK_^^!
by lephi_pro_axx Sat Dec 17 2011, 07:37

» невеста и стиль прически
by phongtran_tk8 Wed Nov 16 2011, 03:52

Navigation
 Portal
 Diễn Đàn
 Thành viên
 Lý lịch
 Trợ giúp
 Tìm kiếm
December 2016
MonTueWedThuFriSatSun
   1234
567891011
12131415161718
19202122232425
262728293031 
CalendarCalendar

Share | 
 

 Chút hiểu biết về pascal!

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
ductri
Admin


Được thanks Được thanks : Libra
Tổng số bài gửi : 49
Join date : 15/09/2010
Tuổi : 22
Đến từ : Trái Đất

Bài gửiTiêu đề: Chút hiểu biết về pascal!   Sun Nov 07 2010, 01:37

Mình may mắn biết hơn mấy bạn chút pascal, nên theo ý kiến admin thì mình xin chia sẽ chút hiểu biết nhỏ mọn này.
1. Về câu lệnh write và writeln:
Lệnh này cũng hay hay, cú pháp chắc ai cũng biết: write(<ND>); hoặc đối với writeln là writeln(<ND>);
<ND> có thể là chuỗi ký tự hoặc một biểu thức, nói tóm lại, nếu bạn cho những cái gì bạn nhập, vào trong cặp dấu nháy ( ' ' ) thì pascal sẽ hiểu đó là chuỗi ký tự, nghĩ là trong cặp dấu nháy có gì thì nó hiện ra giống hệt thế.
Còn thành phần thứ 2 là biểu thức, theo sách vở là biểu thức số học, cái này không đặt trong cặp dấu nháy, hiển nhiên rồi, khi đó, pascal sẽ thực hiện chuỗi phép tính số học rồi cái mà nó hiện ra là KQ. Nhớ là giữa các thành phần, tức là giữa các chuỗi, các phép tính đều phải có dấu phẩy ( , ).
Cụ thể thế này:
write('Phuong trinh co nghiem la x1 = ',1); ----> KQ: Phuong trinh co nghiem la x1 = 1
write('Phuong trinh co nghiem la x1 =',1); ----> KQ: Phuong trinh co nghiem la x1 =1


x1:=5;
write('pt co nghiem bang, x1'); ----> KQ: pt co nghiem bang, x1 (vì cả câu chỉ là một chuỗi ký tự nên máy ghi ra y như bạn đánh)


x1:=5;
write('pt co nghiem bang ', x1); ---- KQ: pt co nghiem bang 5
Phân tích: Phần đầu trong dấu nháy là chuỗi, máy ghi giống y lại, phần thứ 2 là x1 , không có trong dấu nháy nên máy thực hiện việc tính, đưa ra kết quả là 5, tức nó đưa ra chuỗi đầu, rồi tiếp đến KQ của phép tính thứ 2.
Về phần câu lệnh writeln thì giống y rứa, chỉ khác là sau khi đưa ra xong <ND> thì con trỏ nó xuống dòng, vd thế này:

write('abc');
write('cde');
---> KQ: abccde

writeln('abc');
write('cde');
---> KQ: abc
cde


2. Về câu lệnh read và readln
Read: dùng để đưa giá trị vào biến
Phần này chắc mọi người hiểu hết rồi
còn readln thì tương tự, chỉ là thực hiện xong câu lệnh này thì con trỏ cũng xuống dòng.[/list]
3. Phần cuối là câu lệnh If <Biểu thức logic> then <CL> else <CL>;
Y như cách bạn hiểu, Nếu <ĐK> thì làm cái chi đó, ngược lại làm cái chi đó.
Chắc các bạn nghe thầy nói cũng hiểu hết rồi, mình nói thêm về câu lệnh ghép thôi
If <ĐK> then tới câu lệnh, nhưng nếu bạn muốn: nếu đk đúng, bạn muốn thực hiện hơn hai câu lệnh thì phải dùng
begin
<dãy các lệnh>
end;
thì pascal coi tập những lệnh trên chỉ là một lệnh.
Nhớ là khi bạn dung lệnh if thiếu, sau phần then <CL> là dấu chấm phẩy ( ; ). Pascal sẽ hiểu câu lệnh if tới đây là hết, cồn nếu dùng if đủ thì phải là then <CL> else <CL>;
Cơ bản là thế, chắc mình nói thì cũng chưa rõ, để mình ghi lại vài bài tập, mọi người không hiểu chỗ nào thì nói, thế dễ hơn.


* Viết chương trình nhập vào từ bàn phím 2 số nguyên dương a,b, đưa ra màn hình kết quả trị tuyệt đối ( a-b), nhưng không dùng abs();
* Viết chương trình nhập vào số a nguyên dương, đưa ra màn hình các ước số tự nhiên của a
* Viết chương trình nhập vào số nguyên dương a, đưa ra màn hình kq a có phải là số nguyên tố hay không.
* Chương trình sau đưa ra kết quả như thế nào:
program abc;
uses crt;
var
x: integer;
begin
clrscr;
write(' Moi ban nhap mot so nguyen: ');
readln(x);
if x<0 then writeln(' Khong xac dinh');
if x=0 then writeln(' Ket qua bang 1'); else
begin
x:=x*3;
if x>9 then writeln(' Ket qua la ,x);
end;
end;
readln
end.


Các bạn cố gắng giải hỉ, 3 người giải xong nhanh nhất tất cả các bài trên, nộp đáp án cho ban Nguyệt để lĩnh thưởng. lol!
Về Đầu Trang Go down
phongtran_tk8
Admin


Được thanks Được thanks : Pisces
Tổng số bài gửi : 104
Join date : 02/08/2010
Tuổi : 22
Đến từ : nhà chứ từ đâu

Bài gửiTiêu đề: Re: Chút hiểu biết về pascal!   Tue Nov 09 2010, 00:16

cái này hey đó ductri, công nhận "học thầy ko tày học bạn". Không biết ta giải có được ko nữa---> dễ chết quá
confused confused confused confused confused
Về Đầu Trang Go down
http://toannbk.forum-pro.in
bosap



Được thanks Được thanks : Leo
Tổng số bài gửi : 51
Join date : 11/09/2010
Tuổi : 23
Đến từ : ToanK7.NET

Bài gửiTiêu đề: Re: Chút hiểu biết về pascal!   Wed Nov 10 2010, 21:35

Hỳ, không có thời gian làm hết, chỉ viết phần chính thôi hen, tự làm phần khai báo :">
Lâu rồi ko đụng vô nên lỡ sai cú pháp sửa hộ luôn :">
1/
Code:
{tinh tri tuyet doi}
write('nhap a, b :'); readln(a,b);
abs:=a-b;
if abs<0 then abs:=-abs;
writeln('Tri tuyet doi = ',abs); readln
2/
Code:
{tim uoc so}
write('a = '); readln(a);
clrscr;
for i:=1 to a do if a mod i = 0 then writeln(i);
readln
3/
Code:
{kiem tra so nguyen to}
write(a = ); readln(a); i:=2, OK:=false; {khai bao OK: boorlean :D}
while i<a do begin
  if a mod i = 0 then OK:=true;
  i:=i+1
end;
if OK then writeln('khong la so nguyen to')
else writeln("la so nguyen to');
readln
4/ Hình như là nếu x < 0 thì ghi ra màn hình : ko xác định
Nếu x=0 thì ghi ra màn hình : kết quả bằng 1
Nếu 3*x > 9 (x > 3) thì ghi ra màn hình : 3*x
Về Đầu Trang Go down
http://toank7.net/
phongtran_tk8
Admin


Được thanks Được thanks : Pisces
Tổng số bài gửi : 104
Join date : 02/08/2010
Tuổi : 22
Đến từ : nhà chứ từ đâu

Bài gửiTiêu đề: Re: Chút hiểu biết về pascal!   Wed Nov 10 2010, 21:43

hehehe tot qua di, CAm on cac ban nhieu
Về Đầu Trang Go down
http://toannbk.forum-pro.in
Sponsored content




Bài gửiTiêu đề: Re: Chút hiểu biết về pascal!   Today at 18:59

Về Đầu Trang Go down
 
Chút hiểu biết về pascal!
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
 :: Góc học tập tổng hợp :: Tin Học-
Chuyển đến