Viết chương trình sử dụng chương trình con để tính điểm trung bình 3 môn Toán Văn Anh của năm bạn học sinh biết điểm từng bạn được nhập từ bàn phím
viết chương trình sử dụng biến mảng, thực hiện các công việc sau:
- Nhập từ bàn phím danh sách HỌ TÊN, điểm trung bình môn TOÁN,VĂN,TIN của các bạn học sinh trong lớp
- Tính điểm trung bình của từng học sinh.
- Tìm học sinh có điểm trung bình cao nhất.
viết chương trình sử dụng biến mảng, thực hiện các công việc sau:
- Nhập từ bàn phím danh sách HỌ TÊN, điểm trung bình môn TOÁN,VĂN,TIN của các bạn học sinh trong lớp
- Tính điểm trung bình của từng học sinh.
- Tìm học sinh có điểm trung bình cao nhất.
Viết chương trình tính điểm trung bình của 3 bạn trong lớp. Được biết điểm của từng bạn được nhập bất kỳ từ bàn phím.
uses crt;
var a,b,c:real;
begin
clrscr;
readln(a,b,c);
writeln((a+b+c)/3:4:2);
readln;
end.
Viết chương trình nhập từ bàn phím điểm môn tiếng Anh và môn Vật lý của n học sinh tính trung bình cộng môn tiếng Anh và môn lý của cả lớp
program TinhTBCMon;
var
n, i: integer;
diemAnh, diemVL, tongDiemAnh, tongDiemVL: real;
begin
tongDiemAnh := 0;
tongDiemVL := 0;
write('Nhap so hoc sinh: ');
readln(n);
for i := 1 to n do
begin
write('Nhap diem Tieng Anh cua hoc sinh ', i, ': ');
readln(diemAnh);
tongDiemAnh := tongDiemAnh + diemAnh;
write('Nhap diem Vat ly cua hoc sinh ', i, ': ');
readln(diemVL);
tongDiemVL := tongDiemVL + diemVL;
end;
writeln('Diem trung binh mon Tieng Anh cua lop la: ', tongDiemAnh/n:0:2);
writeln('Diem trung binh mon Vat ly cua lop la: ', tongDiemVL/n:0:2);
readln;
end.
Viết chương trình nhập vào điểm 2 môn Toán, Văn từ bàn phím. Điểm Anh văn được gán bằng 8.0 điểm. Sau đó tính tổng điểm, điểm trung bình cộng 3 môn học trên và đưa kết quả ra màn hình. (Điểm trung bình cộng lấy 1 số thập phân.) lẹ cho mình nha cảm mưn mn.
Hãy mô tả thuật toán và Viết chương trình nhập điểm kiểm tra học kỳ môn Tin học cho N học sinh và in ra màn hình học sinh có điểm Tin học cao nhất. Với N và điểm kiểm tra của từng học sinh được nhập từ bàn phím (sử dụng biến mảng).
Đây là code Pascal để nhập và in điểm kiểm tra học kì môn tin cho N của từng học sinh:
program DiemKT;
var
N, i: integer;
diem: array1..100 of integer;
begin
write('Nhap so hoc sinh: ');
readln(N);
for i := 1 to N do
begin
write('Nhap diem kiem tra hoc ki cua hoc sinh thu ', i, ': ');
readln(diemi);
end;
writeln('Diem kiem tra hoc ki cua ', N, ' hoc sinh la:');
for i := 1 to N do
writeln('Hoc sinh thu ', i, ': ', diemi);
end.
Câu 1: viết chương trình tính (a+b)/(a-b) nhập từ bàn phím
câu 2 viết chương trình tính a*a+ b*b+ c*c nhạp từ bàn phím
Câu 3 viết chương tính x*y/z với x,y,z nhập từ bàn phím
Câu 4: Viết chương trình nhập vào 3 môn văn toán anh tính trung bình cộng
Câu 5: viết chương trình nhập vào 4 số a,b,c,d sau đó tính trung bình cộng của 4 số đó
Câu 6: Viết chương trình tính diện tích hình tam giác
Câu 7: tính diện tích chu vi hình tròn (chỉ với ạ cảm ơn mọi người)
Câu 1:
Uses crt;
Var a,b:real;
Begin
Clrscr;
Readln(a);
Readln(b);
Writeln((a+b)/(a-b));
Readln
End.
Câu 2:
Uses crt;
Var a,b,c:real;
Begin
Clrscr;
Readln(a);
Readln(b);
Readln(c);
Writeln(a*a+b*b+c*c);
Readln
End.
Câu 5:
Uses crt;
Var a,b,c,d:real;
Begin
Clrscr;
Readln(a);
Readln(b);
Readln(c);
Readln(d);
Writeln((a+b+c+d)/4);
Readln
End.
Câu 1 Viết chương trình nhập điểm kiểm tra học kỳ môn Anh cho m học sinh và in ra màn hình. Với m và điểm kiểm tra được nhập từ bàn phím (sử dụng biến mảng).
Var a:array:[1..1000] of real;
i,m:integer;
Begin
Write('m = ');readln(m);
For i:=1 to m do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
End;
Write('Cac diem vua nhap la: ');
For i:=1 to m do
Write(a[i]:10:2);
Readln
End.
Viết chương tình sử dụng biến mảng để nhập từ bàn phím họ tên(hoten);ngày sinh(NS),Điểm Toán(Dtoan);Điểm Văn (Dvan) của các bạn học sinh trong lớp em(có 45hs).In ra màn hình tổng Điểm trung bình(DTB) của các bạn trong lớp.
Làm hộ mình với ạ,ngày mai mình thi rồi
uses crt;
var NS:array[1..100] of integer; Dtoan,Dvan,Dtb:array[1..100] of real;
hoten:array[1..100] of string; i:byte;
begin
clrscr;
for i:=1 to 45 do
begin
write('Nhap ten cua hoc sinh thu',i,':'); readln(hoten[i]);
write('Nhap ngay sinh:'); readln(NS[i]);
write('Nhap diem toan:'); readln(Dtoan[i]);
write ('Nhap diem van:'); readln(Dvan[i]);
Dtb[i]:=(Dtoan[i]+Dvan[i])/2;
end;
writeln('Diem trung binh cua cac ban trong lop la:');
for i:=1 to 45 do
writeln(hoten[i],':',Dtb[i]:1:2);
readln;
end.
Tham khảo thui!