Tin học [ tin 8] viết chương trình tìm giá trị lớn và nhỏ nhất của dãy số

[Erza Scarlet.]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

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!!!

 

[Pé Phương]

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<b then max:=b;
if max<c then max :=c;
if max<d then max :=d;
write ( ' so lon nhat la',max);
readln;
end.

 

[Sơn Nguyên 05]

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<b then max:=b;
if max<c then max :=c;
if max<d then max :=d;
write ( ' so lon nhat la',max);
readln;
end.

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

 

[Pé Phương]

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

ukm mk quên sorry

 

[dương đại uyển]

Dùng vòng lặp for ... to ... do

hình như lệnh sai nhỉ??
for...do chứ
p/s sáng nay đen mới bị gọi lên bảng tin-mù tin

 

[Sơn Nguyên 05]

hình như lệnh sai nhỉ??
for...do chứ
p/s sáng nay đen mới bị gọi lên bảng tin-mù tin

For i:=1 to n do ...

 

[dương đại uyển]

For i:=1 to n do ...

nhưng tại sao mảng n phải dùng lệnh đó
if then cũng đc mà chỉ là thử lần lượt thôi

 

[Sơn Nguyên 05]

nhưng tại sao mảng n phải dùng lệnh đó
if then cũng đc mà chỉ là thử lần lượt thôi

Có n phần từ thì bạn phải viết n lệnh if à? Giả sử mảng có 100 phần tử thì viết bao giờ mới xong.
Có thể dùng vòng lặp While ... do cũng được

 

[dương đại uyển]

Có n phần từ thì bạn phải viết n lệnh if à? Giả sử mảng có 100 phần tử thì viết bao giờ mới xong.
Có thể dùng vòng lặp While ... do cũng được

có thể bỏ crt
mà lúc đưa lên máy chạy thì bỏ đi

 

[Sơn Nguyên 05]

có thể bỏ crt
mà lúc đưa lên máy chạy thì bỏ đi

USE CRT để dùng lệnh clrscr xóa sạch màn hình cho dễ nhìn.

 

[Erza Scarlet.]

Ai có thể viết một chương trình hoàn chỉnh để giải bài này và dùng câu lệnh while...do không ạ.Làm ơn giúp mình với mai mik kiểm tra rồi!

 

[Hạ Mộcc]

Ai có thể viết một chương trình hoàn chỉnh để giải bài này và dùng câu lệnh while...do không ạ.Làm ơn giúp mình với mai mik kiểm tra rồi!

Không thể dùng lệnh While...do được, lên này có nghĩ là ''Trong khi...'' mà.
Program Max;

Uses crt;
Var a:array[1..100] of integer;
i, max, gtln, min, gtnn : integer;
Begin

clrscr;
writeln(' Nhap so luong phan tu cua mang n=');
readln(n)
writeln('Moi ban nhap mang:');
for i:=1 to n do
Readln(a);

Max:=a[1];
for i:=2 to n do
If a> max then max:=a;​

writeln('Phan tu co gia tri lon nhat cua mang la:', max);​

writeln;​

End.
Giá trị nhỏ nhất làm tương tự

 

[ka1412]

Ai có thể viết một chương trình hoàn chỉnh để giải bài này và dùng câu lệnh while...do không ạ.Làm ơn giúp mình với mai mik kiểm tra rồi!

Của bạn đây

uses crt;
var a:array[1..100] of integer;
n,i,max,min:integer;
begin
    clrscr;
    write('Nhap n:');readln(n);i:=1;
    while i<=n do
    begin
        write('a[',i,']:');readln(a[i]);
        if i=1 then begin max:=a[i]; min:=a[i];end;
        if i>=2 then begin
            if a[i]>max then max:=a[i];
            if a[i]<min then min:=a[i];
        end;
        inc(i);
    end;
    writeln('So nho nhat:',min);
    write('So lon nhat:',max);
    readln
end.

 

[ka1412]

Không thể dùng lệnh While...do được, lên này có nghĩ là ''Trong khi...'' mà.
Program Max;

Uses crt;
Var a:array[1..100] of integer;
i, max, gtln, min, gtnn : integer;
Begin

clrscr;
writeln(' Nhap so luong phan tu cua mang n=');
readln(n)
writeln('Moi ban nhap mang:');
for i:=1 to n do
Readln(a);

Max:=a[1];
for i:=2 to n do
If a> max then max:=a;​

writeln('Phan tu co gia tri lon nhat cua mang la:', max);​

writeln;​

End.
Giá trị nhỏ nhất làm tương tự

Chương trình này của bạ không chạy được đâu

 

[Sơn Nguyên 05]

Chương trình này của bạ không chạy được đâu

Sao ct này không chạy được thế bạn?

 

[ka1412]

Sao ct này không chạy được thế bạn?

Mảng muốn đọc phải gán a đọc từng số còn của bạn này bạn gán mỗi a

 

[Sơn Nguyên 05]

Mảng muốn đọc phải gán a đọc từng số còn của bạn này bạn gán mỗi a

Thực ra ct này chưa có thủ tục nhập các phần tử của mảng.

 

[ka1412]

Sao ct này không chạy được thế bạn?

Mình sửa lại qua 1 chút

Uses crt;
Var a:array[1..100] of integer;
i, max, gtln, min, gtnn ,n: integer;
Begin
clrscr;
writeln(' Nhap so luong phan tu cua mang n=');
readln(n);
writeln('Moi ban nhap mang:');
for i:=1 to n do
Readln(a[i]);
Max:=a[1];
for i:=2 to n do
If a[i]> max then max:=a[i];writeln('Phan tu co gia tri lon nhat cua mang la:', max);
writeln;
readln
End.

 

[ka1412]

Thực ra ct này chưa có thủ tục nhập các phần tử của mảng.

có readln(a) là được rồi bạn

 

[Hạ Mộcc]

Mình sửa lại vì sửa trực tiếp minh không sửa được.
Program Max;

Uses crt;
Var a:array[1..100] of integer;
i, max, gtln, min, gtnn,n : integer;
Begin

clrscr;
writeln(' Nhap so luong phan tu cua mang n=');
readln(n)
writeln('Moi ban nhap mang:');
for i:=1 to n do
Readln(a);

Max:=a[1];
for i:=2 to n do
If a> max then max:=a;​

writeln('Phan tu co gia tri lon nhat cua mang la:', max);​

writeln;​

End.