Viết Chương Trình Nhập Từ Bàn Phím Xâu A, Tính Và đưa Ra ... - Hoc24

HOC24

Lớp học Học bài Hỏi bài Giải bài tập Đề thi ĐGNL Tin tức Cuộc thi vui Khen thưởng

• Tìm kiếm câu trả lời Tìm kiếm câu trả lời cho câu hỏi của bạn

Đóng Đăng nhập Đăng ký

Lớp học

• Lớp 12
• Lớp 11
• Lớp 10
• Lớp 9
• Lớp 8
• Lớp 7
• Lớp 6
• Lớp 5
• Lớp 4
• Lớp 3
• Lớp 2
• Lớp 1

Môn học

• Toán
• Vật lý
• Hóa học
• Sinh học
• Ngữ văn
• Tiếng anh
• Lịch sử
• Địa lý
• Tin học
• Công nghệ
• Giáo dục công dân
• Tiếng anh thí điểm
• Đạo đức
• Tự nhiên và xã hội
• Khoa học
• Lịch sử và Địa lý
• Tiếng việt
• Khoa học tự nhiên
• Hoạt động trải nghiệm
• Hoạt động trải nghiệm, hướng nghiệp
• Giáo dục kinh tế và pháp luật

Chủ đề / Chương

Bài học

HOC24

Khách vãng lai Đăng nhập Đăng ký Khám phá Hỏi đáp Đề thi Tin tức Cuộc thi vui Khen thưởng

• Tất cả
• Toán
• Vật lý
• Hóa học
• Sinh học
• Ngữ văn
• Tiếng anh
• Lịch sử
• Địa lý
• Tin học
• Công nghệ
• Giáo dục công dân
• Tiếng anh thí điểm
• Hoạt động trải nghiệm, hướng nghiệp
• Giáo dục kinh tế và pháp luật

Hãy tham gia nhóm Học sinh Hoc24OLM Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Câu hỏi

Hủy Xác nhận phù hợp Chọn lớp Tất cả Lớp 12 Lớp 11 Lớp 10 Lớp 9 Lớp 8 Lớp 7 Lớp 6 Lớp 5 Lớp 4 Lớp 3 Lớp 2 Lớp 1 Môn học Toán Vật lý Hóa học Sinh học Ngữ văn Tiếng anh Lịch sử Địa lý Tin học Công nghệ Giáo dục công dân Tiếng anh thí điểm Đạo đức Tự nhiên và xã hội Khoa học Lịch sử và Địa lý Tiếng việt Khoa học tự nhiên Hoạt động trải nghiệm Hoạt động trải nghiệm, hướng nghiệp Giáo dục kinh tế và pháp luật Mới nhất Mới nhất Chưa trả lời Câu hỏi hay hien nguyen 15 tháng 3 2019 lúc 21:57

Viết chương trình nhập từ bàn phím xâu a, tính và đưa ra màn hình số lượng các dấu cách có trong xâu trên.

Lớp 11 Tin học Bài 12: Kiểu xâu Những câu hỏi liên quan

• Đinh Đức Quảng

6 tháng 5 2021 lúc 17:26

 viết chương trình nhập vào từ bàn phím xâu ký tự S . tính và đưa ra màn hình số lượng kí tự trog xâu

Xem chi tiết Lớp 11 Tin học 1 1 Gửi Hủy Nguyễn Lê Phước Thịnh CTV 7 tháng 5 2021 lúc 22:32

uses crt;

var st:string;

begin

clrscr;

write('Nhap xau:'); readln(st);

writeln(length(st));

readln;

end.

Đúng 0 Bình luận (0) Gửi Hủy

• Khánh Mỹ

3 tháng 3 2021 lúc 14:19

Viết chương trình nhập vào một xâu S có độ dài không quá 125 ký tự từ bàn phím. Xuất xâu đã nhập. Thực hiện xóa hết các dấu cách có trong xâu S. Xuất xâu S đã xóa các dấu cách ra màn hình

 

Xem chi tiết Lớp 11 Tin học Bài 12: Kiểu xâu 1 0 Gửi Hủy Nguyễn Lê Phước Thịnh CTV 3 tháng 3 2021 lúc 19:45

uses crt;

var st:string;

i,d:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

d:=length(st);

writeln('Xau vua nhap la: ',st);

for i:=1 to d do 

  if st[i]=#32 then delete(st,i,1);

writeln('Xau moi la: ',st);

readln;

end.

Đúng 2 Bình luận (0) Gửi Hủy

• ᝰᦔꫀꪑꪮꪀ

1 tháng 5 2021 lúc 18:26 Câu1: viết chương trình nhập từ bàn phím bất kì kí tự(100) .tính và đưa ra màn hình Xâu đó sau khi xoá sốTrong xâu có bao nhiêu dấu cáchĐưa ra màn hình độ dài xâu đóCâu 2: Viết CT gồm 2 xâu bất kì. Hãy ghi vào trong tệp kq.out xâu có độ dài lớn hơn, TH 2 xâu bằng nhau thì ghi xâu nhập trước.Câu 3: viết chương trình nhập vào từ bàn phím các số nguyên (100) . Tính và đưa ra màn hình trung bình cộng các số chẵn ?Đọc tiếp

Câu1: viết chương trình nhập từ bàn phím bất kì kí tự(<=100) .tính và đưa ra màn hình 

Xâu đó sau khi xoá số

Trong xâu có bao nhiêu dấu cách

Đưa ra màn hình độ dài xâu đó

Câu 2: Viết CT gồm 2 xâu bất kì. Hãy ghi vào trong tệp kq.out xâu có độ dài lớn hơn, TH 2 xâu bằng nhau thì ghi xâu nhập trước.

Câu 3: viết chương trình nhập vào từ bàn phím các số nguyên (<=100) . Tính và đưa ra màn hình trung bình cộng các số chẵn ?

Xem chi tiết Lớp 11 Tin học Bài 15: Thao tác với tệp 3 0 Gửi Hủy Nguyễn Lê Phước Thịnh CTV 1 tháng 5 2021 lúc 19:25

Câu 1: 

uses crt;

var st:string;

d,i,dem:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

d:=length(st);

write('Xau sau khi xoa so la: ');

for i:=1 to d do 

  if not(st[i] in ['0'..'9']) then write(st[i]);

writeln;

dem:=0;

for i:=1 to d do 

  if st[i]=#32 then inc(dem);

writeln('Xau co ',dem,' dau cach');

writeln('Do dai cua xau la: ',d);

readln;

end. 

Đúng 2 Bình luận (1) Gửi Hủy Nguyễn Lê Phước Thịnh CTV 1 tháng 5 2021 lúc 19:26

Câu 2: 

uses crt;

const fi='kq.out'

var st1,st2:string;

f1:text;

begin

clrscr;

write('Nhap xau thu 1:'); readln(st1);

write('Nhap xau thu 2:'); readln(st2);

assign(f1,fi); rewrite(f1);

if length(st2)>length(st1) then writeln(f1,st2)

else writeln(f1,st1);

close(f1);

end.

Đúng 1 Bình luận (0) Gửi Hủy Nguyễn Lê Phước Thịnh CTV 1 tháng 5 2021 lúc 19:28

Câu 3: 

uses crt;

var a:array[1..100]of integer;

i,n,t,dem:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

dem:=0;

for i:=1 to n do 

  if a[i] mod 2=0 then

begin

t:=t+a[i];

inc(dem);

end;

writeln('Trung binh cong cac so chan la: ',t/dem:4:2);

readln;

end.

Đúng 1 Bình luận (0) Gửi Hủy

• Ngưu Kim

20 tháng 3 2023 lúc 18:14

Viết chương trình nhập vào 1 xâu ký tự từ bàn phím, đưa ra số các dấu cách trong xâu rồi in ra vị trí của từng dấu cách trong xâu

Xem chi tiết Lớp 10 Tin học Bài 4: Bài toán và thuật toán 1 0 Gửi Hủy Phía sau một cô gái 20 tháng 3 2023 lúc 20:01

xau = input('Nhap chuoi: ')

so_khoang_cach = xau.count(' ')

print('So khoang cach:', so_khoang_cach)

vi_tri = []

for i in range(len(xau)):

     if xau[i] == ' ':

          vi_tri.append(i)

print('Vi tri khoang cach:', vi_tri)

Đúng 2 Bình luận (0) Gửi Hủy

• Ngọc Ánh Phùng

6 tháng 3 2023 lúc 16:51

viết chương trình nhập từ bàn phím một xâu chuỗi bất kì. loại bỏ hết dấu cách có trong xâu. sau đó chuyển chữ hoa cho cả xâu và in ra màn hình xâu chỉ có chữ cái

Xem chi tiết Lớp 11 Tin học 1 0 Gửi Hủy Minh Lệ 6 tháng 3 2023 lúc 23:42

Program HOC24;

var s: string;

i: byte;

begin

write('Nhap xau: '); readln(s);

for i:=1 to length(s) do if (s[i]<>#32) and (s[i] in 'A'..'z') then 

begin

upcase(s[i]); write(s[i]);

end;

readln

end.

Đúng 0 Bình luận (1) Gửi Hủy

• Phước Thiện Lê Hoàng

22 tháng 4 2021 lúc 20:14

giúp em với 2 câu thôi ạ :

viết chương trình nhập vào xâu bất kì từ bàn phím , ghi xâu sau khi loại bỏ các dấu cách ra tệp D:\ketqua.txt

viết chương trình nhập vào từ bàn phím 4 số bất A,B,C. tìm và thông báo kết quả ra màn hình giá trị nhỏ nhất MIN của 4 số đó có sử dụng chương trình con 

Xem chi tiết Lớp 11 Tin học 2 0 Gửi Hủy Nguyễn Lê Phước Thịnh CTV 22 tháng 4 2021 lúc 21:27

1:

uses crt;

const fi='ketqua.txt'

var f1:text;

st:string;

i,d:integer;

begin

clrscr;

assign(f1,fi); rewrite(f1);

write('Nhap xau:'); readln(st);

d:=length(st);

for i:=1 to d do 

 if st[i]=#32 then delete(st,i,1);

writeln(f1,st);

close(f1);

end.

Đúng 0 Bình luận (0) Gửi Hủy Nguyễn Lê Phước Thịnh CTV 22 tháng 4 2021 lúc 21:29

2:

uses crt;

var a,b,c,d:integer;

{----------chuong-trinh-con-----------------------}

function min(x,y:integer):integer;

begin

if x<y then min:=x

else min:=y;

end;

{---------------chuong-trinh-chinh--------------------}

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

write('c='); readln(c);

write('d='); readln(d);

writeln(min(a,min(b,min(c,d))));

readln;

end.

Đúng 0 Bình luận (1) Gửi Hủy

• Nguyễn Mai

16 tháng 4 2023 lúc 10:23

Viết chương trình nhập từ bàn phím một xâu kí tự st1 có độ dài tối đa là 60 1- Đếm số kí tự “A” và “a” trong xâu st1 2- Đưa ra màn hình xâu st2 gồm tất cả kí tự in thường trong xâu st1 3- Đưa ra màn hình xâu st1 là xâu in hoa Mng oiiiiiiiiiiiiiiiiiiiiiiii

Xem chi tiết Lớp 11 Tin học Ôn tập cuối năm 1 0 Gửi Hủy Minh Lệ 16 tháng 4 2023 lúc 12:28

Program HOC24;

var i,d1,d2: byte;

st1,st2: string[60];

begin

write('Nhap xau st1: '); readln(st1);

//---------------Câu 1-------------------

d1:=0; d2:=0;

for i:=1 to length(st1) do

begin

if st1[i]='A' then d1:=d1+1;

if st1[i]='a' then d2:=d2+1;

end;

writeln('Co ',d1,' ki tu A trong xau');

writeln('Co ',d2,' ki tu a trong xau');

//---------------------- Câu 2 --------------------

st2:=''

for i:=1 to length(st1) do if st1[i] in ['a'..'z'] then st2:=st2+st1[i];

writeln('Xau st2 la: ',st2);

//------------------------------Câu 3--------------------

for i:=1 to length(st1) do st1[i]:=upcase(st1[i]);

write('Xau st1 sau khi in hoa la: ',st1);

//--------------------------------------------------------

readln

end.

Đúng 2 Bình luận (1) Gửi Hủy

• Be Long

16 tháng 4 2023 lúc 1:55

Viết chương trình nhập từ bàn phím một xâu kí tự st1 có độ dài 50 1- đếm số kí tự “N” và “n” trong xâu st1 2- đưa ra màn hình xâu st2 gồm tất cả kí tự in hoa trong xâu st1 3-đưa ra màn hình xâu st1 viết theo chiều ngược lại

Xem chi tiết Lớp 11 Tin học Ôn tập cuối năm 0 0 Gửi Hủy

• Nguyễn Mai

16 tháng 4 2023 lúc 9:57

Viết chương trình nhập từ bàn phím một xâu kí tự st1 có độ dài tối đa là 50 1- Đếm số kí tự “N” và “n” trong xâu st1 2- Đưa ra màn hình xâu st2 gồm tất cả kí tự in hoatrong xâu st1 3- Đưa ra màn hình xâu st1 viết theo chiều ngược lại Giúp mik với ạ

Xem chi tiết Lớp 11 Tin học Ôn tập cuối năm 2 0 Gửi Hủy Ngô Bá Hùng 16 tháng 4 2023 lúc 10:12

program stringManipulation;

var  st1, st2: string;  countN, i: integer;

begin  write('Nhap vao xau ki tu st1: ');  readln(st1);  countN := 0;  for i := 1 to length(st1) do  begin    if (st1[i] = 'N') or (st1[i] = 'n') then    begin      countN := countN + 1;    end;  end;  writeln('So ky tu N va n trong xau st1 la: ', countN);  st2 := ''  for i := 1 to length(st1) do  begin    if (st1[i] >= 'A') and (st1[i] <= 'Z') then    begin      st2 := st2 + st1[i];    end;  end;  writeln('Cac ky tu in hoa trong xau st1 la: ', st2);  write('Xau st1 viet theo chieu nguoc lai la: ');  for i := length(st1) downto 1 do  begin    write(st1[i]);  end;  readln;end.

Đúng 2 Bình luận (2) Gửi Hủy Ngô Bá Hùng 16 tháng 4 2023 lúc 10:01

st1 = input("Nhập vào xâu kí tự: ")count_n = 0st2 = ""for char in st1:    if char == 'N' or char == 'n':        count_n += 1    if char.isupper():        st2 += char

print("Số lần xuất hiện của kí tự 'N' và 'n' là:", count_n)print("Xâu kí tự chỉ chứa kí tự in hoa là:", st2)print("Xâu kí tự đảo ngược là:", st1[::-1])

Đúng 1 Bình luận (3) Gửi Hủy

• Trung Nguyễn

5 tháng 5 2022 lúc 8:22

Viết chương trình nhập vào 1 xâu kí tự từ bàn phím và đưa xâu đó ra màn hình là các chữ cái in hoa

Xem chi tiết Lớp 11 Tin học 1 0 Gửi Hủy Lê Đình Quý 16 tháng 3 2023 lúc 21:26

Program Xau;

Uses crt;

Var St: String;

    i: longint;

Begin

        Clrscr;

        Write('Nhap xau: '); Readln(St);

        For i:=1 to length(St) do

                St[i] := Upcase(St[i]);

        Write('St = ',St);

        Readln

End.

Đúng 0 Bình luận (0) Gửi Hủy

Khoá học trên OLM (olm.vn)

• Toán lớp 11 (Kết nối tri thức với cuộc sống)
• Toán lớp 11 (Cánh Diều)
• Toán lớp 11 (Chân trời sáng tạo)
• Ngữ văn lớp 11
• Tiếng Anh lớp 11 (i-Learn Smart World)
• Tiếng Anh lớp 11 (Global Success)
• Vật lý lớp 11 (Kết nối tri thức với cuộc sống)
• Vật lý lớp 11 (Cánh diều)
• Hoá học lớp 11 (Kết nối tri thức với cuộc sống)
• Hoá học lớp 11 (Cánh diều)
• Sinh học lớp 11 (Kết nối tri thức với cuộc sống)
• Sinh học lớp 11 (Cánh diều)
• Lịch sử lớp 11 (Kết nối tri thức với cuộc sống)
• Lịch sử lớp 11 (Cánh diều)
• Địa lý lớp 11 (Kết nối tri thức với cuộc sống)
• Địa lý lớp 11 (Cánh diều)
• Giáo dục kinh tế và pháp luật lớp 11 (Kết nối tri thức với cuộc sống)
• Tin học lớp 11 (Kết nối tri thức với cuộc sống)
• Công nghệ lớp 11 (Kết nối tri thức với cuộc sống)