Bài1/ Viết chương trình nhập vào tọa độ hàng x cột y của
bàn cờ vua. Thông báo ra màn hình ô cờ ở tọa độ x, y là màu gì. Biết rằng ô có tọa độ 1,
1 là màu trắng (ô góc trên cùng phía trái)
Ví dụ:
x=1, y=3 èmàu
trắng
x=7, y=8èmàu
đen
x=6, y=8èmàu
trắng
Bài 2: Viết chương trình nhập 2 số nguyên a và b từ bàn phím. in ra màn hình số có giá trị lớn nhất trong hai số.
ví dụ:
a=5
b=8
số có giá trị lớn nhất là 8
Bài 3: Viết chương trình nhập 2 số nguyên a và b từ bàn phím. in ra màn hình kết quả so sánh hai số đó.
ví dụ:
a=5
b=8
a nhỏ hơn b
Bài 4: Viết chương trình nhập 2 số nguyên a và b từ bàn phím. in ra màn hình số theo thứ tự tăng.
Bài 5: Một trong những điều kiện để được kết nạp Đoàn là từ 15 tuổi
trở lên. Viết chương trình nhập vào năm sinh của một học sinh, thông báo học sinh này đã đủ tuổi để kết nạp Đoàn chưa.
Bài 6: Viết chương trình nhập vào số nguyên a là năm dương lịch. Thông báo ra màn hình năm đó có là năm nhuận hay không
Trường hợp đơn giản: Năm nhuận là năm chia hết cho 4
Trường hợp khó hơn: Năm nhuận là năm chia hết cho 4. Nhưng những năm chẵn trăm thì phải chia hết cho 400
(các em làm trường hợp đơn giản nhé)
ví dụ:
năm=2000 thì là năm nhuận, năm=1999 không nhuận
Trường hợp khó
năm=2000 thì là năm nhuận, năm=1700 không nhuận
năm=20 là năm nhuận, năm 1999 không nhuânk
*Nếu muốn làm được trường hợp khó thì cần nghiên cứu phép toán AND+OR trong Pascal
+Phép AND (và) hoạt động như Excel
cú pháp
(btđk1)and(btđk2)and(btddk3)....and(btđkn)
ví dụ: phép 8<=a<=20 trong Toán thì được biểu diễn bằng Pascal như sau
(a>=8)and(a<=20)
ví dụ:
a=5
b=8
số có giá trị lớn nhất là 8
Bài 3: Viết chương trình nhập 2 số nguyên a và b từ bàn phím. in ra màn hình kết quả so sánh hai số đó.
ví dụ:
a=5
b=8
a nhỏ hơn b
Bài 4: Viết chương trình nhập 2 số nguyên a và b từ bàn phím. in ra màn hình số theo thứ tự tăng.
Bài 5: Một trong những điều kiện để được kết nạp Đoàn là từ 15 tuổi
trở lên. Viết chương trình nhập vào năm sinh của một học sinh, thông báo học sinh này đã đủ tuổi để kết nạp Đoàn chưa.
Bài 6: Viết chương trình nhập vào số nguyên a là năm dương lịch. Thông báo ra màn hình năm đó có là năm nhuận hay không
Trường hợp đơn giản: Năm nhuận là năm chia hết cho 4
Trường hợp khó hơn: Năm nhuận là năm chia hết cho 4. Nhưng những năm chẵn trăm thì phải chia hết cho 400
(các em làm trường hợp đơn giản nhé)
ví dụ:
năm=2000 thì là năm nhuận, năm=1999 không nhuận
Trường hợp khó
năm=2000 thì là năm nhuận, năm=1700 không nhuận
năm=20 là năm nhuận, năm 1999 không nhuânk
*Nếu muốn làm được trường hợp khó thì cần nghiên cứu phép toán AND+OR trong Pascal
+Phép AND (và) hoạt động như Excel
cú pháp
(btđk1)and(btđk2)and(btddk3)....and(btđkn)
ví dụ: phép 8<=a<=20 trong Toán thì được biểu diễn bằng Pascal như sau
(a>=8)and(a<=20)
uses crt;
Trả lờiXóavar a,b:real;
begin
clrscr;
write('nhap a=');
readln(a);
write('nhap b=');
readln(b);
if a>b then writeln('so lon nhat=',a)
else writeln('so lon nhat=',b);
readln
end.
bài 2 nha
uses crt;
Trả lờiXóavar a,b:real;
begin
clrscr;
write('nhap a=');
readln(a);
write('nhap b=');
readln(b);
if a>b then writeln('a lon hon b')
else writeln('a nho hon b');
readln
end.
bài 3
uses crt;
Trả lờiXóavar a,b:real;
begin
clrscr;
write('nhap a=');
readln(a);
write('nhap b=');
readln(b);
if a>b then writeln(b,',',a)
else writeln(a,',',b);
readln
end.
bài 4
program b1;
Trả lờiXóauses crt;
var
x,y:integer;
begin
write('nhap x=');
readln(x);
write('nhap y=');
readln(y);
if((x+y) mod 2=0) then
write('mau trang');
if((x+y) mod 2=1) then
write('mau den');
readln;
end.
program b2;
Trả lờiXóauses crt;
var
a,b:integer;
begin
write('nhap a=');
readln(a);
write('nhap b=');
readln(b);
if a>b then
write('so lon nhat trong 2 so la ',a);
if a<b then
write('so lon nhat trong 2 so la ',b);
readln;
end.
program b3;
Trả lờiXóauses crt;
var
a,b:integer;
begin
write('nhap a=');
readln(a);
write('nhap b=');
readln(b);
if a>b then
write('ket qua so sanh ',a,'>',b);
if a<b then
write('ket qua so sanh ',a,'<',b);
if a=b then
write('ket qua so sanh ',a,'=',b);
readln;
end.
program b4;
Trả lờiXóauses crt;
var
a,b:integer;
begin
write('nhap a=');
readln(a);
write('nhap b=');
readln(b);
if a>b then
write(b,',',a);
if a<b then
write(a,',',b);
readln;
end.
program b5;
Trả lờiXóauses crt;
var
a:integer;
begin
write('nhap nam sinh cua ban= ');
readln(a);
if 2019-a>= then
write('ban da du tuoi ket nap doan');
if 2019-a<a then
write('ban chua du tuoi ket nap doan');
readln;
end.
Thầy cho em sửa lại
Xóaprogram b5;
uses crt;
var
a:integer;
begin
write('nhap nam sinh cua ban= ');
readln(a);
if 2019-a>=15 then
write('ban da du tuoi ket nap doan');
if 2019-a<15 then
write('ban chua du tuoi ket nap doan');
readln;
end.
Bạn Huyền rất xuất sắc (đặc biệt là làm được bài 1). Bài 5 em cần so sánh 2019-a với 15 nhé (chắc viết thiếu thôi)
Trả lờiXóaBạn Phát bài 3 so sánh 2 số a và b chưa làm trường hợp hai số bằng nhau nhé, còn bài 5 Phát cần đọc kỹ đề nhé
uses crt;
Trả lờiXóavar a,b:real;
begin
clrscr;
write('nhap x=');
readln(x);
write('nhap y=');
readln(y);
if (x+y) mod 2=0 then writeln('day la o mau trang')
else writeln('day la o mau den');
readln
end.
uses crt;
Trả lờiXóavar a,b:real;
begin
clrscr;
write('nhap nam sinh cua ban=');
readln(a);
if 2019-a>=15 then writeln('ban du tuoi ket nap vo doan')
else writeln('ban chua du tuoi ket nap vo doan');
readln
end.
uses crt;
Trả lờiXóavar a:integer;
begin
clrscr;
writeln('nhap nam ');
readln(a);
if a mod 4=0 then writeln('day la nam nhuan')
else writeln('day la nam khong nhuan');
readln
end.
trường hợp đơn giản
uses crt;
Trả lờiXóavar a:integer;
begin
clrscr;
write('nhap nam ');
readln(a);
if (a mod 4=0)or(a mod 100=0)and(a mod 400=0) then writeln('day la nam nhuan')
else writeln('day la nam khong nhuan')
readln
end.
trường hợp khó
Bài năm nhuận của Phát trường hợp khó chưa đúng nhé
Trả lờiXóaví dụ: năm =1700 không phải năm nhuận
sửa bài năm nhuận trường hợp khó
Trả lờiXóauses crt;
var a:integer;
begin
clrscr;
write('nhap nam ');
readln(a);
if (a mod 4=0)and(a mod 100<>0)or(a mod 4=0)and(a mod 100=0)and(a mod 400=0) then writeln('day la nam nhuan')
else writeln('day la nam khong nhuan')
readln
end.
Bạn Phát đã làm đúng. Nhưng nếu Phát tinh ý thì (a mod 4=0)and(a mod 100=0)and(a mod 400=0) sẽ
Trả lờiXóarút gọn đơn giản thành (a mod 400=0) là đủ (Suy nghĩ điều này nhé, cần tư duy logic cao một tý)
duong
Trả lờiXóabai 1
x,y:integer;
begin
write('nhap x=');readln(x);
write('nhap y=');readln(y);
if ((x+y) mod 2=1) then write('o den');
if ((x+y) mod 2=0) then write('o trang');
readln;
end.
duong 8/1
Trả lờiXóabai
var
a,b:integer;
begin
write('nhap a=');readln(a);
write('nhap b=');readln(b);
if a>b then write('so lon nhat la a') else write('so lon nhat la b');
readln;
end.
chúc mừng bạn Dương đã làm chính xác 2 bài
Trả lờiXóavar
Trả lờiXóax,y:integer;
begin
write('nhap x='); readln(x);
write('nhap y='); readln(y);
if ((x+y) mod 2=0) then
write('o trang');
if((x+y) mod 2=1) then
write('o den');
readln;
end.
bai2
Trả lờiXóavar
a,b:integer;
begin
write('nhap a:'); readln(a);
write('nhap b:'); readln(b);
if a>b then write('so co gia tri lon nhat la:',a)
else
write('so co gia tri lon nhat la:',b);
readln;
end.
Nhận xét này đã bị tác giả xóa.
Trả lờiXóabai3
Trả lờiXóavar
a,b:integer;
begin
write('nhap a='); readln(a);
write('nhap b='); readln(b);
if a<b then write('ket qua so sanh la:',a,'<',b')
else
if b<a then write('ket qua so sanh la:',b,'<',a)
else
write('ket qua so sanh la:',a,'=',b');
end.
Nhận xét này đã bị tác giả xóa.
Trả lờiXóabai4
Trả lờiXóavar
a,b:integer;
begin
write('nhap a='); readln(a);
write('nhap b='); readln(b);
if a<b then write('theo thu tu tang dan la:',a,';',b)
else
if b<a then write('theo thu tu tang dan la:',b,';',a);
readln;
end.
em chỉ cần:
Xóaif a<b then writeln(a,' ',b)
else writeln(b,' ',a);
bai5
Trả lờiXóavar
a:integer;
begin
write('nhap nam sinh cua ban:'); readln(a);
if (2020-a)>=15 then write('ban du tuoi de ket nap doan')
else
write('ban chua du tuoi de ket nap doan');
end.
bai6 (th1)
Trả lờiXóavar
a:integer;
begin
write('nhap nam:'); readln(a);
if a mod 4=0 then write('nam nhuan')
else
write('nam khong nhuan');
end.
em làm trường hợp khó nữa nhé
Xóabai6 (th2)
Trả lờiXóavar
a:integer;
begin
write('nhap nam:'); readln(a);
if (a mod 4=0) and (a mod 100<>0) or (a mod 400=0) then write('nam nhuan')
else
write('nam khong nhuan');
readln;
end.
Em nên đặt thêm ngoặc như sau
Xóaif ((a mod 4=0) and (a mod 100<>0)) or (a mod 400=0) then write('nam nhuan')
else
write('nam khong nhuan');
bai 6
Trả lờiXóavar
a: integer;
begin
write('nhap nam: '); readln(a);
TH de: if a mod 4 =0 then writeln(' day la nam nhuan') else
writeln(' day la nam khong nhan');
th kho: if (a mod 4=0) and (a mod 100<>0) or (a mod 100=0) and (a mod 400=0)
then writeln('day la nam nhuan') else writeln('day la nam khong nhuan');
readln;
end.
Dương nên rút ngắn điều kiện lại một chút nữa:
Xóaif ((a mod 4=0) and (a mod 100<>0)) or (a mod 400=0) then
Nhận xét này đã bị quản trị viên blog xóa.
Trả lờiXóa