( Khẩn Cấp ) Các Bro " Help Me " Đệ cần gấp ngay bây giờ!!!

**0nljne.net** · 15-12-2007 14:19

Đệ có một bài toán về Pascal cần làm bây giờ sắp bị nộp rồi ( kiểm tra )các huynh cố gắng giúp đệ với nhé ( càng nhanh càng tốt ). Thank các huynh nhiều.

Đề bài : Mô tả thuật toán và viết chương trình in ra tích các phần tử dương của dãy số n phần tử được nhập từ bàn phím.

Nhân tiện xem hộ câu trắc nghiệm này :
1) Cho x là kiểu biến thực. Sau khi thưc hiện 2 lệnh :
x:=10
writeln(x) thì kết quả in ra màn hình là :
A. 10;
B. 10.00;
C. 1.0000000000E + 0,1
D. +1.0000000000E + 0,1
2) Cho i, j, k là 3 biến kiểu nguyên, để nhập dữ liệu cho lệnh Readln(i,i,k); câu nào đúng :
A. 345?;
B. 3,4,5?;
C. 3?4?5?;
D. Cả ba câu
3)Cho S,i và N>0 là các kiểu biến nguyên. Để tìm S=N! chọn câu nào
A. S:=1; for i:=1 to N do S:=S*i
B. S:=1; for i:=1 to N do S:=S*i (Hình như câu B chép nhầm đề Các Bro cứ thử xem sao)
C. S:=0; for i:=1 to N do S:=S*N
D. S:=1; for i:=1 to N do S:=S+i
4) Cho S= 1^2 + 2^2 + 3^2 +.....+ 100^2 (Thông cảm hok bít viết số mũ)
Lệnh nào tính sai giá trị S
A. S:=0; for i:=1 to 100 do S:=S+ i*i
B. S:=0; for i:=1 to 100 do S:=S+ sqr(i)
C. S:=0; for i:=100 downto 1 do S:=S+ i*i
D. S:=1; for i:=1 to 100 do S:=S+ i*i

Các Bro mau giúp em cái ! Xin các huynh trình bày hẳn ra cho đệ như lập trình trên Pascal ! Đệ Thank !

**active_boy2701** · 15-12-2007 15:31

s=1;
doc các số a, >0 thì s=s*a, khong thi thôi.
hình như the nay: 1c,2d,3a,4d

**mr_invincible** · 15-12-2007 16:00

Câu 2 không hiểu bạn có viết nhầm đề không? Chẳng thấy đáp án nào đúng cả

**0nljne.net** · 15-12-2007 16:18

Hok Đề đúng mà. Các huynh giải hẳn đề bài ra cho đệ 1 cái ( rõ ràng và chính xác hộ nha

)

**Long_Phung** · 15-12-2007 16:57

- Thuật toán hay sơ đồ thuật toán?

Code:

 Thuật toán:
 - Nhập N. Gán Tích =1;
 - Dùng vòng lặp từ 1 đến n. Mỗi bước của vòng lặp, làm những công việc sau.
   + Nhập giá trị thứ i.
   + Xét giá trị nhập vào, nếu dương thì nhân vào tích.
 - In tích.

Còn phần code thì bạn tự viết nha!

**0nljne.net** · 15-12-2007 17:19

Huynh đài ơi! Đệ mù Pascal luôn có biết gì đâu mà làm. Thế nên đệ mới nhờ các huynh viết hẳn ra chứ. Viết như lập trình trong máy ý ! Các huynh giúp đệ tiếp đi. Khẩn cấp lắm rồi!!!!

**0nljne.net** · 15-12-2007 18:03

Huynh Long_Phung đâu rồi giúp đệ đi !!!!! Rồi xem hộ đệ trắc nghiệm luôn cái.

**phuclun** · 15-12-2007 21:50

thuật toán thì cứ theo bác Long Phụng,còn về code thì

Code:

s:=1;
readln(n);
for i:=1 to n do
     begin
        write('nhap so o vi tri thu',i);
        if a[i]>0 then
             s:=s*a[i];
     end;
write('tong la',s);

Bài này dễ,thuộc dạng cơ bản,lần sau bạn ko nên post lên đây nữa,sẽ ko ai làm cho bạn đâu,tự làm sẽ hiểu hơn.
Chúc bạn vui vẻ.