Viết chương trình nhập từ bàn phím 1 xâu ký tự gồm cả chữ và số, đưa ra tệp xaukytu.doc số lượng các từ có trong xâu.
Viết chương trình nhập từ bàn phím 1 xâu ký tự gồm cả chữ và số, đưa ra tệp xaukytu.doc số lượng các từ có trong xâu.
Const Fo=’Xaukitu.DOC’;
Var g: text;
St: String;
i: longint;
Begin
Assign(g,Fo); Rewrite(g);
Write(‘Nhap St: ‘); Readln(St);
Write(g,length(St));
Close(g);
End.
const fi=’dulieu.txt’;
fo=’ketqua.txt’;
var xau: string;
f1,f2:text;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
begin
Write(‘nhap xau ‘); readln,xau);
Write(‘so luong tu trong cau la’,length(xau) ;
Readln
close(f1);
close(f2);
end.