Chủ đề mới

[spy10b]

program testngoac;
uses Crt;
var st:string;
test:boolean;
BEGIN
clrscr;
write('Nhap day dau ngoac:');readln(st);
if (st[1]=')') or (st[length(st)]='(') or (length(st) mod 2=1) then test:=false
else
begin
while pos('()',st)<>0 do delete(st,2,pos('()',st);
if st='' then test:=true
else test:=false;
end;
if test then writeln('Chinh xac')
else writeln('Khong chinh xac');
readln
END.

[khatmau90]

Từ sau khi topic của bạn truongngocdai lập ra mình thấy box pascal này chẳng có việc gì nhỉ. Mà topic đó gần đây cũng chẳng có thêm gì mới. Mình xin bắt chước hoạt động của topic đó (cũng đố các bài) nhưng các bài sẽ dễ hơn nhiều.
Sau đây là 1 bài khá dễ và quen thuộc
Cho 1 dãy dấu ngoặc. Kiểm tra tính chính xác của nó. Chỉ yêu cầu nói cách làm vì bài này khá dễ
VD:
không có gì: đúng
(): đúng
): sai
(()): đúng
(())): sai
(()())() :đúng
(())): sai
Mong các bạn hăng hái thăm gia vì bài này cũng không khó lắm

bài của bạn đây vừa ngắn vừa rễ hiểu

var s:string;
k,i :byte;
begin
writeln('nhap ngoac');
readln(s);
k:=0;i:=0;
while (k>=0)and(i<length(s)) do
Begin
for i:=1 to length(s) do begin
if s[i]='(' then k:=k+1
else
if s[i]=')' then k:=k-1;
end;end;
if k<0 then write('sai')
else
write('dung');
readln
end.

còn bài viết của spy10b mình đọc thấy sai roài
có bài nào hay hay cứ gọi mình nếu đủ khả năng mình sẽ giúp đỡ

[thuonghcm]

bài của bạn vòng while có cần không nhỉ??
s:=')(' là vẫn đúng à?