Chức năng của câu lệnh là nhập giá trị cho từng phần tử của mảng A
Đúng 1
Bình luận (0)
Các câu hỏi tương tự
Program bai; Var n,i: integer; A: Array[1..50]of integer; Begin Writa('nhap n='); Readln(n); For i:=1 to n do begin wrote ('A[' ,i, ']='); readln(A[i]); end; For i:=1 to n do if A[i]>0 then write(a[i], ' '); Readln; End. Biến n,i trong chương trình trên dùng dể làm gì?
Program bai; Var n,i: integer; A: Array[1..50]of integer; Begin Writa('nhap n='); Readln(n); For i:=1 to n do begin wrote ('A[' ,i, ']='); readln(A[i]); end; For i:=1 to n do if A[i]>0 then write(a[i], ' '); Readln; End. Mảng A trong chương trình trên có số phần tử tối đa là bao nhiêu
uses crt; var i,S:Integer; begin clrscr; (1) for i:=1 to 50 do (2) if (i mod 2=0) then S:=S+i; (3) writeln('S=',S); (4) readln; (5) end. CÂU HỎI: a) Chương trình trên đang thực hiện công việc gì ? b) Cho biết ý nghĩa của câu lệnh (3),(4),(5).
BÀI THỰC HÀNHTuần 25 (Tiết 1)Bài 1: Cho mãng gồm n phần tử là số thực.a.Tìm hai phần tử liên tiếp nhau có tổng bằng n.b. Tính khoảng cáhc giữa hai vị trí của phần tửlớn nhất và bé nhất đầu tiên trên A.{Chương trình}Program Tuan25_Bai1;Uses crt;VarA: array[1…..100] of real;Max, min : realI, n, Vtmax, Vtmin integer;BeginWriteln(‘nhap n:’); readln(n);For i: 1 to n do;BeginWrite(‘[‘,I,’]’); readln(A[i]);End.i:1;{Tìm hai phần tử liên tiếp nhau có tổng bằng n}While (A[i] + A[i+1]) n) and (i n-1) do...
Đọc tiếp
BÀI THỰC HÀNH
Tuần 25 (Tiết 1)
Bài 1: Cho mãng gồm n phần tử là số thực.
a.Tìm hai phần tử liên tiếp nhau có tổng bằng n.
b. Tính khoảng cáhc giữa hai vị trí của phần tửlớn nhất và bé nhất đầu tiên trên A.
{Chương trình}
Program Tuan25_Bai1;
Uses crt;
Var
A: array[1…..100] of real;
Max, min : real
I, n, Vtmax, Vtmin = integer;
Begin
Writeln(‘nhap n:’); readln(n);
For i: 1 to n do;
Begin
Write(‘[‘,I,’]=’); readln(A[i]);
End.
i:=1;
{Tìm hai phần tử liên tiếp nhau có tổng bằng n}
While (A[i] + A[i+1]) <> n) and (i<= n-1) do i:=i+1
If i>=n then write (‘hai phan tu co chi so la:’,i,’ va’,i+1);
{Tính khoảng cáhc giữa hai vị trí của phần tử lớn nhất và bé nhất đầu tiên trên A}
Max=A[1];
Min:A[1];
For i:1 to n do
If max < A[i] then
Begin
Vtmax:= i; Max:=A[i];
End
If min > A[i] then
Begin
Vtmin: i; Min=A[i];
End
Writeln (‘khoangr cach giua 2 phan tu max vaf min la:’,abs(Vtmax – Vtmin));
Readln;
End
Để nhập dữ liệu cho mảng a gồm 100 phần tử ra màn hình ta dùng câu lệnh: *
A.For i:= 1 to 100 do writeln(a[i]);
B For i:= 1 to 100 do readln(a[i]);
Chiyeen câu lệnh for i:=1 to n do if A[i]>0 then write(A[i],' '); thành câu lệnh while..do?
cho biết số vòng lặp và giá trị của biến s sau khi thực hiện đoạn chương trình: a) S:0; For i:2 to 8 do S :S+i b) S:0; n:1;For i:1 to 6 do Begin S:S+n; n:n+i; end;c) S:2;For i:1 to 10 do If(i mod 2)0 then S:S+i;d) S:0; i: 1,5;While S7 do S:S+i;e) S:0; i:1;While i9 do Begin S:S+i; i:i+2; End;f) S:2; i:1;While i 10 doBeginIf (i mod 2) then S:S+i; i:i+1;End;
Đọc tiếp
cho biết số vòng lặp và giá trị của biến s sau khi thực hiện đoạn chương trình: a) S:=0;
For i:=2 to 8 do S :=S+i
b) S:=0; n:=1;
For i:=1 to 6 do
Begin
S:=S+n;
n:=n+i;
end;
c) S:=2;
For i:=1 to 10 do
If(i mod 2)=0 then S:=S+i;
d) S:=0; i:= 1,5;
While S<7 do S:=S+i;
e) S:=0; i:=1;
While i<9 do
Begin
S:=S+i;
i:=i+2;
End;
f) S:=2; i:=1;
While i<= 10 do
Begin
If (i mod 2) then S:=S+i;
i:=i+1;
End;
Trong câu lệnh lặp for i:=1 to 20 do begin s:=s+i; end; câu lệnh gán được thực hiện bao nhiêu lần? A. Không lần nào B. 1 lần C. 2 lần D. 20 lần
Uses crt; Var i,t: integer; Begin Clrscr; t:=0; i:=0; t:=t+i; i:=i+1; Begin Readln; Write('tong các so chan nho hon 50 la',t); End; End. A)if mod 2=0 then B)while i