5.1 Viết chương trình in nhãn học sinh như sau: – Nhập vào họ tên, tên vở. – In nhãn theo dạng: ************************************* * TRUONG T

5.1:

uses crt;
var i,cach:longint; hvt,vo:string;
begin
clrscr;
   write(‘Ho ten: ‘);readln(hvt);
   write(‘Ten vo: ‘);readln(vo);
   Cach:=23;
   if 10+length(Hvt)>23 then cach:=10+length(Hvt)+1;
   for i:=1 to cach do write(‘*’); writeln;
   writeln(‘* TRUONG THCS TRAN PHU’);
   writeln(‘* LOP: HSG TIN HOC’);
   writeln(‘* HO TEN: ‘,hvt);
   writeln(‘* VO: ‘,vo);
   for i:=1 to cach do write(‘*’);
   for i:=3 to 7 do begin gotoxy(cach,i); write(‘*’); end;
readln
end.

5.2:

uses crt;
var a,b,S,ts:string; I,c,d,hang,tam,e:longint;
begin
clrscr;
   write(‘a=’);readln(a);
   write(‘b=’);readln(b);
   val(a,c); val(b,d); str(c*d,s);
   hang:=3;
   gotoxy(length(s)-2,hang); writeln(a); inc(hang,2);
   writeln(‘x’);
   gotoxy(length(s)-2,hang); writeln(b); inc(hang,2);
   For i:=1 to length(s) do write(‘-‘);writeln;
   for i:=3 downto 1 do
      begin
         val(b[i],tam,e);
         str(tam*c,ts);
         gotoxy(length(s)-length(ts)+i-2,hang); write(ts);
         inc(hang);
      end;
   writeln;
   For i:=1 to length(s) do write(‘-‘);writeln;
   writeln(s);
readln
end.

Bài 5.2 này mình cũng có trả lời ở bên kia rồi nên không phải là copy của người khác đâu nhé:

/////////////////////////////////////////////

Test: