viết chương trình (điểm môn toán kèm tên học sinh) cho1 lớp có < hoặc = 50 học sinh {sử dụng mạng và không dùng mảng} 2 bài nhá cacban :v (chia nhau ra làm cx đc) :>
viết chương trình (điểm môn toán kèm tên học sinh) cho1 lớp có < hoặc = 50 học sinh {sử dụng mạng và không dùng mảng} 2 bài nhá cacban :v (chia nhau ra làm cx đc) :>
program baitap;
ues crt;
var A:array [1..50] of string;
B:array [1..50] of real;
i:integer;
begin clrscr;
for i:=1 to 50 do
begin
writeln(‘Nhap ten va diem mon toan hs thu ‘i’: ‘); readln(A[i], B[i]);
writeln(A[i],B[i])
end;
readln;
end.
Sử dụng mảng:
program ct;
ues crt;
var A:array [1..50] of string;
B:array [1..50] of real;
i:integer;
begin clrscr;
for i:=1 to 50 do
begin
writeln(‘Nhap ten va diem mon toan hoc sinh thu ‘i’: ‘); readln(A[i], B[i]);
writeln(A[i]:3,B[i])
end;
readln;
end.
Ko sử dụng mảng:
program ct;
ues crt;
var D:real;
T:string;
i:integer;
begin clrscr;
for i:=1 to 50 do
begin
writeln(‘Nhap ten va diem hs thu ‘,i,’: ‘); readln(T,D)
writeln(T,D);
end;
readln;
end.
Học tốt!