Lời giải:
Đoạn lệnh :
tb:=0;
for i:=1 to 5 do tb:=tb+a[i];
=> tb=1(gt đề cho)+4(gt đề cho)+7(gt đề cho)+2(gt đề cho)+6(gt đề cho)=20
Vậy đoạn lệnh kết thúc với tb=20
Câu 1: Khai báo mảng gồm 100 phần tử Câu 2: Nếu vòng lặp for...do in ra màn hình các số 1 2 3...19 20 Câu 3: Vòng lặp sau cho kết quả là bao nhiêu? S=1; for i:=1 to 4 do S:=S*2; Câu 4: Nêu 3 ví dụ về: a/Vòng lặp chưa biết trước số lần lặp b/Vòng lặp biết trước số lần lặp
Em hãy in ra các phần tử chẵn có trong mảng, biết số phần tử của mảng và giá trị của các phần tử của mảng được nhập từ bàn phím.
Bạn Tuấn viết chương trình như sau:
program Tinh toan
uses crt;
var
x, y : integer;
tb = real;
thongbao : integer;
const a := 2;
begin
clrscr;
thongbao := ‘Trung binh cong cua hai so x va y la: ‘;
write(‘Nhap gai tri cho x = ‘); readln(x);
write(‘Nhap gia tri cho y = ‘); readln(y);
tb = (x+y)/a;
writeln(thongbao, tb:2:1);
readln;
end.
a. Có một vài câu lệnh bạn Tuấn viết sai, em hãy viết lại cho đúng.
b. Hãy phân biệt tên biến, tên hằng trong chương trình trên.
viết chương trình pascal sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số. độ dài của dãy cũng được nhập từ bàn phím . tính giá trị trung bình của dãy số được nhập vào?
Sử dụng biến mảng để ghi ra màn hình tổng biến mảng và các phần tử nhỏ hơn tổng biến mảng Aigiups em với mai thi rồi
Sử dụng biến mảng viết chương trình nhập n số nguyên từ bàn phím. sau đó đến xem trong mảng có bao nhiên phần tử dương.
Viết ct khai báo biến mảng nhập số N nhập giá trị, tính tổng các số lớn hơn 10 có trong dãy in kết quả
Hưỡng dẫn
Var I, n: integer;
A:array [1.. 100] of integer;
For i:= 1 to n do
Tổng=0
For i:= 1 to n do
If m[i] >10 then
Tổng:= tong + m[i]
For i:= 1 to n do
giá trị của biến c sau khi thực hiện đoạn chương trình sau
a:= 20;b:21
if a+b<41then c:=a-b else b:=b-a;
a,1
b,41
c,-1
d không xác định
ìm hiểu đoạn chương trình sau đây. Khồng cần viết chương trình,hãy cho biết lệnh writeln in ra màn hình giá trị của i,j,k là bao nhiêu?
i:=1;j:=2;k:=3;
while i<=6 do
begin i:=i+1; j:=j+1; k:=k+j; end;
space:=' '
write(I,space,j,space,k);
