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 …...
Đọ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

BÀI KIỂM TRA HỌC KÌ II - NĂM HỌC 2020-2021 *Bắt buộc TRẮC NGHIỆM Hãy chọn một phương án đúng nhất! Khi thực hiện câu lệnh for i:= 1 to 3.5 do writeln(i); sẽ viết ra màn hình: * 5 điểm Chỉ viết số 3.5 mà thôi Viết số 1 rồi viết số 3.5 Giá trị biến đếm. Không thực hiện được vì giá trị cuối không phải là số nguyên. Cấu trúc rẽ nhánh dạng đầy đủ có dạng: * 5 điểm If then else ; If ...
Đọc tiếp

BÀI KIỂM TRA HỌC KÌ II - NĂM HỌC 2020-2021 *Bắt buộc TRẮC NGHIỆM Hãy chọn một phương án đúng nhất! Khi thực hiện câu lệnh for i:= 1 to 3.5 do writeln(i); sẽ viết ra màn hình: * 5 điểm Chỉ viết số 3.5 mà thôi Viết số 1 rồi viết số 3.5 Giá trị biến đếm. Không thực hiện được vì giá trị cuối không phải là số nguyên. Cấu trúc rẽ nhánh dạng đầy đủ có dạng: * 5 điểm If then else ; If then else ; If then else ; If then ; else ; Mục khác: Nêu lợi ích của việc khai báo và sử dụng biến mảng: * 5 điểm Có thể thay thế nhiều câu lệnh nhập In dữ liệu ra màn hình bằng một câu lệnh lặp. Tất cả đều sai. Câu a và b đúng. Trong các từ cho dưới đây, đâu là từ khoá: * 5 điểm writeln readln write program Mục khác: Trong Pascal, câu lệnh lặp với số lần chưa biết trước có dạng: * 5 điểm While do ; While do; While do While do ; Mục khác: Trong câu lệnh khai báo biến mảng, phát biểu nào sau đây đúng: * 5 điểm Kiểu dữ liệu có thể là integer hoặc real. Cả ba ý trên. Chỉ số đầu nhỏ hơn chỉ số cuối. Chỉ số đầu và chỉ số cuối là 2 số nguyên. Để khai báo A là một biến mảng có 10 phần tử kiểu nguyên, cách khai báo nào sau đây là đúng nhất: * 5 điểm Var A: array[1....10] of real; Var A: array[1..10] of integer; Var A: array[1..10] of real; Var A = array[1..10] of integer; Tên nào hợp lệ trong các tên sau: * 5 điểm 2a var CHUvi chu vi Hãy cho biết đâu là phần khai báo biến mảng A gồm 20 phần tử thuộc kiểu dữ liệu số nguyên: * 5 điểm var A: array[1..20] of real; var A: array[1..20] of integer; var A: array[11..30] of integer; var A: array[11..30] of real; Trong Pascal, cách khai báo mảng đúng là: * 5 điểm Tên mảng : array[: ] of ; Tên mảng : array[.. ] : ; Tên mảng : array[, ] of ; Tên mảng : array[.. ] of ; 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?: * 5 điểm Readln(A[k]); Readln(A10); Readln(A[10]); Readln(A[i]); Trong TP, biểu thức (10*((42 mod 5) + 19))/6 cho kết quả bằng: * 5 điểm 35 25 20 30 Để chạy chương trình TP ta sử dụng tổ hợp phím: * 5 điểm F + 9 Ctrl + F9 Alt + F9 Ctrl + S Mục khác: Lệnh lặp nào sau đây là đúng: * 5 điểm For i := 100 to 1 do writeln('A'); For i := 1.5 to 10.5 do writeln('A'); For i = 1 to 10 do writeln('A'); For i := 1 to 100 do writeln('A'); Cách khai báo nào là đúng trong các khai báo sau: * 5 điểm Var A: array[5 . . 10,5] of real; Var A: array[4. . 8] of integer; Var A: array[10,5 . . 13] of integer; Var A: array[3,4 . . 4,8] of real; Hãy cho biết đâu là lệnh lặp For .. do để in chữ O: * 5 điểm For i:=1.5 to 10.5 do writeln(‘O’); For i:=100 to 1 do writeln(‘O’); For i:=1 to 10 do; writeln(‘O’; For i:=1 to 10 do writeln(‘O’); Cho biết kết quả của T sau khi thực hiện đoạn chương trình sau: T:=0; For i:=1 to 5 do T:=T+i; * 5 điểm T = 5 T = 1 T = 15 T = 0 Mục khác: Trong câu lệnh lặp for i:=1 to 12 do Write(‘A’); thì lệnh Write(‘A’) được thực hiện bao nhiêu lần (nói cách khác, bao nhiêu vòng lặp được thực hiện?) * 5 điểm 1 lần 2 lần 12 lần Không lần nào Câu lệnh dùng để khai báo biến x có kiểu dữ liệu là kiểu số nguyên là: * 5 điểm Const x: integer; Const x: real; Var x: integer; Var x: real; Chọn khai báo hợp lệ: * 5 điểm Var a,b: array[1 .. n] of real; Var a,b: array[1 : n] of Integer; Var a,b: array[1 .. 100] of real; Var a,b: array[1 … 100] of real;

2

Trắc nghiệm: Không thực hiện được vì giá trị cuối không phải là số nguyên

Cấu trúc rẻ nhánh dạng đầy đủ có dạng

If then else;

25 tháng 4 2017

Tự luận:

Câu 1: Các câu lệnh của vòng lặp không có câu lệnh kết thúc điều kiện thì vòng lặp sẽ lặp vô hạn.

Câu 2: Máy thực hiện 5 vòng lặp:

Vòng lặp 1: M=2

Vòng lặp 2: M=4

Vòng lặp 3: M=6

Vòng lặp 5: M=8

Vòng lặp 5: M=10

Câu 3:

program tỉntong;

uses crt;

var s :real; i, n : integer;

begin

clrscr;

write('So thu n la: '); readln(n);

S:=0; i:=1;

while i<= n do begin

S:=S+1/i; i:= i+1; end;

writeln('Tong cac so do la: ',S:2:3);

readln

end.

Ko hiểu chỗ nào thì bạn hỏi nhé!

25 tháng 4 2017

Nếu hiểu thì tick đúng cho mình phát nhé!

14 tháng 10 2023

loading...

8 tháng 5 2017

thiếu hai dấu chấm phẩy ";" ở: Bài 2. Làm quen với chương trình và ngôn ngữ lập trình

sửa thành:

TB: real;

A: array [1..100] of real;

lại thiếu dấu chấm phẩy ở ba chỗ nữa lần lượt là:

Bài 2. Làm quen với chương trình và ngôn ngữ lập trìnhBài 2. Làm quen với chương trình và ngôn ngữ lập trìnhBài 2. Làm quen với chương trình và ngôn ngữ lập trình

Sửa lại thành:

readln (a[i]);

TB:=0;

TB:=TB/n;

Cần có thêm readln trên end. để dừng chương trình lại để xem.

uses crt;

var a:array[1..20]of real;

t,tb,ln,nn:real;

i,n:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

t:=0;

for i:=1 to n do t:=t+a[i];

writeln(t:4:2);

writeln(t/n:4:2);

nn:=a[1];

ln:=a[1];

for i:=1 to n do 

begin

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

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

end;

writeln(nn);

writeln(ln);

readln;

end.