2020)
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (203.08 KB, 2 trang )
<span class='text_page_counter'>(1)</span><div class='page_container' data-page=1>
<b>NỘI DUNG ÔN TẬP </b>
<b>SỬ DỤNG CÂU LỆNH LẶP TRONG CHƯƠNG TRÌNH </b>
<i><b>Tin 8 – KT1T HK2 (Thực hành) – Năm học: 2019-2020 </b></i>
<b>1.</b> <b>Tính tổng dãy số nguyên A gồm N phần tử </b>
Program KT1T;
Uses crt;
Var A : array [1..100] of integer;
N, i, S : integer;
Begin
Clrscr;
Write(‘Nhap N:’); readln(N); ... <i>nhập N</i>
For i := 1 to N do ... <i>nhập dãy số nguyên A</i>
Begin
write(‘A[’, i, ‘]=’); readln(A[i]);
end;
S := 0; ... <i>tính tổng dãy số A</i>
For i := 1 to N do S := S + A[i];
Writeln(‘Tong day so A la ’, S);
Readln;
</div>
<span class='text_page_counter'>(2)</span><div class='page_container' data-page=2>
<b>2.</b> <b>Tính tích dãy số nguyên A gồm N phần tử </b>
Program KT1T;
Uses crt;
Var A : array [1..100] of integer;
N, i : integer;
P : real;
Begin
Clrscr;
Write(‘Nhap N:’); readln(N); ... <i>nhập N</i>
For i := 1 to N do ... <i>nhập dãy số nguyên A</i>
Begin
write(‘A[’, i, ‘]=’); readln(A[i]);
end;
P := 1; ... <i>tính tổng dãy số A</i>
For i := 1 to N do P := P * A[i];
Writeln(‘Tich day so A la ’, P);
Readln;
</div>
<!--links-->
