Question

xác định input output và mô tả thuật toán

tìm số lớn nhất trong 3 số a,b,c

Answer 1

Answer 2

1.Xác định bài toán

- Input: Số nguyên dương N và dãy N số nguyên a1,..., aN. - Output: Giá trị lớn nhất Max của dãy số.

2. Ý tưởng:

– Khởi tạo giá trị Max = a1.
– Lần lượt với i từ 2 đến N, so sánh giá trị số hạng ai với giá trị Max, nếu ai > Max thì Max nhận giá trị mới là ai.
3. Thuật toán.

Thuật toán giải bài toán này có thể được mô tả theo cách liệt kê như sau:
Bước 1. Nhập N và dãy a1,…, aN;
Bước 2. Max := a1, i := 2;
Bước 3. Nếu i > N thì đưa ra giá trị Max rồi kết thúc;
Bước 4.
Bước 4.1. Nếu ai > Max thì Max := ai;
Bước 4.2. i := i + 1 rồi quay lại bước 3;

4. Lưu đồ

Answer 3

* Chuong trình tìm số lớn nhất trong 3 số a,b,c
Program max_3so;
Var
so1,so2,so3,max:Integer;
Begin
Writeln(′TIM SO LON NHAT TRONG 3 SO NGUYEN′);
Write(′Nhap so thu nhat: ′);
Readln(so1);
Write(′Nhap so thu hai : ′);
Readln(so2);
Write(′Nhap so thu ba : ′);
Readln(so3);
If so1 < so2 Then
max:=so2
Else
max:=so1;
If max < so3 Then
max:=so3;
Writeln;
Writeln(′+So lon nhat trong 3 so la: ′,max);
Writeln;
Writeln(′Bam phim <Enter> de ket thuc′);
Readln
End