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 THCS TRAN PHU *
* LOP: HSG TIN HOC *
* HO TEN: *
* VO: *
*************************************
5.2 Viết chương trình nhập hai số nguyên không quá 3 chữ số, và in kết quả phép tính cộng theo dạng:
939
+ 82
——-
1021
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:
Bài 5.1:
program kaito;
uses crt;
var a, b: string;
begin
clrscr;
write(‘Nhap ho ten: ‘); readln(a);
write(‘Nhap ten vo: ‘); readln(b);
writeln(‘***************************’);
writeln(‘* TRUONG THCS TRAN PHU *’);
writeln(‘* LOP: TIN HOC *’);
writeln(‘* HO TEN: ‘,a,’ *);
writeln(‘* VO: ‘,b,’ *);
writeln(‘***************************’);
readln;
end.
Bài 5.2:
program kaito;
uses crt;
vả a, b: integer;
begin
clrscr;
write(‘nhap a: ‘); readln(a);
write(‘nhap b: ‘); readln(b);
if (a>999) or (b>999) then write(‘* khong hop le !!!’);
else
if (a+b>999) then
begin
gotoxy(5,wherey); writeln(a);
writeln(‘+’);
gotoxy(5,wherey); writeln(b);
writeln(‘………’);
gotoxy(4,wherey); writeln(a+b);
end
else
begin
gotoxy(5,wherey); writeln(a);
writeln(‘+’);
gotoxy(5,wherey); writeln(b);
writeln(‘………’);
gotoxy(5,wherey); writeln(a+b);
end;
readln;
end.
CHÚC BẠN HỌC TỐT!!!