thoi de minh sua ca bai
var a, S:integer
begin
a:=S;
while a < 6 do writeln(a);
end.
Các câu hỏi tương tự
Câu 1: Cho biết kết quả biến S đoạn chương trình sau
P:=1; S:=0;
While S<15 do
Begin
P:=P+1;
S:=S+P;
End;
Câu 2: Chương trình sau cho kết quả thế nào? Vì sao?
Var a, b, S: integer;
begin
a:=50;
b:=27;
while b< a do S:=S+a-b;
write(„tong S=‟, S);
end.
Câu 1: Cho biết kết quả biến S đoạn chương trình sau
P:=1; S:=0;
While S<15 do
Begin
P:=P+1;
S:=S+P;
End;
Câu 2: Chương trình sau cho kết quả thế nào ?Vì sao?
Var a, b, S: integer;
begin
a:=50;
b:=27;
while b< a do S:=S+a-b;
write(„tong S=‟, S);
end.
ĐỀ CƯƠNG ÔN TẬP HỌC KỲ II TIN HỌC 8Năm học 2011-2012Ôn lại kiến thức đã học bài 7, 8, 9 và thực hành 5,6,7I. PHẦN TRẮC NGHIỆMA. Điền Đ (đúng) hoặc S (sai) với các câu sau:ð 1.for i:10 to 1 do writeln(b);ð 2. var x: integer; begin for x : 1 to 10 do writeln(b); end.ð 3. for i:1 to 100 do ;ð 4. for i:1 to 100 do writeln(b);ð 5.for i:0.5 to 5.5 do writeln(b);ð 6.for i1 to 100 do writeln(b);ð 7. while…do là câu lệnh lặp với số lần lặp biết trước trong pascalð 8. S:0; n:0;while S 100 do begin n:...
Đọc tiếp
ĐỀ CƯƠNG ÔN TẬP HỌC KỲ II TIN HỌC 8
Năm học 2011-2012
Ôn lại kiến thức đã học bài 7, 8, 9 và thực hành 5,6,7
I. PHẦN TRẮC NGHIỆM
A. Điền Đ (đúng) hoặc S (sai) với các câu sau:
ð 1.for i:=10 to 1 do writeln('b');
ð 2. var x: integer; begin for x := 1 to 10 do writeln('b'); end.
ð 3. for i:=1 to 100 do ;
ð 4. for i:=1 to 100 do writeln('b');
ð 5.for i:=0.5 to 5.5 do writeln('b');
ð 6.for i=1 to 100 do writeln('b');
ð 7. while…do là câu lệnh lặp với số lần lặp biết trước trong pascal
ð 8. S:=0; n:=0;
while S <= 100 do
begin n:=n+1; S:=S+n end;
ð 9.for i:=5 to 1 do writeln('X');
ð 10.for i:=0.5 to 5.5 do writeln('X');
ð 11. while…do là câu lệnh lặp với số lần chưa biết trước trong pascal
ð 12. for i:=1 to 100 do ;
ð 13. for i:=1 to 10 do writeln('X');
ð 14.for i=1 to 50 do writeln('X');
B.Khoanh tròn vào câu mà em cho là đúng nhất.
Câu 1: Lệnh lặp nào sau đây là đúng?
A. For <biến đếm>= <giá trị đầu> to <giá trị cuôí> do <câu lệnh>;
B. For <biến đếm>:= <giá trị đầu> to <giá trị cuôí> do <câu lệnh>;
C. For <biến đếm>:= <giá trị cuôí> to <giá trị đầu> do <câu lệnh>;
D. For <biến đếm>: <giá trị đầu> to <câu lệnh> do <giá trị cuối>;
Câu 2: Vòng lặp while ..do là vòng lặp:
A. Chưa biết trước số lần lặp
B. Biết trước số lần lặp
C. Biết trước số lần lặp nhưng giới hạn là <=100
D. Biết trước số lần lặp nhưng giới hạn là >=100
Câu 3: Cách khai báo mảng sau đây cách nào khai báo đúng ?
A. var X : Array [10, 13] of integer; C. var X : Array [3.4..4.8] of integer;
B. var X : Array [10.. 1] of integer; D. var X : Array [1..10] of real;
Câu 4: Cho S và i là biến nguyên. Khi chạy đoạn chương trình :
s:=0;
for i:=1 to 5 do s := s+2; writeln(s);
Kết quả in lên màn hình là của s là :
A.11 B. 55 C. 12 D.13
Câu 5: Lần lượt thực hiện đoạn lệnh: a[1]:=2; a[2]:=3; t:=a[1]+a[2]+1;
Giá trị của t là
A. t=1 B. t=2 C. t=3 D. t=6
Câu 6: Câu lệnh pascal nào sau đây là hợp lệ?
A.For i:= 1 to 10 do writeln(‘A’); B. For i:=1.5 to 10.5 do writeln(‘A’);
C. For i= 1 to 10 do writeln(‘A’); D. For i:=100 to 1 do writeln(‘A’);
Câu 7: Câu lệnh lặp while…do có dạng đúng là:
A.X:=10; While x:=10 do x:=x+5 | B. x:=10 While x=10 do x:=x+5; |
C. x:=10; While x=10 do x=x+5; | D.x:=10; While x=10 to x:=x+5; |
Câu 8: Vòng lặp for ..do là vòng lặp:
A.Biết trước số lần lặp | B. Chưa biết trước số lần lặp |
C. Biết trước số lần lặp nhưng giới hạn là <=50 | D.Biết trước số lần lặp nhưng giới hạn là >=50 |
Câu 9: Câu lệnh nào sau đây là câu lệnh nhập cho phần tử thứ 10 của biến mảng A?
a. Readln(A[10]); b. Readln(A[k]);
c. Readln(A[i]); d. Readln(A10);
Câu 10: Phần mềm học vẽ hình là:
A. Sun Times B. Yenka C. Finger Break Out D. Geogebra
Câu 11: Phần mềm luyện gõ phím nhanh là:
A. Sun Times B. Yenka C. Finger Break Out D. Geogebra
Câu 12: Vòng lặp for ..do là vòng lặp:
E. Biết trước số lần lặp | F. Chưa biết trước số lần lặp |
G.Biết trước số lần lặp nhưng giới hạn là <=50 | H.Biết trước số lần lặp nhưng giới hạn là >=50 |
Câu 13: Với ngôn ngữ lập trình Passcal câu lệnh lặp for i:=1 to 10 do x:=x+1; thì biến đếm i phải được
khai báo là kiểu dữ liệu
A.Integer | B. Real |
C. String | D.Tất cả các kiểu trên đều được |
Câu 14: Tìm hiểu đoạn lệnh sau 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?
Var a:integer;
Begin
a:=5;
While a< 6 do writeln(‘A’);
End.
A.5 lần | B. 6 lần | C. 10 lần | D.Vô hạn lần |
Câu 15: Cho S và i là biến nguyên. Khi chạy đoạn chương trình :
s:=1;
for i:=1 to 10 do s := s+i;
writeln(s);
Kết quả in lên màn hình của S là :
A.58 | B. 57 | C. 56 | D.55 |
Câu 16: Hãy đọc đoạn chương trình sau:
While a<b do a:=a+1;
Khi a = 1, b = 7 thì kết quả cuối cùng a bằng bao nhiêu
A. 5 | B. 6 | C. 7 | D. 8 |
Câu 17: S:=0 ;
FOR i:=1 to 10 do IF i mod 2 = 0 THEN s := s + i ; Vậy s nhận giá trị nào?
A. 20 | B. 30 | C. 40 | D. 50 |
Câu 18: Câu lệnh lặp while…do có dạng đúng là:
A. While <điều kiện> do; <câu lệnh>;
B. While <điều kiện> <câu lệnh> do;
C. While <câu lệnh> do <điều kiện>;
D. While <điều kiện> do <câu lệnh>;
Câu 19: Các cách nhập dữ liệu cho biến mảng sau, cách nhập nào không hợp lệ?
A. B[1]:= 8; B. readln(chieucao[i]);
C. readln(chieucao5); D. read(dayso[9]);
Câu 20: Phần mềm tìm hiểu thời gian là phần mềm:
A. Sun Times B. Yenka
C. Finger Break Out D. Geogebra
Bài 1: Tìm hiểu thuật toán sau rồi dựa vào đó để viết chương trình PSACALBƣớc 1: Nhập n là số lương số thực sẽ nhập từ bàn phím:1.1. Dem-0;1.2. Sum-0.Bƣớc 2: Trong khi dem N thì:2.1. Nhập giá trị số thực x từ bàn phím;2.2. Sum - Sum + x;2.3. Dem-Dem +1;Bƣớc 3: TB- Sum/N;Bƣớc 4. Đưa thông báo ra màn hình, rồi kết thúc.Bài 2: Nhập chương trình sau vào máy tính chạy thử và cho biết kết quả với các trường hợp N 5;45; 55; 67; 91Program So_nguyen_to;Uses crt;Var n, i: Integer;BEGINclrscr;Write(„Nhap...
Đọc tiếp
Bài 1: Tìm hiểu thuật toán sau rồi dựa vào đó để viết chương trình PSACAL
Bƣớc 1: Nhập n là số lương số thực sẽ nhập từ bàn phím:
1.1. Dem<-0;
1.2. Sum<-0.
Bƣớc 2: Trong khi dem< N thì:
2.1. Nhập giá trị số thực x từ bàn phím;
2.2. Sum <- Sum + x;
2.3. Dem<-Dem +1;
Bƣớc 3: TB<- Sum/N;
Bƣớc 4. Đưa thông báo ra màn hình, rồi kết thúc.
Bài 2: Nhập chương trình sau vào máy tính chạy thử và cho biết kết quả với các trường hợp N = 5;
45; 55; 67; 91
Program So_nguyen_to;
Uses crt;
Var n, i: Integer;
BEGIN
clrscr;
Write(„Nhap vao mot so nguyen : „); Readln(n);
If n <=1 then Writeln(„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;
Writeln („Nhan phim bat ky de thoat chuong trinh‟);
Readln;
END.
Tìm và sửa lỗi sai các câu sau, giải thích rõ lỗi sai đó
a, Var begin:real;
b, Const y:integer;
c, Var bk=3
d, Var AB:array[1...100] of integer;
e, Var Diem: array[3.8...4.5] of real;
Tin 8
help me
giá trị của S khi thực hiện đoạn chương trình sau
S:=0;i:=0;
While i<=6 do begin i:=i+1; s:=s+i ;
A. 16
B. 28
C. 21
D. không xác định
giá trị của S khi thực hiện đoạn chương trình sau
S:=0;i:=0;
While i<=6 do begin i:=i+1; s:=s+i ;
A. 16
B. 28
C. 21
D. không xác định
22 tháng 5 2020 lúc 20:04
Viết Phương trình Pascal cho:
S:=0; n:=0;
while S <= 10 do
begin n:= n+1; S:=S+n end;
Tin học 8
Nhập ba số nguyên a, b, c từ bàn phím. Kiểm tra xem ba số nguyên đó có phải ba cạnh của một tam giác không?Hãy chỉ ra đó là tam giác gì?Theo mình học là có : tam giác thường, cân, vuông và đều. Mình làm ntn ( Sửa giúp mình với ạ, cảm ơn nhiều):if abc then writeln(Tam giac deu) elseif ab then writeln(Tam giac can)if bc then writeln(Tam giac can)if ac then writeln(Tam giac can)if a*ab*b+c*c then writeln(Tam giac vuong)if b*ba*a+c*c then writeln(Tam giac vuong)if c*cb*b+a*a then writeln(Tam giac vu...
Đọc tiếp
Nhập ba số nguyên a, b, c từ bàn phím. Kiểm tra xem ba số nguyên đó có phải ba cạnh của một tam giác không?Hãy chỉ ra đó là tam giác gì?
Theo mình học là có : tam giác thường, cân, vuông và đều.
Mình làm ntn ( Sửa giúp mình với ạ, cảm ơn nhiều):
if a=b=c then writeln('Tam giac deu') else
if a=b then writeln('Tam giac can')
if b=c then writeln('Tam giac can')
if a=c then writeln('Tam giac can')
if a*a=b*b+c*c then writeln('Tam giac vuong')
if b*b=a*a+c*c then writeln('Tam giac vuong')
if c*c=b*b+a*a then writeln('Tam giac vuong')
if a<>b<>c then writeln('Tam giac thuong');