Viết chương trình pascal tính tổng S=1+ 2+ 3 +... +1980?
a,Bằng lệnh for...do
b,Bằng lệnh while...do
Viết chương trình pascal tính tổng S=1+ 2+ 3 +... +1980?
a,Bằng lệnh for...do
b,Bằng lệnh while...do
a, Với lệnh For..do:
Var i:integer;
S:real; (Hoặc S:longint);
Begin
S:=0;
For i:=1 to 1980 do S:=S+i;
Writeln('Vay tong cua S=',S);
Readln
End.
*In đậm: Bạn có thể chọn 1/2 cách với S:real hay S: longint. Chỉ là nếu bạn muốn nhìn dễ hiểu hơn thì tùy bạn. H/ảnh minh họa như dưới đây :D (Đã thử và áp dụng cách này với For...do)
b, Với lệnh While...do
Var i:integer;
S:real;
Begin
S:=0; i:=0;
While i<=1980 do
Begin
S:= S+i;
i:= i+1;
End;
Writeln('Vay tong cua S=',S);
Readln
End.
*In đậm: Cũng có thể dùng S:longint (70-80% đúng) thay vì S:real (100% đúng). Nhưng khuyến cáo nên sử dụng S:real (Đã thử và áp dụng tương đối chính xác với While...do)
Good luck for you!!! :D
a) uses crt;
var s,i:longint;
begin
clrscr;
s:=0;
for i:=1 to 1980 do
s:=s+i;
writeln(s);
readln;
end.
b) uses crt;
var s,i:longint;
begin
clrscr;
s:=0;
i:=1;
while i<=1980 do
begin
s:=s+i;
i:=i+1;
end;
writeln(s);
readln;
end.
in ra các số từ 1 đến n (vs n đc nhập từ bàn phím)
uses crt;
var i,n: longint;
begin
clrscr;
readln(n);
for i:=1 to n do write(i,' ');
readln
end.
Uses crt;
Var a,b,n:integer; {Với a,b phải là số nhỏ thì dùng với kiểu integer}
Begin
Writeln('Nhap so n la:'); Readln(n);
a:=0; b:=0;
While a<=n do
Begin
b:=b+a;
a:=a+1; {Chỉ áp dụng với tổng các số liên tiếp}
end;
Writeln('Vay tong cac so tu 1 -> ',n,' la:',b);
Readln
End.
Bài mẫu của mình đây nhé!
uses crt;
var i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
write(i:4);
readln;
end.
viết chương trình in ra tổng các số nhỏ hơn hoặc bằng n ( với n đc nhập) mai phải thi r mn giúp mk vs
Uses crt;
Var a,b,n:integer; {hoặc real,longint {tùy vào đơn vị của các số có nhỏ hay lớn}}
Begin
Writeln('Nhap so n la:'); Readln(n);
a:=0; b:=0;
While a<=n do
Begin
b:=b+a;
a:=a+1; {chỉ áp dụng khi tính tổng liên tiếp từ 1->n, không áp dụng tính tổng các số chẵn}
end;
Writeln('Vay tong cac so tu 1 -> ',n,' la:',b);
Readln
End.
*Nếu bạn muốn giải theo cách for..do hay tính tổng các số chẵn hay gì gì đó liên quan đến Tin học thì bảo mình nhé* Good luck for you :D :D
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
t:=t+i;
writeln(t);
readln;
end.
Nhập từ bàn phím số thực x biểu diễn điểm HS (0≤x≥10) và được làm tròn 1/4 điểm. Vd: các số nhập vào hợp lệ: 7.25, 6.5, 9.0, 8.75. Chương trình cảnh báo số nhập vào không hợp lệ và yêu cầu nhập lại và chỉ kết thúc khi số hợp lệ được nhập.
uses crt;
var x:real;
begin
clrscr;
repeat
write('Nhap diem:'); readln(x);
until (0<=x) and (x<=10) and ((frac(x)=25) or (frac(x)=5) or (frac(x)=75) or (frac(x)=0));
writeln(x:4:2);
readln;
end.
uses crt;
var i,dv,ch,tr,a:integer;
begin
clrscr;
for i:=0 to 999 do
begin
a:=i;
dv:=a mod 10;
ch:=a div 10; ch:=ch mod 10;
tr:=a div 100;
if dv*dv*dv+ch*ch*ch+tr*tr*tr=a then write(a:4);
end;
readln;
end.
nghe tui
khai bào tự viết
p:=1; k:=1;
for i:=0 to 999 do
begin
s=i;
while s>0 do
begin
p:=p+1;
a[p]:=s mod 10;
s:=s div 10;
if (p=1) and (a[1]*a[1]*a[1]=i) then begin b[k]:=i; k:=k+1; end;
if (p=2) and (a[1]*a[1]*a[1]+a[2]*a[2]*a[2]=i) then begin b[k]:=i; k:=k+1; end;
if (p=3) and (a[1]*a[1]*a[1]+a[2]*a[2]*a[2]+a[3]*a[3]*a[3]=i) then begin b[k]:=i; k:=k+1; end;
p:=1;
end;
end;
for i:=1 to k do
write(b[i]);
program tim_so;
uses crt;
var a,b,c:word;
begin
clrscr;
for a:=0 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
if a*a*a+b*b*b+c*c*c=a*100+b*10+c then writeln(a*100+b*10+c);
readln;
end.
Tìm các số trong khoảng từ 0 đến 999 bằng tổng lập phương các chữ số của nó .
uses crt;
var i,dv,ch,tr,a:integer;
begin
clrscr;
for i:=0 to 999 do
begin
a:=i;
dv:=a mod 10;
ch:=a div 10; ch:=ch mod 10;
tr:=a div 100;
if dv*dv*dv+ch*ch*ch+tr*tr*tr=a then write(a:4);
end;
readln;
end.
Câu 2:
uses crt;
var i,s:integer;
begin
clrscr;
s:=0;
for i:=1 to 45 do
s:=s+i;
writeln(s);
readln;
end.
Viết chương trình nhập và tính tổng các số nguyên khi nào nhập vào số 0 thì dừng lại và thông báo tổng các số đã nhập
uses crt;
var a,t:integer;
begin
clrscr;
t:=0;
repeat
write('Nhap a='); readln(a);
t:=t+a;
until a=0;
writeln(t);
readln;
end.
Viết chương trình tính tổng 1/1*4 +1/4*7 +1/7 +10 1/n*(n+3)
mọi người giải gấp hộ mình tối nay mình hc đội tuyển r
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+1/(i*(i+3));
writeln(s:4:2);
readln;
end.
Viết chương trình tính tổng các số tự nhiên lẻ (chẳn) đầu tiên cho đến khi tổng
đó bằng 1000 thì dừng lại.
Giúp mik vì mai mik kt rùi :((