1. Hãy nêu cú pháp khai báo biến mạng trong pascal
a) Giải thích cú pháp khai báo biến mạng trong pascal
b)Cho ví dụ về khai báo biến mạng.
2. Viết trương trình tính tổng từ 1 đến 50.
Giúp mình với ạ ❤️
Mình cảm ơn ạ
1. Hãy nêu cú pháp khai báo biến mạng trong pascal
a) Giải thích cú pháp khai báo biến mạng trong pascal
b)Cho ví dụ về khai báo biến mạng.
2. Viết trương trình tính tổng từ 1 đến 50.
Giúp mình với ạ ❤️
Mình cảm ơn ạ
Câu 1:
a. var <tên biến>:array[<chỉ số đầu>..<chỉ số cuối>] of <kiểu dữ liệu>;
<tên biến>: bạn đặt.
<chỉ số đầu>: là số nguyên và phải nhỏ hơn chỉ số cuối.
<chỉ số cuối>: là số nguyên và phải lớn hơn chỉ số đầu.
<kiểu dữ liệu>: ví dụ integer là kiểu số nguyên, real là kiểu số thực,..
b. Ex: a:array[1..100] of integer;
Câu 2:
program dev;
uses crt;
var i,s:integer;
begin
clrscr;
s:=0;
for i:=1 to 50 do s:=s+i;
write(‘Tong: ‘,s);
readln;
end.
1. Cú pháp: var <tên biến mảng> : array[<chỉ số đầu>..<chỉ số cuối>] of <kiểu dữ liệu>;
a) Giải thích:
+<tên biến mảng> tên mảng. VD: a,mang,…
+<chỉ số đầu> là số nguyên cho biết chỉ số bắt đầu trong phạm vi của mảng.
+<chỉ số cuối> là số nguyên lớn hơn hoặc bằng chỉ số đầu cho biết chỉ số kết thúc trong phạm vi của mảng.
+<kiểu dữ liệu> Là kiểu giá trị của các phân tử. VD: char(kí tự), integer(số nguyên),…
b) Vd:
+ var a:array[1..1000000]of longint;
+ mang:array[1..1000000]of char;
…
Bài 2:
uses crt;
var s,i:longint;
begin
clrscr;
s:=0;
for i:=1 to 50 do s:=s+i;
writeln(‘Tong cac so tu 1 den 50: ‘,s);
readln
end.