Sinh Viên Việt Nam

THÀNH CÔNG MART chuyên phân phối thanh long, tủ vải sinh vien, tủ vải đựng quần áo, tu vai dung quan ao giá rẻ và các loại như may tap co bung, | nồi cơm điện | Goi massage hong ngoai | Goi massage | Gối mát xa | Gối massage | Gối massage hồng ngoại | Máy sấy quần áo |May say quan ao | noi com dien | bếp nướng than hoa | bếp nướng than hoa nam hồng | bep nuong than hoa nam hong | bep nuong than hoa | Ghế massage toàn thân nệm massage toàn thân Máy xay công nghiệp máy xay công suất lớn Đai massage x5 Đai mát xa x5 dai mat xa x5 dai massage x5 Điều khiển điều hòa đa năng Máy xay sinh tố công nghiệp máy xay đậu nành nguyên xác Máy xay công nghiệp oshika hàng nhật bản oshika Thương hiệu nhật bản


Trở lại   Sinh Viên Việt Nam > Diễn Đàn Tin Học > Lập Trình > Pascal - Delphi - Kylix

Gởi Ðề Tài Mới  Trả lời
 
Ðiều Chỉnh Xếp Bài
  #1  
Cũ 02-02-2010, 10:17 PM
Pascal
Guest
 
Bài gửi: n/a
Post Một số bài tập nhỏ mong mọi người giúp

Bài 2: Viết chương trình thực hiện:
a/ Nhập một mảng gồm N phần tử số thực
b/ In ra màng hình các phần tử của mảng trong đó giá trị trùng nhau chỉ in phần tử xuất hiện đầu tiên.
VD : nhập vào : 1 4 8 9 1 0 2 4
đầu ra : 1 4 8 9 0 2
Bài 3 : Viết chương trình nhập xâu ký tự S và thực hiện
a/ Tìm xâu ký tự con "ANH' trong xâu S và thay thế bởi xâu ký tự con "EM"
b/Đếm số lần xuất hiện của mỗi chử cái trong xâu S
bài 4 : Để quản lý điểm học sinh, một trường học tổ chức một cấu trúc dữ liệu như sau :

Type hocsinh =record

sbd:integer;
hoten:string[30];
toan,tin,avan:0..10;
end;
Viết chương trình thực hiện các chức năng sau:
a/ Nhập dữ liệu hoc sinh vào tệp QUANLY.inp và kết thưc khi số báo danh nhập vào bằng 0.
b/ Xuất dữ liệu ra màng hình theo mẫu :

SBD ho ten thi sinh diem toan diem tin diem avan tong diem
--- ---------- ------- ------ ------- ---------
--- ---------- ------- ------ ------- ---------

Danh sach co ... hoc sinh

c/ Xóa các học sinh không đậu trong tệp QUANLY.inp. Học sinh không đậu nếu tổng điểm 3 môn dưới 15 điểm hoặc ít nhất một môn dưới 5 điểm .

----------------------Hết ----------------------
Bài 2 : thì mình giải ra như thế này nhưng khi nhập n=4 thì cho ra kết quả đúng , nhưng khi cho n=6 thì lại sai Mong mọi người chỉ giáo giúp xem thử sai ở đâu hoặc có cách nào hay hơn không cách mình ko nhé . Xin thank

var
i,j,n : integer;
s : byte;
a:array [1..100] of integer;
begin
write(' nhap mang:');readln(n);
for i:=1 to n do
begin
write(' mang ',i, :' );readln(a[i]);
end;
begin
s:=0;
for j:=1 to n do
if a[j] a[i] then
s:=s 1;
end;
for i:=1 to n do
if a[j] a[i] then
writeln(' cac so khong trung nhau la :',a[i]);

readln();
end.
Trả Lời Với Trích Dẫn
Gởi Ðề Tài Mới  Trả lời

Bookmarks

Ðiều Chỉnh
Xếp Bài

Quyền viết bài
Bạn không thể gửi chủ đề mới
Bạn không thể gửi trả lời
Bạn không thể gửi file đính kèm
Bạn không thể sửa bài viết của mình

BB code is Mở
Mặt cười đang Mở
[IMG] đang Mở
HTML đang Tắt


Chủ đề giống nhau
Chủ đề Người khởi xướng chủ đề Diễn đàn Trả lời Bài mới gửi
Cấp kíu cấp kíu với mọi người ơi(mong mod giúp mình với) maytinh Phần Cứng Chung 0 18-01-2010 07:20 PM
Cần tim bản gốc bài nhạc hoa này, mong các bạn giúp đỡ !!! keke Nhạc Hoa 0 16-07-2009 07:48 PM
Mong Chờ Mãi Tình Em keke Nhạc Hoa 0 16-07-2009 07:46 PM
Mong ước mong manh hehe Thơ Chế - Truyện Vui 0 16-06-2009 10:54 PM
Mong Ước Mong Manh hehe Thơ Chế - Truyện Vui 0 16-06-2009 10:45 PM




Powered by: vBulletin v3.8.4 Copyright ©2000-2019, Jelsoft Enterprises Ltd.