Trả lời chủ đề

Nội dung

<blockquote data-quote="dienvi2010" data-source="post: 136742" data-attributes="member: 11277">Chương trình:Bài 1:[php]Type ArrInt = array[1..100] of integer;Var a: ArrInt;&nbsp; &nbsp; n,i,j:byte;&nbsp; &nbsp; temp,chan,le,nguyento:integer;Begin&nbsp; &nbsp;&nbsp; Randomize;&nbsp; &nbsp;&nbsp; {Phat sinh mang ngau nhien}&nbsp; &nbsp;&nbsp; write(&#039;Nhap so phan tu: &#039;); Readln(n);&nbsp; &nbsp;&nbsp; for i:=1 to n do&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; a[i]:=50+random(152);&nbsp; &nbsp;&nbsp; {Sap xep mang khong tang - Sap xep truc tiep}&nbsp; &nbsp;&nbsp; for i:=1 to n-1 do&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; for j:=i+1 to n do&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; if a[j]&gt;a[i] then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; begin&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; temp:=a[i];&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; a[i]:=a[j];&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; a[j]:=temp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; end;&nbsp; &nbsp;&nbsp; {Xuat mang da sap xep}&nbsp; &nbsp;&nbsp; write(&#039;Mang da sap xep: &#039;);&nbsp; &nbsp;&nbsp; for i:=1 to n do write(a[i],&#039; &#039;);&nbsp; &nbsp;&nbsp; writeln;&nbsp; &nbsp;&nbsp; {Dem chan, le, nguyen to}&nbsp; &nbsp;&nbsp; chan:=0; le:=0; nguyento:=0;&nbsp; &nbsp;&nbsp; for i:=1 to n do&nbsp; &nbsp;&nbsp; begin&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if a[i] mod 2=0 then&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; inc(chan);&nbsp; &nbsp;&nbsp; {chan:=chan+1;}&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if a[i] mod 2=1 then&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; inc(le);&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; for j:=2 to a[i] do&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; if a[i] mod j=0 then break;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if j=a[i] then inc(nguyento);&nbsp; &nbsp;&nbsp; end;&nbsp; &nbsp;&nbsp; writeln(&#039;So phan tu la so chan: &#039;,chan);&nbsp; &nbsp;&nbsp; writeln(&#039;So phan tu la so le: &#039;,le);&nbsp; &nbsp;&nbsp; writeln(&#039;So phan tu la so nguyen to: &#039;,nguyento);&nbsp; &nbsp;&nbsp; readln;End.[/php]Bài 2:[php]Type ArrInt = array[1..100] of integer;Var a: array[1..100] of ArrInt;&nbsp; &nbsp; b: ArrInt;&nbsp; &nbsp; n,m,i,j,k:byte;&nbsp; &nbsp; temp,max,min:integer;Begin&nbsp; &nbsp;&nbsp; Randomize;&nbsp; &nbsp;&nbsp; {Phat sinh mang ngau nhien}&nbsp; &nbsp;&nbsp; write(&#039;Nhap so cot: &#039;); Readln(n);&nbsp; &nbsp;&nbsp; write(&#039;Nhap so dong: &#039;); Readln(m);&nbsp; &nbsp;&nbsp; for i:=1 to n do&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; for j:=1 to m do&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; a[i,j]:=random(50);&nbsp; &nbsp;&nbsp; {Chuyen mang 2 chieu ve mang 1 chieu}&nbsp; &nbsp;&nbsp; k:=1;&nbsp; &nbsp;&nbsp; for i:=1 to n do&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; for j:=1 to m do&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; begin&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; b[k]:=a[i,j];&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; inc(k);&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; end;&nbsp; &nbsp;&nbsp; dec(k);&nbsp; &nbsp;&nbsp; {Sap xep mang khong tang - Sap xep truc tiep}&nbsp; &nbsp;&nbsp; for i:=1 to k-1 do&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; for j:=i+1 to k do&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; if b[j]&gt;b[i] then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; begin&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; temp:=b[i];&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; b[i]:=b[j];&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; b[j]:=temp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; end;&nbsp; &nbsp;&nbsp; {Chuyen mang 1 chieu ve mang 2 chieu}&nbsp; &nbsp;&nbsp; k:=1;&nbsp; &nbsp;&nbsp; for i:=1 to n do&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; for j:=1 to m do&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; begin&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; a[i,j]:=b[k];&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; inc(k); {k:=k+1}&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; end;&nbsp; &nbsp;&nbsp; dec(k); {k:=k-1}&nbsp; &nbsp;&nbsp; {Xuat mang da sap xep}&nbsp; &nbsp;&nbsp; writeln(&#039;Mang da sap xep: &#039;);&nbsp; &nbsp;&nbsp; for i:=1 to n do&nbsp; &nbsp;&nbsp; begin&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; for j:=1 to m do&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; write(a[i,j]:5);&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; writeln;&nbsp; &nbsp;&nbsp; end;&nbsp; &nbsp;&nbsp; {Tim max, min}&nbsp; &nbsp;&nbsp; min:=b[1]; max:=b[1];&nbsp; &nbsp;&nbsp; for i:=1 to k do&nbsp; &nbsp;&nbsp; begin&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if b[i]&gt;max then max:=b[i];&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if b[i]&lt;min then min:=b[i];&nbsp; &nbsp;&nbsp; end;&nbsp; &nbsp;&nbsp; writeln(&#039;Phan tu lon nhat la: &#039;,max);&nbsp; &nbsp;&nbsp; writeln(&#039;Phan tu nho nhat la: &#039;,min);&nbsp; &nbsp;&nbsp; readln;End.[/php]</blockquote>

[QUOTE="dienvi2010, post: 136742, member: 11277"] Chương trình: Bài 1: [php] Type ArrInt = array[1..100] of integer; Var a: ArrInt; n,i,j:byte; temp,chan,le,nguyento:integer; Begin Randomize; {Phat sinh mang ngau nhien} write('Nhap so phan tu: '); Readln(n); for i:=1 to n do a[i]:=50+random(152); {Sap xep mang khong tang - Sap xep truc tiep} for i:=1 to n-1 do for j:=i+1 to n do if a[j]>a[i] then begin temp:=a[i]; a[i]:=a[j]; a[j]:=temp; end; {Xuat mang da sap xep} write('Mang da sap xep: '); for i:=1 to n do write(a[i],' '); writeln; {Dem chan, le, nguyen to} chan:=0; le:=0; nguyento:=0; for i:=1 to n do begin if a[i] mod 2=0 then inc(chan); {chan:=chan+1;} if a[i] mod 2=1 then inc(le); for j:=2 to a[i] do if a[i] mod j=0 then break; if j=a[i] then inc(nguyento); end; writeln('So phan tu la so chan: ',chan); writeln('So phan tu la so le: ',le); writeln('So phan tu la so nguyen to: ',nguyento); readln; End. [/php] Bài 2: [php] Type ArrInt = array[1..100] of integer; Var a: array[1..100] of ArrInt; b: ArrInt; n,m,i,j,k:byte; temp,max,min:integer; Begin Randomize; {Phat sinh mang ngau nhien} write('Nhap so cot: '); Readln(n); write('Nhap so dong: '); Readln(m); for i:=1 to n do for j:=1 to m do a[i,j]:=random(50); {Chuyen mang 2 chieu ve mang 1 chieu} k:=1; for i:=1 to n do for j:=1 to m do begin b[k]:=a[i,j]; inc(k); end; dec(k); {Sap xep mang khong tang - Sap xep truc tiep} for i:=1 to k-1 do for j:=i+1 to k do if b[j]>b[i] then begin temp:=b[i]; b[i]:=b[j]; b[j]:=temp; end; {Chuyen mang 1 chieu ve mang 2 chieu} k:=1; for i:=1 to n do for j:=1 to m do begin a[i,j]:=b[k]; inc(k); {k:=k+1} end; dec(k); {k:=k-1} {Xuat mang da sap xep} writeln('Mang da sap xep: '); for i:=1 to n do begin for j:=1 to m do write(a[i,j]:5); writeln; end; {Tim max, min} min:=b[1]; max:=b[1]; for i:=1 to k do begin if b[i]>max then max:=b[i]; if b[i]<min then min:=b[i]; end; writeln('Phan tu lon nhat la: ',max); writeln('Phan tu nho nhat la: ',min); readln; End. [/php] [/QUOTE]

Tên

Mã xác nhận