Viết chương trình tìm giá trị nhỏ nhất của dãy n số được nhập từ bàn phím

I. Các bài tập viết chương trình tìm giá trị nhỏ nhất, giá trị lớn nhất.

1. Viết chương trình tìm giá trị nhỏ nhất trong 4 số a, b, c, d (a, b, c, được nhập từ bàn phím).

2. Viết chương trình tìm giá trị lớn nhất trong 4 số a, b, c, d (a, b, c, được nhập từ bàn phím).

3. Viết chương trình tìm giá trị lớn nhất, nhỏ nhất trong 4 số a, b, c, d.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

ProgramMax_Min;

Usescrt;

Vara,b,c,d:integer;

max,min:integer;

Begin

clrscr;

write('nhap so thu nhat :'); readln(a);

max:=a; min:=a;

write('nhap so thu hai :'); readln(b);

ifmaxb thenmin:=b;

write('nhap so thu ba :'); readln(c);

ifmaxc thenmin:=c;

write('nhap so thu tu :'); readln(d);

ifmaxd thenmin:=d;

writeln('So lon nhat la :',max);

writeln('So nho nhat la :',min);

readln;

End.

4. Viết chương trình nhập vào một dãy số nguyên có n phần tử. In ra màn hình phần tử nhỏ nhất, phần tử lớn nhất và giá trị trung bình của danh sách ra màn hình

II. Các dạng câu lệnh trong chương trình Pascal

1. Câu lệnh if…then…

Nếu <Điều Kiện> thì

If <Điều kiện> then

Nếu điều kiện true thì biểu thức sẽ được thực hiện, còn nếu điều kiện false thì biểu thức sẽ không được thực hiện.

Câu lệnh if… then…. được dùng trong trường hợp để so sánh các phép toán hoặc các phép toán có điều kiện.

Ví dụ:So sánh hai số a, b

Nếu a>b thì in số a ra màn hình

If a>0 then writeln (‘a la so lon hon’);

2. Câu lệnh for…do…

Câu lệnh for…do…. nghĩa là lặp với số lần biết trước, nếu ta biết được số lần lặp lại của một dãy số, một tổng,… thì ta sẽ sử dụng for…do….

For := to do

Trong đó:

  • Biến có kiểu số nguyên integer
  • Giá trị cuối phải lớn hơn giá trị đầu và là kiểu số nguyên.
  • Câu lệnh có thể là câu lệnh đơn (một lệnh) hay lệnh ghép (nhiều lệnh)

Ví dụ: Tính tổng từ 1 tới 10 bằng Pascal

3. Câu lệnh while…do…

Câu lệnh while… do… nghĩa là lặp với số lần chưa biết trước và phụ thuộc vào một điều kiện cụ thể và chỉ dừng lại khi điều kiện đó sai.

Trong Pascal câu lệnh lặp với số lần chưa biết trước là:

while <điều kiện> do ;

Ví dụ: Tính S là tổng các số tự nhiên sao cho số S nhỏ nhất để S > 1000

III. Những cấu trúc trong chương trình pascal lớp 11

1. Cấu trúc rẽ nhánh

Cấu trúc rẽ nhánh có dạng:

- Dạng thiếu: If <điều kiện> then (đã được học ở lớp 8)

-Dạng đủ If <điều kiện> then else

Ở dạng đủ câu lệnh được hiểu như sau: Nếu <điều kiện> đúng thì được thực hiện, ngược lại thì được thực hiện.

Ví dụ: Nếu x <= 200 thì số tiền phải trả là x*300 đồng. Nếu không thì số tiền phải trả là x*280 đồng

Đưa vào ngôn ngữ pascal là:

If x<=200 then

Writeln (‘So tien phai tra la ’, x*300, ‘dong’)

else

Writeln (‘So tien phai tra la ’, x*280, ‘dong’);

2. Cấu trúc lặp

Trong cấu trúc lặp có 2 dạng:

-Lặp dạng tiến:

For := to do ;

Ví dụ:

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

Ta được kết quả như sau:

-Dạng lặp lùi

For := to do ;

For i:=10 downto 1 do if sqrt(i)>2 then s:=s+i;

Ta được kết quả như sau:

Top 1 ✅ Viết chương trình tìm giá trị nhỏ nhất của dãy số nguyên nam 2022 được cập nhật mới nhất lúc 2022-01-25 07:10:13 cùng với các chủ đề liên quan khác

Viết chương trình tìm giá trị nhỏ nhất c̠ủa̠ dãy số nguyên

Hỏi:

Viết chương trình tìm giá trị nhỏ nhất c̠ủa̠ dãy số nguyên

Viết chương trình tìm giá trị nhỏ nhất c̠ủa̠ dãy số nguyên

Đáp:

dananh:

Program Mang;Uses crt;Var A:array[1..10000] of longint;    i,min: longint;Begin        Clrscr;        Write[‘Nhap n: ‘]; Readln[n];        For i:=1 to n do        Begin                Write[‘A[‘,i’] = ‘]; Readln[A[i]];

        End;

        min:=A[1];        For i:=1 to n do                If A[i]

End.

dananh:

Program Mang;Uses crt;Var A:array[1..10000] of longint;    i,min: longint;Begin        Clrscr;        Write[‘Nhap n: ‘]; Readln[n];        For i:=1 to n do        Begin                Write[‘A[‘,i’] = ‘]; Readln[A[i]];

        End;

        min:=A[1];        For i:=1 to n do                If A[i]

End.

Viết chương trình tìm giá trị nhỏ nhất c̠ủa̠ dãy số nguyên

Xem thêm : ...

Vừa rồi, đổi.vn đã gửi tới các bạn chi tiết về chủ đề Viết chương trình tìm giá trị nhỏ nhất của dãy số nguyên nam 2022 ❤️️, hi vọng với thông tin hữu ích mà bài viết "Viết chương trình tìm giá trị nhỏ nhất của dãy số nguyên nam 2022" mang lại sẽ giúp các bạn trẻ quan tâm hơn về Viết chương trình tìm giá trị nhỏ nhất của dãy số nguyên nam 2022 [ ❤️️❤️️ ] hiện nay. Hãy cùng đổi.vn phát triển thêm nhiều bài viết hay về Viết chương trình tìm giá trị nhỏ nhất của dãy số nguyên nam 2022 bạn nhé.

1. Viết chương trình tìm giá trị nhỏ nhất trong 4 số a, b, c, d [a, b, c, được nhập từ bàn phím].

2. Viết chương trình tìm giá trị lớn nhất trong 4 số a, b, c, d [a, b, c, được nhập từ bàn phím].

3. Viết chương trình tìm giá trị lớn nhất, nhỏ nhất trong 4 số a, b, c, d.

Bạn đang xem: Viết chương trình pascal tìm số lớn nhất và nhỏ nhất

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

Program Max_Min;

Uses crt;

Var a,b,c,d:integer;

    max,min:integer;

Begin

clrscr;

   write[‘nhap so thu nhat :’]; readln[a];

   max:=a;   min:=a;

   write[‘nhap so thu hai :’];  readln[b];

   ifmaxb thenmin:=b;

   write[‘nhap so thu ba :’];   readln[c];

   ifmaxc then min:=c;

   write[‘nhap so thu tu :’];   readln[d];

   ifmaxd then min:=d;

   writeln[‘So lon nhat la :’,max];

   writeln[‘So nho nhat la :’,min];

readln;

End.

4. Viết chương trình nhập vào một dãy số nguyên có n phần tử. In ra màn hình phần tử nhỏ nhất, phần tử lớn nhất và giá trị trung bình của danh sách ra màn hình

II. Các dạng câu lệnh trong chương trình Pascal 

1. Câu lệnh if…then…

Nếu <điều> thì

If <điều> then

Nếu điều kiện true thì biểu thức sẽ được thực hiện, còn nếu điều kiện false thì biểu thức sẽ không được thực hiện.

Câu lệnh if… then…. được dùng trong trường hợp để so sánh các phép toán hoặc các phép toán có điều kiện.

Ví dụ: So sánh hai số a, b

Nếu a>b thì in số a ra màn hình 

If a>0 then writeln [‘a la so lon hon’];

2. Câu lệnh for…do…

Câu lệnh for…do…. nghĩa là lặp với số lần biết trước, nếu ta biết được số lần lặp lại của một dãy số, một tổng,… thì ta sẽ sử dụng for…do….

For := to do

Trong đó: 

  • Biến có kiểu số nguyên integer
  • Giá trị cuối phải lớn hơn giá trị đầu và là kiểu số nguyên.
  • Câu lệnh có thể là câu lệnh đơn [một lệnh] hay lệnh ghép [nhiều lệnh]

Ví dụ: Tính tổng từ 1 tới 10 bằng Pascal

3. Câu lệnh while…do…

Câu lệnh while… do… nghĩa là lặp với số lần chưa biết trước và phụ thuộc vào một điều kiện cụ thể và chỉ dừng lại khi điều kiện đó sai.

Trong Pascal câu lệnh lặp với số lần chưa biết trước là: 

while <điều> do ;

Ví dụ: Tính S là tổng các số tự nhiên sao cho số S nhỏ nhất để S > 1000

III. Những cấu trúc trong chương trình pascal lớp 11

1. Cấu trúc rẽ nhánh

Cấu trúc rẽ nhánh có dạng: 

– Dạng thiếu: If <điều> then [đã được học ở lớp 8]

– Dạng đủ If <điều> then else

Ở dạng đủ câu lệnh được hiểu như sau: Nếu <điều> đúng thì được thực hiện, ngược lại thì được thực hiện.

Ví dụ: Nếu x <=>

Đưa vào ngôn ngữ pascal là: 

If x<=200>

Writeln [‘So tien phai tra la ’, x*300, ‘dong’]

else 

Writeln [‘So tien phai tra la ’, x*280, ‘dong’];

2. Cấu trúc lặp

Trong cấu trúc lặp có 2 dạng: 

– Lặp dạng tiến: 

For := to do ;

Ví dụ: 

For i:=1 to 5 do writeln[‘i= ’,i];

Ta được kết quả như sau: 

– Dạng lặp lùi

For := to do ;

For i:=10 downto 1 do if sqrt[i]>2 then s:=s+i;

Ta được kết quả như sau: 

Đăng bởi: Đại Học Đông Đô

Chuyên mục: Lớp 11, Tin Học 11

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn

ĐĂNG BÀI NGAY để cùng thảo luận với các CAO THỦ trên mọi miền tổ quốc. Hoàn toàn miễn phí!

Viết chương trình nhập vào một mảng n số nguyên từ bàn phím , và in ra màn hình giá trị lớn nhất và nhỏ nhất của mảng.Sử dụng lệnh while...do
Mọi người giúp mình với ạ, ngày mai mik kiểm tra rồi!!!

Last edited: 17 Tháng tư 2018

program abc; uses crt; var a,b,c,dmax : integer; begin clrscr; write [ ' nhap a =' ]; readln [a]; write [ ' nhap b = ']; readln [b]; write [ ' nhap c =' ]; readln [c]; write [ ' nhap d = ' ]; readln [d]; a:=max; if max

end.

program abc; uses crt; var a,b,c,dmax : integer; begin clrscr; write [ ' nhap a =' ]; readln [a]; write [ ' nhap b = ']; readln [b]; write [ ' nhap c =' ]; readln [c]; write [ ' nhap d = ' ]; readln [d]; a:=max; if max

end.

Mảng n số mà bạn. Dùng vòng lặp for ... to ... do

Reactions: Pé Phương and dương đại uyển