Viết chương trình in ra số lớn nhất trong bốn số nhập từ bàn phím c

var     a:array[1..1000000] of integer;        max,n,i:integer;begin        write('nhap n :');        read(n);        for i:=1 to n do        begin                write('a[',i,']=');                read(a[i]);        end;        max:=a[1];        for i:=1 to n do        if max<a[i] then max:=a[i];        write('So lon nhat la: ',max);

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.

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

Nếu <Điều Kiện> thì <Câu lệnh>

If <Điều kiện> then <Câu lệnh>

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’);

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 <biến>:= <giá trị đầu> to <giá trị cuối> do <câu lệnh>

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

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.

while <điều kiện> do <câu lệnh>;

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

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

-Dạng đủ If <điều kiện> then <câu lệnh 1> else <câu lệnh 2>

Ở dạng đủ câu lệnh được hiểu như sau: Nếu <điều kiện> đúng thì <câu lệnh 1> được thực hiện, ngược lại thì <câu lệnh 2> đượ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

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

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

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

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

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

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

program so_lon_nhat;

uses crt;

var a,b,c,d,max:real;

begin

clrscr;

write('nhap a: ');readln(a);

write('nhap b: ');readln(b);

write('nhap c: ');readln(c);

write('nhap d: ');readln(d);

max:=a;

if max<b then max:=b;

if max<c then max:=c;

if max<d then max:=d;

write('GTLN la: ',max:5:2);

readln;

end.

Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!

• votranlyna

Thành viên Biệt đội Hăng Hái

• 22/10/2021

• Cám ơn 1
• Báo vi phạm

XEM GIẢI BÀI TẬP SGK TIN 8 - TẠI ĐÂY

viết chương trình nhập vào bốn số a,b,c,d in ra số lớn nhất trong bốn số được nhập từ bàn phím. Nếu a>b và a>c và a>d thì in a là số lớn nhất. Tương tự như thế xét các trường hợp còn lại để tìm số lớn nhất

1 trả lời

Tính (Tin học - Lớp 6)

1 trả lời

Viết các công thức excel phù hợp câu hỏi (Tin học - Lớp 7)

2 trả lời

Rùa đi lùi: BK; LT; RD; RT; CS; CT (Tin học - Lớp 4)

5 trả lời