Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
*Câu lệnh For..do
Dạng xuôi: for <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;
*Câu lệnh For..do
Dạng ngược: For <biến đếm>:=<giá trị cuối> downto <giá trị đầu> do <câu lệnh>;
uses crt;
var a,b:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
writeln('Hieu cua hai so la: ',a-b);
readln;
end.
Tham khảo
-Dữ liệu kiểu mảng là một tập hợp hữu hạn các phần tử có thứ tự, mọi phần tử đều có chung một kiểu dữ liệu, gọi là kiểu của phần tử. Việc sắp xếp thứ tự được thực hiện bằng cách gán cho mỗi phần tử một chỉ số.
-Khi khai báo một biến có kiểu dữ liệu là kiểu mảng, biến đó được gọi là biến mảng.
Có 2 cách khai báo mảng:
C1: Khai báo trực tiếp
VAR <Tên biến>:array[<chỉ số đầu>,<chỉ số cuối>] of <kiểu dữ liệu>;
VD:a:array[1..50] of string;
C2:Khai báo gián tiếp
Type <Tên biến>=array[<chỉ số đầu>,<chỉ số cuối>] of <kiểu dữ liệu>;
Var <Tên mảng>:<Tên biến>;
VD:
Type mang=[1..100] of integer;
Var A:mang;
công thức tính tổng: (số đầu + số cuối). số số hạng : 2
công thức tính số số hạng : ( số cuối - số đầu) : khoảng cách +1
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.
Câu 1:
i có giá trị là 12;13;14
Câu 2:
i có giá trị là 4 và 5