Câu 1 .Viết chương trình sử dụng chương trình con xác định tham số có trong chương trình con X Câu 2 lập trình nhập 2 xâu không quá 100 và so sánh 2 xâu
Những câu hỏi liên quan
Viết chương trình theo 2 cách có sử dụng chương trình con và không sử dụng chương trình con thực hiện nhập 1 xâu kí tự từ bàn phím , thực hiện chuyển đổi toàn bộ xâu sang chữ hoa . Hiển thị kết quả ra màn hình Giúp em với em cảm ơn ạ
Xem chi tiết
Cách 1: Có sử dụng chương trình con
uses crt;
var st:string;
{------------chuong-trinh-con-------------------}
function doi(st1:string):string;
var i,d:integer;
begin
d:=length(st1);
for i:=1 to d do
st1[i]:=upcase(st1[i]);
doi:=st1;
end;
{-------------------chuong-trinh-chinh--------------------}
begin
clrscr;
write('Nhap xau:'); readln(st);
writeln(doi(st));
readln;
end.
Cách 2: Không sử dụng chương trình con
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=1 to d do
st[i]:=upcase(st[i]);
writeln(st);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình theo 2 cách có sử dụng chương trình con và không sử dụng chương trình con thực hiện nhập 1 xâu kí tự từ bàn phím , thực hiện chuyển đổi toàn bộ xâu sang chữ hoa . Hiển thị kết quả ra màn hình
Giúp em với em cảm ơn ạ
Xem chi tiết
*Cách có sử dụng chương trình con:
uses crt;
var st:string;
{--------------chuong-trinh-con---------------}
function doixau(st:string):string;
var i,d:integer;
begin
d:=length(st);
for i:=1 to d do
st[i]:=upcase(st[i]);
doixau:=st;
end;
{-------------chuong-trinh-chinh---------------}
begin
clrscr;
write('Nhap xau:'); readln(st);
writeln('Xau doi sang chu hoa la: ',doixau(st));
readln;
end.
*Cách không sử dụng chương trình con:
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=1 to d do
st[i]:=upcase(st[i]);
writeln('Xau sau khi doi la: ',st);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào xâu ký tự S , độ dài không quá 100 ký tự . Hãy chuẩn hóa xâu
- Xâu chuẩn là xâu không có dấu cách ở đầu câu , giữa 2 từ trong xâu chỉ có 1 dấu cách .
Uses crt;
Var st:string;
I,d:integer;
Begin
Clrscr;
Write('nhap xau:'); readln(st);
D:=length(st);
While st[d]=#32 do
Begin
Delete(st,d,1);
D:=length(st);
End;
For i:=1 to d do
If (st[i]=#32) and (st[i+1]=#32) then delete(st,i,1);
Writeln(st);
Readln;
End.
Đúng 1
Bình luận (0)
Viết chương trình nhập vào xâu ký tự S ,độ dài không quá 100 ký tự . Hãy chuẩn hóa xâu
-Xâu chuẩn là xâu không có dấu cách ở cuối câu , giữa 2 từ trong xâu chỉ có 1 dấu cách .
Uses crt;
Var st:string;
I,d:integer;
Begin
Clrscr;
Write('nhap xau:'); readln(st);
D:=length(st);
While st[d]=#32 do
Begin
Delete(st,d,1);
D:=length(st);
End;
For i:=1 to d do
If (st[i]=#32) and (st[i+1]=#32) then delete(st,i,1);
Writeln(st);
Readln;
End.
Đúng 0
Bình luận (0)
Nhập vào xâu kí tự bất kì. Cho biết trong xâu có bao nhiêu từ ( yêu cầu chương trình sử dụng chương trình con )
Viết chương trình nhập từ bàn phím 2 xâu kí tự có độ dài không quá 100
- loại bỏ tất cả dấu cách trong câu
- tạo 1 xâu mới từ xâu đầu tiên đã cho
- xoá tất cả từ "anh" thay bằng từ "em"
Xem chi tiết
a. Viết chương trình nhập vào 1 xâu bất kì xuất ra độ dài cùa xâu và số kí tự trống.
b. Viết chương trình nhập vào một xâu bất kì xuất ra xâu đảo ngược
c.Viết chương trình nhập vào một xâu bất kì xuất ra xâu có là xâu đối xứng hay không đối xứng
d. Viết chương trình nhập vào một xâu bất kì xuất ra xâu viết in hoa tất cả
câu 1 : viết chương trình để:-Nhập một dãy các số nguyên gồm N phần tử ( ko quá 60 kí tự);-Nhập 1 số nguyên K từ bàn phím;-Thông báo ra màn hình số lượng các phần tử trong dãy bằng KCâu 2: viết chương trình để :-Nhập một xâu A ( không quá 130 kí tự ) từ bàn phím ;-Tạo xâu mới B gồm các kí tự trong xâu A nhưng không có kí tự đầu và cuối ;- In kết quả các xâu trên ra màn hình .mọi người giúp em với ạ . em đang cần gấp ạ
Đọc tiếp
câu 1 : viết chương trình để:
-Nhập một dãy các số nguyên gồm N phần tử ( ko quá 60 kí tự);
-Nhập 1 số nguyên K từ bàn phím;
-Thông báo ra màn hình số lượng các phần tử trong dãy bằng K
Câu 2: viết chương trình để :
-Nhập một xâu A ( không quá 130 kí tự ) từ bàn phím ;
-Tạo xâu mới B gồm các kí tự trong xâu A nhưng không có kí tự đầu và cuối ;
- In kết quả các xâu trên ra màn hình .
mọi người giúp em với ạ . em đang cần gấp ạ
Câu 1:
#include <bits/stdc++.h>
using namespace std;
long long i,n,k,dem,x;
int main()
{
cin>>n;
cin>>k;
dem=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x==k) dem++;
}
cout<<dem;
return 0;
}
Đúng 1
Bình luận (0)
Viết chương trình sử dụng chương trình con (Pascal)
- Tính n! với n nguyên dương?
- Đảo ngược xâu st cho trước?
- Đếm số nguyên dương N có bao nhiêu chữ số?
- Kiểm tra tính đối xướng của một xâu st cho trước?
- Viết ra n số nguyên tố đầu tiên?
- Nhập 1 dãy số nguyên dương, sau đó viết ra số nguyen dương trong dãy?
Cái này mình viết chương trình chính thôi, bạn tự viết ctc nhé
Câu 1:
uses crt;
var n,i,s:longint;
begin
clrscr;
write('Nhap n='); readln(n);
s:=1;
for i:=1 to n do
s:=s*i;
writeln(s);
readln;
end.
Đúng 1
Bình luận (1)
Câu 2:
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=d downto 1 do
write(st[i]);
readln;
end.
Đúng 1
Bình luận (0)
Câu 3:
uses crt;
var n:integer;
st:string;
begin
clrscr;
write('Nhap n='); readln(n);
str(n,st);
writeln('So ',n,' co ',length(st),' chu so');
readln;
end.
Đúng 1
Bình luận (0)
Xem thêm câu trả lời