Sos mn ơi mai thì r:(((
Tin học
Nhập vào một dãy số nguyên gồm n phần tử. Viết chương trình In ra màn hình tổng các số lẽ, số chẵn của dãy?
Var a:array[1..1000] of integer;
i,n:integer;
sc,sl:longint;
Begin
Write('Nhap so luong so cua day ');readln(n);
For i:=1 to n do
Begin
Write(a,'[',i,'] = ');readln(a[i]);
End;
Write('Tong cac so chan la ');
For i:=1 to n do
If a[i] mod 2 = 0 then sc:=sc+a[i];
Writeln(sc);
Write('Tong cac so le la ');
For i:=1 to n do
If a[i] mod 2 <> 0 then sl:=sl+a[i];
Write(sl);
Readln
End.
Đúng 1
Bình luận (0)
Câu 1 : HÃy tìm lỗi sai trong các câu lệnh dưới đây và sửa lỗi sai cho đúng :
a, For i:=5 to 15 do ; S:=S+1;
b, i:=30; while i>20 then i:=i-2;
c, B:=0; While B<=100 do B=B+2;
d, For i:=1 to 10 do ; a:=a+1;
e, S:=5.5; while s<20.5 do S=S*2;
f, S:=0; i:=1 While i<=100 do begin If i mod 2 =0 then S:=S+1; i:=i+1;end;
làm gấp cho em vs ạ
a) Lỗi: Dư dấu ; sau từ do
b) Lỗi: While i>20 then (sửa: While i>20 do)
c) Lỗi: B=B+2; (sửa: B:=B+2;)
d) Lỗi: dư dấu ; sau từ do
e) Lỗi: S=S*2; (sửa: S:=S*2;)
f) Lỗi: i:=1 (sửa: i:=1;)
Đúng 1
Bình luận (0)
Câu 1: Kết quả của điều kiện mang giá trị là a. số thực (real) b. đúng, sai c. chuỗi ký tự d. Đáp án khácCâu 2: Mệnh đề: Mặt trời mọc ở phía Đông mang giá trị: a. đúng b. sai c. chân lý d. quan điểm vật lýCâu 3: Câu nào sau đây không phải là điều kiện (không mang tính đúng, sai) a. trời đang mưa b. gặp đèn đỏ thì phải dừng lại c. sách giáo khoa tin học d. 5 là số nguyên tốCâu 4: Câu lệnh nào sau đây là viết đúng a. if x:7 then ab; b. if ab then a:b; c. if x:b then a:x; d. if ab then x:1; else x:...
Đọc tiếp
Câu 1: Kết quả của điều kiện mang giá trị là
a. số thực (real) b. đúng, sai
c. chuỗi ký tự d. Đáp án khác
Câu 2: Mệnh đề: "Mặt trời mọc ở phía Đông" mang
giá trị:
a. đúng b. sai
c. chân lý d. quan điểm vật lý
Câu 3: Câu nào sau đây không phải là điều kiện (không
mang tính đúng, sai)
a. trời đang mưa b. gặp đèn đỏ thì phải dừng lại
c. sách giáo khoa tin học d. 5 là số nguyên tố
Câu 4: Câu lệnh nào sau đây là viết đúng
a. if x:=7 then a=b; b. if a<b then a:=b;
c. if x:=b then a:=x; d. if a<>b then x:=1; else x:=0;
Câu 5: Giá trị của x là bao nhiêu sau khi chạy đoạn
chương trình sau:
a:=3; b:=5;
if b mod a = 0 then x:=b else x:=a+1;
a. 3 b. 4 c. 5 d. 0
Câu 6: Cho câu lệnh if x:=8 then a:=b;
a. phép so sánh viết sai b. phép gán viết sai
c. dấu (;) đặt sai d. Câu lệnh đúng
Câu 7: Cho câu lệnh if x>5; then c:=d
a. phép so sánh viết sai b. phép gán viết sai
c. dấu (;) đặt sai d. Câu lệnh đúng
Câu 8: Cho câu lệnh if x>5+3 then c = d else a = b ;
a. phép so sánh viết sai b. phép gán viết sai
c. dấu (;) đặt sai d. Câu lệnh đúng
Câu 9: Sau khi chạy đoạn chương trình sau, giá trị của
x là bao nhiêu?
X:=5;
if x mod 2 = 0 then x:=x+1 else x:=x+2;
a. 5 b. 6 c. 7 d. 8
Câu 10: Đoạn chương trình sau in ra màn hình cụm từ
nào?
ĐTB:=5;
If ĐTB:=5 then write('ĐẬU') else write('HỎNG');
a. ĐẬU b. HỎNG c. Báo lỗi d. Lặp vô tận
Câu 11: Cho bài toán tìm nghiệm x phương trình ax +
b = 0. INPUT của bài toán là
a. số a và b b. số x
c. Cả a,b đều đúng d. Cả a,b đều sai
Câu 12: Cho bài toán tìm nghiệm x phương trình ax +
b = 0. OUTPUT của bài toán là
a. số a và b b. số x c. Cả a,b đều đúng
d. Cả a,b đều sai
Câu 13: Cho bài toán tìm diện tích hình tròn S bán
kính r. INPUT của bài toán là
a. Diện tích S b. bán kính r
c. Cả a,b đều đúng d. Cả a,b đều sai
Câu 14: Cho bài toán tìm diện tích hình tròn S bán
kính r. OUTPUT của bài toán là
a. Diện tích S b. bán kính r
c. Cả a,b đều đúng d. Cả a,b đều sai
Câu 15: Để thực hiện liên tục một vài hoạt động trong
máy tính cho đến khi thỏa mãn điều kiện thì ta sử
dụng:
a. cấu trúc lặp b. câu lệnh điều kiện
c. cấu trúc rẽ nhánh d. Cả a,b và c
Câu 16: Trong câu lệnh lặp, biến đếm phải là:
a. kiểu số nguyên b. kiểu số thực
c. kiểu chuỗi d. kiểu ký tự
Câu 17: Điều kiện để thực hiện lặp trong cấu trúc
FOR...TO...DO là:
a. giá trị đầu < giá trị cuối b. giá trị cuối < giá trị đầu
c. cả a, b đều đúng d. cả a, b đều sai
Câu 18: Số lần lặp trong vòng lặp FOR ... TO ... DO
được tính:
a. bằng giá trị đầu b. bằng giá trị cuối
c. giá trị cuối - giá trị đầu
d. giá trị cuối - giá trị đầu + 1
Câu 19: Đếm số lần lặp trong vòng lặp sau:
For i:=1 to 8 do x:=x+1;
a. 1 b. 8 c. 18 d. 7
Câu 20: Đếm số lần lặp trong vòng lặp sau:
For i:=5 to 12 do x:=x+1;
a. 5 b. 12 c. 7 d. 8
Câu 21: Cho biết giá trị của S sau khi chạy đoạn lệnh
sau:
S:=0; For i:=1 to 5 do S:=S+i;
a. 15 b. 5 c. 1 d. 6
Câu 22: Cho biết giá trị của P sau khi chạy đoạn lệnh
sau:
P:=1; For i:=1 to 5 do P:=P*i;
a. 1 b. 5 c. 120 d. Giá trị khác
Câu 23: Lỗi của đoạn lệnh sau bị sai do:
For i:=100 to 1 do write('Toi hoc Pascal');
a. giá trị đầu > giá trị cuối b. Giá trị cuối sai
c. Giá trị đầu sai d. Cú pháp viết sai
Câu 24: Lỗi của đoạn lệnh sau bị sai do:
For i:=1.5 to 15 do write('Toi hoc Pascal');
a. giá trị đầu > giá trị cuối b. Giá trị cuối sai
c. Giá trị đầu sai d. Cú pháp viết sai
ĐỀ CƯƠNG TIN HỌC – KHỐI 8 – HK2
Câu 25: Lỗi của đoạn lệnh sau bị sai do:
For i:=5 to 15 begin write('Toi hoc Pascal'); end;
a. giá trị đầu > giá trị cuối b. Giá trị cuối sai
c. Giá trị đầu sai d. Cú pháp viết sai
Câu 26: Lỗi của đoạn lệnh sau bị sai do:
For i:=5 do 15 to x:=x+2;
a. giá trị đầu > giá trị cuối b. Giá trị cuối sai
c. Giá trị đầu sai d. Cú pháp viết sai
Câu 27: Cho biết giá trị của S sau khi chạy đoạn lệnh
sau:
S:=10; For i:=1 to 6 do S:=S-1;
a. 1 b. 6 c. 10 d. 4
Câu 28: Để thực hiện vòng lặp với số lần chưa biết
trước, ta dùng cấu trúc
a. WHILE … DO b. FOR … TO … DO
c. IF … THEN d. IF … THEN … ELSE
Câu 29: Để thực hiện vòng lặp với số lần xác định, ta
dùng cấu trúc
a. WHILE … DO b. FOR … TO … DO
c. IF … THEN d. IF … THEN … ELSE
Câu 30: Lỗi trong đoạn chương trình này là
var x:integer;
begin
x:=5; while x>0 do write('toi dang hoc pascal');
end.
a. Lỗi sai cấu trúc b. Lỗi vòng lặp vô hạn
c. Lỗi khi biên dịch d. Lỗi phần cứng
Câu 31: Số lần vòng lặp này thực hiện:
a:=5; while a>0 do a:=a-1;
a. 2 b. 3 c. 4 d. 5
Câu 32: Lỗi của đoạn chương trình này sai là:
x:=7; DO x>5 WHILE x:=x-2;
a. Lỗi sai cấu trúc b. Lỗi vòng lặp vô hạn
c. Lỗi khi biên dịch d. Lỗi phần cứng
Câu 33: Nhận xét đoạn chương trình sau:
x:=8; While X:=8 do x:=x+5;
a. Sai điều kiện
b. Sai về câu lệnh thực hiện khi lặp
c. Sai khi lặp vô hạn d. Câu lệnh đúng
Câu 34: Xác định lỗi của đoạn chương trình sau:
x:=9; While X=9 do x=x+5;
a. Sai điều kiện
b. Sai về câu lệnh thực hiện khi lặp
c. Sai khi lặp vô hạn d. Câu lệnh đúng
Câu 35: Xác định lỗi của đoạn chương trình sau:
x:=9; While X=9 do write('em dang hoc Pascal');
x:=x+5;
a. Sai điều kiện b. Sai về câu lệnh thực hiện khi lặp
c. Sai khi lặp vô hạn d. Câu lệnh đúng
Câu 36: Kiểu mảng có tính chất:
a. Có cùng kiểu dữ liệu
b. Khác nhau về chỉ số phần tử
c. Nằm liên tiếp trong bộ nhớ
d. Cả a,b và c
Câu 37: Nhận xét cách khai báo biến mảng sau đây:
var x:array[10,13] of integer;
a. Sai về chỉ số b. Sai tên mảng
c. Sai kiểu dữ liệu d. Khai báo đúng
Câu 38: Nhận xét cách khai báo biến mảng sau đây:
var x:array[3.4..4.8] of integer;
a. Sai về chỉ số b. Sai tên mảng
c. Sai kiểu dữ liệu d. Khai báo đúng
Câu 39: Nhận xét cách khai báo biến mảng sau đây:
var x:array[3..4] of số thực;
a. Sai về chỉ số b. Sai tên mảng
c. Sai kiểu dữ liệu d. Khai báo đúng
Câu 40: Nhận xét cách khai báo biến mảng sau đây:
var x:array[5..10]of integer;
a. Sai về chỉ số b. Sai tên mảng
c. Sai kiểu dữ liệu d. Khai báo đún
chương trình nhập vào một mảng số nguyên gồm n phần tử rồi xuất ra màn hình các số chẵn trong mảng đã nhập Giúp mình vs ạ, mai mình thi rồi
program XuatSoChan;
uses crt;
const
Max_N = 20;
type
MangSoNguyen = array [1..Max_N] of integer;
var
A: MangSoNguyen;
i, n: integer;
begin
clrscr;
write('Nhap so luong phan tu cua mang: ');
readln(n);
writeln('Nhap cac phan tu vao mang:');
for i := 1 to n do
begin
write('A[', i, ']: ');
readln(A[i]);
end;
writeln('Cac so chan trong mang la:');
for i := 1 to n do
begin
if A[i] mod 2 = 0 then
writeln(A[i]);
end;
readln;
end.
Đúng 1
Bình luận (0)
hãy viết chương trình nhập vào một xâu hãy đếm các kí tự trong câu
vd:nguyen0212 = 10
program DemKiTuTrongXau;
uses crt;
var
s: string;
i, count: integer;
begin
clrscr;
write('Nhap vao mot xau: ');
readln(s);
count := 0;
for i := 1 to length(s) do
begin
if s[i] <> ' ' then
count := count + 1;
end;
writeln('So luong ki tu trong xau la: ', count);
readln;
end.
Đúng 1
Bình luận (0)
Mọi người giúp mình câu này với ạ :
Tính tổng : S= 1-2-3+4+5-6-7+8+9-10-11+12+...+n
Viết chương trình pascal nhập vào một số n tính tổng từ 1 đến n theo 2 cách
Em hãy nêu các lệnh đã học và hành động của rùa trong phần mềm Logo
Viết chương trình nhập từ bàn phím n số nguyên n nhỏ hơn hoặc bằng 100 cái dãy số vừa nhập và đẹp mang.txt
19 tháng 4 2023 lúc 14:18
Viết chương trình nhập vào 1 dãy số thực. Tìm số nhỏ nhất rồi in ra kết quả
program TimSoNhoNhat;
uses crt;
var
n, i: integer;
a, min: real;
begin
clrscr;
write('Nhap so phan tu cua day: ');
readln(n);
write('Nhap cac phan tu cua day: ');
readln(a);
min := a;
for i := 2 to n do
begin
readln(a);
if a < min then
min := a;
end;
writeln('So nho nhat trong day la: ', min:0:2);
readln;
end.
Đúng 1
Bình luận (0)