Máy tính, Internet > Lập trình > Lập trình - Khác

Hỏi về kiểu xâu (chuỗi) trong lập trình pascal lớp 11 ?

Kiểu xâu (chuỗi):

nhập 1 xâu ( chuỗi) từ bàn phím và cho biết xâu đó có bao nhiêu kí tự, kí tự trống, và bao nhiêu từ.

dat

uses crt;

Var S:string; i,dem,cong:integer;

Begin

Clrscr;

Write(' Nhap vao chuoi S: '); Readln(S);

For i:=1 to length(S) do

If S[i]=' ' then

dem:=dem+1;

Writeln('Vay co ',dem,' khoang trong');

For i:=1 to length(S) do

If ((S[i]>='A') and (S[i]<='Z')) or ((S[i]>='a') and (S[i]<='z')) then

cong:=cong+1;

Writeln('Vay co ',cong,' ki tu');

Writeln(' Vay co ',dem+1,' tu');

Readln;

End.

*** CHUC BAN THANH CONG ***

Hỏi đáp đề xuất

Lập trình - Khác

Xin hỏi Cách write chữ lên cửa sổ Graph trong Pascal?}

17 năm
Bạn Click vô link này sẽ có hưỡng dẫn bạn ah http://www.diendantinho...do-hoa-trong-Pascal.html#1023557215 Xem thêm
Lập trình - Khác

Ngôn ngữ pascal có lập trình hướng đối tượng được không?}

9 năm
Với mô hình đào tạo hướng tới truyền dạy kinh nghiệm thực tế cho học viên theo phương châm “Học để làm việc”... Xem thêm
Lập trình - Khác

E muốn hỏi về lập trình web bằng ASP}

17 năm
Bạn nên tìm hiểu web tĩnh trước, hiểu rõ nguyên tắc web tĩnh rồi chuyển sang web động sẽ dễ dàng hơn Xem thêm
Lập trình - Khác

Cho em hỏi về lập trình c tý hem}

15 năm
muốn dùng hàm getch() thì phải khai báo thư viện #include<conio.h> thì mới dùng được chứ. ok
Lập trình - Khác

Giúp em về bài lập trình Pascal. Các anh chị pro chỉ giúp em với.}

To Van Nam 15 năm
Em tham khảo cuốn Bài tập Tin Đại cương(TURBO PASCAL) của tác giả Tô Văn Nam, NXB Giáo dục; Em có thể mua ở... Xem thêm