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ố

Thảo luận trong 'Tin học cấp II' bắt đầu bởi Erza Scarlet., 17 Tháng tư 2018.

Lượt xem: 4,946

  1. Erza Scarlet.

    Erza Scarlet. Học sinh tiến bộ Thành viên HV CLB Lịch sử

    Bài viết:
    851
    Điểm thành tích:
    154
    Nơi ở:
    Bình Thuận
    Trường học/Cơ quan:
    THCS Lương Sơn
    Sở hữu bí kíp ĐỖ ĐẠI HỌC ít nhất 24đ - Đặt chỗ ngay!

    Đọc sách & cùng chia sẻ cảm nhận về sách số 2


    Chào bạn mới. Bạn hãy đăng nhập và hỗ trợ thành viên môn học bạn học tốt. Cộng đồng sẽ hỗ trợ bạn CHÂN THÀNH khi bạn cần trợ giúp. Đừng chỉ nghĩ cho riêng mình. Hãy cho đi để cuộc sống này ý nghĩa hơn bạn nhé. Yêu thương!

    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
  2. Pé Phương

    Pé Phương Học sinh Thành viên

    Bài viết:
    188
    Điểm thành tích:
    36
    Nơi ở:
    Hà Nội
    Trường học/Cơ quan:
    THCS Kiêu Kị

    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.
     
  3. Sơn Nguyên 05

    Sơn Nguyên 05 Banned Banned Thành viên

    Bài viết:
    4,478
    Điểm thành tích:
    571
    Nơi ở:
    Hà Tĩnh
    Trường học/Cơ quan:
    MT

    Mảng n số mà bạn. Dùng vòng lặp for ... to ... do
     
    Pé Phươngdương đại uyển thích bài này.
  4. Pé Phương

    Pé Phương Học sinh Thành viên

    Bài viết:
    188
    Điểm thành tích:
    36
    Nơi ở:
    Hà Nội
    Trường học/Cơ quan:
    THCS Kiêu Kị

    ukm mk quên sorry
     
  5. dương đại uyển

    dương đại uyển Banned Banned Thành viên

    Bài viết:
    582
    Điểm thành tích:
    91
    Nơi ở:
    Hà Nội
    Trường học/Cơ quan:
    thpt văn phùng

    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
     
  6. Sơn Nguyên 05

    Sơn Nguyên 05 Banned Banned Thành viên

    Bài viết:
    4,478
    Điểm thành tích:
    571
    Nơi ở:
    Hà Tĩnh
    Trường học/Cơ quan:
    MT

    For i:=1 to n do ...
     
    dương đại uyển thích bài này.
  7. dương đại uyển

    dương đại uyển Banned Banned Thành viên

    Bài viết:
    582
    Điểm thành tích:
    91
    Nơi ở:
    Hà Nội
    Trường học/Cơ quan:
    thpt văn phùng

    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 thích bài này.
  8. Sơn Nguyên 05

    Sơn Nguyên 05 Banned Banned Thành viên

    Bài viết:
    4,478
    Điểm thành tích:
    571
    Nơi ở:
    Hà Tĩnh
    Trường học/Cơ quan:
    MT

    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
     
    Trang Ran Moridương đại uyển thích bài này.
  9. dương đại uyển

    dương đại uyển Banned Banned Thành viên

    Bài viết:
    582
    Điểm thành tích:
    91
    Nơi ở:
    Hà Nội
    Trường học/Cơ quan:
    thpt văn phùng

    có thể bỏ crt
    mà lúc đưa lên máy chạy thì bỏ đi
     
  10. Sơn Nguyên 05

    Sơn Nguyên 05 Banned Banned Thành viên

    Bài viết:
    4,478
    Điểm thành tích:
    571
    Nơi ở:
    Hà Tĩnh
    Trường học/Cơ quan:
    MT

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

    Erza Scarlet. Học sinh tiến bộ Thành viên HV CLB Lịch sử

    Bài viết:
    851
    Điểm thành tích:
    154
    Nơi ở:
    Bình Thuận
    Trường học/Cơ quan:
    THCS Lương Sơn

    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!
     
    Thần Thương Dạ thích bài này.
  12. Hạ Mộcc

    Hạ Mộcc Học sinh chăm học Thành viên

    Bài viết:
    333
    Điểm thành tích:
    109
    Nơi ở:
    Vĩnh Phúc

    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ự
     
    Last edited: 17 Tháng tư 2018
    Erza Scarlet. thích bài này.
  13. ka1412

    ka1412 Học sinh chăm học Thành viên

    Bài viết:
    885
    Điểm thành tích:
    121
    Nơi ở:
    Hà Nội
    Trường học/Cơ quan:
    CNN | Life

    Của bạn đây
    Mã:
    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.
     
    Sơn Nguyên 05besttoanvatlyzxz thích bài này.
  14. ka1412

    ka1412 Học sinh chăm học Thành viên

    Bài viết:
    885
    Điểm thành tích:
    121
    Nơi ở:
    Hà Nội
    Trường học/Cơ quan:
    CNN | Life

    Chương trình này của bạ không chạy được đâu
     
  15. Sơn Nguyên 05

    Sơn Nguyên 05 Banned Banned Thành viên

    Bài viết:
    4,478
    Điểm thành tích:
    571
    Nơi ở:
    Hà Tĩnh
    Trường học/Cơ quan:
    MT

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

    ka1412 Học sinh chăm học Thành viên

    Bài viết:
    885
    Điểm thành tích:
    121
    Nơi ở:
    Hà Nội
    Trường học/Cơ quan:
    CNN | Life

    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 05besttoanvatlyzxz thích bài này.
  17. Sơn Nguyên 05

    Sơn Nguyên 05 Banned Banned Thành viên

    Bài viết:
    4,478
    Điểm thành tích:
    571
    Nơi ở:
    Hà Tĩnh
    Trường học/Cơ quan:
    MT

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

    ka1412 Học sinh chăm học Thành viên

    Bài viết:
    885
    Điểm thành tích:
    121
    Nơi ở:
    Hà Nội
    Trường học/Cơ quan:
    CNN | Life

    Mình sửa lại qua 1 chút
    Mã:
    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.
     
    besttoanvatlyzxz thích bài này.
  19. ka1412

    ka1412 Học sinh chăm học Thành viên

    Bài viết:
    885
    Điểm thành tích:
    121
    Nơi ở:
    Hà Nội
    Trường học/Cơ quan:
    CNN | Life

    có readln(a) là được rồi bạn
     
    Last edited: 17 Tháng tư 2018
  20. Hạ Mộcc

    Hạ Mộcc Học sinh chăm học Thành viên

    Bài viết:
    333
    Điểm thành tích:
    109
    Nơi ở:
    Vĩnh Phúc

    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[I][I][I][i];[/I][/I][/I][/I]

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

    writeln;

    End.
     
Chú ý: Trả lời bài viết tuân thủ NỘI QUY. Xin cảm ơn!

Draft saved Draft deleted

CHIA SẺ TRANG NÀY

-->