Cho ví dụ về khai báo 1 mảng một chiều gồm 500 phần tử mỗi phần tử có kiểu dữ liệu là số thực
Những câu hỏi liên quan
Khai báo một biến SoHS trong lớp học gồm 40 phần tử .Khai báo một biến mảng A,B gồm có 50 phần tử , các phần tử có kiểu dữ liệu số nguyên.Khai báo một biến có tên chiều cao trong lớp gồm 20 phần tử
22 tháng 4 2023 lúc 20:22
Khai báo 1 biến có tên là SoHS trong lớp học gồm 40 phần tử.
Khai báo mảng A, B gồm có 50 phần từ, các phần tử có kiểu dữ liệu số nguyên.
Khai báo một biến có tên là chieucao trong lớp học gồm 20 phần tử.
Viết chương trình thực hiện các yêu cầu sau :
a,Khai báo biến mảng DTB có số phần tử bằng sĩ số lớp em , các phần tử có kiểu dữ liệu số thực
b,Nhập dữ liệu cho mảng DTB từ bàn phím
c,Tính tổng giá trị các phần tử trong mảng
d,Thông báo kết quả ra màn hình
Giúp mình với , làm bằng pascal nhé!
'''python
a. DTB = []
siso = int(input("Nhập số lượng học sinh trong lớp: "))
b. for i in range(siso):
diem = float(input(f"Nhập điểm của học sinh thứ {i+1}: "))
DTB.append(diem)
c. tong=sum(DTB)
d. print(f"Tổng điểm của lớp là: {tong}")'''
Đúng 0
Bình luận (0)
viết chương trình thực hiện yêu cầu sau khai báo biến mảng tên là B gồm tối đa 25 phần tử, các phần tử có kiểu là số nguyên,sau đó nhập dữ liệu từ bàn phím vào mảng ?
uses crt;
var b:array[1..25]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('B[',i,']='); readln(b[i]);
end;
readln;
end.
Đúng 0
Bình luận (0)
Câu 1 : hãy viết các câu lệnh trong pascal thực hiện các yêu cầu sau a) Khai báo mảng A gồm 50 phần tử thuộc kiểu dữ liệu số thực b) Phần tử thứ năm của mảng A được gắn giá trị là 8 c) Viết câu lệnh lặp nhập giá trị cho 50 phần tử trong mảng A và in ra màn hình giá trị của 50 phần tử đã nhậpCâu 2: Viết chương trình tính tổng 10 số tự nhiên đầu tiênCâu 3: Cho mảng A chứa các giá trị sauA1713201015I37567a) Xác định các giá trị của A[2];A[4];A[7];A[9] là bao nhiêub) Cho các câu lệnh sau:A[2]: A[3]...
Đọc tiếp
Câu 1 : hãy viết các câu lệnh trong pascal thực hiện các yêu cầu sau
a) Khai báo mảng A gồm 50 phần tử thuộc kiểu dữ liệu số thực
b) Phần tử thứ năm của mảng A được gắn giá trị là 8
c) Viết câu lệnh lặp nhập giá trị cho 50 phần tử trong mảng A và in ra màn hình giá trị của 50 phần tử đã nhập
Câu 2: Viết chương trình tính tổng 10 số tự nhiên đầu tiên
Câu 3: Cho mảng A chứa các giá trị sau
| A | 17 | 13 | 20 | 10 | 15 |
| I | 3 | 7 | 5 | 6 | 7 |
a) Xác định các giá trị của A[2];A[4];A[7];A[9] là bao nhiêu
b) Cho các câu lệnh sau:
A[2]:= A[3] + A[5];
A[9]:= A[6] + A[7];
Dựa vào bảng trên hãy tính giá trị các phần tử A[2], A[9]
Giúp em với ạ chiều nay thi rồi huhu
Câu 1:
a) var a:array[1..50]of real;
b) a[5]:=8;
c) for i:=1 to 50 do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to 50 do
write(a[i]:4);
Đúng 1
Bình luận (0)
Câu 2:
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 10 do
s:=s+i;
writeln(s);
readln;
end.
Đúng 1
Bình luận (0)
a. cho mảng DIEM gồm 200 phần tử thuộc kiểu dữ liệu số thực, viết công thức khai báo biến mảng DIEM?
b. Cho mảng X gồm 200 phần tử thuộc kiểu dữ liệu số nguyên, viết công thức khai báo biến mảng X?
a: var diem:array[1..200]of real;
b) var x:array[1..200]of integer;
Đúng 0
Bình luận (0)
viết chương trình khai báo và nhập dữ liệu tự bàn phím cho mảng a có tối đa 100 phần tử các, mỗi phần tử là số nguyên
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
readln;
end.
Đúng 1
Bình luận (0)
hãy viết câu lệnh,khai báo theo yêu cầu sau:
a.khai báo mảng a có tối đa 50 phần tử thuộc kiểu dữ liệu số thực
b.phần tử thứ 5 của mảng a được gán giá trị là 8
c.nhập giá trị cho phần tử thứ 2 trong mảng a
d. nếu số a ko chia hết cho 2 thì số đó là số lẻ
a) var a:array[1..50]of real;
Đúng 0
Bình luận (0)
Xem thêm câu trả lời
Cho mảng 1 chiều mảng A gồm 20 phần tử các phần tử kiểu số nguyên dương.Viết chương trình thực hiện các yêu cầu sau
a:Nhập dữ liệu cho mảng từ bàn phím
b:Tính và hiển thị ra màn hình tổng các phần tử của mảng
c:Cho biết mảng có bao nhiêu số chẵn
Xem chi tiết
uses crt;
var a:array[1..20]of integer;
i,n,t,dem:integer;
begin
clrscr;
for i:=1 to 20 do
begin
repeat
write('A[',i,']='); readln(a[i]);
until a[i]>0;
end;
t:=0;
for i:=1 to 20 do
t:=t+a[i];
writeln('Tong cac so trong mang la: ',t);
dem:=0;
for i:=1 to 20 do
if a[i] mod 2=0 then inc(dem);
writeln('Trong mang co ',dem,' so chan');
readln;
end.
Đúng 1
Bình luận (0)