[Help] Đề ôn pascal 11.

[bdstruongton]

1)viết chương trình nhập vào từ bàn phím dãy A gồm 10 số nguyên 1, 2, 3, ... n
a)tìm và đưa ra màn hình phần tử lớn nhất của dãy số nguyên
b)đếm và đưa ra màn hình số lượng số chẵn và lẻ
c)tính và hiển thị các giá trị tb của các phần tử trong dãy
2)cho mảng 1 chiều A gồm 15 phần tử kiểu nguyên. Lập 1 chương trình thực hiện các yêu cầu sau
a)nhập dữ liệu cho bảng A từ bàn phím
b)từ mảng A tạo mảng B chứa tất cả các số chẵn , mảng C chứa tất cả các số lẻ. Hiển thị ra màn hình 2 mảng vừa tạo
3)cho mảng 2 chiều A gồm 5 hàng 8 cột và các phần tử kiểu nguyên. Lập 1 chương trình thực hiên các yêu cầu sau:
a)nhập dữ liệu cho A từ bàn phím
b)tính và hiển thị giá trị trung bình của các phần tử thuộc các cột lẻ trong mảng
c)tính và hiển thị giá trị trung bình của các phần tử thuộc các dòng chẵn nhưng thuộc cột lẻ của mảng
4)viết chương trình nhập từ bàn phím 1 xâu sau đó thay thế tất cả các cụm kí tự "anh" = cụm kí tự "em" . In ra xâu sau khi đã thay thế
5)Giả sử cần quản lý học sinh của 1 lớp,mỗi học sinh gồm các thông tin: hoten, ngaysinh, lop, dtoan, dvan, TB, xếp loại. Hãy viết chương trình nhập vào bàn phím thông tin hoten, ngaysinh, lop, dtoan , dvan; các thông tin tb, xếp loại ,máy tính tự điền thông tin theo quy tắc sau
TB=(toan + van)/2
TB>=8 thì xeploai=gioi
6.5<=TB<8 thì xeploai=kha
5<=TB<6.5 thì xeploai=trung bình
TB<5 thì xeploai=yeu
6)viết chương trình có chứa các chương trình con thưc hiên các thao tác sau
a)thủ tuc nhập vào bàn phím số nguyên
b)hàm tính tb công của 3 sô
c)hàm tìm số nhỏ nhất của 3 số

[thapchidao]

Tất cả những bài này đều là cơ bản. Thế bạn không làm được những bài nào, thì mình sẽ viết giúp.

[hoangchuot]

cần giúp bài nào cứ nói!

bài 1:
a) max:=a[1];
for i:= 1 to n do
if max< a then
max:=a;
b)
for i:= 1 to n do
if a mod 2= 0 then
chan:= chan+ 1
else
le:=le+1;
write(' co ',chan,' so chan');
write(' co', le,' so le');
c)
for i:= 1 to n do
tb:=tb+a;
tb:=tb/n;
write(' tb la',tb);
câu 2
a) dễ rùi tự giãi đi.
b)
t:=1;d:=1;
for i:= 1 to n do
if a mod 2 =0 then
begin
b[t]:=a;
t:=t+1;
end;
if a mod 2 <> 0 then
begin
c[d]:=a;
d:=d+1;
end;
câu 3:
a) tự nhập.
b)
i:=1;
repeat
for j:= 1 to 5 do
tb:=tb+a[j,i];
i:=i+2;
until i=9;
..........
tự làm đi viết ra dài quá!
có câu nào không hiểu pm cho mình
yahoo:[email protected]<script data-cfhash='f9e31' type="text/javascript">/* <![CDATA[ */!function(t,e,r,n,c,a,p){try{t=document.currentScr ipt||function(){for(t=document.getElementsByTagNam e('script'),e=t.length;e--if(t[e].getAttribute('data-cfhash'))return t[e]}();if(t&&(c=t.previousSibling)){p=t.parentNode;if (a=c.getAttribute('data-cfemail')){for(e='',r='0x'+a.substr(0,2)|0,n=2;a.l ength-n;n+=2)e+='%'+('0'+('0x'+a.substr(n,2)^r).toString (16)).slice(-2);p.replaceChild(document.createTextNode(decodeUR IComponent(e)),c)}p.removeChild(t)}}catch(u){}}()/* ]]> */</script>
hay :[email protected]<script data-cfhash='f9e31' type="text/javascript">/* <![CDATA[ */!function(t,e,r,n,c,a,p){try{t=document.currentScr ipt||function(){for(t=document.getElementsByTagNam e('script'),e=t.length;e--if(t[e].getAttribute('data-cfhash'))return t[e]}();if(t&&(c=t.previousSibling)){p=t.parentNode;if (a=c.getAttribute('data-cfemail')){for(e='',r='0x'+a.substr(0,2)|0,n=2;a.l ength-n;n+=2)e+='%'+('0'+('0x'+a.substr(n,2)^r).toString (16)).slice(-2);p.replaceChild(document.createTextNode(decodeUR IComponent(e)),c)}p.removeChild(t)}}catch(u){}}()/* ]]> */</script>
hay phone:0533726017 thích dùng cái nào thì dùng

[kientrogia24h]

Nếu bạn ấy đã viết ra như thế tức là chưa làm được bài nào. Theo mình đây đều là những bài rất cơ bản, bạn chỉ cần suy nghĩ để có thuật toán, còn phần cài đặt thì thử cài đặt xem, vướng chỗ nào nhờ người giúp, có thế mới khá hơn được.

[haminhjob]

thank các bác đã giúp đỡ , em hoc mà chả biét làm sao để viết cho nó chạy cả