1)Mô tả thuật toán tìm giá trị nhỏ nhất, lớn nhất trong một dãy số a1, a2, an,- 2) mô tả thuật toán và viết chương trình kiểm tra một số tự nhiên n

0 bình luận về “1)Mô tả thuật toán tìm giá trị nhỏ nhất, lớn nhất trong một dãy số a1, a2, an,- 2) mô tả thuật toán và viết chương trình kiểm tra một số tự nhiên n”

1. Câu 1:

   B1: nhập số lượng phần tử

   B2: nhập từng phần tử

   B3: max←a[1]; min←a[1]

   B4: nếu a[i]>max thì max←a[i]

          nếu a[i]<min thì min←a[i]

   B5: in ra max, min

   Câu 2:

   Ý tưởng:

   B1: nhập n

   B2: đặt i←2

   B3: while(n>1)and(n mod i<>0) do i←i+1

   B4: nếu i=n thì in ra n la so nguyen to

          ngược lại in ra n khong phai la so nguyen to

   Chương trình:

   uses crt;
   var n,i:longint;
   begin
   clrscr;
      write(‘Nhap n: ‘); readln(n);
      i:=2;
      while(n>1)and(n mod i<>0)do inc(i);
      if i=n then writeln(n,’ la so nguyen to’)
      else writeln(n,’ khong phai la so nguyen to’);
   readln
   end.

   Bình luận

2. Mình chỉ có thể viết chương trình thôi thôi, phần mô tả thuật toán thì mình chịu rồi. Xin lỗi. 

   P/s: ĐỀ THI CỦA BẠN DỄ QUÁ. CỦA TRƯỜNG MÌNH KHÓ HƠN NHIỀU.

   CT1: 

   PROGRAM QLINKVN;

   USES CRT;

   VAR A,B,C,MAX: INTEGER;

   BEGIN

   CLRSCR; 

   MAX:=A; 

   IF (MAX<B) THEN MAX:=B;

   IF (MAX<C) THEN MAX:=C;

   WRITELN(‘SO LON NHAT LA ‘,MAX)

   READLN;

   END.

   CT2: 

   PROGRAM QLINKVN;

   USES CRT;

   VAR I,N,SOLUONG: INTEGER;

   BEGIN

   CLRSCR;

   WRITELN(‘Nhap gia tri cua N: ‘); READLN(N); 

   SOLUONG:=0; 

   FOR I:=1 TO N DO IF N MOD I = O THEN SOLUONG:=SOLUONG+1; 

   IF SOLUONG=2 THEN WRITELN(‘Day la so nguyen to’) ELSE WRITELN(‘Day khong la so nguyen to’);

   READLN;

   END.

   Bình luận