1. Viết chương trình nhập vào 1 số a. Nếu a lớn hơn hoặc bằng 3. In ra màn hình “không hợp lệ”. Ngược lại, “số không hợp lệ”
2. Viết chương trình nhập vào 1 số x. Nếu x lớn hơn hoặc bằng 0. In ra màn hình “số dương”. Ngược lại, “số âm”
3. Viết chương trình nhập vào điểm trung bình ( ĐTB ) của 1 học sinh từ bàn phím. Nếu ĐtB lớn hơn hoặc bằng 5. In ra màn hình “HS đã thi đậu”. Ngược lại, “HS đã thi rớt.
Bài này học rùi mờ !
1,
Program B1;
Uses Crt;
Var a:integer;
Begin
Clrscr;
Writeln(‘Nhap so a: ‘, readln(a));
If a>=3 then writeln(‘So hop le’) else writeln(‘So khong hop le’);
Readln;
End.
2,
Program B2;
Uses Crt;
Var x:integer;
Begin
Clrscr;
Writeln(‘Nhap so x: ‘, readln(x));
If a>=0 then writeln(‘So duong’) else writeln(‘So am’);
Readln;
End.
3,
Program B3;
Uses Crt;
Var DTB:integer;
Begin
Clrscr;
Writeln(‘Nhap diem trung binh : ‘, readln(DTB));
If a>=5 then writeln(‘Hoc sinh da dau’) else writeln(‘Hoc sinh da thi rot’);
Readln;
End.
Bài 5 thì mình xin thua nên mod đừng xóa nhé !
1
Program sohople;
Uses crt;
Var a: real;
Begin
Clrscr;
Write(‘nhap a’,a); readln(a);
If a>= 3 then writeln(‘so hop le’)
Else writeln(‘so khong hop le’);
{Cai dang sau khong hop le thi cai dang truoc phai hop le chu nhi?}
Readln
End.
2.
Program soamduong;
Uses crt;
Var x: real;
Begin
Clrscr;
Write(‘nhap x’,x); readln(x);
If x>= 0 then writeln(‘so duong’)
Else writeln(‘so am’);
Readln
End.
3.
Program diemtb;
Uses crt;
Var dtb: real;
Begin
Clrscr;
Write(‘nhap diem trung binh’,dtb); readln(dtb);
If dtb>= 5 then writeln(‘Hs da thi dau’)
Else writeln(‘hs da thi rot ‘);
Readln
End.
Dương Thiên Vyvy~~~~~~~~~~~~~~