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.

21 tháng 10 2016

Chưa chắc giống nhau nhưng tham khảo :

Câu 1 : Viết các phép tính sau trong pascal :

a) \(\frac{\sqrt{p\left(p-a\right)\left(p-b\right)^2}}{p-c}\)

b) \(a^2+b^2-5ab-\frac{43}{3}\)

c) \(\sqrt{2}+\frac{\sqrt{s+p+c}}{\sqrt{2}}\)

Câu 2 :

Viết chương trình tính diện tích và chu vi hình chữ nhật biết chiều dài và chiều rộng nhập từ bàn phím.

Câu 3 :

Viết chương trình tính diện tích hình tròn biết bán kính được nhập từ bàn phím.

 

7 tháng 10 2016

Mik thực hành thôi bạn

Mọi người làm hộ em ạ                                  ĐỀ CƯƠNG ÔN TẬP TIN HỌC 8 KÌ II                                             Năm học 2020 - 2021I. LÝ THUYẾT  Chọn đáp án đúng trong các đáp án sau.1. Trong Pascal vòng lặp nào sau là vòng lặp có bước lặp xác định (biết trước).A. While … do                                                          B. Repeat … Until               C. For .. to .....
Đọc tiếp

Mọi người làm hộ em ạ

                                  ĐỀ CƯƠNG ÔN TẬP TIN HỌC 8 KÌ II

                                             Năm học 2020 - 2021

I. LÝ THUYẾT

 Chọn đáp án đúng trong các đáp án sau.

1. Trong Pascal vòng lặp nào sau là vòng lặp có bước lặp xác định (biết trước).

A. While … do                                                          B. Repeat … Until               

C. For .. to .. do                                                         D. Case.. of

2. Phương án nào dưới đây là khai báo mảng hợp lệ ?

A. mang : array[0..10] of integer;                          B. mang : array[0..10] : integer;

C. mang : integer of array[0..10];                           D. mang : array(0..10) : integer;

3. Cho khai báo sau :

a : array[0..16] of integer ;

Câu lệnh nào dưới đây sẽ in ra tất cả các phần tử của mảng trên ?

A. for k := 1 to 16 do write(a[k]);                          B. for k := 16 downto 0 do write(a[k]);

C. for k:= 0 to 15 do write(a[k]);                           D. for k := 16 down to 0 write(a[k]);

4. Cho khai báo sau:

Var a : array[0..10] of integer ;

Phương án nào dưới đây chỉ phần tử thứ 10 của mảng ?

A. a[10];                                 B. a(10);                     C. a[9];                       D. a(9);

5. Chọn khai báo đúng:

A. Var A: array[1..10] of integer;                          B. Var A= array[1..10] of integer;

C. Var A:= array[1..10] of integer;                        D. Var A: array[1,10] of integer;

6. Cho khai báo:  Var a : array[0..50] of real;  và đoạn chương trình:

k := 0 ;

for i := 1 to 50 do

            if a[i] < a[k] then k := i ;

Đoạn chương trình trên thực hiện công việc gì dưới đây ?

A.Tìm phần tử nhỏ nhất trong mảng;

B.Tìm phần tử lớn nhất trong mảng;

C.Tìm chỉ số của phần tử lớn nhất trong mảng;

D.Tìm chỉ số của phần tử nhỏ nhất trong mảng;

7. Cho S va i là biến nguyên. Khi chạy đoạn chương trình:

            S:=0;

            For i:=1 to 10 do s:=s+i;

            Writeln(s);

Kết quả in lên màn hình là:

A. s=11                                  B. s=55                                   C. s=100                    D. s=101

8.  Câu lệnh cho phép ta nhập giá trị của a từ bàn phím là:

            A. readln(a);                                                 B. Writeln(a);           

C. Write(‘nhap gia tri cua a:’);                               D. Write(a);

9. Câu lệnh lặp với số lần chưa biết trước bắt đầu bằng từ khóa:

A. For                         B. While                                 C. If                             D. Var

10. Cho S và i là biến nguyên. Khi chạy đoạn chương trình :

          s:=0;

          for i:=1 to 3 do s := s + i;

          writeln(s);

    Kết quả in lên màn hình của S là :

A.  6

B.  3

C.  0

D.  5

11. Khai báo biến kiểu mảng nào sau đây là hợp lệ:

A. Var A: array[1.5..10.5] of real;                         B. Var A: array[1…N] of real;

C. Var A: array[100..1] of integer;                                    D. Var A: array[1..50] of integer;

12. Khi chạy chương trình:

Var S, i, j: Integer;

Begin

S:=0;

for i:= 1 to 3 do

for j:= 1 to 4 do S:=S+1;

End.

Giá trị sau cùng của S là:

A. 4                             B. 3                             C. 12                           D. 0

13. Một số kiểu dữ liệu trong passcal:

  A. Integer, real, byte, char…

B. Writeln, readln, integer, begin...

  C. For, while, array, to…

D. While, do, real…

14. Câu lệnh lặp while…do nào dưới đây là đúng:

A. While i:=10 do S := S+1/i;                                 B. While i > 1 do S = S+1/i;

C. While 10 do S := S+1/i;                                      D. While i do S = S+1/i;

15. Cho khai báo:  Var a : array[0..50] of real ;    và đoạn chương trình

k := 0 ;

for i := 1 to 50 do

            if a[i] > a[k] then k := i ;

Đoạn chương trình trên thực hiện công việc gì dưới đây ?

A. Tìm phần tử nhỏ nhất trong mảng;

B. Tìm phần tử lớn nhất trong mảng;

C. Tìm chỉ số của phần tử lớn nhất trong mảng;

D. Tìm chỉ số của phần tử nhỏ nhất trong mảng;

II. TỰ LUẬN

Câu 1. Viết chương trình nhập n số nguyên từ bàn phím, in dãy số nguyên đó ra màn hình và tìm giá trị lớn nhất trong dãy.

Câu 2. Viết chương trình nhập n số nguyên từ bàn phím, in dãy số nguyên đó ra màn hình và tìm giá trị nhỏ nhất trong dãy.

Câu 3. Viết chương trình nhập một dãy gồm n số thực từ bàn phím. Tính tổng và trung bình cộng các số đó. In kết quả tính được ra màn hình.

Câu 4. Viết chương trình nhập một dãy gồm n số nguyên từ bàn phím, đếm xem có trong đó có bao nhiêu số là số chẵn. Tính tổng các số chẵn đó. In kết quả tính được ra màn hình.

12

I: Trắc nghiệm

Câu 1:C

Câu 2: A

Câu 3: B

Câu 4: A

#include <bits/stdc++.h>

using namespace std;

double a,b,c,tbc;

int main()

{

cin>>a>>b>>c;

tbc=(a*3+b*2+c*3)/8;

cout<<fixed<<setprecision(2)<<tbc;

return 0;

}

 

                              ĐỀ CƯƠNG ÔN TẬP HK I MÔN TIN 81. Biến là gì? Hằng là gì? Cách khai báo biến và hằng? Nêu sự khác nhau giữa biến và hằng? Cho ví dụ về khai báo biến và hằng?2. Quá trình giải bài toán trên máy tính gồm mấy bước, nêu rõ các bước?3. Hãy xác định Input, output và mô tả thuật toán tính tổng các số tự nhiên chia hết cho 3 không lớn hơn n.4. Hãy xác định Input, output và mô tả thuật toán cho biết 3 số...
Đọc tiếp

                              ĐỀ CƯƠNG ÔN TẬP HK I MÔN TIN 8

1. Biến là gì? Hằng là gì? Cách khai báo biến và hằng? Nêu sự khác nhau giữa biến và hằng? Cho ví dụ về khai báo biến và hằng?

2. Quá trình giải bài toán trên máy tính gồm mấy bước, nêu rõ các bước?

3. Hãy xác định Input, output và mô tả thuật toán tính tổng các số tự nhiên chia hết cho 3 không lớn hơn n.

4. Hãy xác định Input, output và mô tả thuật toán cho biết 3 số a, b, c là độ dài ba cạnh của một tam giác hay không?

5. Cho biết cú pháp của câu lệnh điều kiện dạng thiếu và dạng đủ?

6. Viết chương trình nhập hai số nguyên a và b khác nhau từ bàn phím. In hai số đó ra màn hình theo thứ tự không giảm.

7. Viết chương trình nhập ba số nguyên a, b, c từ bàn phím, in ra màn hình kết quả số lớn nhất trong 3 số vừa nhập.

8. Viết thuật toán tìm số chẵn trong dãy số a1, a2,a3…(an n>=1)

9. Viết thuật toán tính tổng 100 số tự nhiên đầu tiên.

 

0
NG
14 tháng 10 2023

loading...

                     ĐỀ CƯƠNG TIN 8 GIỮA KÌ IICâu 1: Hoạt động nào sau đây lặp với số lần biết trước:A. Hôm nay em thức dậy trễ do được nghỉ họcB. Lấy xà bông để giặt đồC. Mỗi ngày, em thức dậy lúc 5 giờ sángD. Rửa chénCâu 2: Trong câu lệnh lặp for…do, số vòng lặp là biết trước và bằng:A. giá trị cuối – giá trị đầu + 1B. giá trị cuối – giá trị đầu + 2C. giá trị cuối – giá trị đầu - 1D. giá...
Đọc tiếp

                     ĐỀ CƯƠNG TIN 8 GIỮA KÌ II

Câu 1: Hoạt động nào sau đây lặp với số lần biết trước:

A. Hôm nay em thức dậy trễ do được nghỉ học

B. Lấy xà bông để giặt đồ

C. Mỗi ngày, em thức dậy lúc 5 giờ sáng

D. Rửa chén

Câu 2: Trong câu lệnh lặp for…do, số vòng lặp là biết trước và bằng:

A. giá trị cuối – giá trị đầu + 1

B. giá trị cuối – giá trị đầu + 2

C. giá trị cuối – giá trị đầu - 1

D. giá trị cuối – giá trị đầu - 2

Câu 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 99 do;

end.

A. Chương trình chạy biến i từ 1 đến 100.

B. Chương trình chạy biến i từ 1 đến 99 rồi không làm gì cả.

C. Chương trình chạy biến i từ 1 đến 100 rồi không làm gì cả.

D. Chương trình chạy biến i từ 1 đến 99.

Câu 4: Sau khi thực hiện đoạn chương trình Pascal :

X:=3

For i : = 1 to 3 do

x : = x - 1

X sẽ nhận được giá trị nào dưới đây ?

A. – 1;     B. 1 ;     C. -4 ;     D. 0 ;

Câu 5: Điều kiện trong câu lệnh lặp với số lần chưa biết trước thường là :

A. phép gán B. Câu lệnh đơn C. Câu lệnh ghép D. Phép so sánh

Câu 6: câu lệnh lặp For i:=1 to 5 do Writeln(‘Day la lan lap thu ‘,i); sẽ in ra màn hình mấy dòng chữ?

A. 1     B. 3     C. 5     D. 7

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

k: = 0;

For i:= 1 to 3 do k:= k + 2;

A. 6     B. 8     C. 5     D. 2

Câu 8: Hãy đọc đoạn chương trình sau:

s:=0;

for i:= 1 to 5 do s:= s * i;

Sau khi thực hiện xong, kết quả s bằng:

A. 15     B. 0    C. Kết quả khác     D. 120

Câu 9: Cho S và i là biến nguyên. Khi chạy đoạn chương trình :

s:=0;

for i:=1 to 3 do s := s+2*i;

writeln(s);

Kết quả in lên màn hình là :

A. 12     B. 10     C. 0     D. 6

Câu 10: Hãy cho biết số lần lặp của câu lệnh for sau đây: for i:=1 to 5 do …

A. 6 lần     B. 5 lần     C. 4 lần     D. 3 lần

Câu 11: Kiểu dữ liệu của biến đếm trong lệnh lặp For – do:

   A. Cùng kiểu với giá trị đầu và giá trị cuối

   B. Chỉ cần khác kiểu với giá trị đầu

   C. Cùng kiểu với các biến trong câu lệnh

   D. Không cần phải xác định kiểu dữ liệu

Câu 12: Hoạt động nào sau đây lặp với số lần lặp biết trước?

   A. Giặt tới khi sạch

   B. Học bài cho tới khi thuộc bài

   C. Gọi điện tới khi có người nghe máy

   D. Ngày đánh răng 2 lần

Câu 13: Chọn cú pháp câu lệnh lặp là:

   A. for < biến đếm > : = < giá trị đầu > to < giá trị cuối > do < câu lệnh >;

   B. for < biến đếm > := < giá trị cuối > to < giá trị đầu > do < câu lệnh >;

   C. for < biến đếm > = < giá trị đầu > to < giá trị cuối >; do < câu lệnh >;

   D. for < biến đếm > = < giá trị đầu > to < giá trị cuối > do < câu lệnh >;

Câu 14: Câu lệnh For..to..do kết thúc :

   A. Khi biến đếm nhỏ hơn giá trị cuối

   B. Khi biến đếm lớn hơn giá trị cuối

   C. Khi biến đếm nhỏ hơn giá trị đầu

   D. Khi biến đếm lớn hơn giá trị đầu

Câu 15: Cho các câu lệnh sau hãy chỉ ra câu lệnh đúng :

   A. for i:=1 to 10; do x:=x+1;

   B. for i:=1 to 10 do x:=x+1;

   C. for i:=10 to 1 do x:=x+1;

   D. for i =10 to 1 do x:=x+1;

Câu 16: 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 nào?

   A. Integer

   B. Real

   C. String

   D. Tất cả các kiểu trên đều được

Câu 17: Đoạn chương trình sau giải bài toán nào?

      For I:=1 to M do

          If (I mod 3 = 0) and (I mod 5 = 0) then

             T := T + I;

   A. Tổng các số chia hết cho 3 hoặc 5 trong phạm vi từ 1 đến M

   B. Tổng các số chia hết cho 3 và 5 trong phạm vi từ 1 đến M

   C. Tổng các số chia hết cho 3 trong phạm vi từ 1 đến M

   D. Tổng các số chia hết cho 5 trong phạm vi từ 1 đến M

Câu 18: Xác định số vòng lặp cho bài toán: tính tổng các số nguyên từ 1 đến 100

   A. 1

   B. 100

   C. 99

   D. Tất cả đều sai

Câu 19:Trong lệnh lặp For – do:

   A. Giá trị đầu phải nhỏ hơn giá trị cuối

   B. Giá trị đầu phải nhỏ hơn hoặc bằng giá trị cuối

   C. Giá trị đầu phải lớn hơn giá trị cuối

   D. Giá trị đầu phải bằng giá trị cuối

Câu 20:Sau khi thực hiện đoạn chương trình sau:

   S:=10;

   For i:=1 to 4 do S:=S+i;

   Giá trị của biến S bằng bao nhiêu?

   A. 20

   B. 14

   C. 10

   D. 0

Câu 21: Vòng lặp While – do kết thúc khi nào

   A. Khi một điều kiện cho trước được thỏa mãn

   B. Khi đủ số vòng lặp

   C. Khi tìm được Output

   D. Tất cả các phương án

Câu 22: Việc đầu tiên mà câu lệnh While ... do cần thực hiện là gì?

   A. Thực hiện < câu lệnh > sau từ khóa Do

   B. Kiểm tra giá trị của < điều kiện >

   C. Thực hiện câu lệnh sau từ khóa Then

   D. Kiểm tra < câu lệnh >

Câu 23: Cho biết câu lệnh sau Do thực hiện mấy lần trong đoạn chương trình sau:

   i := 5;

   While i>=1 do i := i – 1;

   A. 1 lần

   B. 2 lần

   C. 5 lần

   D. 6 lần

Câu 24:Hãy cho biết kết quả của đoạn chương trình dưới đây:

a:=10; While a < 11 do write (a);

   A. Trên màn hình xuất hiện một số 10

   B. Trên màn hình xuất hiện 10 chữ a

   C. Trên màn hình xuất hiện một số 11

   D. Chương trình bị lặp vô tận

Câu 25:Câu lệnh sau giải bài toán nào:

   While M <> N do

   If M > N then M:=M-N else N:=N-M;

   A. Tìm UCLN của M và N

   B. Tìm BCNN của M và N

   C. Tìm hiệu nhỏ nhất của M và N

   D. Tìm hiệu lớn nhất của M và N

Câu 26:Hoạt động nào sau đây lặp với số lần lặp chưa biết trước?

   A. Ngày tắm hai lần

   B. Học bài cho tới khi thuộc bài

   C. Mỗi tuần đi nhà sách một lần

   D. Ngày đánh răng 2 lần

Câu 27:cú pháp lệnh lặp với số lần chưa biết trước:

   A. While < điều kiện > to < câu lệnh >;

   B. While < điều kiện > to < câu lệnh 1 > do < câu lệnh 2 >;

   C. While < điều kiện > do ;< câu lệnh >;

   D. While < điều kiện > do < câu lệnh >;

Câu 28:Tính tống S = 1 + 2 + 3 + … + n + … cho đến khi S>108. Điều kiện nào sau đây cho vòng lặp while – do là đúng:

   A. While S>=108 do

   B. While S < 108 do

   C. While S < 1.0E8 do

   D. While S >= E8 do

Câu 29:Pascal sử dụng câu lệnh lặp nào sau đây để lặp với số lần chưa biết trước:

   A. For…do

   B. While…do

   C. If..then

   D. If…then…else

Câu 30:Hãy đưa ra kết quả trong đoạn lệnh:

   x:=1; While x<=5 do write(‘Hoa hau’);

   A. x:=1

   B. X>=5

   C. Hoa hau

   D. Không có kết quả.

1
22 tháng 3 2022

tối đa 10 câu thui nha bn

26 tháng 4 2023

 

program sodiemcaonhat; var i,max,n:integer; a:array [1..10000] of integer; begin write('nhap so phan muon nhap='); read(n); for i:=1 to n do begin write('diem thu',i,'='); read(a[i]); end; max:=a[1]; for i:=1 to n do begin if max < a[i] then max:=a[i]; end; write('so diem cao nhat la=',max); readln end.

 

26 tháng 4 2023

program sodiemcaonhat;
var i,max,n:integer;
a:array [1..10000] of integer;
begin
write('nhap so phan muon nhap='); read(n);
for i:=1 to n do begin
write('diem thu',i,'='); read(a[i]);
end;
max:=a[1];
for i:=1 to n do begin
if max < a[i] then max:=a[i];
end;
write('so diem cao nhat la=',max);
readln
end.