Viết chương trình và thuật toán tìm chiều cao cao nhất của lớp em?? heppmee

0 bình luận về “Viết chương trình và thuật toán tìm chiều cao cao nhất của lớp em?? heppmee”

1. Thuật toán:

   B1: Nhập số lượng học sinh và chiều cao mỗi học sinh

   B2: max:=0;  i:=1;

   B3: Nếu i>n thì tới B5

   B4: Nếu ccao[i]>max then max:=ccao[i];   i:=i+1;  Quay lại B3

   B5: In max và kết thúc.

   Chương trình:

   program tim_chieucao;

   uses crt;

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

        n,i,max:integer;

   BEGIN

          clrscr;

          write(‘Nhap so hoc sinh: ‘);  readln(n);

          max:=0;

          for i:=1 to n do

                 begin

                        write(‘Nhap chieu cao hoc sinh thu ‘,i,’: ‘);   readln(ccao[i]);

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

                 end;

          write(‘Chieu cao cao nhat la: ‘,max);

          readln;

   end.

   Bình luận