OPTADS360
ATNETWORK
RANDOM
ON
YOMEDIA
Banner-Video
IN_IMAGE

Viết 2 chương trình Pascal sử dụng biến mảng và không sử dụng biến mảng của bài nhập 10 phần tử và tìm số lớn nhất trong 10 phần tử ấy?

Viết 2 chương trình Pascal: Nhập 10 phần tử và tìm số lớn nhất trong 10 phân tử ấy.

CT1: không sử dụng biến mảng

CT2: sử dụng biến mảng

So sánh 2 ct trên.

Giúp mình nha! Sắp KT học kì tin rồi.

Thanks các bạn nhiều!vui

  bởi thanh hằng 02/11/2018
AMBIENT-ADSENSE/lession_isads=0
QUẢNG CÁO
 

Câu trả lời (2)

  • ct1:

    program (tự đặt tên);

    uses crt;

    var max,i,n:integer;

    begin

    clrscr;

    max:=0; i:=1;

    while i<=10 do

    begin

    write('n',i,'='); readln(n);

    if n>max then max:=n;

    i:=i+1;

    end;

    write('so lon nhat la:',max);

    readln

    end.

    ct2:

    program bt;

    uses crt;

    var a:array[1..1000] of integer;

    max,i:integer;

    begin

    clrscr;

    for i:=1 to 10 do

    begin

    write('a[',i,']='); readln(a[i]);

    end;

    max:=a[1];

    for i:=1 to 10 do

    if a[i]>max then max:=a[i];

    write('so lon nhat trong cac so la:',max);

    readln

    end.

    Sự khác nhau giữa hai ct:

    - Khác nhau về cách khai báo

    - Khác nhau ve cách trình bày

    Bạn hãy chạy thử chương trình trước nha hihi

      bởi Nguyen Quyen 02/11/2018
    Like (0) Báo cáo sai phạm

  • CT2:

    Program Max_10;

    Uses crt;

    Var: i,Max:integer;

    a: array[1..10] of integer;

    Begin

    Clrscr;

    For i:= 1 to 10 do

    Write('Hay nhap so thu ',i,' : '); Readln(a[i]);

    Max:= a[1];

    For i:= 2 to 10 do

    if a[i] > Max then Max:= a[i];

    Writeln('So lon nhat trong 10 phan tu ban vua nhap la ',Max);

    Readln;

    End.

      bởi Trần Sơn 02/11/2018
    Like (0) Báo cáo sai phạm
Cách tích điểm HP

Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!

Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản

Gửi câu trả lời Hủy
 
 

Các câu hỏi mới

NONE
OFF

XEM NHANH CHƯƠNG TRÌNH LỚP 8