viết chương trình tính tổng các số tự nhiên lẻ từ 1 đến 100 với câu lệnh lặp với số lần biết trước và câu lệnh lặp với số lần chưa biết trước
(giúp mik vs mik cần gấp!!!)
Viết chương trình sử dụng câu lệnh lặp với số lần chưa biết trước để tính tổng của 100 số tự nhiên đầu tiên
program tong_100_so_tu_nhien;
uses crt;
var i, S: integer;
begin
S := 0;
for i := 1 to 100 do
S := S + i;
writeln('Tong cua 100 so tu nhien dau tien la ', S);
readln;
end.
Var i,s:integer;
Begin
i:=1;
s:=0;
While i<=100 do
Begin
s:=s+i;
i:=i+1;
End;
Write('Tong la ',s);
Readln;
End.
uses crt;
var i:integer;
begin
clrscr;
i:=1;
while i<=10 do
begin
if i mod 2=1 then write(i:4);
i:=i+1;
end;
readln;
end.
Câu 7: Nêu cú pháp câu lệnh lặp và cú pháp câu lệnh lặp với số lần chưa biết trước.
Câu 8: Viết chương trình tính tổng của N số tự nhiên đầu tiên, với N là số tự nhiên được nhập từ bàn phím.
Câu 9: Viết chương trình sử dụng lệnh lặp While..do để tính trung bình của n số thực x1, x2, x3,… xn. Các số n và x1, x2, x3,… xn được nhập vào từ bàn phím.
giupa nha các hảo hán !
uses crt;
var i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
i:=1;
t:=0;
while i<=n do
begin
if i mod 2=0 then t:=t+i;
i:=i+1;
end;
write(t);
readln;
end.
Viết cú pháp của câu lệnh lặp với số lần chưa biế trước. Giải thích cú pháp của câu lệnh lặp với số lần chưa biết trước ? Vẽ sơ đồ hoạt động của câu lệnh lặp với số lần chưa biết trước
*Cú pháp: While <điều kiện> do <câu lệnh>;
*Trong đó
Cú pháp: While <điều kiện> do <câu lệnh>;
Trong đó:
While, do là các từ khóa
Điều kiện thường là một phép so sánh
Câu lệnh có thể là một câu lệnh đơn hoặc một câu lệnh ghép
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.
Viết chương trình nhập N số nguyên từ bàn phím in các số lẻ ra màn hình(sử dụng câu lệnh lặp với số lần biết trước)
Uses crt;
var n,i: integer;
begin clrscr;
readln(n);
for i:=1 to n do if( i mod 2<>0) then write(i:3);
readln;
end.
uses crt;
var i,n:longint;
begin
writeln('nhap n'); readln(n);
for i:=1 to n do if i mod 2 =1 then
writeln(i);
readln;
end.
ngu ththế mà cũng ko làm được về lớp 1 mà học
Viết chương trình tính:
- Tổng n số tự nhiên đầu tiên với n nhập từ bàn phím bằng câu lệnh với số lần lặp biết trước. (for… do).
- Tích các số từ 5 đến 30.
- Chu vi, diện tích hình chữ nhật, hình tròn, hình thang với các kích thước được nhập từ bàn phím.
Mình đang cần gấp
Tổng n số tự nhiên đầu tiên:
Var i,n,s:integer;
Begin
Write('n = ');
for i:=1 to n do
s:=s+i;
Write('Tong la ',s);
Readln
End.
Tích các số từ 5 đến 30
Var i,p:longint;
Begin
p:=1;
For i:=5 to 30 do
P:=p*i;
Write('Tich la ',p);
Readln
End.
Chu vi, diện tích hình chữ nhật:
var a,b,p,s:real;
begin
write('Chieu dai hcn = ');readln(a);
write('Chieu rong hcn = ');readln(b);
p:=(a+b)*2;
s:=a*b;
writeln('Chu vi hcn la ',p:10:2);
write('Dien tich hcn la ',s:10:2);
readln
end.
------------------------------------------------------------
Chu vi, diện tích hình tròn:
var r,c,s:real;
begin
write('Ban kinh = ');readln(r);
c:=2*3.14*r;
s:=3.14*r*r;
writeln('Chu vi hinh tron la ',c:10:2);
write('Dien tich hinh tron la ',s:10:2);
readln
end.
---------------------------------------------------
Chu vi, diện tích hình thang:
var dl,dn,cb1,cb2,h,p,s:real;
begin
write('Day lon = ');readln(dl);
write('Day be = ');readln(db);
write('Chieu cao = ');readln(h);
write('Canh ben thu nhat = ');readln(cb1);
write('Canh ben thu hai = ');readln(cb2);
p:=dl+db+cb1+cb2;
s:=(dl+db)*h/2;
writeln('Chu vi hinh thang la ',p:10:2);
write('Dien tich hinh thang la ',s:10:2);
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;