Giúp e bài tập Pascal với ạ Viết Chương trình nhập vào một chuỗi (string) và một kí tự(char). In hoa kí tự vừa nhập trong chuỗi đó

0 bình luận về “Giúp e bài tập Pascal với ạ Viết Chương trình nhập vào một chuỗi (string) và một kí tự(char). In hoa kí tự vừa nhập trong chuỗi đó”

1. program bt;

   uses crt;

   var a: string;

         i: byte;

         x: char;

   begin

      clrscr;

      write(‘Nhap xau a:’); readln(a);

      write(‘Nhap ki tu x:’); readln(x);

      for i := 1 to length(a) do if a[i] = x then a[i] := upcase(a[i]);

      write(‘Xau moi la:’);

      for i := 1 to length(a) do write(a[i]);

      readln

   end.

   Xin câu trả lời hay nhất ạ :3

   Bình luận

2. uses crt;
   var s:string; c:char; i:longint;
   begin
   clrscr;
      write(‘Nhap 1 xau= ‘);readln(s);
      write(‘Nhap 1 chuoi= ‘);readln(c);
      for i:=1 to length(s) do if s[i]=c then s[i]:=upcase(s[i]);
      writeln(S);
   readln
   end.

   Bình luận