Chào mừng Bạn tham gia Diễn Đàn VNKienThuc.com - Định hướng Forum Kiến Thức
- HÃY TẠO CHỦ ĐỀ KIẾN THỨC HỮU ÍCH VÀ CÙNG NHAU THẢO LUẬN
Kết nối: VNK X - VNK groups | Nhà Tài Trợ: BhnongFood X - Bhnong groups - Đặt mua Bánh Bhnong

Trả lời chủ đề

Nội dung: <blockquote data-quote="dienvi2010" data-source="post: 116390" data-attributes="member: 11277">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 ý:=====[PHP]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;Beginclrscr;assign(f1,'ten.txt');assign(f2,'diem.txt');rewrite(f1); rewrite(f2);write('Nhap so hoc sinh: '); readln(n);for i:=1 to n dobeginwriteln('--- 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.[/PHP]=====Bài 2: Bài này có nhiều các làm, đơn cử 1 cách sau:=====[PHP]Program ruttien;Var f1,f2:text; n,s,i,j,h,k:integer;Beginassign(f1,'ruttien.txt');assign(f2,'ketqua.txt');reset(f1); rewrite(f2);readln(f1,n);if n mod 10 = 0 thenbegins:=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.[/PHP]=====Không biết có giúp gì cho bạn được không.Thân chào!</blockquote>