nhập mảng vào xâu xác 5 kí tự chất dầu từ vì trí 1 rồi in kết quả vào tệp de22 tại ổ d
Viết chương trình đọc xâu dữ liệu từ tệp vào vào. Xóa các kí tự ‘a’ trong xâu và in xâu sau khi đã xóa ra tệp kết quả
const fi='vao.inp'
fo='ra.out'
var f1,f2:text;
st:string;
i,d:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,st);
d:=length(st);
for i:=1 to d do
if st[i]='a' then delete(st,i,1);
writeln(f2,st);
close(f1);
close(f2);
end.
viết chương trình nhập vào từ bàn phím một xâu bất kì hãy thực hiện xoá 5 kí tự bắt đầu từ vị trí 3 cả xâu đó rồi đưa kết quả ra màn hình
uses crt;
var st:string;
begin
clrscr;
readln(st);
delete(st,3,5);
writeln(st);
readln;
end.
Câu 1: Viết chương trình nhập n phần tử mảng 1 chiều là các số nguyên từ bàn phím, ghi mảng vừa nhập vào tệp MANG1CHIEU.TXT. Tìm giá trị nhỏ nhất trong mảng và đưa kết quả ra màn hình
Câu 2: Viết chương trình nhập 1 xâu bất kỳ từ bàn phím, In ra xâu sau khi đã loại bỏ các kí tự là chữ cái và ghi vào tệp CHUSO.TXT
giúp em với ạ . em cảm ơn nhiều...
cau 1:
uses crt;
var a:array[1..100] of integer;
n,i,min: integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
min:=a[1];
for i:=2 to n do
if min>a[i] then min=a[i];
writeln(a[i]);
readln;
end.
cau 2:
uses crt;
g:text;
s:string;
const fo='CHUSO.TXT'
begin
assign(g,fo);
rewrite(g);
readln(s);
for i:=1 to length(s) do
if not((s[i] in ['a'..'z'])and(s[i] in ['A'..'Z])) then delete(s,i,1);
writeln(g,s);
end.
Viết chương trình đọc dữ liệu từ tệp fi với tệp fi chứa dữ liệu là 1 xâu dữ liệu. Ghi kết quả vào tệp fo các kết quả sau khi xử lý xâu.
a. Xâu vừa đọc được từ tệp fi, xâu chuyển thành chữ in hoa
b. Xâu s1 được tạo gồm n kí tự liên tiếp của xâu s bắt đầu tại vt.
c. Xâu sau khi xóa a kí tự của xâu s bắt đầu tại vị trí vt
viết chương trình nhập vào 1 xâu S từ phím. Ghi các kí tự in hoa trong xâu S vào tệp 'VB.txt'
uses crt;
const fi='vb.txt'
var f1:text;
st:string;
i,d:integer;
begin
clrscr;
assign(f1,fi); rewrite(f1);
readln(st);
d:=length(st);
for i:=1 to d do
if st[i] in ['A'..'Z'] then write(f1,st[i]:4);
close(f1);
readln;
end.
Viết chương trình đọc 1 xâu từ tệp Xau.mp. Kiểm tra trong xâu có bao nhiêu kí tự ‘a’. Kết quả ghi vào tệp KQ.Out
Program HOC24;
var s: string;
i,d: byte;
f1,f2: text;
fi='Xau.mp'
fo='KQ.Out'
begin
assign(f1,fi);
assign(f2,fo);
reset(f1);
rewrite(f2);
readln(f1,s);
d:=0;
for i:=1 to length(s) do if s[i]='a' then d:=d+1;
write(f2,d);
close(f1); close(f2);
end.
viết chương trình đọc 1 xâu lí tự bất kì từ tệp dl.inp . hãy xoá kí tự đầu tiên và kí tự cuối cùng của xâu đó và ghi kết quả sau khi xoá vào tệp dl.out
const fi='dl.inp'
fo='dl.out'
var f1,f2:text;
st:string;
i,d:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,st);
d:=length(st);
for i:=2 to d-1 do
write(f2,st[i]);
close(f1);
close(f2);
end.
1.Hãy viết chương trình nhập vào 1 xâu kí tự là Hoten của em rồi hãy tạo ra 1 xâu mới được COPY từ Họ trong xâu Họ tên vừa nhập. In ra xâu kết quả
CÁC BẠN GIÚP MÌNH MÌNH SẮP THI RỒI I!!!
Mouj người giúp em với ạ , em cám ơn mn rất nhiều viết chương trình nhập vào xâu chuẩn bất kì chỉ bao gồm các kí tự từ a đến z . sau đoa chèn thêm từ " chen them "('_' là dấu cách) vào sau từ thứ 2 trên sâu rồi đưa ra kết quả lên tệp dulieu.txt