Các bài tập của SÁCH GIÁO KHOA TIN HỌC 11

type kA= array[1..100] of integer;
var i,k,n:integer;A: kA;
BEGIN
    Write(' Nhap n:');readln(n) ;
    for i:=1 to n do
        begin
              write(' A[',i,']=');
              readln(A[i]);
        end;
    write(' cac cuc dai dia phuong: ');
    for i:=1 to n do
        if (((i=1) and (a[1]>a[2])) or ((a[i]>a[i-1])and(a[i]>a[i+1])) or ((i=n) and (a[n]>a[n-1]))) then
          write(a[i],'  ');
    readln;
END.

type kA= array[1..100] of integer;
    kB= array[1..100] of integer;                                          vf
    kC= array[1..100] of integer;
var i,k,n:integer;A: kA;B:KB;C:KC;
BEGIN
    Write(' Nhap n:');readln(n) ;
    for i:=1 to n do
        begin
              write(' A[',i,']=');
              readln(A[i]);
        end;
    for i:=1 to n do
        begin
              write(' B[',i,']=');readln(B[i]);
        end;
    For i:=1 to n do  c[2*i-1]:=a[i] ;
    For i:=1 to n do  c[2*i]:=b[i];
    writeln('DAy A');
    for i:=1 to n do write(A[i],'  ');
    writeln;
    writeln('DAy B');
    for i:=1 to n do write(B[i],'  ');
    writeln;
    writeln('DAy C');
    for i:=1 to 2*n do write(C[i],'  ');
    writeln;
    readln;

END.

type kA= array[1..100] of integer;
    kB= array[1..100] of integer;
    kC= array[1..100] of integer;
var i,j,k,n:integer;A: kA;B:KB;C:KC;
BEGIN
    Write(' Nhap n:');readln(n) ;
    for i:=1 to n do
        repeat
              write(' A[',i,']=');
              readln(A[i]);
        until (a[i] <= 32000);
    for i:=1 to n do
        repeat
              write(' B[',i,']=');readln(B[i]);
        until( b[i] <= 32000);
        j:=1;k:=1; a[n+1]:=32001;b[n+1]:=32001;
    for i:=1 to 2*n do
        if (A[j]<b[k]) then begin c[i]:=a[j]; inc(j); end
            else begin c[i]:=b[k]; inc(k); end;
    writeln('DAy A');
    for i:=1 to n do write(A[i],'  ');
    writeln;
    writeln('DAy B');
    for i:=1 to n do write(B[i],'  ');
    writeln;
    writeln('DAy C');
    for i:=1 to 2*n do write(C[i],'  ');
    writeln;
    readln;
END.

type kA= array[1..100] of integer;
var i,max,min,tg,vtmax,vtmin,n:integer;A: kA;
BEGIN
    Write(' Nhap n:');readln(n) ;
    for i:=1 to n do
        begin
              write(' A[',i,']=');
              readln(A[i]);
        end;
    vtmin:=1;vtmin:=n;
    max:=a[n];min:=a[1];
    for i:=1 to n do
              if (a[i]<=min) then begin min:=a[i]; vtmin:=i; end;
    for i:=n downto 1 do
              if (a[i]>=max) then begin max:=a[i];vtmax:=i; end;
    write(' vi tri max',vtmax,'vi tri min',vtmin);
    writeln('DAy truoc');
    for i:=1 to n do write(a[i],'  ');
    writeln;
    tg:=a[vtmin];
    a[vtmin]:=a[vtmax];
    a[vtmax]:=tg;
    writeln('DAy sau  ');
    for i:=1 to n do write(a[i],'  ');
    writeln;
    readln;

 END.

var thang,p:string;i:integer;
BEGIN
    write(' nhap thang ');readln(thang);
    write( ' mua la: ');
    for i:=1 to length(thang) do thang[i]:=upcase(thang[i]);
    p:='GIENGHAIBATUNAMSAUBAYTAMCHINMUOIMOTCHAP';
    { ham kiem tra xau thang co xuat hien trong xau p khong, neu co thi tra ve vi tri xuat hien dau tien cua xua "thang"}
    case pos(thang,p) of
      1,6,9: write(' mua xuan ') ;
      11,13,16: write(' mua he');
      19,22,25: write(' mua thu');
      29,33,36: write(' mua dong');
      end;
      readln;
END.