TungNo1
Viết Dùm em chương Trình pascal???
Nhập vào một dãy số nguyên. In ra màn hình dãy số lẽ và số chẵn lớn nhất.
em bik được 2 câu lệnh:
if a[i] mod 2 = 0 and a[i] > max then max:=a[i] ( với Max:=0 cho trước)
if a[i] mod 2 <> 0 then dem:=dem + 1 (với dem:=0 đã cho trước).
ai biết xin chỉ giáo em xin cảm ơn :D
thieugia88
26/04/2013 22:05
Để ghép nhiều điều kiện trong Pascal thành 1 điều kiện duy nhất, bạn chỉ cần cho nó vào cặp ngoặc tròn ( )là xong. thân!
duccanh
26/04/2013 22:05
Giờ không dùng pascal nên không nhớ đúng nữa, để tui hỏi mấy em học lớp 11 coi thế nào đã nhe !
chipchip
26/04/2013 22:05
Bạn cho mình hỏi. cái câu if a[i] mod 2 = 0 and a[i] > maxchan then maxchan:= a[i]; là gồm 2 điều kiện. trong pascal nó k cho viết zậy rùi. nó bảo là thiếu then ở DK thứ nhất. làm thế nào tách 2 câu này ra mà vẫn hiểu nó chung 1 câu gồm 2 điều kiện. 1: A[i] chia hết cho 2 và A[i] > maxchan thì số lớn nhất là A[i]. nhưng phải viết lại 1 câu gồm 2 điều kiện thì ta nên dùng câu lệnh gì ạ. giúp em với. TKS với :D
Hin89
26/04/2013 22:05
cái này dễ thôi bạn ak giờ bạn dở lại sách lớp 11 :
do tui không còn sách nên tôi cũng không nhớ lắm, ý tưởng của bài này là :
program vda;
uses crt;
var n,i : byte;
maxle,maxchan : integer;
A=array[1..255]of integer;
Begin
clrscr;
write('nhap so luong phan tu n=',);readln(n);
For i:=1 to n do
Begin
write('nhap phan tu thu ', i );
Readln(A[i]);
end;
begin
maxle:=A[i];
maxchan:=A[1];
For i:1 to n do
begin
if a[i] mod 2 = 0 and a[i] > maxchan then maxchan:= a[i];
if a[i] mod 2 <> 0 and a[i] > maxle then maxle:= a[i];
end;
write('phan tu chan lon nhat la ', maxchan );
write('phan tu le lon nhat la ', maxle );
end;
readln;
End.
Nếu ý bạn là tìm dãy số lẻ thì bạn chỉ cần thay vào câu lệnh " if a[i] mod 2 <> 0 and a[i] > maxle then maxle:= a[i] " bằng câu lệnh tìm các số lẻ, và câu lệnh " write(phan tu le lon nhat la ', maxle ); " bằng câu lệnh đưa ra dãy số lẻ .
còn nếu sai. hoặc thiếu sót chỗ nào thì thông cảm nhe !
chữ kí:
sailam_94@yahoo.com.vn
