Viêt chương trình bao gồm câu lện lặp for do và while do
câu 6: dùng vòng lặp for...do hoặc while...do viết chương trình tính và in ra tổng sau: s=1+1/2+1/3+....+1/50
var s, i: real;
begin
s := 0;
for i := 1 to 50 do
s := s + 1/i;
writeln('Tong s = ', s:0:2);
end.
while..do
Program HOC24;
var i: integer;
s: real;
begin
i:=1;
while i<=50 do
begin
s:=s+i;
i:=i+1;
end;
write('S = ',s:6:2);
readln
end.
câu 6: dùng vòng lặp for...do hoặc while...do viết chương trình tính và in ra tổng sau: s=1+1/2+1/3+....+1/50
giải giúp em ạ
Var i:integer;
s:real;
Begin
For i:=1 to 50 do
s:=s + 1/i;
Write('Tong la ',s:10:2);
Readln;
End.
Anh (Chị) hãy sử dụng vòng lặp For, While, Do...While để viết chương trình tính N! với từng loại vòng lặp và in kết quả của theo từng loại vòng lặp
Câu 1: Viết cú pháp câu lệnh lặp đã học và giải thích các đại lượng có trong cú pháp đó. So sánh được sự giống và khác nhau giữa 2 dạng câu lệnh.
Câu 2: Giải thích được các đoạn chương trình có sử dụng cấu trúc lặp For .. to ..do và While .. do để suy ra được kết quả các đại lượng khi vòng lặp kết thúc.
Câu 3: Giải thích được một thuật toán cụ thể. Từ đó viết đoạn chương trình bằng ngôn ngữ lập trình để mô tả các bước của thuật toán.
Câu 4: Biết cú pháp khai báo biến mảng trong chương trình và giải thích được các đại lượng có trong cú pháp đó.
Câu 5: Viết được một chương trình bằng ngôn ngữ lập trình có sử dụng biến mảng để nhập giá trị cho một mảng. Xác định được giá trị trung bình, giá trị lớn nhất, giá trị nhỏ nhất của dãy số.
Mọi người ơi, giải giúp mình bài này với ạ
Câu 14 (2,0 điểm): Trong các câu lệnh lặp trong Pascal sau đây đúng hay sai. Vì
sao?
a. While i<5 do i=i+1;
b. While 3=3 do i:=i+1;
c. While x<3 do x:=x+1;
d. For i:=2.5 to 10 do x:=x+1;
Cho biết giá trị của biến S và n sau khi thực hiện đoạn chương trình trên
hãy viết chương trình sử dụng lệnh lặp while-do, và for...to...do để tính tổng các số tự nhiên từ 1 đến 10.
* Sử dụng For ... do
Var i,s:integer;
Begin
For i:=1 to 10 do
s:=s+i;
Write('Tong la ',s);
Readln;
End.
* Sử dụng While ... do
Var i,s:integer;
Begin
i:=1;
While i<=10 do
Begin
s:=s+i;
i:=i+1;
End;
Write('tong la ',s);
Readln;
End.
viết chương trình tính tổng số tự nhiên băng 2 cách, sử dụng vòng lặp for-to-do và sử dụng vòng lặp while-do
GIÚP MÌNH VỚI
Tính tổng N số tự nhiên đầu tiên với N nhập từ bàn phím chứ bạn nhỉ?
Mn ơi viết cho mik một chương trình pascal có đủ các câu lệnh sau : Cl điều kiện(If... then... else) , Cl lặp(for...to.. do) , Cl lặp vs số lần chưa biết trước ( While... do) vs ạ Mik cảm ơn trc ạ
program day_du_cau_lenh;
uses crt;
var i,n:integer;
a:array[1..100]of intrger;
begin
clrscr;
write('nhap so n:');readln(n);
i:=1;
while i<=n do
begin
write('nhap a[',i,']:');readln(a[i]);
i:=i+1;
end;
for i:=1 to n do
if a[i]>=0 then write(a[i]) else write('');
readln;
end.
I. PHẦN LÍ THUYẾT
câu 1:cho đoạn chương trình sau:
S:=0;
For i:= 1 to 6 do S:=S+i;
Tính giá trị của S?
II. PHẦN BÀI TẬP:
câu 1: Viết chương trình tính tích của 10 số tự nhiên đầu tiên.
Câu 2: Hãy phát biểu sự khác biệt giữa câu lệnh lặp với số lần lặp cho trước và câu lệnh lặp với số
lần lặp chưa biết trước.
Câu 3: Hãy tìm hiểu đoạn chương trình Pascal 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?
S:=1; n:=0;
While S <=10 do
Begin
n:=n+1;
S:=S+n;
End;