Câu lệnh sau do của vòng lặp

While có thể là

A. Câu lệnh đơn.

B. Câu lệnh ghép.

C. Câu lệnh đơn hoặc câu lệnh ghép.

D. Câu lệnh điều kiện.

Cú pháp: WHILE <Điều kiện> DO <Công việc>

Input: các số 2; 6;12;....; n(n+2).

Output: Tính tổng S = 2+ 6+12+...+n(n+2)

Chương trình:

program tinhtong;

uses crt:

var S: real;

i,n:integer;

begin

clrscr;

writeln('Nhap n'); Readln(n);

S:= 0;

for i:=1 to n do S:= S + i*(i+2);

write('S= ', S);

Readln;

end.

Chúc bạn học tốt.

Bài 1:

*Xác định bài toán

-Input: số n

-Output: Tích các số từ 1 tới n

*Mô tả thuật toán

-Bước 1: nhập n

-Bước 2: s←1;

-Bước 3: cho for i chạy từ 1 tới n

-Bước 4: s←s*i;

-Bước 5: Xuất s

-Bước 6: Kết thúc

*Viết chương trình

uses crt;

var i,n:integer;

s:real;

begin

clrscr;

write('n='); readln(n);

s:=1;

for i:=1 to n do

s:=s*i;

writeln('Tich cac so tu 1 toi ',n,' la: ',s:0:0);

readln;

end.

Bài 2:

*Xác định bài toán

-Input: số n

-Output: Xuất ra màn hình các số chia hết cho 3 và có bao nhiêu số chia hết cho 3 trong khoảng từ 1 tới n

*Mô tả thuật toán

-Bước 1: Nhập n

-Bước 2: dem←0;

-Bước 3: cho for i chạy từ 1 tới n

-Bước 4: nếu i chia hết cho 3 thì xuất i và dem←dem+1

-Bước 5: Xuất dem

-Bước 6: kết thúc

*Viết chương trình

uses crt;

var n,i,dem:integer;

begin

clrscr;

repeat

write('n='); readln(n);

until n>0;

dem:=0;

writeln('Cac so chia het cho 3 trong khoang tu 1 toi ',n,' la: ');

for i:=1 to n do

if i mod 3=0 then

begin

write(i:4);

dem:=dem+1;

end;

writeln;

writeln('So cac so chia het cho 3 trong khoang tu 1 toi ',n,' la:',dem);

readln;

end.

Bài 3:

*Xác định bài toán

-Input: dãy số từ 15 tới 35

-Output: Tích của dãy số đó

*Mô tả thuật toán

-Bước 1: s←1; i←15

-Bước 2: s←s*i;

i←i+1;

-Bước 3: nếu i<=35 thì quay lại bước 2

-Bước 4: xuất s

-Bước 5: kết thúc

*Viết chương trình

uses crt;

var i:integer;

s:real;

begin

clrscr;

i:=15; s:=1;

while i<=35 do

begin

s:=s*i;

i:=i+1;

end;

writeln('Tich cua cac so tu 15 toi 35 la: ',s:0:0);

readln;

end.

Bài 3:

Xác định bài toán:

-Input : dãy số từ 15 đến 35

-Output : Tích các số từ 15 đến 35

Thuật toán:

Bước 1: i←15; t←1;

Bước 2: Nếu i>=35 thì in ra kết quả và kết thúc

Bước 3: t←t*i;

Bước 4: i←i+1 quay lại bước 3

Viết chương trình:

Program hotrotinhoc_hoc24;

var i,t: integer;

begin

write('N='); readln(n);

i:=15; t:=1;

write('Tich cac so tu 1 den 35 la ');

while i<n do

begin

t:=t*i;

i:=i+1;

end;

readln

end.

uses crt;

var ly,toan,van:real;

begin

clrscr;

repeat

write('Diem Toan='); readln(toan);

write('Diem Van='); readln(van);

write('Diem Ly='); readln(ly);

until (toan>0) and (van>0) and (ly>0);

writeln('Diem trung binh cua 3 mon la: ',(toan+van+ly)/3:4:2);

readln;

end.

I Trắc Nghiệm

1.c.

2. c.

3.a.

4.d.

5. c.

6.a.

7.a.

8.b.

II Tự luận

in ra S= 12

Chúc bạn học tốt

Program hotrotinhoc_hoc24;

var i,n: integer;

a: array[1..32000] of integer;

function nt(x: longint): boolean;

var j: longint;

begin

nt:=true;

if (x=2) or (x=3) then exit;

nt:=false;

if (x=1) or (x mod 2=0) or (x mod 3=0) then exit;

j:=5;

while (j<=trunc(sqrt(x))) do

begin

if (x mod j=0) or (x mod (j+2)=0) then exit;

j:=j+6;

end;

nt:=true;

end;

begin

write('Nhap so phan tu cua day: '); readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

write('Cac so nguyen to co trong mang la : ');

for i:=1 to n do if nt(a[i]) then write(a[i],' ');

readln

end.

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 100 do

if i mod 2=0 then t:=t+i;

writeln('Tong cac so chan tu 1 den 100 la: ',t);

readln;

end.

1:

a)

uses crt;

var i,n,t:integer;

begin

clrscr;

write('n='); readln(n);

t:=0;

for i:=1 to n do

if i mod 2=0 then t:=t+i;

writeln('Tong cac so chan la: ',t);

readln;

end.

b)

uses crt;

var i,t,n:integer;

begin

clrscr;

write('n='); readln(n);

t:=0; i:=1;

while i<=n do

begin

if i mod 2=0 then t:=t+i;

i:=i+1;

end;

writeln('tong cac so chan la: ',t);

readln;

end.

2:

a)

uses crt;

var i,n,t:longint;

begin

clrscr;

write('nhap n='); readln(n);

t:=1;

for i:=1 to n do

if i mod 2=0 then t:=t*i;

writeln('Tich cac so chan la: ',t);

readln;

end.

b)

uses crt;

var i,n,t:longint;

begin

clrscr;

write('n='); readln(n);

t:=1; i:=1;

while i<=n do

begin

if i mod 2=0 then t:=t*i;

i:=i+1;

end;

writeln('Tich cac so chan la: ',t);

readln;

end.