BÀI TẬP LƠP 8B by Anh Anh

BAI TAP VE NHA

kimngua111 — 2022-02-26 07:26:26 UTC

Hà Hải Anh

crushtymhv — 2022-02-26 08:04:45 UTC

Hà Phương Uyên

2022-02-26 12:21:55 UTC

Phạm Phương Anh

2022-02-26 13:13:01 UTC

Hà Phương Anh

2022-02-26 13:58:22 UTC

Phạm Diệp

2022-02-26 15:37:05 UTC

2022-02-27 04:25:28 UTC

Nguyễn Thu Ngân

Vì Hương Lan

2022-02-27 07:59:38 UTC

Phạm Hà Hiếu

hieuhapham97 — 2022-02-27 08:20:36 UTC

2022-03-01 13:04:04 UTC

2022-03-01 14:11:46 UTC

Quỳnh ( đã làm thêm)

2022-03-02 03:52:36 UTC

Bài 1:

-Giá trị biến j=10

Bài 2:

a) Không hợp lệ, vì thứ tự không được từ lớnđến bé

b) Không hợp lệ, vì câu lệnh chỉ nhận giá trị nguyên

Bài 3:

-Chương trình trên để lặp lại 10 câu “chao ban”

Bài4:

Var i:integer

Begin

For i:=1 to 10 do writeln(i,’’);

Readln

End.

Bài 5:

Var i:integer;

Begin

For i:=2 to 10 do

If i mod 2=0 then write(i,’ ‘);

End.
Bài 5 kiểu mới:
var i:integer;
begin
for i:=1 to 10 do if i mod 2 = 0 then write (i, ' ');
end.
Bài 6:
var i:integer;
begin
for i:=1 to 10 do if i mod 2 = 1 then write (i, ' ');
end.
Bài 7:
var i:integer;
begin
for i:=1 to 100 do begin
write(i, ' ');
if i mod 10 = 0 then writeln(i, ' ');
end;
end.

Khà Phương Anh

2022-03-02 04:03:43 UTC

Bài tập 1. Sau khi thực hiện đoạn chương trình sau, giá trị của biến j bằng bao nhiêu ?

BAN ĐẦU j:= 0;

For i:= 1 to 5 do

j:= j + 2;

Trả lời:

Giá trị của biến j khi đó bằng 10

Bài tập 2. Các câu lệnh Pascal sau có hợp lệ không? Vì sao?

a) For i:= 100 to 1 do

Writeln(‘A’);

b) For i:= 1.5 to 10.5 do

Writeln(‘A’);

Trả lời:

a) Câu lệnh này không hợp lệ. Vì trong câu lệnh lặp chỉ được lặp theo thứ tự ít đến nhiều

b) Câu lệnh này không hợp lệ. Vì câu lệnh lặp chỉ có thể nhận giá trị số nguyên

Bài tâp 3. Chương trình Pascal sau đây thực hiện hoạt động nào?

Var i:integer;

Begin

For i:=1 to 10 do write( ’ chao ban’);

End.

Trả lời:

Chương trình trên nhằm lặp ại 10 lần câu “chao ban”

Bài 4: Viết chương trình in ra các số tự nhiện từ 1 đến 10 (sử dụng vòng lặp for ..do)

Trả lời:

Var i:integer;

Begin

For i:=1 to 10 do write(i,‘ ‘);

End.

Bài 5: viết chương trình in ra các số chẵn từ 2 đến 10 (sử dụng vòng lặp for ..do)

Trả lời:

Var i:integer;

Begin

For i:=2 to 10 do

If i mod 2=0 then write(i,’ ‘);

End.

Nguyễn Ngọc Hà (đã sửa)

2022-03-02 04:08:11 UTC

Bài 1:

-Giá trị biến j=10

Bài 2:

a) Câu lệnh đúng

b) Câu lệnh sai

Bài 3:

-Chương trình trên để lặp lại 10 câu “chao ban”

Bài 4:

Var i:integer;

Begin

For i:=1 to 10 do writeln(i,’ ’);

Readln;

End.

Bài 5:

Var n:integer;

Begin

For n:=2 to 10 do if n mod 2=0 then writeln(n,' ');

End.
Bài 6:
var i,n:integer;
begin
for n:=1 to 10 do if n mod 2=1 then write (n,' ');
readln;
end.

bài 5(tú)

2022-03-02 04:28:34 UTC

bài 6(tú)

2022-03-02 04:28:57 UTC

hiếu bài 6

hieuhapham97 — 2022-03-02 04:31:15 UTC

Hải Anh bài 7

crushtymhv — 2022-03-02 04:40:30 UTC

Lê Anh

2022-03-02 08:09:47 UTC

2022-03-02 09:21:17 UTC

Hà Phương Uyên

2022-03-03 03:56:57 UTC

Bài 6:

Var i:integer;

Begin

For i:=1 to 10 do

If i mod 2=1 then writeln(i,’ ’);

Readln;

End.

Bài 7:

Var i:integer;

Begin

For i:=1 to 100 do begin write (i,’ ’);

If i mod 10=0 then writeln(i,’ ’);

Readln;

End.

Nguyễn Ngọc Hà

2022-03-04 02:24:50 UTC

Bài 7:
Var i:integer;
Begin
For i:=1 to 100 do begin write (i,’ ’);
If i mod 10=0 then writeln(i,’ ’);
Readln;
End.

Nguyễn Thu Ngân (Ngaaw_ebe)

nn2295874 — 2022-03-09 02:44:35 UTC

Bài 5:
var i:integer;
begin
for i:=1 to 10 do begin
if i mod 2=0 then write(i,' ');
end;
end.
Bài 6:
var i:integer;
begin
for i:=1 to 10 do begin
if i mod 2=1 then write(i,' ');
end;
end.
Bài 7:
var i:integer;
begin
for i:=1 to 100 do begin write(i,' ');
if i mod 10=0 then
write(i,' ');
end;
end.

Vũ Phú Thành

TheRebirthOfBhellos — 2022-03-09 04:17:54 UTC

tú bài 8

2022-03-09 04:21:16 UTC

tú bài 9

2022-03-09 04:21:35 UTC

Linh

2022-03-09 04:22:43 UTC

Tuệ Châu

hatuechau1601 — 2022-03-09 04:24:18 UTC

Phạm Phương Anh

2022-03-09 04:25:00 UTC

Bài 8:
uses crt;
var n:integer;
begin
clrscr;
read(n);
if n<18 then write('Nguoi do la thieu nien')
else if (n>=18) and (n<=39) then write('Nguoi do la thanh nien')
else if (n>=40) and (n<=60) then write('Nguoi do la trung nien')
else write('Nguoi do la lao nien');
end.
Bài 9: uses crt;
var x,n:longint;
begin
clrscr;
read(n);
for x:=1 to n do if n mod x = 0 then write(x,' ');
end.

Nguyễn Ngọc Hà

2022-03-09 04:25:39 UTC

bài 8:
var n:integer;
begin
read(n);
if n<18 then write('thieu nien');
if (n>=18) and (n<=39) then write('thanh nien');
if (n>=40) and (n<=60) then write('trung nien');
if n>60 then write('lao nien');
readln;
end.

Bài 9:
var n,i:integer;
begin
read(n);
for i:=1 to n do if n mod i=0 then write(i,' ');
end.

Hà Hải Anh

2022-03-09 04:26:49 UTC

Bài 8:
Var a:integer;
Read(a);
If a<18 then write('Nguoi do la thieu nien');
If (a>=18) and (a<=39) then write('Nguoi do la thanh nien');
If (a>=40) and (a<=60) then write('Nguoi do la trung nien');
If a>60 then write('Nguoi do la lao nien');
End.
Bài 9:
Var i,n:integer;
Begin
Read(n);
For i:=1 to n do if n mod i=0 then write(i,' ');
End.

Linh

2022-03-09 04:29:05 UTC

2022-03-09 04:29:26 UTC

Nguyễn Thảo

2022-03-09 04:30:39 UTC

ngô thu phương

2022-03-09 04:33:25 UTC

Nguyễn Thu Ngân

nn2295874 — 2022-03-09 04:35:50 UTC

Bài 8:

var i:integer;

begin

read(i);

if i<18 then write('Nguoi do la thieu nien')

else if (i>=18) and (i<=39) then write('Nguoi do la thanh nien')

else if (i>=40) and (i<=60) then write('Nguoi do la trung nien')

else write('Nguoi do la lao nien');

end.

Bài 9:

var x,n:longint;

begin

read(n);

for x:=1 to n do if n mod x = 0 then
write(x,' ');

end.

Hiếu bài 8 (chi tiết có thể nhập họ và tên)

hieuhapham97 — 2022-03-09 04:36:38 UTC

Lê Anh

2022-03-09 04:37:57 UTC

hiếu bài 9

hieuhapham97 — 2022-03-09 04:40:40 UTC

Hằng

2022-03-09 04:46:26 UTC

Bài 8:

uses crt;

var n:integer;

begin

clrscr;

read(n);

if n<18 then write('Nguoi do la thieu nien')

else if (n>=18) and (n<=39) then write('Nguoi do la thanh nien')

else if (n>=40) and (n<=60) then write('Nguoi do la trung nien')

else write('Nguoi do la lao nien');

end.

Bài 9:
uses crt;

var x,n:longint;

begin

clrscr;

read(n);

for x:=1 to n do if n mod x = 0 then write(x,' ');

end.

Phạm Diệp

2022-03-09 04:48:35 UTC

Trương Tuệ Anh

2022-03-09 04:50:45 UTC

2022-03-10 04:11:38 UTC