cho mảng A gồm n phần tử số thực ( n<=100). hay lap trinh
a, Tính tích các phần tử là số chẵn
b, tích các phần tử số lẻ
Nếu đây là lần đầu tiên bạn tham gia diễn đàn, xin mời bạn xem phần Hỏi/Ðáp để biết cách dùng diễn đàn. Để có thể tham gia thảo luận bạn phải đăng ký làm thành viên, click vào đây để đăng ký.
cho mảng A gồm n phần tử số thực ( n<=100). hay lap trinh
a, Tính tích các phần tử là số chẵn
b, tích các phần tử số lẻ
Sặc, trời ơi
dùng 2 vòng while là xong
tichle:=1;
i:=1;
while (i<100)
{
tichle:=tichle*a[i];
i:=i+2;
}
tichchan:=1;
i:=2;
while (i<=100)
{
tichchan:=tichchan*a[i];
i:=i+2;
}
VAR N,i,tichle,tichchan:integer;
BEGIN
Writeln('Nhap so phan tu day so N= ');
Readln(N);
tichle:=1;
tichchan:=1;
For i:=1 to N do
Begin
write('a[',i,']=');
Readln(a[i]);
If a[i] mod 2 =0 then tichchan:=tichchan*a[i]
else tichle:=tichle*a[i];
End;
writeln('tich cac so chan=',tichchan);
writeln('tich cac so le=',tichle);
readln;
end.
thay đổi nội dung bởi: duyhung1no2; 18-04-2010 lúc 06:48 AM
ặc dốt nhất pascal
chỉ biết sql
để mình làm thử xem nào
bài bác này phù hợp với chương trình lớp 11 này. tuy nhiên phần khai báo sai tí. bài cho n phần tử số thực nên tích của nó cũng là số thực, với lại i, n để integer thì phí bộ nhớ...
còn nữa, vì kiểu thực nên khi in ra màn hình nếu không viết cái gì sau cái chỗ tichchan, tichle thì sẽ không nhìn rõ kết quả, nên viếtVar i,n : byte;
tichchan, tichle: real;
à, thêm cái dòng: có lạc rang sẽ có rượu ( clrscr) sau Begin để làm sạch màn hình nữawriteln('tich cac so chan=',tichchan:4);
writeln('tich cac so le=',tichle:4);
Có thể do cô tin của mình yêu cầu quá nhiều nên mấy cái mình nói ko cần thiết...
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks