giúp mình với ạ
Đề: Dùng thủ tục để thay xâu X1 = xâu X2 trong xâu S. Cho S, X1,X2 nhập từ bàn phím.
Cảm ơn ạ
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Lời giải :
program hotrotinhoc ;
Type Mang1chieu : array[1..10] of integer ;
var a : Mang1chieu ;
i,T : integer ;
begin
writeln('Nhap cac gia tri cho mang');
for i:= 1 to 10 do
begin
write('a[',i,']='); readln(a[i]);
end;
T:=1;
for i:= 1 to 10 do
if a[i] mod 2 = 0 then T:=T*a[i] ;
write('Ket qua la:',T);
readln
end.
program hotrotinhoc ;
Type Mang1chieu : array[1..10] of integer ;
var a : Mang1chieu ;
i,T : integer ;
begin
writeln('Nhap cac gia tri cho mang');
for i:= 1 to 10 do
begin
write('a[',i,']='); readln(a[i]);
end;
T:=1;
for i:= 1 to 10 do
if a[i] mod 2 = 0 then T:=T*a[i] ;
write('Ket qua la:',T);
readln
end.
Lời giải :
program hotrotinhoc ;
const A = ' tinhhoc.inp ' ;
B = ' tinhoc.out ' ;
var F : text ;
s : string ;
i,dem : integer ;
begin
assign(F,A);
reset(F);
read(F,s);
close(F);
assign(F,B);
rewrite(F);
dem:=0;
for i:=1 to length(s) do
if s[i] in ['0'..'9'] then write(F,'Trong xau co ki tu so') else write(F,'Trong xau khong co ki tu so');
if s[i] in ['0'..'9'] then dem:=dem+1;
write(F,'trong xau co ',dem,' ki tu so');
end.
uses crt;
var a:array[1..100]of integer;
i,n,k,vt:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{-------------------------------------------------}
for i:=1 to n do write(a[i]:4);
{---------------------------------------------------}
writeln;
write('nhap k='); readln(k);
for i:=1 to n do
if a[i]=k then vt:=i;
writeln('vi tri xuat hien cua ',k,' trong day so la vi tri thu: ',vt);
readln;
end.
uses crt;
var n:integer;
{-----------------------------------------------------}
procedure nhap(var x:integer);
var a:array[1..100]of integer;
i:integer;
begin
write('nhap chieu dai cua day='); readln(x);
for i:=1 to x do
begin
write('a[',i,']='); readln(a[i]);
end;
end;
{-----------------------thu-tuc-tinh-tong-----------------}
procedure tong(var m:integer);
var b:array[1..100]of integer;
j,t:integer;
begin
t:=0;
for j:=1 to m do
t:=t+b[j];
writeln('tong la: ',t);
end;
{------------------------chuong-trinh-chinh---------------------}
begin
clrscr;
nhap(n);
tong(n);
readln;
end.
Trả lời:
Chương trình nhập vào từ bàn phím xâu kí tự s có độ dài không quá 100. Cho biết số chữ số thập phân xuất hiện trong xâu s. Thông báo kết quả ra màn hình.
Chương trình:
program bai_10_chuong_4;
uses crt;
var
s: string[100];
i, dem: integer;
Begin
clrscr;
write('Nhap xau vao:'); readln(s); dem:= 0;
for i:= 1 to length(s) do
if ('0'<=s[i]) and(s[i]<=’9') then dem:=dem+l;
Writeln('Trong xau s co '»dem,' chu so thap phan');
readln;
End.
Khi chạy chương trình, giả sử nhập vào xâu s :'Tin hoc 11 co 6 chuong' thì kết quả chương trình in ra màn hình: 'Trong xau s co 3 chu so thap phan'.
Kết quả chương trình có dạng như hình 70 dưới dây:
program viet_chuong_trinh;
uses crt;
var
a:array[1..50] of integer;
i,j:integer;
begin
clrscr;
for i:=1 to 50 do
begin
writeln('Moi nhap so thu ',i,':=', a[i]); readln(a[i]);
end;
for i:=1 to 50 do
if (a[i] mod 2 = 1) then writeln(a[i]);
end.