Viết CT giải các bài toán sau: S = 1-2+3-4+5-6+7-8+...+n
(Viết cấu trúc câu lệnh While...do)
NT
Những câu hỏi liên quan
Bài 1: Viết chương trình cho bài toán sau (sử dụng câu lệnh For...do và While...do)
a) 1+2+3+4+5+6+7+8+9
b) 2+4+6+8+10+12+14
c) 3+5+7+9+11+13+15
lệnh for...to...do:
a)program tinh_tong;
uses crt;
var i,s:byte;
begin
clrscr;
s:=0;
for i:=1 to 9 do s:=s+i;
write(s);
readln;
end.
b)
program tinh_tong;
uses crt;
var i,s:byte;
begin
clrscr;
s:=0;
for i:=1 to 14 do
begin
if i mod 2=0 then
s:=s+i;
end;
write(s);
readln;
end.
c)
program tinh_tong;
uses crt;
var i,s:byte;
begin
clrscr;
s:=0;
for i:=1 to 15 do
begin
if i mod 2=1 then
s:=s+i;
end;
write(s);
readln;
end.
lệnh while...do
a)program tinh_tong;
uses crt;
var i,s:byte;
begin
clrscr;
s:=0;
i:=1;
while i<=9 do
begin
s:=s+i;
i:=i+1;
end;
write(s);
readln;
end.
b)program tinh_tong;
uses crt;
var i,s:byte;
begin
clrscr;
s:=0;
i:=1;
while i<=14 do
begin
if i mod 2=0 then
s:=s+i
else i:=i+1;
end;
write(s);
readln;
end.
c)
program tinh_tong;
uses crt;
var i,s:byte;
begin
clrscr;
s:=0;
i:=1;
while i<=15 do
begin
if i mod 2=1 then
s:=s+i
else i:=i+1;
end;
write(s);
readln;
end.
Đúng 1
Bình luận (0)
Bài toán tính tổng : S=1+1/2+1/3+...+1/100
a.Nêu thuật toán và viết chương trình sử dụng câu lệnh For...to...do
b.Nêu thuật toán và viết chương trình sử dụng câu lệnh While...do
a: uses crt;
var i,n:integer;
s:real;
begin
clrscr;
s:=0;
for i:=1 to 100 do s:=s+1/i;
writeln(s:4:2);
readln;
end.
b:
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
s:=0;
i:=0;
while i<=100 do
begin
inc(i);
s:=s+1/i;
end;
writeln(s:4:2);
readln;
end.
Đúng 0
Bình luận (0)
4. Viết các chương trình của một số bài toán sử dụng câu lệnh lặp While . . Do. c) P = 3. 5. 7 … X, với X là số lẻ được nhập từ bàn phím..
Program HOC24;
var p: longint;
i,x: integer;
Begin
write('Nhap X: '); readln(X);
p:=1;
for i:=3 to x do if i mod 2=1 then p:=p*i;
write('P = ',p);
readln
end.
Đúng 1
Bình luận (0)
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...
Đọc tiế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 ạ
Đúng 1
Bình luận (0)
Câu 2: Nêu cấu trúc và giải thích các thành phần của câu lặp lại while do
Câu 3: Em hãy nêu cú pháp yến mạc cho ví dụ
Câu 4:Viết Phương trình nhập vào 1 bảng a có n phần tử là số thực n cũng tự nhập vào bàn phím
Câu 5:Viết 1 đoạn phương trình thể hiện thuật toán sau (SGK-64)
-viết cấu trúc câu lệnh điều kiện . cho VD
- mô tả thuật toán cho bài toán tính tổng S= 1+2+3+...+50
viết chương trình pascal tính tổng của T:
T = \(\frac{1}{2}+\frac{1}{3}+\frac{1}{4}+...+\frac{1}{50}\)
đây là tin học lớp 8 nhé , mong mn giúp hộ
program chia;
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
s:=0;
for i:=2 to 50 do s:=s+1/i;
writeln('Tong la ',s:1:2);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình tính tích: S=7^3*8^3*9^3*....*n^3 Theo hai câu lệnh *While do *For do
Câu lệnh for ... do
program Tinh_Tich;
var
n, i: integer;
S: double;
begin
write('Nhap vao so nguyen N: ');
readln(n);
S := 1;
for i := 7 to n do
begin
S := S * i * i * i;
end;
writeln('Tich cac so 7^3*8^3*9^3*...*N^3 la: ', S);
readln;
end.
Câu lệnh while .... do
program Tinh_Tich;
var
n, i: integer;
S: double;
begin
write('Nhap vao so nguyen N: ');
readln(n);
S := 1;
i := 7;
while (i <= n) do
begin
S := S * i * i * i;
i := i + 1;
end;
writeln('Tich cac so 7^3*8^3*9^3*...*N^3 la: ', S);
readln;
end.
Đúng 2
Bình luận (0)
Viết c/trình Tính : S= 2/3 + 2/6 + 2/9 +...+2/36 Giải bằng câu lệnh while...do
Program HOC24;
var i,n: integer;
s: real;
begin
n:=3; s:=0;
while n<=36 do
begin
s:=s+2/n;
n:=n+3;
end;
write('S= ',S:1:2);
readln
end.
Đúng 0
Bình luận (0)
Sử dụng câu lệnh lặp while…do để viết chương trình sau: a) S= 1/1*2+1/2*3+...1/n*(n+1)
program Tinh_S;
var i,n:integer;
S:real;
begin
writeln('Nhap so n=') ; readln(n);
i:=1 ; S:=0;
while i<=n do
begin
S:=S+1/n*(n+1); i:=i+1;
end;
writeln('Tong S=',S);
readln
end.
Đúng 4
Bình luận (0)
program Tinh_S;
var i,n:integer;
S:real;
begin
writeln('Nhap so n=') ; readln(n);
i:=1 ; S:=0;
while i<=n do
begin
S:=S+1/n*(n+1); i:=i+1;
end;
writeln('Tong S=',S);
readln
end.
Đúng 1
Bình luận (0)
program tinh_tong_S;
var
n: integer;
i: integer;
S: real;
begin
write('Nhap n: ');
readln(n);
S := 0;
i := 1;
while i <= n do
begin
S := S + 1 / (i * (i + 1));
i := i + 1;
end;
writeln('Tong S la: ', S:0:2);
readln;
end.
Đúng 0
Bình luận (0)