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);
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.
Câu 1: Viết cú pháp lệnh khai báo biến mảng? Khai báo 2 biến x,y kiểu mảng có 50 phần tử nguyên. Câu 2: Viết chương trình nhập vào một dãy (mảng) gồm n số và in ra các số chia hết cho 3 đã nhập. Em hãy thực hiện các yêu cầu sau (không viết chương trình): - Em hãy xác định input, output của bài toán - Em hãy khai báo các biến sử dụng trong bài trên Câu 3: Viết chương trình nhập vào n, tính tổng S=1+2+..+n (bằng lệnh while) Giúp mình với đang cần gấp :
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;
viêt các câu lệnh theo yêu cầu. a, khai tên báo biến mảng cannang, với chỉ số đầu là 10, chỉ số cuối là 100,kiểu dữ liệu số thực. b, viết lệnh gán giá trị 20 cho phần tử thứ 7 của mảng A
a) var cannang:array[10..100] of real;
b) a[7]:=20;
Câu 1: Viết chương trình tổng của 100 số lẻ đầu tiên
Câu 2: Hãy viết các câu lệnh, kahi báo theo yêu cầu sau:
a) Khai báo mảng A gồm 5 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) Khai bào mảng dãy số gồm 50 phần tử theo dữ liệu số nguyên
d) Nhập giá trị cho phần tử thứ 2 trong mảng điền
(mink đag cần gấp)
Câu 1:
Câu 2:
a) A:array[1..5] of Real;
b) A[5]:=8;
c) A:array[1..50] of Integer;
d) Readln(A[2]);
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}")'''
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.
Viết câu lệnh theo yêu cầu: a) Sử dụng câu lệnh lặp in ra màn hình 10 câu tên của mình b) Khai báo tên mảng M, với chỉ số đầu là 1, chỉ số cuối là 100, kiểu dữ liệu số nguyên
a)
program TenCuaMinh;
var
i: integer;
begin
for i := 1 to 10 do
writeln('Tên của mình là: <tên>');
end.
b)
program MangSoNguyen;
var
M: array[1..100] of integer;
begin
end.
cứu với mai thi rồi huhu. Hãy viết các câu lệnh khai báo theo yêu cầu . Khai báo mảng A gồm 50 phần tử được gán giá trị là S .
