K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

20 tháng 5 2019

Để thoát khỏi phần mềm ta nhấn tổ hợp phím Alt + F4 hoặc Hồ sơ -> Đóng.

   Đáp án: D

ÔN TẬP KIỂM TRA GIỮA KÌ II TIN HỌC 8I. TRẮC NGHIỆM:Học sinh chọn câu đúng và khoanh tròn vào chữ cái đầu câuCâu 1. Để khai báo biến trong chương trình, em sử dụng từ khóa nào sau đây?A Const B. Program C. Var D. BeginCâu 2. Giả sử A được khai báo là biến với kiểu dữ liệu số nguyên, cách gán nào sau đây là đúng?A. A:=’10’; B. A:=10; B. A:=123.23; D. A:=’Tin học’;Câu 3. Lệnh nào sau đây là lệnh xóa màn hình?A. Clrscr; B. Uses crt; C....
Đọc tiếp

ÔN TẬP KIỂM TRA GIỮA KÌ II TIN HỌC 8

I. TRẮC NGHIỆM:

Học sinh chọn câu đúng và khoanh tròn vào chữ cái đầu câu

Câu 1. Để khai báo biến trong chương trình, em sử dụng từ khóa nào sau đây?

A Const B. Program C. Var D. Begin

Câu 2. Giả sử A được khai báo là biến với kiểu dữ liệu số nguyên, cách gán nào sau đây là đúng?

A. A:=’10’; B. A:=10; B. A:=123.23; D. A:=’Tin học’;

Câu 3. Lệnh nào sau đây là lệnh xóa màn hình?

A. Clrscr; B. Uses crt; C. Delay(2000); D. Readln;

Câu 4. Trong các lệnh sau đây câu lệnh nào là đúng ?

A. Writeln(“Dien tich hinh chu nhat la”,S); B. Writeln(‘Dien tich hinh chu nhat la’,S); C. Writeln(‘Dien tich hinh chu nhat la’;S); D. Writeln(‘Dien tich hinh chu nhat la,S’);

Câu 5. Lệnh nào sau đây là lệnh khai báo thư viện?

A. Begin B. Uses crt; C. Writeln D. Readln;

Câu 6. Kết quả của phép chia 45 mod 7 là A. 4 B. 2 C. 3 D. 5 Câu 7. Trong ngôn ngữ lập trình Pascal, câu lệnh điều kiện dạng thiếu có dạng

A. if <điều kiện> then ; B. if then ; C. if <điều kiện>; then ; D. if else ;

Câu 8. Nếu cho x := 5; giá trị của x là bao nhiêu sau câu lệnh: if x > 0 then x := x + 2;

A. 10 B. 8,5 C. 7 D. 9

Câu 9. Biểu thức (252 +12) (15 – 5 2 ) trong toán học khi chuyển thành biểu thức trong Pascal có dạng như thế nào?

A. (25.25 + 12)*(15 - 5.5)      B. (25*25 + 12) * (15 – 5*5)                                C. (25^2+ 12)*(15 – 5^2)      D. (25*25 + 12).(15 – 5*5)

Câu 10. Điều kiện trong câu lệnh điều kiện là một

A. phép cộng B. phép nhân C. phép trừ D. phép so sánh

Câu 11. Trong ngôn ngữ lập trình Pascal, cấu trúc câu lệnh lặp nào sau đây đúng? A. for = to do ; B. for : = to do ; C. for : = to do ; D. for := do to ;

Câu 12. Lệnh nào dưới đây viết đúng về câu lệnh gán :

A. x : 15 ; B. x := 15 ; C. x =: 15 ; D. x = 15 ;

Câu 13. Biểu thức nào đúng trong Pascal để tính giá trị của a+b/2a

A. A+b/(2a) B. A+b/2*a C. a+b/2a D. a+b/(2*a)

Câu 14. Lệnh nhập giá trị cho biến là lệnh nào:

A. Readln(tên biến); B. Writeln(tên biến); C. Const( tên biến); D. Var( tên biến);

Câu 15. Để dịch chương trình Pascal sang ngôn ngữ máy ta nhấn tổ hợp phím:

A. Ctrl + X B.Alt + F9 C. Alt + X D. Ctrl + F9

Câu 16. Các từ khóa gồm:

A. program, uses, write, read B. begin, if, then, else C. program, uses, begin, end D. begin, end, read, if, then

Câu 17. Trong Pascal, câu lệnh nào sau đây được viết đúng?

A. for i := 4 to 1 do writeln(‘A’); B. for i := 1 to 10 writeln(‘A’); C. for i := 1 to 100 do writeln(‘A’); D. for i to 10 do writeln(‘A’);

Câu 18. Trong Pascal, câu lệnh nào sau đây là đúng?

A. i:=1; S:=0; while s<10 do begin S:=S+i; i:=i+1; end;

B. i:=0; S:=1; While S<10 do S=S+i; i=i+1; n:=2;

C. while n<5; do write(‘A’);

D. while s<10 do begin S:=S+i i:=i+1 end.

Câu 19.Từ khóa CONST dùng để làm gì?

 A. Khai báo Tên chương trình. B. Khai báo Biến C. Khai báo Hằng D. Khai báo thư viện

Câu 20.Program là từ khoá dùng để:

A. Khai báo tên chương trình B. Khai báo biến C. Kết thúc chương trình D. Viết ra màn hình các thông báo II.

THỰC HÀNH

Câu 1. Viết chương trình in ra màn hình bảng cửu chương của số N trong khoảng từ 1 đến 9, số được nhập từ bàn phím.

Câu 2: Viết chương trình sử dụng lệnh lặp để tính trung bình cộng của N số thực. Với số N và các số tính trung bình cộng được nhập vào từ bàn phím. Câu 3: Viết chương trình nhận biết một số tự nhiên N được nhập từ bàn phím có phải là số nguyên tố hay không.

2

I: Trắc nghiệm

Câu 1: C

Câu 2: B

Câu 3: A

Câu 4: B

Câu 5: B

17 tháng 3 2021

20 câu lận mà bạn

Xin chào các bạn! Chắc các bạn đều thấy bất tiện khi không thể Copy-Paste trong Pascal phải không? Mình sẽ hướng dẫn các bạn thủ thuật này: Để thực hiện việc Copy-Paste trong Pascal bạn cần 1 ứng dụng trung gian. Nó sẽ giúp bạn tạo ra 1 file .PAS Mình xin giới thiệu phần mềm Sublime Text( các bạn tải ở link sau: http://www.sublimetext.com) Sau khi hoàn tất việc tải về, các bạn chạy file vừa tải và làm theo...
Đọc tiếp

Xin chào các bạn!

Chắc các bạn đều thấy bất tiện khi không thể Copy-Paste trong Pascal phải không?

Mình sẽ hướng dẫn các bạn thủ thuật này:

Để thực hiện việc Copy-Paste trong Pascal bạn cần 1 ứng dụng trung gian. Nó sẽ giúp bạn tạo ra 1 file .PAS

Mình xin giới thiệu phần mềm Sublime Text( các bạn tải ở link sau: http://www.sublimetext.com)

Sau khi hoàn tất việc tải về, các bạn chạy file vừa tải và làm theo hướng dẫn bằng Tiếng Anh để cài đặt

Sau khi cài đặt, các bạn mở phần mềm Sublime Text ra. Sau đó các bạn vào File -> New file. Sau đó các bạn Copy-Paste đoạn chương trình đã có vào trong Sublime Text. Sau đó các bạn vào File -> Save, phần mềm sẽ mở 1 cửa sổ để các bạn lưu lại, các bạn lưu vào đường dẫn: C:\DOSBox\TP\BIN (thư mục chứa các file Pascal đã lưu) Lưu ý: Các bạn nhớ lưu file có đuôi là .PAS nhé!

Cuối cùng các bạn mở Pascal, vào File -> Open và chọn file vừa lưu. Vậy là các bạn đã thành công rồi. Giờ chỉ việc chạy chương trình thôi!

2
9 tháng 7 2019

Bạn nào thấy hữu ích thì tick cho mình nhé!

9 tháng 7 2019

bạn nào thấy hay thì tick cho mình nhé!

Trong kỳ thi học sinh giỏi môn Tin học, em là người đạt giải đặc biệt. Ban tổ chức cho phép em chọn các phần thưởng cho mình. Các phần thưởng xếp thành một dãy được đánh số từ 1 đến N (0 ≤ N ≤ 10000), phần thưởng thứ i có giá trị là ai (1 ≤ ai ≤ 100). Em được phép chọn các phần thưởng cho mình theo nguyên tắc không chọn 3 phần thưởng liên tiếp nhau trong dãy. Em hãy lập chương trình chọn ra các phần...
Đọc tiếp

Trong kỳ thi học sinh giỏi môn Tin học, em là người đạt giải đặc biệt. Ban tổ chức cho phép em chọn các phần thưởng cho mình. Các phần thưởng xếp thành một dãy được đánh số từ 1 đến N (0 ≤ N ≤ 10000), phần thưởng thứ i có giá trị là ai (1 ≤ ai ≤ 100). Em được phép chọn các phần thưởng cho mình theo nguyên tắc không chọn 3 phần thưởng liên tiếp nhau trong dãy. Em hãy lập chương trình chọn ra các phần thưởng sao cho tổng giá trị của các phần thưởng nhận được là lớn nhất.

Dữ liệu: Cho trong file PTHUONG.INP gồm các dòng:

- Dòng đầu tiên là số phần thưởng N.

- Dòng tiếp theo ghi N số ai (1 ≤ i ≤ N).

Kết quả: Ghi ra file PTHUONG.OUT gồm ba dòng:

- Dòng đầu ghi tổng giá trị lớn nhất của các phần thưởng đã chọn và số lượng các phần tử được chọn đó.

- Dòng tiếp theo ghi vị trí của các phần thưởng đã chọn theo thứ tự trong dãy.

- Dòng cuối cùng ghi giá trị của các phần thưởng đã chọn theo thứ tự trong dãy.

Ví dụ:

PTHUONG.INP PTHUONG.OUT

7

6 9 1 3 5 10 4

32 5

1 2 4 6 7

6 9 3 10 4

1
20 tháng 2 2020

uses crt;

type mang= array[0..10000 ] of byte;

var a,d,m:mang; dd:array[1..20,1..400] of byte;

b:array [1..10000] of boolean;

r,dem, t,n,max,i,j:integer;

f:text;

procedure doc;

var i:integer;

begin

assign(f,'pthuong.inp');

reset(f);

readln(f,n);

for i:=1 to n do

readln(f,d[i]);

close(f);

end;

function kt( c:mang):boolean;

var i,j:longint;

q:boolean;

begin

i:=1;

q:=true;

while (i<=r-2) and q do

begin

j:=1;

while c[i+j-1]+1=c[i+j] do

j:=j+1;

if j>=3 then q:=false else q:=true;

i:=i+1;

end;

kt:=q;

end;

Procedure print;

var i,tong: byte;

begin if kt(a)=true then

begin dem:=dem+1;

tong:=0;

for i:=1 to r do

begin

dd[dem,i]:= a[i];

tong:=tong+d[a[i]];

end; m[dem]:=tong;

end;

end;

Procedure Find(k:byte);

var j: byte;

begin

if k>r then print else

begin

for j:=1 to n do

if b[j] and (j>a[k-1]) then

begin

a[k]:=j; b[j]:=false;

Find(k+1);

b[j]:=true;

end;

end;

end;

begin

clrscr;

doc;

dem:=0;

r:= n-(n div 3);

for t:=1 to n do

b[t]:=true; a[0]:=0;

Find(1);

max:=m[1];

for i:=1 to dem do

if max< m[i] then max:=m[i];

assign(f,'PTHUONG.OUT');

rewrite(f);

writeln(f,max);

for i:=1 to dem do

if max=m[i] then

begin

j:=1;

while (dd[i,j] <>0) do

begin

write(f,dd[i,j]:2);

j:=j+1;

end;

end;

close(f);

end.

Bạn tham khảo bộ code này nhé.

21 tháng 2 2020

Cảm ơn nhiều ạ.

15 tháng 3 2022

C

Có n file đánh số 1, 2, ..., n. File thứ i có kích thước là ai. Cho trước một số đĩa mềm trắng, dung lượng của mỗi đĩa là M. Yêu cầu: Hãy tìm cách ghi file lên các đĩa mềm sao cho số đĩa mềm phải dùng là ít nhất. (Tất nhiên mỗi đĩa không thể chứa quá dung lượng M và mỗi file phải nằm gọn trong một đĩa nào đó chứ không được cắt nhỏ và ghi vào nhiều đĩa khác nhau). Ràng buộc: 1 ≤ n ≤ 100; các ai và M là các...
Đọc tiếp

Có n file đánh số 1, 2, ..., n. File thứ i có kích thước là ai. Cho trước một số đĩa mềm trắng, dung lượng của mỗi đĩa là M.

Yêu cầu: Hãy tìm cách ghi file lên các đĩa mềm sao cho số đĩa mềm phải dùng là ít nhất. (Tất nhiên mỗi đĩa không thể chứa quá dung lượng M và mỗi file phải nằm gọn trong một đĩa nào đó chứ không được cắt nhỏ và ghi vào nhiều đĩa khác nhau).

Ràng buộc: 1 ≤ n ≤ 100; các ai và M là các số nguyên dương: 1 ≤ ai ≤ M ≤ 10000. ∀i

Dữ liệu: Vào từ file văn bản DISKS.INP

. Dòng 1: Chứa 2 số n, M.

. Các dòng tiếp: Chứa các số từ a1 đến an theo đúng thứ tự đó.

Kết quả: Ghi ra file văn bản DISKS.OUT

. Dòng 1: Ghi số k là số đĩa phải dùng.

. Dòng thứ i trong k dòng tiếp theo: Ghi số hiệu của các file được ghi vào đĩa mềm thứ i.

Ví dụ:

DISKS.INP DISKS.OUT

8 14

9 7 4 3 3 2 8 6

3

1 4 6

7 8

2 3 5

2
18 tháng 2 2020

ko hiểu gì luôn ???lolang

D
datcoder
CTVVIP
14 tháng 10 2023

loading...

A. Phần trắc nghiệm: Hãy chọn một đáp án đúng nhất Câu 1. Trong Pascal, câu lệnh nào sau đây được viết đúng?A. for i:= 4 to 1 do writeln(‘A’); B. for i= 1 to 10  writeln(‘A’);C. for i:= 1 to 10 do writeln(‘A’); D. for i  to 10 do writeln(‘A’);Câu 2. Trong câu lệnh lặp: For i := 1 to 10 do j:= j + 2; write( j );Khi kết thúc câu lệnh lặp trên, câu lệnh write( j ); được thực hiện bao nhiêu lần?A. 10 lần B. 5 lần C. 1 lần              D. Không...
Đọc tiếp

A. Phần trắc nghiệm: Hãy chọn một đáp án đúng nhất 

Câu 1. Trong Pascal, câu lệnh nào sau đây được viết đúng?

A. for i:= 4 to 1 do writeln(‘A’); B. for i= 1 to 10  writeln(‘A’);

C. for i:= 1 to 10 do writeln(‘A’); D. for i  to 10 do writeln(‘A’);

Câu 2. Trong câu lệnh lặp: For i := 1 to 10 do j:= j + 2; write( j );

Khi kết thúc câu lệnh lặp trên, câu lệnh write( j ); được thực hiện bao nhiêu lần?

A. 10 lần B. 5 lần C. 1 lần              D. Không thực hiện.

Câu 3. Cho đoạn chương trình: J:= 0;

                                                            For i:= 1 to 5 do J:= j + i;

Sau khi thực hiện đoạn chương trình trên, giá trị của biến j bằng bao nhiêu?

A. 12    B. 22 C. 15 D. 42.

Câu 4. Trong Pascal, câu lệnh nào sau đây là đúng?

A. S:=1;  B. i:=0; S:=1;

While S<10 do write(S);                 while s<10 do S:=S+i; i:=i+1;  

C. n:=2; while n<5 do write(‘A’); D. Cả A và B.

Câu 5. Khi thực hiện đoạn chương trình sau:  n:=1; T:=50;

        While n < 20 do  begin  n:= n+5; T:=T- n  end;

Hãy cho biết giá trị của biến T  bằng bao nhiêu?

A. 14 B. 15 C. 16 D. 17

Câu 6. Khai báo biến mảng: A : array[1..7] of real;. Sử dụng câu lệnh For i:= 1 to 5 do readln(A[i]);  để gán giá trị cho các phần tử trong biến A từ bàn phím, ta sẽ nhập được bao nhiêu giá trị? 

A. 4 B. 5 C. 6 D. 7

Câu 7. Trong câu lệnh khai báo biến mảng, phát biểu nào sau đây đúng:

A. Chỉ số đầu và chỉ số cuối là 2 số nguyên. B. Chỉ số đầu   chỉ số cuối.

C. Kiểu dữ liệu có thể là integer hoặc real.               D. Cả ba ý trên.

Câu 8. Giả sử biến mảng A có 5 phần tử và giá trị của các phần tử lần lượt là 1, 4, 7, 2, 6. Khi thực hiện câu lệnh sau: tb:= 0; For i:= 1 to 5 do tb := tb + A[i]; Giá trị của biến tb là bao nhiêu?

A. 20 B. 18 C. 21 D. 22

1

Câu 1: B
Câu 2: A

Câu 3: C

Câu 4: B

Câu 5: D

Câu 6: B

Câu 7: A

Câu 8: C