Bài 9. Làm việc với dãy số
Các câu hỏi tương tự
1.
a, Cho đoạn chương trình sau:
x:=0;
For j:=1 To 6 Do x:=x+j;
Hãy chuyển sang lệnh WHILE...DO viết thành chương trình hoàn chỉnh và cho biết giá trị x bằng bao nhiêu?
b. Cho đoạn chương trình sau:
x:=0; j:=0;
While j<= 6 Do begin x:=x+j;j:=j + 1; end;
Hãy chuyển sang lệnh FOR...TO...DO, viết thành chương trình hoàn chỉnh và cho biết giá trị x là bao nhiêu?
Cách khai báo sau đây là đúng hay sai? Nếu sai hãy sửa lại:
Var x:array [10,13] of integer;
S:=0; n:=0; while S < for do n:=n + 1; S:= s+n
For i:=1 to 10 do; writeln ('A')
Var x: real; begin for x:=1 to 10 do writeln ('A'); end.
1/ Các câu lệnh trên có hợp lệ không , nếu chưa hợp lệ thì hãy sửa lại cho đúng ?
a/ For i:1,5 to 10.5 do s:s+i;
b/ Var X : array [100..1] of integer;
c/ X:1 ; while X:10 do X:X+5;
d/For i:1 to n do begin s:s+i ; i:i-1;
2/Hãy viết các câu lệnh , khai báo theo yêu cầu sau :
a/ Khai báo mảng X gồm 50 phần tử thuộc kiểu dữ liệu số nguyên
b/ Phần tử thứ 9 của mảng A được gán bằng 5
c/Khai báo mảng diemtin gồm 100 phần tử thuộc kiểu dữ liệu số thực
d/ Nhập giá trị phần tử thứ 5 trong mảng...
Đọc tiếp
1/ Các câu lệnh trên có hợp lệ không , nếu chưa hợp lệ thì hãy sửa lại cho đúng ?
a/ For i:=1,5 to 10.5 do s:=s+i;
b/ Var X : array [100..1] of integer;
c/ X:=1 ; while X:=10 do X:=X+5;
d/For i:=1 to n do begin s:=s+i ; i:=i-1;
2/Hãy viết các câu lệnh , khai báo theo yêu cầu sau :
a/ Khai báo mảng X gồm 50 phần tử thuộc kiểu dữ liệu số nguyên
b/ Phần tử thứ 9 của mảng A được gán bằng 5
c/Khai báo mảng diemtin gồm 100 phần tử thuộc kiểu dữ liệu số thực
d/ Nhập giá trị phần tử thứ 5 trong mảng diemtin
Giúp mình với , mai mình thi r ~~~
* Chữa sai thành đúng:
a, Var const:=2;b:=10;
b, Var thu_tu,so_luong:Integer;real;
c, For i:=1,5 to 10 do writeln ('A');
d, While x=10 do x=x+3;
e, Var A: array[1..100] of real;
g, If m>n; then m:=m-n
Mọi người ơi giúp mình được k ạ? Mình đang cần gấp huhu
Em hãy sắp xếp các câu lệnh sau và viết lại thành 1 chương trình hoàn chỉnh . Sau đó cho biết chương trình đó thực hiện công việc gì ? Writeln ( Tong cac phan tu le trong mang la : , tle ) ;
End.
Program Bai _ tap _ day _ so ;
If a [ i ] mod 2 0 then chan : tchan + a [ i ] Readln ;
a:array [ 1 . . 100 ] of Integer ;
Begin
Clrscr ;
write ( Nhap so phan tu cua mang : ) ; Readln ( n ) ;
For i : 1 to n do readln ( a [ i ] ) ;
For i : 1 to n do
Write ( Nhap phan thu thu...
Đọc tiếp
Em hãy sắp xếp các câu lệnh sau và viết lại thành 1 chương trình hoàn chỉnh . Sau đó cho biết chương trình đó thực hiện công việc gì ? Writeln ( ' Tong cac phan tu le trong mang la : ' , tle ) ;
End.
Program Bai _ tap _ day _ so ;
If a [ i ] mod 2 = 0 then chan : = tchan + a [ i ] Readln ;
a:array [ 1 . . 100 ] of Integer ;
Begin
Clrscr ;
write ( ' Nhap so phan tu cua mang : ' ) ; Readln ( n ) ;
For i : = 1 to n do readln ( a [ i ] ) ;
For i : = 1 to n do
Write ( ' Nhap phan thu thu ' i ) ;
Writeln ( ' Tong cac phan tu chan trong mang la : ' , tchan ) ;
Begin
End ;
tchan : = 0 ; tle : = 0 ;
Else tle : = tle + a [ i ] ;
Uses crt ;
Var i , n , tchan , tle : Integer ;
Cho đoạn CT sau:
j:= 3; k:= 5;
for i:= 1 to 10 do j:= j+1;
k:= k+ j;
cach:= ‘ ‘;
writeln(j, cach, k);
Tính j và k trong đoạn CT trên
uses crt;
var n, i:integer;
begin
clrscr;
write(Nhap vao mot so nguyen:)
readln(n);
if n1 then writeln(n, khong la so nguyen to,)
else
begin
i:2;
while (n mod i0) do i:i+1;
if in then writeln(n, la so nguyen to)
else writeln(n, khong la so nguyen to,);
end;
readln
end.
a) Nêu công dụng của từng câu lệnh trong chương trình theo thứ tự từ 1 đến 16
b) Theo em, khi nhập vào số 9 thì chương trình sẽ xuất thông báo gì?
c) Theo em, khi nhập vào số 131 thì chương trình sẽ xuất thông bá...
Đọc tiếp
uses crt;
var n, i:integer;
begin
clrscr;
write('Nhap vao mot so nguyen:')
readln(n);
if n<=1 then writeln(n,' khong la so nguyen to,)
else
begin
i:=2;
while (n mod i<>0) do i:=i+1;
if i=n then writeln(n,' la so nguyen to')
else writeln(n,' khong la so nguyen to,);
end;
readln
end.
a) Nêu công dụng của từng câu lệnh trong chương trình theo thứ tự từ 1 đến 16
b) Theo em, khi nhập vào số 9 thì chương trình sẽ xuất thông báo gì?
c) Theo em, khi nhập vào số 131 thì chương trình sẽ xuất thông báo gì?
ĐỀ CƯƠNG ÔN TẬP TIN HỌC 8
I-Câu lệnh lặp
Câu 1: Nêu cấu trúc và hoạt động của câu lệnh lặp biết trước For...do
Câu 2: Tìm giá trị của S trong đoạn chương trình sau:
S:0
For i: 1 to 5 do S: S+i;
Câu 3: Sau khi thực hiện chương trình sau giá trị S bằng bao nhiêu?
S:0
For i: 1 to 5 do
S: S*i;
Câu 4: Viết chương trình tính tổng n số nguyên được nhập từ bàn phím
II-Lặp với số lần chưa biết trước
Câu 5: Nêu cấu trúc và hoạt động của câu lệnh lặp chưa biết trước While...do
Câu 6: Cho biết...
Đọc tiếp
ĐỀ CƯƠNG ÔN TẬP TIN HỌC 8
I-Câu lệnh lặp
Câu 1: Nêu cấu trúc và hoạt động của câu lệnh lặp biết trước For...do
Câu 2: Tìm giá trị của S trong đoạn chương trình sau:
S:=0
For i:= 1 to 5 do S:= S+i;
Câu 3: Sau khi thực hiện chương trình sau giá trị S bằng bao nhiêu?
S:=0
For i:= 1 to 5 do
S:= S*i;
Câu 4: Viết chương trình tính tổng n số nguyên được nhập từ bàn phím
II-Lặp với số lần chưa biết trước
Câu 5: Nêu cấu trúc và hoạt động của câu lệnh lặp chưa biết trước While...do
Câu 6: Cho biết kết quả đoạn chương trình sau:
a:=10;
While a>=10 do write(a);
Câu 7: Khi thực hiện chương trình sau câu lệnh "xin chao" được in ra màn hình mấy lần?
n:=1;
whlie n<=10 do
begin
n:=n+1;
writeln('xin chao');
end;
III-Làm việc với dãy số
Câu 8: Dữ liệu kiểu mãng là gì?
Câu 9: Nêu cú pháp và các thành phần của khai báo biến mảng
Câu 10: Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của 1 dãy. Độ dài của dãy cũng được nhập từ bàn phím
Câu 11: Viết chương trình nhập n số nguyên từ bàn phím và in ra số lớn nhất trong dãy, n cũng được nhập từ bàn phím
TD
22 tháng 9 2018 lúc 9:23
Viết chương trình nhập n số nguyên từ bàn phím. Đếm các số vừa chia hết cho 2 vừa chia hết cho 3. In kết quả ra màn hình các số thỏa mãn điều kiện trên.
program chia_het;
uses crt;
var n,i:integer;
a:array[1..100] of integer;
begin
clrscr;
write(Nhap so phan tu co trong day:);readln(n);
for i:1 to n do begin
writeln(Nhap phan tu thu ,i, cua day:);readln(a[i]);
end;
for i:1 to n do begin
if (a[i] mod 20) and (a[i] mod 30)
then writeln(Phan tu chia het cho 2 va 3 la:,a[i])
end;
read...
Đọc tiếp
Viết chương trình nhập n số nguyên từ bàn phím. Đếm các số vừa chia hết cho 2 vừa chia hết cho 3. In kết quả ra màn hình các số thỏa mãn điều kiện trên.
program chia_het;
uses crt;
var n,i:integer;
a:array[1..100] of integer;
begin
clrscr;
write('Nhap so phan tu co trong day:');readln(n);
for i:=1 to n do begin
writeln('Nhap phan tu thu ',i,' cua day:');readln(a[i]);
end;
for i:=1 to n do begin
if (a[i] mod 2=0) and (a[i] mod 3=0)
then writeln('Phan tu chia het cho 2 va 3 la:',a[i])
end;
readln
end.
Chương trình trên đúng k ạ