Sử dụng biến mảng viết chương trình nhập điểm học kỳ 1 và học kỳ 2 sau đó in ra màn hình điểm khả năng học của các bạn trong lớp( theo công thức: điểm cả năm=( điểm học kỳ 1+ điểm học kỳ 2 ×2)/3)
Giúp mình nha
Những câu hỏi liên quan
Sử dụng biến mảng viết chương trình nhập điểm học kỳ 1 và học kỳ 2 sau đó in ra màn hình điểm khả năng học của các bạn trong lớp( theo công thức: điểm cả năm=( điểm học kỳ 1+ điểm học kỳ 2 ×2)/3)
Giúp mình nha
uses crt;
var b,c:real; a:array[1..100] of integer; s:real;
begin
clrscr;
write('Nhap vao diem hoc ki 1:');readln(b);
write('Nhap vao diem hoc ki 2:');readln(c);
s:=((b+c)*2)/3;
write('Diem ca nam=',s:2:2);
readln;
end.
Tham khảo! Làm hơi ngắn
Đúng 1
Bình luận (0)
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).
Đọc tiếp
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.
Đúng 1
Bình luận (0)
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).
Đọc tiếp
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.
Đúng 0
Bình luận (0)
a) Viết chương trình nhập điểm kiểm tra học kỳ môn tin cho N học sinh và in ra màn hình.Với N và điểm kiểm tra được nhập từ bàn phím (sử dụng biến mảng)
b) Viết chương trình nhập vào một mảng có n(n<50) phần tử và tính tổng các phần tử trong mảng đó?
a:
#include <bits/stdc++.h>
using namespace std;
double a[1000];
int n,i;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++) cout<<a[i]<<" ";
return 0;
}
b:
#include <bits/stdc++.h>
using namespace std;
long long a[50],n,i,t;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
t=0;
for (i=1; i<=n; i++) t+=a[i];
cout<<t;
return 0;
}
Đúng 3
Bình luận (1)
Viết chương trình sử dụng biến mảng lưu điểm Tin học của học sinh trong lớp 8A, số lượng 35 học sinh thực hiện những yêu cầu sau:
a)Nhập vào điểm của 35 bạn học sinh
b)In ra màn hình tất cả điểm
c) In ra màn hình những học sinh có điểm dưới 5 hoặc điểm >9
Var a:array[1..35] of real;
i:integer;
Begin
For i:=1 to 35 do
Begin
Write('Nhap diem thu ',i);readln(a[i]);
End;
write('Diem vua nhap la ');
For i:=1 to 35 do write(a[i]:10:2);
Writeln;
write('Cac diem duoi 5 hoac > la ');
For i:=1 to 35 do
If (a[i]>9) or (a[i]<5) then write(a[i]:10:2)
Readln
End.
Đúng 1
Bình luận (0)
sử dụng biến mảng viết chương trình nhập điểm của các bạn trong lớp sau đó in ra màn hình kết quả học tập loại khá giỏi (theo tiêu chuẩn loại giỏi lớn hơn hoặc = 8 điểm;loại khá từ 6,5 đến dưới 8 điểm?
6.5 trở xuống mình cho nó kém được không á bạn
Đúng 0
Bình luận (0)
a:array[1..200] of real;
begin
clrscr;
write('Nhap tong so ban trong lop:');
readln(n);
for i:=1 to n do readln(a[i]);
gioi:=0; kha:=0; kem:=0;
for i:=1 to n do
begin
if (a[i]>=8) then inc(gioi);
if (6.5<=a[i]) and (a[i]<=7.9) then inc(kha);
if (a[i]<6.5) then inc(kem);
end;
writeln('So hoc sinh gioi la:',gioi);
writeln('So hoc sinh kha la:',kha);
writeln('So hoc sinh kem la:',kem);
readln;
end.
Đúng 1
Bình luận (2)
Viết chương trình sử dụng biến mảng để nhập điểm trung bình môn tin học của các bạn trong lớp em.Thực hiện các yêu cầu sau - in điểm của các banh trong lớp em ra màn hình -tìm bạn có điểm trung bình cao nhất lớp em
uses crt;
var a:array[1..100]of real;
i,n:integer;
ln:real;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do writeln(a[i]);
ln:=a[1];
for i:=1 to n do if ln<a[i] then ln:=a[i];
writeln(ln);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập điểm kiểm tra học kì môn tin cho học sinh lớp và in ra màn hình điểm tin cao nhất ( sử dụng biến mảng ) .
program DiemKiemTra;
var
i, max: integer;
diem: array[1..30] of integer;
begin
for i := 1 to 30 do
begin
writeln('Nhap diem cua hs thu ', i, ': ');
readln(diem[i]);
end;
max := diem[1];
for i := 2 to 30 do
begin
if diem[i] > max then
max := diem[i];
end;
writeln('Diem cao nhat la: ', max);
end.
Đúng 2
Bình luận (0)
Viết chương trình nhập điểm kiểm tra học kì môn tin cho học sinh và in ra màn hình điểm tin cao nhất ( sử dụng biến mảng ).
program sodiemcaonhat; var i,max,n:integer; a:array [1..10000] of integer; begin write('nhap so phan muon nhap='); read(n); for i:=1 to n do begin write('diem thu',i,'='); read(a[i]); end; max:=a[1]; for i:=1 to n do begin if max < a[i] then max:=a[i]; end; write('so diem cao nhat la=',max); readln end.
Đúng 0
Bình luận (0)
program sodiemcaonhat;
var i,max,n:integer;
a:array [1..10000] of integer;
begin
write('nhap so phan muon nhap='); read(n);
for i:=1 to n do begin
write('diem thu',i,'='); read(a[i]);
end;
max:=a[1];
for i:=1 to n do begin
if max < a[i] then max:=a[i];
end;
write('so diem cao nhat la=',max);
readln
end.
Đúng 1
Bình luận (0)
Câu2: viết chương trình thực hiện yêu cầu sau . a, Sử dụng biến mảng để nhập từ bàn phím điểm trung bình (ĐTB) của 50 bạn học sinh trong lớp. b,In rs màn hình (ĐTB) của học sinh . c,In ra màn hình số lớn nhất trong dãy số . Mn giúp mik vs mik cần gấp.mik c.ơn
Var a:array:[1..50] of real;
i,max:integer;
Begin
For i:=1 to 50 do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
End;
Write('Cac diem vua nhap la: ');
For i:=1 to 50 do
Write(a[i]:10:2);
Writeln;
max:=a[1];
For i:=2 to 50 do
if a[i]>max then max:=a[i];
Write('Diem trung binh lon nhat la ',max:10:2);
Readln
End.
Đúng 2
Bình luận (1)
Var a:array:[1..50] of real;
i:integer;
max:real;
Begin
For i:=1 to 50 do
Begin
Write('Nhap diem thu ',i,' = ');readln(a[i]);
End;
Write('Cac diem vua nhap la: ');
For i:=1 to 50 do
Write(a[i]:10:2);
writeln;
max:=a[1];
For i:=2 to 50 do
if a[i] > max then max:=a[i];
write('Diem lon nhat la ',max:10:2);
Readln
End.
Đúng 2
Bình luận (1)