Cho file To1.txt chứa danh sách vào điểm của học sinh.
To1.txt
2
Hoa-9
Minh-10
Xuất ra màn hình:
-Bạn được 9 điểm:Hoa.
-Bạn được 10 điểm:Minh.
Những câu hỏi liên quan
viết chương trình nhập vào danh sách của nhóm bạn vào 1 mảng A gồm 50 phân tử. Tính tổng của các số chẵn , số lẻ trong mảng A . In kết quả lên màn hình là danh sách của nhóm bạn và tổng chẵn , tổng lẻ
Tin 8
Bài 3 nhập vào ba số nguyên, in trên màn hình số lớn nhất Bài 4 nhập vào 2 danh sách, in ra màn hình một danh sách mới bằng việc ghép hai danh sách trên
Bài 3:
a = int(input("Nhập số thứ nhất: "))
b = int(input("Nhập số thứ hai: "))
c = int(input("Nhập số thứ ba: "))
max = a
if b > max:
max = b
if c > max:
max = c
print("Số lớn nhất trong ba số là:", max)
Đúng 1
Bình luận (1)
Bài 4:
ds1 = input("Nhập vào danh sách thứ nhất: ").split()
ds2 = input("Nhập vào danh sách thứ hai: ").split()
# Ghép hai danh sách
moi_ds = ds1 + ds2
# In ra danh sách mới
print("Danh sách mới là:", moi_ds)
Đúng 0
Bình luận (0)
Nhập vào điểm khảo sát chất lượng cuối năm 2022-2023 của các bạn học sinh lớp 9 , trường THCS Diễn Thành . biết rằng , mỗi bạn học sinh đều tham gia khảo sát bà môn Toán , Văn và Anh . In ra màn hình tổng điểm thi , điểm thi Trung bình của mỗi học sinh khối 9 của trường năm đó
var i,n,s:integer;
t,v,a,tb:real;
begin
write('Nhap so luong hoc sinh ');readln(n);
for i:=1 to n do
begin
write('Nhap diem toan ');readln(t);
write('Nhap diem van ');readln(v);
write('Nhap diem anh ');readln(a);
s:=t+v+a;
tb:=s/3;
write('DTB cua ban thu ',i,' = ',tb:10:2);
s:=0;
end;
readln
end.
Đúng 1
Bình luận (0)
Bài tập: Viết chương trình nhập và in ra màn hình danh sách tên các lớp 9 trong năm học 2021 – 2022
uses crt;
var a:array[1..100]of string;
i,n:integer;
begin
clrscr;
write('nhap so lop='); readln(n);
for i:=1 to n do
begin
write('Nhap ten lop thu ',i,'='); readln(a[i]);
end;
writeln('Danh sach cac lop 9 la: ');
for i:=1 to n do
writeln(a[i]);
readln;
end.
Đúng 1
Bình luận (0)
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)
vViết chương trình tạo một danh sách mảng có thể chứa tối đa 100 phần tử, rồi nhập số lượng n phần tử vào danh sách vừa tạo, thực hiện tính trung bình cộng các phần tử rồi in kết quả ra màn hình.
program TrungBinhCong;
const
MAX = 100;
var
danhSach: array[1..MAX] of integer;
n, i, tong: integer;
trungbinh: real;
begin
write('Nhap so ptu (toi da 100): ');
readln(n);
tong := 0;
for i := 1 to n do
begin
write('Nhap giatri ptu thu ', i, ': ');
readln(danhsach[i]);
tong := tong + danhsach[i];
end;
trungbinh := tong / n;
writeln('Tbc cua danh sach la: ', trungbinh:0:2);
readln;
end.
Đúng 1
Bình luận (0)
Var a:array[1..100] of integer;
i,n:integer;
s:longint;
tbc:real;
Begin
Repeat
Write('n = ');readln(n);
Until (n>0) and (n<=100);
For i:=1 to n do
Begin
Write('Nhap phan tu thu ',i);readln(a[i]);
s:=s+a[i];
End;
tbc:=s/n;
Write('Trung binh cong la ',tbc:10:2);
Readln
End.
Đúng 0
Bình luận (0)
Viết chương trình tạo một danh sách mảng có thể chứa tối đa 100 phần tử, rồi nhập số lượng n phần tử vào danh sách vừa tạo, thực hiện tính tổng các phần tử chẵn, rồi in kết quả tổng ra màn hình.
Var a:array[1..100] of integer;
i,n:integer;
s:longint;
Begin
Repeat
Write('n = ');readln(n);
Until (n>0) and (n<=100);
For i:=1 to n do
Begin
Write('Nhap phan tu thu ',i);readln(a[i]);
If a[i] mod 2 = 0 then s:=s+a[i];
End;
Write('Tong cac so chan la ',s);
Readln
End.
Đúng 1
Bình luận (0)
lan và nam thi giải toán. Mỗi bạn được cho 1 danh sách giống nhau gồm 100 bài toán .Với mỗi bài toán , bạn giải ra trước được 4 điểm, bạn giải ra sau được 1 điểm. Lan giải ra được 60 bài toán và nam cũng giải được 60 bài toán.Tổng cộng họ giành được 312 điểm . Hỏi có bao nhiêu bài toán được giải ra bởi cả 2 bạn
viết chương trình nhập vào điểm môn toán của hai bạn mạnh và thanh hãy so sánh điểm của hai bạn và thông báo kết quả ra màn hình (điểm nhập vào nhỏ hơn hoặc bằng 10)
program SoSanhDiem;
var
DiemManh, DiemThanh: real;
begin
write('Nhap diem cua ban Manh: ');
readln(DiemManh);
write('Nhap diem cua ban Thanh: ');
readln(DiemThanh);
if DiemManh > DiemThanh then
writeln('Ban Manh dat diem cao hon ban Thanh.')
else if DiemManh < DiemThanh then
writeln('Ban Thanh dat diem cao hon ban Manh.')
else
writeln('Hai ban dat diem bang nhau.');
readln;
end.
Đúng 2
Bình luận (0)