Bài 5. Từ bài toán đến chương trình

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Lê Hồ Duy Quang

Viết thuật toán, vẽ sơ đồ hoạt động, viết chương trình:

1.Tìm số lớn nhất trong 1 dãy cho trước

2.Sắp xếp 1 dãy số cho trước theo thứ tự tăng dần

Help me @@ Mai nộp rồi @@

Phan Đức Trung
17 tháng 1 2020 lúc 12:19

Thuật toán câu 1:

Bài này dùng mảng A

Đầu tiên cho biến MAX = số đầu tiên trong dãy đó cho vòng for từ 2 đến số chữ số(ví dụ: dãy số là:7 2 8 83 6 8

trong dãy có 6 chữ số). Trong vòng for thực hiện câu lệnh if MAX<A[i] then MAX:=A[i]

Sau khi xong thì cứ hiện thị biến MAX là xong

XIN LỖI nhưng mình không làm sơ đồ được

Chương trình:

Var

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

i,n,max:integer;

Begin

Write('nhap do dai cua mang la'); readln(n);

For i:=1 to n do

Begin

Write('A[',i,']='); readln(a[i]);

End;

Max:=a[1];

For i:=2 to n do

If max<a[i] then max:=a[i];

Writeln('gia tri lon nhat trong mang la',max);

Readln;

End.

Khách vãng lai đã xóa
Phan Đức Trung
17 tháng 1 2020 lúc 12:34

thuật toán câu 2:

Như thuật toán câu 1 vẫn dùng mảng A

Đầu tiên cho vòng for lòng vòng for khác

For i:=1 to n do

For j:=i+1 to n do

Sau khi nhập vòng for j xong thì so sánh nếu a[i]>a[j]

Sau khi so sánh nếu điều kiện đúng thì thực hiện việc đổi giá trị cho 2 biến trên

Và cuối cùng là hiện thị mảng trên

Chương trình:

Var A[1..100] of integer;

n,j,i,sx:integer;

Begin

Write('nhap do dai cua mang'); readln(n);

For i:=1 to n do begin

Write('a[',i,'[=');

Readln(a[i]);

End;

For i:=1 to n do

For j:=i+1 to n do

If a[i]>a[j] then

Begin

SX:=a[i];

A[i]:=a[j];

A[j]:=SX; end;

Writeln('sap xep mang A tang dan');

For i:=1 to n do write(a[i]:4);

Readln;

End.

Khách vãng lai đã xóa
Nguyễn Lê Phước Thịnh
17 tháng 1 2020 lúc 14:11

*Thuật toán

Câu 1:

-Bước 1: nhập dãy số

-Bước 2: ln:=a[1]; i:=1;

-Bước 3: nếu ln<a[i] thì ln←a[i];

-Bước 4: i←i+1;

-Bước 5: Nếu i<=n thì quay lại bước 3

-Bước 6: xuất ln

-Bước 7: Kết thúc

Câu 2:

-Bước 1: nhập dãy số

-Bước 2: i=1

-Bước 3: j=N

Trong khi j>i thực hiện: Nếu a[j]<a[j-1]: hoán đổi a[j] và a[j-1]

j←j-1

-Bước 4: i←i+1

Nếu i>N-1 thì dừng Ngược lại, lặp lại Bước 2

-Bước 5: xuất dãy

-Bước 6: kết thúc

*Sơ đồ hoạt động:

Câu 1:

Khách vãng lai đã xóa

Các câu hỏi tương tự
Nhung Ngô
Xem chi tiết
my tra
Xem chi tiết
linh khánh
Xem chi tiết
Sách Giáo Khoa
Xem chi tiết
hồng trương
Xem chi tiết
Uyển Lộc
Xem chi tiết
Trâm
Xem chi tiết
Sách Giáo Khoa
Xem chi tiết
Trần Thụy Trà My
Xem chi tiết