Câu 3: Hãy viết chương trình cho phép nhập điểm bài kiểm tra môn Tin của một bạn rồi thực hiện:
- Nếu điểm nhỏ hơn 0 hoặc lớn hơn 10 thì thông báo bạn nhập không hơp lệ.
- Nếu điểm lớn hơn hoặc bằng 0 và nhỏ hơn 5, in ra dòng chữ “Ban can co gang hon”
- Nếu điểm lớn hơn hoặc bằng 5 và nhỏ hơn 6.5, in ra dòng chữ “Ban dat diem trung binh”.
- Nếu điểm lớn hơn hoặc bằng 6.5 và nhỏ hơn 8, in ra dòng chữ “Ban dat diem kha”.
- Nếu điểm lớn hơn hoặc bằng 8, in ra dòng chữ “Hoan ho, ban dat diem gioi”.
Với bài toán: Viết chương trình pascal cho phép nhập điểm kiểm tra 1 môn học của em từ bàn phím, Sau đó kiểm tra và thực hiện
+Nếu điểm nhỏ hơn 5 in ra dong chữ"Điểm yếu bạn cần cố gắng hơn"
+Nếu điểm lớn hơn hoặc bằng 5 và nhỏ hơn 6,5 in ra dòng chữ"Bạn đạt điểm trung bình"
+Nếu điểm lớn hơn hoặc bằng 6,5 và nhỏ hơn 8 in ra dòng chữ"Bạn đạt điểm khá"
+Nếu điểm lớn hơn oặc bằng 8 in ra dong chữ "Bạn đạt điểm giỏi"
uses crt;
var diem:real;
begin
clrscr;
write('nhap diem:'); readln(diem);
if diem<5 then writeln('diem yeu ban can co gang hon')
else if (diem>=5) and (diem<6,5) then writeln('ban dat diem trung binh')
else if (diem>=6,5) and (diem<8) then writeln('ban dat diem kha')
else writeln('ban dat diem gioi');
readln;
end.
viết chương trình nhập điểm thi 2 môn ngữ văn và toán của các học sinh khối 9 tính điểm trung bình và in ra màn hình kết quả thi đậu nếu điểm trung bình lớn hơn hoặc bằng 5 còn thi trượt nếu như điểm trung bình bé hơn 5
program DiemTB;
var
diemToan, diemVan, diemTB: real;
begin
write('Nhap diem mon Toan: ');
readln(diemToan);
write('Nhap diem mon Van: ');
readln(diemVan);
diemTB := (diemToan + diemVan) / 2;
writeln('Diem trung binh: ', diemTB:0:2);
if diemTB >= 5 then
writeln('Chuc mung! Ban da dau ky thi.')
else
writeln('Rat tiec! Ban da truot ky thi.');
readln;
end.
Viết chương trình nhập vào từ bàn phím họ tên, điểm của học sinh. Sau đó đưa ra màn hình thông báo học sinh đó “Đạt” nếu có điểm lớn hơn hoặc bằng 5 hoặc “Chưa đạt” nếu điểm bé hơn 5.
Help mee
1)viết chương trình nhập vào mảng Diem (lưu điểm kiểm tra giữa HKII của lớp) với n phần tử được nhập từ bàn phím)
in ra mảng đó và tính trung bình cộng điểm giữa HKII của lớp đó và in ra các điểm nhỏ hơn 6,5
2) viết chương trình nhập mảng Diem (lưu điểm kiểm tra giữa HKII của 1 lớp)
in ra điểm cao nhất và vị trí của giá trị đó. Sau đó tính tổng của mảng đó.
viet chuong trinh cho phep nhap diem kiem tra 1 ban nao do va in ra man hinh ket qua: neu diem nho hon 5 thi ban can co gang hon. neu ban lon hon hoac =5 va nho hon 6,5 thi ban dat diem trung binh. neu diem lon hon hoac = 6,5 va nho hon 8 thi ban dat diem kha. neu diem lon hon hoac = 8 thi ban dat diem gioi
uses crt;
var diem:real;
begin
clrscr;
write('nhap diem:'); readln(diem);
if diem<5 then writeln('ban can co gang hon');
if (diem>=5) and (diem<6.5) then writeln('ban dat diem trung binh');
if (diem>=6.5) and (diem<8) then writeln('ban dat diem kha');
if diem>=8 then writeln('ban dat diem gioi');
readln;
end.
cái này hỏi anh Nguyễn Lê phước Thịnh
2 viết chương trình nhập 1 số n sau đó thực hiện:
a)in các số nguyên tố bé hơn hoặc bằng n
vd: nhập 7->in 2 3 5 7
b)in số nguyên tố lớn nhất ko bé hơn n
vd: n=7 thì in ra 7
n=10 thì in ra 11
c) in các cặp số nguyên tố lẻ bé hơn hoặc bằng n
vd:n=20 thì in ra:
3 5
5 7
7 11
11 13
13 17
17 19
3
a)
uses crt;
var n,i,kt,j:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>1;
writeln('Cac so nguyen to be hon hoac bang ',n,' la: ');
for i:=2 to n do
begin
kt:=0;
for j:=2 to i-1 do
if i mod j=0 then kt:=1;
if kt=0 then write(i:4);
end;
readln;
end.
viết chương trình nhập vào điểm trung bình của n học sinh trong lớp. đếm có bao nhiêu bạn đạt loại giỏi ( điểm trung bình lớn hơn hoặc bằng 8 )( loại khá điểm trung bình lớn hơn 7 và bé hơn 8, loại trung bình lớn hơn hoặc bằng 5 và bé hơn 7
Viết chương trình nhập điểm trung bình của n học sinh trong lớp đếm có bao nhiêu bạn ,loại giỏi điểm Trung bình lớn hơn hoặc bằng 8 , loại khá điểm trung bình lớn hơn hoặc bằng 7 bé hơn 8 ,loại trung bình lớn hơn hoặc bằng 5 bé hơn 7
