Trang chủ
Bài viết mới
Diễn đàn
Bài mới trên hồ sơ
Hoạt động mới nhất
VIDEO
Mùa Tết
Văn Học Trẻ
Văn Học News
Media
New media
New comments
Search media
Đại Học
Đại cương
Chuyên ngành
Triết học
Kinh tế
KHXH & NV
Công nghệ thông tin
Khoa học kĩ thuật
Luận văn, tiểu luận
Phổ Thông
Lớp 12
Ngữ văn 12
Lớp 11
Ngữ văn 11
Lớp 10
Ngữ văn 10
LỚP 9
Ngữ văn 9
Lớp 8
Ngữ văn 8
Lớp 7
Ngữ văn 7
Lớp 6
Ngữ văn 6
Tiểu học
Thành viên
Thành viên trực tuyến
Bài mới trên hồ sơ
Tìm trong hồ sơ cá nhân
Credits
Transactions
Xu: 0
Đăng nhập
Đăng ký
Có gì mới?
Tìm kiếm
Tìm kiếm
Chỉ tìm trong tiêu đề
Bởi:
Hoạt động mới nhất
Đăng ký
Menu
Đăng nhập
Đăng ký
Install the app
Cài đặt
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
CÔNG NGHỆ
Công Nghệ Thông Tin
Hỏi đáp Tin học
Giúp mình bài tập pascal kiểu file với
JavaScript is disabled. For a better experience, please enable JavaScript in your browser before proceeding.
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an
alternative browser
.
Trả lời chủ đề
Nội dung
<blockquote data-quote="dienvi2010" data-source="post: 116390" data-attributes="member: 11277"><p>Chào bạn, tôi xin hướng dẫn bạn như sau:</p><p></p><p>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 ý:</p><p>=====</p><p>[PHP]Program qlhocsinh;</p><p>Uses CRT;</p><p>TYPE HOCSINH=record mahs:string[10]; tenhs:string[50]; diem:real; end;</p><p>Var f1,f2:text; n,s,i,j,h,k:integer; a:array[1..100] of HOCSINH;</p><p></p><p>Begin</p><p>clrscr;</p><p>assign(f1,'ten.txt');</p><p>assign(f2,'diem.txt');</p><p>rewrite(f1); rewrite(f2);</p><p>write('Nhap so hoc sinh: '); readln(n);</p><p>for i:=1 to n do</p><p>begin</p><p>writeln('--- Nhap hoc sinh thu ',i,': ');</p><p>write('Nhap ma hoc sinh: '); readln(a[i].mahs);</p><p>write('Nhap ten ma hoc sinh: '); readln(a[i].tenhs);</p><p>write('Nhap diem hoc sinh: '); readln(a[i].diem);</p><p>writeln(f1,a[i].mahs,' ',a[i].tenhs);</p><p>writeln(f2,a[i].mahs,' ',a[i].diem:4:2);</p><p></p><p>end;</p><p>close (f1); close(f2);</p><p>End.[/PHP]</p><p>=====</p><p></p><p>Bài 2: Bài này có nhiều các làm, đơn cử 1 cách sau:</p><p>=====</p><p>[PHP]Program ruttien;</p><p>Var f1,f2:text; n,s,i,j,h,k:integer;</p><p>Begin</p><p>assign(f1,'ruttien.txt');</p><p>assign(f2,'ketqua.txt');</p><p>reset(f1); rewrite(f2);</p><p>readln(f1,n);</p><p>if n mod 10 = 0 then</p><p>begin</p><p>s:=n;</p><p>i:= (s div 100)*100;</p><p>s:=s-i;</p><p>j:= (s div 50)*50;</p><p>s:=s-j;</p><p>k:= (s div 20)*20;</p><p>s:=s-k;</p><p>h:= (s div 10)*10;</p><p></p><p>writeln(f2,i div 100,' to ',100);</p><p>writeln(f2,j div 50,' to ',50);</p><p>writeln(f2,k div 20,' to ',20);</p><p>writeln(f2,h div 10,' to ',10);</p><p>end;</p><p>close(f1); close(f2);</p><p>End.[/PHP]</p><p>=====</p><p></p><p>Không biết có giúp gì cho bạn được không.</p><p>Thân chào!</p></blockquote><p></p>
[QUOTE="dienvi2010, post: 116390, 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; 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.[/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; 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.[/PHP] ===== Không biết có giúp gì cho bạn được không. Thân chào! [/QUOTE]
Tên
Mã xác nhận
Gửi trả lời
CÔNG NGHỆ
Công Nghệ Thông Tin
Hỏi đáp Tin học
Giúp mình bài tập pascal kiểu file với
Top