Viết chương trình điểm kiểm tra cho môn toán của 35học sinh và in ra màn hình với số học sinh và điểm kiểm tra nhập từ bàn phím (sử dụng kiểu mảng)
Viết chương trình nhập điểm kiểm HK môn Tin. Nhập học sinh và in ra màn hình điểm kiểm tra HK của một học sinh đó với N và điểm kiểm tra được nhập từ bàn phím(sử dụng biển mảng)
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.
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)
uses crt;
var a:array[1..100]of real;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
writeln('Diem cua ban thu ',i,' la: ',a[i]:4:2);
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.
Câu 1 : Viết chương trình kiểm tra xem N được nhập từ bàn phím có phải là số nguyên tố hay ko ?
Câu 2 : Viết chương trình nhập vào một mảng các số nguyên . Ghi ra màn hình . Tìm giá trị max , min của mảng đó
Câu 1:
uses crt;
var n,i,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n<2 then writeln(n,' khong la so nguyen to')
else begin
kt:=0;
for i:=2 to n-1 do
if n mod i=0 then kt:=1;
if kt=0 then writeln(n,' la so nguyen to')
else writeln(n,' khong la so nguyen to');
end;
readln;
end.
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,max,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('So lon nhat la: ',max);
writeln('So nho nhat la: ',min);
readln;
end.
viết chương trình nhập vào từ bàn phím điểm kiểm tra môn Tin của N học sinh trong một lớp (1<=N<=40).In ra màn hình số lượng học sinh có điểm kiểm tra dưới 5
Viết chương trình nhập điểm kiểm tra môn tin cho 45 học sinh và in ra màn hình (sử dụng biến mảng)
Đây là chương trình mình viết bằng ngôn ngữ C++, mình sử dụng biến mảng a đánh số từ 0 tới 45. Khi in ra màn hình thì số điểm của mỗi học sinh sẽ viết trên mỗi dòng.
CODE:
#include <iostream>
using namespace std;
int a[45];
int main()
{
for(int i=0;i<45;i++){
cin>>a[i];
}
for(int i:a){cout<<i<<endl;}
return 0;
Viết chương trình nhập vào điểm kiểm tra của một học sinh và in ra màn hình điểm trung bình của học sinh đó (3 môn thôi là đủ rồi)
nếu chạy ct mà nó không dừng lại thì bấm alt+F5 nhá
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.
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.