BÀI 1 : XÁC ĐỊCH INPUT , OUTPUT VÀ VIẾT CHƯƠNG TRÌNH NHẬP 3 SỐ DƯƠNG a,b,c TỪ BÀN PHÍM . KIỂM TRA VÀ IN RA MÀN HÌNH KẾT QUẢ KIỂM TRA 3 SỐ ĐÓ CÓ THỂ LÀ ĐỘ DÀI CÁC CẠNH CỦA 1 TAM GIÁC HAY KHÔNG ?
BÀI 2 : VIẾT CHƯƠNG TRÌNH NHẬP VÀO 1 THÁNG BẤT KÌ TRONG NĂM . HÃY CHO BIẾT THÁNG ĐÓ THUỘC MÙA NÀO TRONG NĂM ( VIẾT DẠNG MÙA ĐÔNG GỒM CÓ THÁNG 11,12,1 ; MÙA HẠ GỒM THÁNG 5,6,7 ; MÙA THU GỒM THÁNG 8,9,10 ; MÙA XUÂN GỒM THÁNG 1,2,3 )
BÀI 3 : VIẾT CHƯƠNG TRÌNH NHẬP VÀO THỨ TỰ CÁC NGÀY TRONG TUẦN . HÃY CHO BIẾT ĐÓ LÀ NGÀY THỨ MẤY ? (VD : SỐ THỨ TỰ LÀ 1 THÌ SẼ LÀ NGÀY THỨ HAI ,..., SỐ THỨ TỰ LÀ 7 THÌ SẼ LÀ NGÀY CHỦ NHẬT )
HELP ME PLEASE !! CẦN RẤT RẤT GẤP :(((
Bài 1 Đơn giản tự lm nha
Bài 2
program abcxyz;
uses crt;
var N:integer;
begin
write('Nhap thang:'); readln(N);
If (N=1) or (N=11) or (N=12) then write ('Mua dong');
If (N=5) or (N=6) or (N=7) then write('Mua ha');
If (N=8) or (N=9) or (N=10) then write('Mua thu');
If (N=1) or (N=2) or (N=3) then write('Mua xuan');
readln
end.
Bài 3
program abcxyz;
uses crt;
var N:integer;
begin
Write('Nhap so thu tu ngay:');readln(N)
If N=1 then write('Thu hai');
If N=2 then write('Thu ba');
If N=3 then write('Thu tu');
If N=4 then write('Thu nam');
If N=5 then write('Thu sau');
If N=6 then write('Thu bay');
If N=7 then write('Chu nhat');
readln
end.
Lần sau đăng từng bài nha đừng đăng nhiều quá k ai làm đâu nha bạn
Chúc bạn học tốt ^^
Bài 1:
ok, cái này ez thì bn tự làm :)
bài 2:
uses crt;
var n:integer;
begin
clrscr;
wirte('Nhap thang=');
readln(n);
case n of
1,2,3:writeln('Mua xuan');
4,5,6:writeln('Mua he');
7,8,9:writeln('Mua thu');
10,11,12:writeln('Mua dong');
end;
Bài 3:
uses crt;
var n:integer;
begin
clrscr;
writeln('Nhap ngay:');
readln(n);
case n of
1:writeln('Thu hai');
2:writeln('Thu ba');
3:writeln('Thu tu');
4:writeln('Thu nam');
5:writeln('Thu sau');
6:writeln('Thu bay');
7:writeln('Chu nhat');
end;
realdn
end.
