Viết chương trình : Tính điểm thi HK1 Điều kiện điểm >=5 =đỗ Điểm
Viết chương trình nhập điểm trung bình môn tin học cuối hk1 của các bạn hc sinh trong lớp em và in ra số điểm cao nhất?
GIÚP EM VỚI Ạ ! MAI EM THI RỒI
Nếu chưa học câu lệnh này thì rep lại cho mình để mình dùng mấy câu lệnh đã học từ b8 trở về trước nhá! Good luck for you :D
uses crt;
var a:array[1..50]of real;
max:real;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('Nhap diem cua ban thu ',i,'='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln(max);
readln;
end.
viết chương trình tính và in ra màn hình điểm trung bình cộng môn tin HK1 của em biết điểm thường xuyên (hệ số 1) điểm giũa kì( hệ số 2) diểm cuối kì (hệ số 3)
bạn phải cho biết bao nhiêu điểm HS 1, bao nhiêu điểm HS 2, bao nhiêu điểm HS 3 thì mới làm được chứ
Viết chương trình thực hiện điều kiện sau:
- Nếu điểm trung bình của năm học (DTB) mà từ 5.0 trở lên thì ghi là “được lên lớp”, ngược lại thì ghi là “thi lại” (lưu ý DTB được tính từ 3 môn Toán, Văn, Anh).
var t,v,a,dtb: real;
begin
writeln(' diem mon Toan la: ');
read(t);
writeln(' diem mon Van la: ');
read(v);
writeln(' diem mon Anh la: ');
read(a);
dtb = ( t + v + a)/3
if ( dtb >= 5 ) then
writeln(' duoc len lop');
else
writeln(' thi lai');
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 điểm môn tin của các bạn trong lớp mình au đó in ra màn hình sổ bạn số bạn đtaj kết quả học tập loại giỏi khá trung bình và yếu ( theo điều kiện>= 8 điểm giỏi từ 6,5 điểm đến 7,9 điểm khá từ 5 điểm đến 6,4 điểm trung bình dưới 5 điểm yếu)
viết chương trình nhập vào điểm thi hk1 môn tin . suất ra màn hình xếp loại môn thi đó
uses crt;
var diem:real;
begin
clrscr;
write('nhap so diem mon tin:'); readln(diem);
if diem<5 then writeln('yeu');
if (diem>=5) and (diem<6.5) then writeln('trung binh');
if (diem>=6.5) and (diem<8) then writeln('kha');
if diem>=8 then writeln('gioi');
readln;
end.
program mon_tin;
uses crt;
var t: integer;
begin
clrscr;
writeln(' nhap diem mon tin:'); readln(t);
if t>=8 then writeln(' loai gioi:');
if (6,5<=t) and (t<8) then writeln(' loai kha:');
if (5<=t) and (t<6,5) then writeln(' loai trung binh:');
if t<5 then writeln(' loai kem:');
readln;
end.
Viết chương trình pascal tính điểm trung bình môn toán và văn. Sau đó, nếu điểm trung bình>=5 thì cho ra màn hình"kết quả đạt", ngược lại là"kết quả không đạt".
giúp mình với, đề ôn thi cuối kì mình ak
#include <bits/stdc++.h>
using namespace std;
double a,b;
int main()
{
cin>>a>>b;
double tb=(a+b)/2;
if (tb>=5) cout<<"ket qua dat";
else cout<<"ket qua khong dat";
return 0;
}
Viết chương trình nhập điểm 10 bạn học sinh viết chương trình in ra các bạn học sinh giỏi, Tính điểm trung bình của10 bạn
uses crt;
var a:array[1..10]of integer;
i,n,tb:integer;
begin
clrscr;
for i:=1 to 10 do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to 10 do
if a[i]>=8 then write(a[i]:4);
tb:=0;
for i:=1 to 10 do
tb:=tb+a[i];
writeln;
writeln('Diem trung binh cua 10 ban la: ',tb:4:2);
readln;
end.
Viết chương trình pascan xếp hạng học lực của học sinh.Chương trình nhập các điểm là điểm kiểm tra miệng ,15 phút và 1 tiết ,điểm thi giữa kỳ,điểm thi cuối kỳ và xác định học lực dựa trên nguyên tắc
Điểm trung bình bằng tổng điểm nhân hệ số chia cho tổng hệ số
Điểm trung bình >=9.0 là hạng A
Điểm trung bình >=7.0 và < 9.0 là hạng B
Điểm trung bình >=5.0 và < 7.0 là hạng C
Điểm trung bình < 5.0 là hạng F