giúp em giải pascal này nha... - VN-Zoom forum

vansach · 02-05-2008, 13:38

viết chương trình quản lý hồ sơ một lớp ở trường phổ thông bao gồm:
mã học sinh
-họ học sinh
-tên học sinh
-ngày sinh
-tên môn học
-điểm 15 phút
-điểm miệng
-điểm 1 tiết
-điểm học kỳ
-đtb
-xếp loại
xâyđựng 1 kiểu dữ liậu bảng ghi bao gồm các thộc tính trên''
nhập dữ liệu kô nhập đtb xếp loai
tinh dtb=(diẹm+diem mieng+diémtiet*2+diemhk*3)/7
xếp loại..
cám ơn nhiều...

SawerSewer · 02-05-2008, 14:21

Thời giờ người ta dùng C++ rồi , ít ai dùng Passcal lắm

Mr_Dolphin · 02-05-2008, 14:26

Bài cơ bản về bản ghi, đọc sách là làm đc mà, chủ yếu là phải cần cù thôi, bạn cứ tự viế đi rồi post code lên mọi người sửa lỗi cho, chứ bảo ngồi làm thì mình chịu.
Mình chỉ giúp bạn đc đến thế này thôi: bài này bạn tao 4 cái thủ tục: nhạp, tinhdtb, xeploai, xuat.
Khai báo bản gi thì gồm 2 cái: ngaythang , hocsinh . các phần tử đưa vào mảng cho dễ quản lý. Động đến ngày sinh mà muốn làm code cẩn thận cũng mệt phết đó

Code:

repeat
                        write('  - Ngay thang nam sinh: ');readln(ngay,thang,nam);{kiem tra viec nhap ngay thang nam}
                        ch:=0; dk:=true;
                         if ((nam mod 400=0) and (nam>0)) or ((nam mod 4=0) and (nam mod 10<>0)) then ch:=1;
                         if (thang<1) or (thang>12) or ((ngay>31) and ((thang=1) or (thang=3) or (thang=5) or (thang=7)
                         or (thang=8) or (thang=10) or (thang=12))) or ((ngay>30) and ((thang=4) or (thang=6) or (thang=9)
                         or (thang=11)) or ((ngay>28) and (thang=2) and (ch=0))) or ((ngay>29) and (thang=2) and (ch=1))
                         then dk:=false;
                      until dk=true;

phanbuuvinh · 03-05-2008, 10:07

Nêu ý kiến thôi

" Thời giờ người ta dùng C++ rồi , ít ai dùng Passcal lắm "

Mình ghét nhất là nghe ai nói câu này. Ở trường THPT ngày này vẫn còn dạy lập trình bằng Pascal. Không phải là trường lạc hậu mà chỉ tại có một sô người không hiểu. Lập trình quan trọng nhất là thuật toán. Ở trường THPT dạy cho học sinh phát triển tư duy, chứ ko phải dạy để học sinh có cái nghề để mà đi làm. Nếu nắm vững thuật toán thì sau này có học học C hay Java thì chỉ cần biết lệnh là làm tốt thôi. Người ta vẫn nói pascal là cha đẻ của ngôn ngữ lập trình mà.

hoang773 · 04-05-2008, 20:11

dùng cấu trúc lặp cũng hay nhưng nên dùng kiểu Record(bản ghi) để lập trình bài này

02-05-2008, 13:38	#1
vansach Búa Gỗ Đôi Tham gia: Mar 2008 Bài: 31 VZD: 780 Điểm: 7/4 bài viết	giúp em giải pascal này nha... viết chương trình quản lý hồ sơ một lớp ở trường phổ thông bao gồm: mã học sinh -họ học sinh -tên học sinh -ngày sinh -tên môn học -điểm 15 phút -điểm miệng -điểm 1 tiết -điểm học kỳ -đtb -xếp loại xâyđựng 1 kiểu dữ liậu bảng ghi bao gồm các thộc tính trên'' nhập dữ liệu kô nhập đtb xếp loai tinh dtb=(diẹm+diem mieng+diémtiet2+diemhk3)/7 xếp loại.. cám ơn nhiều... __________________ THÁI VĂN SÁCH

02-05-2008, 14:21	#2
SawerSewer Rìu Bạc Đôi Tham gia: Dec 2007 Đến từ: Đà Nẵng Bài: 519 VZD: 14.462 Điểm: 628/137 bài viết	Thời giờ người ta dùng C++ rồi , ít ai dùng Passcal lắm __________________

02-05-2008, 14:26	#3
Mr_Dolphin Rìu Bạc Tham gia: Dec 2007 Bài: 341 VZD: 4.437 Điểm: 70/47 bài viết	Bài cơ bản về bản ghi, đọc sách là làm đc mà, chủ yếu là phải cần cù thôi, bạn cứ tự viế đi rồi post code lên mọi người sửa lỗi cho, chứ bảo ngồi làm thì mình chịu. Mình chỉ giúp bạn đc đến thế này thôi: bài này bạn tao 4 cái thủ tục: nhạp, tinhdtb, xeploai, xuat. Khai báo bản gi thì gồm 2 cái: ngaythang , hocsinh . các phần tử đưa vào mảng cho dễ quản lý. Động đến ngày sinh mà muốn làm code cẩn thận cũng mệt phết đó Code: repeat write(' - Ngay thang nam sinh: ');readln(ngay,thang,nam);{kiem tra viec nhap ngay thang nam} ch:=0; dk:=true; if ((nam mod 400=0) and (nam>0)) or ((nam mod 4=0) and (nam mod 10<>0)) then ch:=1; if (thang<1) or (thang>12) or ((ngay>31) and ((thang=1) or (thang=3) or (thang=5) or (thang=7) or (thang=8) or (thang=10) or (thang=12))) or ((ngay>30) and ((thang=4) or (thang=6) or (thang=9) or (thang=11)) or ((ngay>28) and (thang=2) and (ch=0))) or ((ngay>29) and (thang=2) and (ch=1)) then dk:=false; until dk=true; __________________ -_::Tin Học là chia sẻ ::_- http://cnttk1a.hnsv.com Chào mừng các bạn đến diễn đàn lớp tui!

Ðiều Chỉnh
Tạo trang in Email trang này
Xếp Bài
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

03-05-2008, 10:07	#4
phanbuuvinh Búa Gỗ Tham gia: Nov 2007 Bài: 10 VZD: 395 Điểm: 7/2 bài viết	Nêu ý kiến thôi " Thời giờ người ta dùng C++ rồi , ít ai dùng Passcal lắm " Mình ghét nhất là nghe ai nói câu này. Ở trường THPT ngày này vẫn còn dạy lập trình bằng Pascal. Không phải là trường lạc hậu mà chỉ tại có một sô người không hiểu. Lập trình quan trọng nhất là thuật toán. Ở trường THPT dạy cho học sinh phát triển tư duy, chứ ko phải dạy để học sinh có cái nghề để mà đi làm. Nếu nắm vững thuật toán thì sau này có học học C hay Java thì chỉ cần biết lệnh là làm tốt thôi. Người ta vẫn nói pascal là cha đẻ của ngôn ngữ lập trình mà.

04-05-2008, 20:11	#5
hoang773 Gà Con Tham gia: Jan 2008 Bài: 3 VZD: 271 Điểm: 0/0 bài viết	dùng cấu trúc lặp cũng hay nhưng nên dùng kiểu Record(bản ghi) để lập trình bài này