Những câu lệnh khó trong Pascal. Chỉ tui với. thầy chỉ cho tụi tui viết chương trình sơ sơ rồi ôn chút rồi . Tui phải đọc sách thêm.

Chương trình tham khảo 1:

ProgramBL2;

Constfin ='BL2.INP';

fout='BL2.OUT';

VarS:String;

i,Sum,T:Longint;

f:Text;

Begin

Assign(f,fin);

Reset(f);

Read(f,S);

Close(f);

Sum:=0;

T:=0;

Fori:=Length(S) downto1 do

IfS[i] in['0'..'9'] thenT:=T*10+(ord(S[i])-48)

Else

Begin

Sum:=Sum+T;

T:=0;

End;

Sum:=Sum+T;

Assign(f,fout);

ReWrite(f);

Write(f,Sum);

Close(f);

End.

Chương trình tham khảo 2:

ProgramBL3;

Constfin ='BL3.INP';

fout='BL3.OUT';

Vara:array[1..1000] ofLongint;

N,K,i,S,tong:Longint;

f:Text;

Begin

Assign(f,fin);

Reset(f);

Readln(f,N);

Fori:=1 toN doRead(f,a[i]);

Close(f);

S:=0;

Fori:=1 toN doS:=S+a[i];

ForK:=N downto1 do

IfS modK=0 then

Begin

tong:=0;

Fori:=1 ton do

Begin

tong:=tong+a[i];

Iftong=S divK thentong:=0;

End;

Iftong=0 thenBreak;

End;

Assign(f,fout);

ReWrite(f);

Write(f,K);

Close(f);

End.

@namkhang08

1 số câu lệnh khó trong pascal mak mk bt:

lệnh mở tệp: assign(<tên biến tệp>,<tên tệp>);

lệnh đóng tệp: close(<tên biến tệp>);

các loại lệnh lặp: for..to..do, while..do, repeat..until;

các lệnh hàm: exp,sqrt,...

các lệnh liên quan tới chuỗi: str,val,insert,delete,...

lệnh điều kiện: if..then..else...

Theo mk là có nh câu lệnh trên là khá khó trong pascal, vì các câu lệnh trên thg xuyên đc dùng trong các đề thi hsg cấp huyện hoặc t/p