Bài 9. Làm việc với dãy số
Các câu hỏi tương tự
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 ạ
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 ;
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ì?
program bai_giai;
uses crt;
var A:array[1..10] of integer;
i:integer;
s:real;
begin
s:=0;
for i:=1 to 10 do;
begin
write('nhap so thu ',i,':');
readln(A [i]);
if a[i]mod 3=0 then;
begin
s:=s+A[i];
end.
cho em hỏi chương trình trên đúng ko ạ?
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. Cho biết đoạn chương trình sau làm công việc gì?
Writeln('nhap so hoc sinh trong lop=');readln(x);
While(x<1) or (x>50) do
begin
write('nhap lai');readln(x);
end;
Hãy tìm hiểu đoạn lệnh sau đây và cho biết với đoạn lệnh đó chương trình thực hiện bao nhiêu vòng lặp và khi kết thúc giá trị của S và n bằng bao nhiêu .
S:=0;
i:=0;
While S <=10 do
Begin
S:=S+i;
i:=i+2;
End;
ĐỀ 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
Làm giúp mình bài này với ạ! Mình đag cần gấp!!Cho đoạn chương trình sau, hãy dùng iến mảng để khai báo biến cho chương trình:Var a, Thunhap_TB: real; i:integer;Begin Thunhap_TB : 0; for i:1 to 50 do begin write(Thu nhap cua gia dinh thu , i); readln(a); Thunhap_TB + a end; Thunhap_TB : Thunhap_TB/50; for i : 1 to 50 do begin write(Thu nhap cua gia dinh thu ,i); readln(a); writeln(Do lech so voi thu nh...
Đọc tiếp
Làm giúp mình bài này với ạ! Mình đag cần gấp!!
Cho đoạn chương trình sau, hãy dùng iến mảng để khai báo biến cho chương trình:
Var a, Thunhap_TB: real; i:integer;
Begin
Thunhap_TB := 0;
for i:=1 to 50 do
begin
write('Thu nhap cua gia dinh thu ', i);
readln(a);
Thunhap_TB + a
end;
Thunhap_TB := Thunhap_TB/50;
for i := 1 to 50 do begin
write('Thu nhap cua gia dinh thu ',i); readln(a);
writeln('Do lech so voi thu nhap TB la: ', a - Thunhap_TB)
end;
End.
(Bài này là trong sgk tin 8/ tr71 nha mn nhưng mà cô giáo giao là thay vào biến kiểu mảng nhưng mình ko bt, bạn nào biết thì giải giúp mình nha, còn 2 ngày nữa là mình nộp cô r. Cảm ơn các bạn nhìu ạ <3 :333).