Viết CT nhập vào từ tệp 1 xây Thay thế các chữ cái a->b và in ra màn hình
Những câu hỏi liên quan
1. Viết CT nhập vào 1 dãy số nguyên có N phần tử (N150). In ra màn hình và ghi ra tệp D:SO_CHAN.TXT các phần tử là số chẵn.2.Viết CT nhập vào họ và tên của một người bằng chữ in thường. In ra màn hình và ghi ra tệp D:HO_TEN.TXT họ tên người đó bằng chữ in hoa.3. Cho tệp D:SO_HANG.TXT chứa các cặp số nguyên( mỗi số cách nhau 1 khoảng trắng, mỗi cặp nằm trên 1 dòng. Viết CT tính tổng các cặp số đó, kết quả in ra màn hình và ghi ra tệp D:KET_QUA.TXT.4. Cho tệp D:HO_TEN.TXT chứa họ tên của một số ng...
Đọc tiếp
1. Viết CT nhập vào 1 dãy số nguyên có N phần tử (N=150). In ra màn hình và ghi ra tệp D:\SO_CHAN.TXT các phần tử là số chẵn.
2.Viết CT nhập vào họ và tên của một người bằng chữ in thường. In ra màn hình và ghi ra tệp D:\HO_TEN.TXT họ tên người đó bằng chữ in hoa.
3. Cho tệp D:\SO_HANG.TXT chứa các cặp số nguyên( mỗi số cách nhau 1 khoảng trắng, mỗi cặp nằm trên 1 dòng. Viết CT tính tổng các cặp số đó, kết quả in ra màn hình và ghi ra tệp D:\KET_QUA.TXT.
4. Cho tệp D:\HO_TEN.TXT chứa họ tên của một số người bằng chữ in thường. Viết CT in ra màn hình và ghi ra tệp D:\HT_HOA.TXT họ tên những người đó bằng chữ in hoa. Giúp mik vs ạ tks nhiều
Viết CT nhập vào từ tệp số n Tính và in ra màn hình N!
viết ct n nhập từ bàn phím in ra màn hình các chữ số âm và các chữ số dương
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i]>0 then write(a[i]:4);
writeln;
for i:=1 to n do
if a[i]<0 then write(a[i]:4);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào điện trở a) Lưu 3 điện trở trên vào tệp : BaiTap.doc b) Mở tệp BaiTap.doc , in 3 điện trở ra màn hình tìm điện trở tương đương của mạch và in ra màn hình
Viết chương trình nhập vào từ tệp các bộ 3 a,b,c sau đó:
Đếm và in ra màn hình số các tam giác có thể tạo thàng tam giác vuông từ các bộ 3 a,b,c này
viết chương trình nhập vào từ tệp số n ( n nguyên dương) in ra màn hình các số chẵn từ 1 đến n
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
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)
viết ct n nhập từ bàn phím in ra màn hình các chữ số lớn hơn 0 và bé hơn 0
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i]>0 then write(a[i]:4);
writeln;
for i:=1 to n do
if a[i]<0 then write(a[i]:4);
readln;
end.
Đúng 0
Bình luận (0)
Viết phươ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.
uses crt;
var a,b,c:string;
i,d1,d2:integer;
begin
clrscr;
write('Nhap xau a:'); readln(a);
write('Nhap xau b:'); readln(b);
d1:=length(a);
d2:=length(b);
writeln('Tong do dai hai xau la: ',d1+d2);
c:=#32;
for i:=1 to d1 do
if (a[i] in ['A'..'Z']) or (a[i] in ['a'..'z']) then c:=c+a[i];
for i:=1 to d2 do
if b[i] in ['0'..'9'] then c:=c+b[i];
writeln('Xau c la: ',c);
readln;
end.
Đúng 2
Bình luận (0)