cách nhập vào pascal 1 dãy số và 1 số k, tìm số hạng có giá trị bằng số k

0 bình luận về “cách nhập vào pascal 1 dãy số và 1 số k, tìm số hạng có giá trị bằng số k”

1. Program NN;
   Uses crt;
   Var A: array[1..10000] of longint;
       n,i,k,d: longint;
   Begin
           Clrscr;
           Write(‘Nhap n,k: ‘); Readln(n,k);
           d:=0;
           For i:=1 to n do
           Begin
                   Read(A[i]);
                   If A[i]=k then inc(d);
           End;

           If d=0 then Write(‘Khong ton tai’)
           Else
           Begin
                   Write(‘Vi tri cua so k: ‘);
                   For i:=1 to n do
                           If A[i]=k then Write(i,’ ‘);
           End;
           Readln
   End.

   Bình luận

2. – Thuật toán:

   Bước 1: Nhập k, n và dãy A[1..n]

   Bước 2: i ← 1 to n do Nếu a[i] = k thì xuất a[i] ra màn hình

   Bước 3: Kết thúc thuật toán

   – Chương trình:

   Uses crt;
   Var n, k: integer;
         A:Array[1..100] of longint;
   Begin
        Clrscr;
        Write(‘Nhap n = ‘); readln(n);
        For i:=1 to n do 
           Begin
              Write(‘A[‘,i,’]=’);
              Readln(A[i]);
           End;
        Write(‘Nhap k = ‘); readln(k);
        For i:=1 to n do if a[i] = k then writeln(a[i],’ ‘);
        Readln
   End.

   Bình luận