Viết chương trình in ra màn hình
a, ******************************
* họ và tên *
* lớp *
* trường *
******************************
b, bảng cửu chương 7
c, 50 chữ ” HOC TRUC TUYEN ”
a) program oken;
begin
write(‘***********************’);
write(‘* ho va ten: *’);
write(‘* lop: *’);
write(‘* truong: *’);
write(‘***********************’);
readln;
end.
b) program oken;
var i: integer;
begin
writeln(‘bang cuu chuong 7:’);
for i:=2 to 9 do
writeln(i,’ * 7: ‘,i*7);
readln;
end.
c)program oken;
var i:integer;
begin
for i:=1 to 50 do
writeln(‘” HOC TRUC TUYEN “‘);
readln;
end.
Cho mình xin câu trả lời hay nhấy nha 😀
1/
program chuong_trinh;
used crt;
begin
clrscr;
writeln(‘******************************’);
writeln(‘ * ho va ten *’);
writeln(‘ ******************************’);
readln;
end.
2/
program bang_cuu_chuong
used crt;
begin
clrscr;
writeln(‘7×1=7’);
writeln(‘7 x 2=14’);
writeln(‘7 x 3=21’);
writeln(‘7 x 4=28’);
writeln(‘7 x 5= 35’);
writeln(‘7 x 6= 42’);
writeln(‘7×7=49’);
writeln(‘7×8=56’);
writeln(‘7×9=63’);
writeln(‘7×10=70’);
readln;
end.
3/
program bt3;
used crt;
var i:integer;
begin
clrscr;
for i:=1 to 50 do
begin
writeln(‘HOC TRUC TUYEN’);delay(1);
end;
readln;
end.
(tips:ở chỗ delay bạn chỉnh tốc dộ tùy ý nha)(nếu thấy có ích thì cho mình xin 5sao và cảm ơn nha)