K
Khách

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.

*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.

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.

28 tháng 4 2021

Program HOC24;

var s: string;

i: byte;

begin

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

for i:=1 to length(s) do if s[i]<>'a' then write(s[i]);

readln

end.

uses crt;

var st:string;

i,d:integer;

begin

clrscr;

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

d:=length(st);

for i:=1 to d do 

 if st[i]='a' then delete(st,i,1);

writeln(st);

readln;

end.

Bài 1:

uses crt;

var S:String;

vt:integer;

begin

clrscr;

Write(‘Nhap 1 xau:’); Readln(S);

While pos(‘nang’,s)>0 do

Begin

Vt:= pos(‘nang’,s);

Delete(s,vt,4);

Insert(‘mua’,s ,vt);

End;

Writeln(‘Xau sau khi thay the ’,s);

Readln;

End.

Bài 2: 

uses crt;

var st:string;

d,i,kt:integer;

begin

clrscr;

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

d:=length(st);

kt:=0;

for i:=1 to d do 

  if st[i]<>st[d-i+1] then kt:=1;

if kt=0 then writeln(st,' la xau doi xung')

else writeln(st,' khong la xau doi xung');

readln;

end.

uses crt;

var st:string;

begin

clrscr;

readln(st);

delete(st,3,5);

writeln(st);

readln;

end.

3 tháng 3 2021

Chương trình:program bai_10_chuong_4;uses crt;vars: string[100];i, dem: integer;Beginclrscr;write('Nhap xau vao:'); readln(s); dem:= 0;for i:= 1 to length(s) doif ('0'<=s[i]) and(s[i]<=’9') then dem:=dem+l;Writeln('Trong xau s co '»dem,' chu so thap phan');readln;End.

3 tháng 3 2021

Đề của em là

input:Hie6n3 thi5 chu 73 so61

output :Cac chu so:6357316

             Xau da nhap:Hie6n3 thi5 chu 73 so61

Như vậy mới đúng ạ 

em nhập như trên chỉ ra được số 7 thôi ạ

 

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.

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.

uses crt;

var st:string;

d,i:integer;

begin

clrscr;

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

d:=length(st);

for i:=1 to d do 

  if not(st[i] in ['a'..'z']) and not(st[i] in ['A'..'Z']) then write(st[i]);

readln;

end.

Bài 3: 

uses crt;

const fi='teptong.txt';

var a,b:integer;

f1:text;

begin

clrscr;

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

readln(a,b);

writeln(a+b);

writeln(f1,a+b);

close(f1);

readln;

end.