uses crt;
var kitu,chuoi: string;
n,i:integer;
begin
clrscr;
n:= 0;
write('Nhap 1 chuoi bat ki: ');readln(chuoi);
write('Nhap 1 ki tu bat ki: ');readln(kitu);
for i:= 1 to length(chuoi) do
if kitu = chuoi[i] then n:= n + 1;
write('So lan xuat hien cua ',kitu,' trong chuoi la: ', n);
readln
end.
Bài 1: Viết chương trình nhập dữ liệu từ file input.txt gồm hai số nguyên n, m (n, m <= 10^18) và một phép tính. Thực hiện phép tính vơi hai số đó và in ra file ouput.txt?
Bài 2: Tương tự như trên nhưng đầu vào là một chuỗi gồm hai số và 1 phép tính xen giữa. Nhập và xuất kết quả ra bằng file?
Xin giải đáp:
Nhập tự động 100 kí tự từ mảng rồi nhập vào tệp"bai4.inp" sau đó nhập ra mảng 1 chiều và kiểm tra có phải cấp số cộng hau không?
Thank you!
viết chương trình tạo tệp baitap.txt trong dó dòng đầu tiên là n số lượng các số nguyên, dòng thứ hai là n số nguyên cách nhau 2 kí tự trắng được nhập từ bàn phím
viết chương trình đọc 1 sâu kí tự từ tẹp input.txt. sau đó ghi vào tệp output.txt sau khi đã lạo cỏ các dấu cách
Mong mọi người cho biết cách sử bài tập đơn giản này:
Viết một chương trình, nhập một kí tự dạng string rồi chuyển đổi thành số thứ tự trong bản mã ascii
Ví dụ: nhập kí tự: 'f ' thì ra số thứ tự trong bảng mã ascii của kí tự này là: 102 ; hoặc '/ ' thì là 47
cho tệp chứa liên tiếp các số nguyên cách nhau bằng dấu cách và không kết thúc bằng kí tự xuống dòng. hãy viết chương trình của dãy số nguyên đó ra màn hình
Cho xâu kí tự A
a. Đếm xem trong xâu A có bao nhiêu chữ cái tiếng anh, in hoa.
b. Mỗi chữ số xuất hiện trong xâu A mấy lần.
c. Xâu A có bao nhiêu từ.( Từ được hiểu là một dãy kí tự liên tục không chứa dấu cách)
Biết, dữ liệu được nhập từ file văn bản 'XAU.INP' chỉ một động duy nhất chứa xâu A
Tạo ra tệp DEBAI.DAT trong ổ đĩa D. Nhập dữ liệu gồm chữ hoa, chữ thường, chữ số. Hãy lập trình thực hiện các công việc sau: a. Tìm số nhỏ nhất và ghi vào tệp SONHONHAT.OUT ở ổ đĩa D. b. Tính tổng các số chẵn và ghi kết quả vào tệp SOCHAN.OUT ở ổ đĩa D c. Đếm xem có bao nhiêu kí tự dấu cách và in kết quả vào tệp DAUCACH.OUT d. Xóa tất cả các kí tự là dấu cách và in kết quả vào tệp KETQUA.OUT
