Chào mừng Bạn tham gia Diễn Đàn VNKienThuc.com - Định hướng Forum Kiến Thức
- HÃY TẠO CHỦ ĐỀ KIẾN THỨC HỮU ÍCH VÀ CÙNG NHAU THẢO LUẬN
Kết nối: VNK X - VNK groups | Nhà Tài Trợ: BhnongFood X - Bhnong groups - Đặt mua Bánh Bhnong

Trả lời chủ đề

Nội dung: <blockquote data-quote="Trung Kiên" data-source="post: 136327" data-attributes="member: 3">Kiểu mảng:1.[code]Uses Crt;Type Mang = ARRAY[1..50] Of Integer;Var  A:Mang;        N,i,Max:Integer;Begin    {Nhập mảng}    Write(‘Nhap N=’); Readln(N);    For i:=1 To N Do        Begin           Write(‘A[‘,i,’]=’); Readln(A[i]);        End;    {Tìm phần tử lớn nhất}    Max:=A[1];    For i:=2 To N Do        If Max<A[i] Then Max:=A[i];    {In kết quả ra màn hình}    Writeln(‘Phan tu lon nhat cua mang: ’, Max);    Readln;End.[/code]2.[code]Uses Crt;Type Mang = ARRAY[1..50] Of Integer;Var  A:Mang;        N,i,S:Integer;Begin    {Nhập mảng}    Write(‘Nhap N=’); Readln(N);    For i:=1 To N Do        Begin           Write(‘A[‘,i,’]=’); Readln(A[i]);        End;    {Tính tổng}    S:=0;    For i:=1 To N Do        If A[i]<0 Then S:=S+A[i]*A[i];    {In kết quả ra màn hình}    Writeln(‘S= ’, S);    Readln;End.[/code]3.[code]Uses Crt;Type Mang = ARRAY[1..50] Of Integer;Var  A:Mang;        N,i,j,Tam:Integer;Begin    {Nhập mảng}    Write(‘Nhap N=’); Readln(N);    For i:=1 To N Do        Begin           Write(‘A[‘,i,’]=’); Readln(A[i]);        End;    {Sắp xếp}    For i:=1 To N-1 Do        For j:=i+1 To N Do           If A[i]>A[j] Then               Begin                   Tam:=A[i]; A[i]:=A[j]; A[j]:=Tam;               End;    {In kết quả ra màn hình}    Writeln(‘Ket qua sau khi sap xep:’);    For i:=1 To N Do Write(A[i]:5);    Readln;End.[/code]4.[code]Uses Crt;Type Mang = ARRAY[1..50] Of Integer;Var  A:Mang;        N,i,x:Integer;Function TimKiem(x, N: Integer; A:Mang):Integer;Var i:Integer;    Begin        I:=1;        While (I <= N) and (X<>A[I]) do I:=I+1;        If I <= N Then Timkiem:=I  Else Timkiem:=0;    End;Begin    {Nhập mảng}    Write(‘Nhap N=’); Readln(N);    For i:=1 To N Do        Begin           Write(‘A[‘,i,’]=’); Readln(A[i]);        End;    Write(‘Nhap X=’); Readln(x);    {Kết quả tìm kiếm}    If TimKiem(X,N,A)<>0 Then        Writeln(‘Vi tri cua X trong mang la:’, TimKiem(X,N,A))    Else Writeln(‘X khong co trong mang.’);    Readln;End.[/code]5.[code]Function TimKiemNhiPhan(X, N: Integer; A: Mang):Integer;Var  dau,cuoi,giua:Integer;        Found:Boolean;Begin    dau:=1; {điểm mút trái của khoảng tìm kiếm}    cuoi:=N; {điểm mút phải của khoảng tìm kiếm}    Found:=False; {chưa tìm thấy}    While (dau <=cuoi) and (Not Found) Do        Begin           giua:=(dau + cuoi) Div 2;           If  X = A[giua] Then Found:=True {đã tìm thấy}           Else               If X > A[giua] Then dau:=giua+1               Else cuoi:=giua-1;        End;    If Found Then TimKiemNhiPhan:= giua Else TimKiemNhiPhan:=0;End.[/code]6.[code]uses crt; const phay=','; type ArrInt = array[1..50, 1..50] of integer; var i, j, n, m: integer;     a,b: ArrInt; begin   clrscr;   write('Nhap so dong N va so cot M: ');   readln(m,n);   for  i := 1  to  m  do     for  j := 1  to  n  do     Begin           write ( ' A[', i,  phay , j, '] = ' ) ;          readln ( a[i, j] ) ;     End ;   for  i := 1  to  n  do     for  j := 1  to  m  do          b[i,j]:=a[j,i];   for  i := 1  to  n  do   begin     for  j := 1  to  m  do          write( b[i, j]:4 ) ;          writeln;   end;   readln; end. [/code]</blockquote>

Tên

Mã xác nhận