Tin Học - Pascal 11 | Cộng đồng Học Sinh Việt Nam - HOCMAI Forum

• Diễn đàn Bài viết mới Tìm kiếm trên diễn đàn
• Đăng bài nhanh
• Có gì mới? Bài viết mới New media New media comments Status mới Hoạt động mới
• Thư viện ảnh New media New comments Search media
• Story
• Thành viên Đang truy cập Đăng trạng thái mới Tìm kiếm status cá nhân

Đăng nhập Đăng ký

Tìm kiếm

Everywhere Đề tài thảo luận This forum This thread Chỉ tìm trong tiêu đề By: Search Tìm nâng cao… Everywhere Đề tài thảo luận This forum This thread Chỉ tìm trong tiêu đề By: Search Advanced…

• Bài viết mới
• Tìm kiếm trên diễn đàn

Menu Install the app Install Tin họcPascal 11

• Thread starter phamtrungtridung
• Ngày gửi 20 Tháng tư 2009
• Replies 10
• Views 5,918

• Bạn có 1 Tin nhắn và 1 Thông báo mới. [Xem hướng dẫn] để sử dụng diễn đàn tốt hơn trên điện thoại

• Diễn đàn
• CÁC MÔN HỌC KHÁC
• Tin học - máy tính
• Tin học trong nhà trường
• Tin học văn phòng

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. P

phamtrungtridung

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Mảng 1 chiều: 1. Kiểm tra tính nguyên tố của 1 số nguyên dương; 2. mảng số nguyên gồm n ptử .Hiển thị ra All ptử ở vị trí chẵn và giá trị chẵn; 3. Đếm số lượng ptử mang giá trị chẵn và ở vị trí lẻ trong mảng 1 chiều gồm N ptử nguyên cho trước. 4. Hiển thị tổng và giá trị của các ptử là số lẻ. Mảng 2 chiều: 1. Nhập vào mảng 2 chiều gồm m hàng và n cột . Đếm slượng ptử chẵn trong mảng đó. 2. Tính tổng các ptử lẻ trong mảng 2 chiều và hiển thị giá trị of các ptử đó ra màn hình. Xâu: 1. Nhập vào một xâu bất kỳ. Hiển thị ra xâu chứa toàn là kí tự chữ. 2. Nhập vào xâu A . Tìm & hiển thị những ptử ở vị trí chẵn và kí tự In hoa. 3. Nhập vào xâu bất kỳ . Hiển thị ra xâu không có khoãng trắng. 4. Viết CTrình Xloại Hlực of Hsinh bao gồm các thuộc tính : - Họ & tên - Quê quán - Điểm : Toán; Lý; Hóa; Van; Trong đó (Văn+ Toán)*2 . Nếu học lực là Giỏi thì điểm TB>=8 Khá 8>TB>=7 ngược lại XL Trung bình H

hobgoblin

cần gấp ko bạn mình vừa thi học kì tin xong nên chắc có thể giúp cho bạn như nội dung hơi nhiều 2 hôm nữa mình gửi nhé vì thứ 4 mình rảnh cả chiều ) sẽ gửi file .pas lên cho bạn P

phamtrungtridung

rất gấp . Ngày mai là tui thi rồi __________________ T

tungvip95

phamtrungtridung said: 1. Kiểm tra tính nguyên tố của 1 số nguyên dương; Bấm để xem đầy đủ nội dung ...

Mã: var a,i:integer; kt:boolean; begin write('a:=');readln(a); if a > 0 then begin for i:=2 to round (sqrt(a)) do if a mod i <> 0 then kt:= true; end; if kt:=true then writeln('co') else writeln('no'); end. Last edited by a moderator: 21 Tháng tư 2009 T

tungvip95

phamtrungtridung said: 2. mảng số nguyên gồm n ptử .Hiển thị ra All ptử ở vị trí chẵn và giá trị chẵn; 3. Đếm số lượng ptử mang giá trị chẵn và ở vị trí lẻ trong mảng 1 chiều gồm N ptử nguyên cho trước. 4. Hiển thị tổng và giá trị của các ptử là số lẻ. Bấm để xem đầy đủ nội dung ...

em làm gộp 3 câu này lại Mã: var a:array[1..100] of integer; i,n,tong,dem:integer; begin tong:=0; dem:=0; write('n:=');readln(n); for i:=1 to n do begin write('phan tu thu ',i,' :=');readln(a[i]); end. for i:=1 to n do begin if (i mod 2 = 0) and (a[i] mod 2 =0) then writeln('pt chan o vi tri chan:',a[i]); if (i mod 2 = 1) and (a[i] mod 2 =0) then dem:=dem+1; if (a[i] mod 2=1) then begin tong:=tong+a[i]; writeln('pt le:=',a[i]); end; end; writeln('so cac so chan o vi tri le:=',s); writeln('tong cac phan tu le:=',tong); end. T

tungvip95

phamtrungtridung said: Mảng 2 chiều: 1. Nhập vào mảng 2 chiều gồm m hàng và n cột . Đếm slượng ptử chẵn trong mảng đó. 2. Tính tổng các ptử lẻ trong mảng 2 chiều và hiển thị giá trị of các ptử đó ra Bấm để xem đầy đủ nội dung ...

Lại gộp tiếp Mã: var a:array[1..100,1..100] of integer; m,n,i,j,dem,tong:integer; begin write('n=');readln(n); write('m=');readln(m); for i:= 1 to n do begin for j:=1 to m do begin writeln('nhap phan tu cot thu ',i,' hang thu ',j,' : ');readln(a[i,j]); end; end; for i:= 1 to n do begin for j:=1 to m do begin if a[i,j] mod 2 = 0 then dem:=dem +1; if a[i,j] mod 2 = 1 then begin tong := tong+a[i,j]; writeln('phan tu le: ', a[i,j]); end; end; end; writeln('so so chan: ',s); writeln('tong cac so le: ',tong); end. T

tungvip95

phamtrungtridung said: 1. Nhập vào một xâu bất kỳ. Hiển thị ra xâu chứa toàn là kí tự chữ. 3. Nhập vào xâu bất kỳ . Hiển thị ra xâu không có khoãng trắng. Bấm để xem đầy đủ nội dung ...

1. cái này là loại bỏ các phần tử số đi hả bạn 3. ko có khoảng trắng là sao T

tungvip95

phamtrungtridung said: 4. Viết CTrình Xloại Hlực of Hsinh bao gồm các thuộc tính : - Họ & tên - Quê quán - Điểm : Toán; Lý; Hóa; Van; Trong đó (Văn+ Toán)*2 . Nếu học lực là Giỏi thì điểm TB>=8 Khá 8>TB>=7 ngược lại XL Trung bình Bấm để xem đầy đủ nội dung ...

cụ thể là in ra màn hình những yếu tố gì bạn nói rõ đi chứ P

phamtrungtridung

là in ra Họ & tên - Quê quán - Điểm : Toán; Lý; Hóa; Van; => hoc luc la` P

phamtrungtridung

dsa

tungvip95 said: 1. cái này là loại bỏ các phần tử số đi hả bạn 3. ko có khoảng trắng là sao Bấm để xem đầy đủ nội dung ...

la ko có khoãng cách " space" đó :-SS//o=&gt;:| T

tungvip95

phamtrungtridung said: 3. Nhập vào xâu bất kỳ . Hiển thị ra xâu không có khoãng trắng. Bấm để xem đầy đủ nội dung ...

Mã: var s:string; i:integer; kt:boolean; begin readln(s); kt:=true; for i:= 1 to length(s) do begin if s[i]=' 'then kt:=false; end; if kt=true then writeln(s); readln; end. You must log in or register to reply here. Chia sẻ: Facebook Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

• Diễn đàn
• CÁC MÔN HỌC KHÁC
• Tin học - máy tính
• Tin học trong nhà trường
• Tin học văn phòng

Top Bottom

• Vui lòng cài đặt tỷ lệ % hiển thị từ 85-90% ở trình duyệt trên máy tính để sử dụng diễn đàn được tốt hơn.