giá trị của S = 65
giá trị của n = 17
số lần lặp = 6
Chương trình:
program an_danh1;
uses crt;
var s,n:integer;
begin
clrscr;
s:= 5; n:=5;
while s <= 50 do
begin
s:= s + n;
n:= n + 2;
end;
write('S = ',s);
readln
end.
Bài 9. Làm việc với dãy số
Các câu hỏi tương tự
Từ thuật toán sau hãy viết chương trình pascal thể hiện thuật toán đó
B1 : S <----- 15 ; x <------- 2
B2 : Nếu S <--- S - x và chuyển bước 4
B3 : S <---- S - x và quay lại bước 2
B4 : Thông báo S và kết thúc thuật toán
cho thuật toán sau:
b1: nhập n
b2: s<- 0 i<- 0
b3: i <- i+1
b4: nếu i nhỏ hơn hoặc bằng n ,S <- S+i và quay lại b3 ngược lại (i > n) thông báo kết quả và kết thúc thuật toán
hãy viết chương trình Pascal để thể hiện thuật toán trên mn giúp e với mai em thi hk2
ĐỀ CƯƠNG ÔN TẬP TIN HỌC 8
I-Câu lệnh lặp
Câu 1: Nêu cấu trúc và hoạt động của câu lệnh lặp biết trước For...do
Câu 2: Tìm giá trị của S trong đoạn chương trình sau:
S:0
For i: 1 to 5 do S: S+i;
Câu 3: Sau khi thực hiện chương trình sau giá trị S bằng bao nhiêu?
S:0
For i: 1 to 5 do
S: S*i;
Câu 4: Viết chương trình tính tổng n số nguyên được nhập từ bàn phím
II-Lặp với số lần chưa biết trước
Câu 5: Nêu cấu trúc và hoạt động của câu lệnh lặp chưa biết trước While...do
Câu 6: Cho biết...
Đọc tiếp
ĐỀ CƯƠNG ÔN TẬP TIN HỌC 8
I-Câu lệnh lặp
Câu 1: Nêu cấu trúc và hoạt động của câu lệnh lặp biết trước For...do
Câu 2: Tìm giá trị của S trong đoạn chương trình sau:
S:=0
For i:= 1 to 5 do S:= S+i;
Câu 3: Sau khi thực hiện chương trình sau giá trị S bằng bao nhiêu?
S:=0
For i:= 1 to 5 do
S:= S*i;
Câu 4: Viết chương trình tính tổng n số nguyên được nhập từ bàn phím
II-Lặp với số lần chưa biết trước
Câu 5: Nêu cấu trúc và hoạt động của câu lệnh lặp chưa biết trước While...do
Câu 6: Cho biết kết quả đoạn chương trình sau:
a:=10;
While a>=10 do write(a);
Câu 7: Khi thực hiện chương trình sau câu lệnh "xin chao" được in ra màn hình mấy lần?
n:=1;
whlie n<=10 do
begin
n:=n+1;
writeln('xin chao');
end;
III-Làm việc với dãy số
Câu 8: Dữ liệu kiểu mãng là gì?
Câu 9: Nêu cú pháp và các thành phần của khai báo biến mảng
Câu 10: Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của 1 dãy. Độ dài của dãy cũng được nhập từ bàn phím
Câu 11: Viết chương trình nhập n số nguyên từ bàn phím và in ra số lớn nhất trong dãy, n cũng được nhập từ bàn phím
Câu 1: Cho đoạn chương trình:
S:0;
For i:1 to 5 do S:S+1;
a) Cho biết giá trị của S
b) Đoạn chương trình trên thực hiện bao nhiêu lần lặp
Câu 2:
Viết chương trình bằng ngôn ngữ lập trình pascal thực hiện công việc nhập 20 phần tử có giá trị nguyên cho mảng B(1 chiều, nhập từ bàn phím)
a) Tính tổng các phần tử có giá trị dương trong mảng
b) Tính tổng các phần tử có giá trị lẻ trong mảng
*Giúp mình nha, sắp thi rùi
Đọc tiếp
Câu 1: Cho đoạn chương trình:
S:=0;
For i:=1 to 5 do S:=S+1;
a) Cho biết giá trị của S
b) Đoạn chương trình trên thực hiện bao nhiêu lần lặp
Câu 2:
Viết chương trình bằng ngôn ngữ lập trình pascal thực hiện công việc nhập 20 phần tử có giá trị nguyên cho mảng B(1 chiều, nhập từ bàn phím)
a) Tính tổng các phần tử có giá trị dương trong mảng
b) Tính tổng các phần tử có giá trị lẻ trong mảng
*Giúp mình nha, sắp thi rùi
Hãy tìm hiểu đoạn lệnh sau đây và cho biết với đoạn lệnh đó chương trình thực hiện bao nhiêu vòng lặp và khi kết thúc giá trị của S và n bằng bao nhiêu .
S:=0;
i:=0;
While S <=10 do
Begin
S:=S+i;
i:=i+2;
End;
sử dụng câu lệnh lặp vs số lần biết trước:
Viết chương trình in ra màn hình dãy só sau: 0 1 2 3 4 5 6 7 8 9( các số cách nhau một khoảng cách)
Câu 3: Viết chương trình nhập vào N số nguyên từ bàn phím, in ra màn hình giá trị lớn nhất, giá trị nhỏ nhất và giá trị trung bình của dãy số, tính và in ra màn hình giá trị nhỏ nhất của dãy số nhỏ hơn giá trị TB bao nhiêu, giá trị lớn nhất của dãy số lớn hơn giá trị TB bao nhiêu là bao nhiêu?
cách mô tả thuật toán viết chương trinh nhập n số nguyêntừ bàn phím và in ra màng hình số lớn nhất giúp em giải thuật toán với ạ xin cảm ơn
1/ Các câu lệnh trên có hợp lệ không , nếu chưa hợp lệ thì hãy sửa lại cho đúng ?
a/ For i:1,5 to 10.5 do s:s+i;
b/ Var X : array [100..1] of integer;
c/ X:1 ; while X:10 do X:X+5;
d/For i:1 to n do begin s:s+i ; i:i-1;
2/Hãy viết các câu lệnh , khai báo theo yêu cầu sau :
a/ Khai báo mảng X gồm 50 phần tử thuộc kiểu dữ liệu số nguyên
b/ Phần tử thứ 9 của mảng A được gán bằng 5
c/Khai báo mảng diemtin gồm 100 phần tử thuộc kiểu dữ liệu số thực
d/ Nhập giá trị phần tử thứ 5 trong mảng...
Đọc tiếp
1/ Các câu lệnh trên có hợp lệ không , nếu chưa hợp lệ thì hãy sửa lại cho đúng ?
a/ For i:=1,5 to 10.5 do s:=s+i;
b/ Var X : array [100..1] of integer;
c/ X:=1 ; while X:=10 do X:=X+5;
d/For i:=1 to n do begin s:=s+i ; i:=i-1;
2/Hãy viết các câu lệnh , khai báo theo yêu cầu sau :
a/ Khai báo mảng X gồm 50 phần tử thuộc kiểu dữ liệu số nguyên
b/ Phần tử thứ 9 của mảng A được gán bằng 5
c/Khai báo mảng diemtin gồm 100 phần tử thuộc kiểu dữ liệu số thực
d/ Nhập giá trị phần tử thứ 5 trong mảng diemtin
Giúp mình với , mai mình thi r ~~~