Giúp mình bài tập pascal kiểu file với

[angel_18]

bài 1 : viết chương trình quản lí điểm học sinh gồm 2 file
+ file ten.txt:danh sách mã học sinh+ tên học sinh
vd: 11A105 nguyễn thị lan hương
11A106 vũ trọng đình
+ file diem.txt: danh sách mã học sinh+ điêm anh văn
vd: 11A105 9
11A106 8
bài 2 : trong cột ATM có các tờ tiền mệnh giá: 10,20,50,100. viết chương trình nhập vào số tiền cần rút trong file rút tiền.txt, ghi ra số lượng từng mệnh giá tương đương số tiền cần rút sao cho số tờ rút ra là ít nhất.
vd nhập vào 90->ghi ra: 0 tờ 100
1 tờ 50
2 tờ 20
0 tờ 10
giúp mình hai bài này nah mình đang cần gấp

 

[dienvi2010]

bài 1 : viết chương trình quản lí điểm học sinh gồm 2 file
+ file ten.txt:danh sách mã học sinh+ tên học sinh
vd: 11A105 nguyễn thị lan hương
11A106 vũ trọng đình
+ file diem.txt: danh sách mã học sinh+ điêm anh văn
vd: 11A105 9
11A106 8
bài 2 : trong cột ATM có các tờ tiền mệnh giá: 10,20,50,100. viết chương trình nhập vào số tiền cần rút trong file rút tiền.txt, ghi ra số lượng từng mệnh giá tương đương số tiền cần rút sao cho số tờ rút ra là ít nhất.
vd nhập vào 90->ghi ra: 0 tờ 100
1 tờ 50
2 tờ 20
0 tờ 10
giúp mình hai bài này nah mình đang cần gấp

Chào bạn, tôi xin hướng dẫn bạn như sau:

Bài 1: Yêu câu của bạn khá chung chung, tôi chỉ đưa ra chương trình gợi ý:
=====

Program qlhocsinh;
Uses CRT;
TYPE HOCSINH=record mahs:string[10]; tenhs:string[50]; diem:real; end;
Var f1,f2:text; n,s,i,j,h,k:integer; a:array[1..100] of HOCSINH;

Begin
clrscr;
assign(f1,'ten.txt');
assign(f2,'diem.txt');
rewrite(f1); rewrite(f2);
write('Nhap so hoc sinh: '); readln(n);
for i:=1 to n do
begin
writeln('--- Nhap hoc sinh thu ',i,': ');
write('Nhap ma hoc sinh: '); readln(a[i].mahs);
write('Nhap ten ma hoc sinh: '); readln(a[i].tenhs);
write('Nhap diem hoc sinh: '); readln(a[i].diem);
writeln(f1,a[i].mahs,' ',a[i].tenhs);
writeln(f2,a[i].mahs,' ',a[i].diem:4:2);

end;
close (f1); close(f2);
End.

=====

Bài 2: Bài này có nhiều các làm, đơn cử 1 cách sau:
=====

Program ruttien;
Var f1,f2:text; n,s,i,j,h,k:integer;
Begin
assign(f1,'ruttien.txt');
assign(f2,'ketqua.txt');
reset(f1); rewrite(f2);
readln(f1,n);
if n mod 10 = 0 then
begin
s:=n;
i:= (s div 100)*100;
s:=s-i;
j:= (s div 50)*50;
s:=s-j;
k:= (s div 20)*20;
s:=s-k;
h:= (s div 10)*10;

writeln(f2,i div 100,' to ',100);
writeln(f2,j div 50,' to ',50);
writeln(f2,k div 20,' to ',20);
writeln(f2,h div 10,' to ',10);
end;
close(f1); close(f2);
End.

=====

Không biết có giúp gì cho bạn được không.
Thân chào!