Các câu hỏi tương tự
Cho biến xâu s. Viết các lệnh tương ứng
a/Khai báo s
b/ nhập xâu s
c/ xuất ra màn hình độ dài xâu s
d/ đưa ra màn hình các chữ số có trong xâu
Trong Pascal, cú pháp khai báo biến kiểu xâu là:
A. Var < độ dài lớn nhất của xâu > = string [tên biến xâu] ;
B. Var <tên biến xâu> = string [độ dài lớn nhất của xâu] ;
C. Var <tên biến xâu> : string [độ dài lớn nhất của xâu] ;
D. Var < độ dài lớn nhất của xâu > : string [tên biến xâu] ;
Trong Pascal, cú pháp khai báo biến kiểu xâu là:
A. Var < độ dài lớn nhất của xâu > = string [tên biến xâu] ;
B. Var <tên biến xâu> : string [độ dài lớn nhất của xâu] ;
C. Var <tên biến xâu> = string [độ dài lớn nhất của xâu] ;
D. Var < độ dài lớn nhất của xâu > : string [tên biến xâu] ;
Trong Pascal, cú pháp khai báo biến kiểu xâu là:
A. Var <tên biến xâu> : string [độ dài lớn nhất của xâu] ;
B. Var < độ dài lớn nhất của xâu > = string [tên biến xâu] ;
C. Var <tên biến xâu> = string [độ dài lớn nhất của xâu] ;
D. Var < độ dài lớn nhất của xâu > : string [tên biến xâu] ;
Pascal ạ
- Dùng biến logic: dx
- Khởi tạo: dx:= true;
- Dùng vòng for duyệt từ đầu đến giữa xâu a ( độ dài xâu chia 2 lấy phần nguyên)
nếu a[i] <>[length(a)-(i-1)] thì dx:=false.
- Nếu dx=true thì thông báo: Đây là xâu đối xứng nếu không thì thông báo: Đây không là xâu đối xứng.
Viết chương trình:Nhập vào một xâu kí tự.Đếm và in ra màn hình số kí tự là số có trong xâu.Var a: string; I,dem: integer;Begin Readln(a); Dem:0; For i:1 to length(a) do If (‘0’a[i]) and (a[i]’9’) then dem:dem+1; Writeln(dem); Readln End.
Đọc tiếp
Viết chương trình:
Nhập vào một xâu kí tự.
Đếm và in ra màn hình số kí tự là số có trong xâu.
Var a: string;
I,dem: integer;
Begin
Readln(a);
Dem:=0;
For i:=1 to length(a) do
If (‘0’<=a[i]) and (a[i]<=’9’) then dem:=dem+1;
Writeln(dem);
Readln
End.
1. Cho xâu S nhập từ bàn phím. Viết chương trình xóa các kí tự dư thừa trong xâu và biến các kí tự trong xâu thành chữ hoa.
2. Cho xâu s nhập từ bàn phím.Định dạng xâu theo kiểu tên người VD Truong Vinh Ky
in ra từ dài nhất trong xâu, nếu nhiều từ có độ dài bằng nhau thì in ra tất cả các từ đó
Vd: nhâp xâu=truong thich hoc pascal
truong
pascal
Viết chương trình: A. Nhập vào từ bàn phím 2 xâu a, b ( chứa các chữ thường ) và thông báo ra màn hình tổng độ dài của 2 xâu B. Tạo xâu c gồm các chữ cái từ xâu a và các chữ số từ xâu b. Đưa xâu c lên màn hình
Các anh chị giải giúp em với ạ