Trả lời chủ đề

Nội dung

<blockquote data-quote="dienvi2010" data-source="post: 125219" data-attributes="member: 11277">Bài tập code tham khảo - Sử dụng chương trình con[php]Program BTMang;Const Max = 20;Var a : array[1..Max] of integer;&nbsp; &nbsp; n:byte; kt:integer;{---Nhap mang---}Procedure Nhap;Var i:byte;Begin&nbsp; &nbsp;&nbsp; Write(&#039;Nhap n phan tu (1&lt;1n&lt;=20): &#039;); Readln(n);&nbsp; &nbsp;&nbsp; for i:=1 to n do&nbsp; &nbsp;&nbsp; begin&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; write(&#039;a[&#039;,i,&#039;]: &#039;);&nbsp; &nbsp; &nbsp; readln(a[i]);&nbsp; &nbsp;&nbsp; end;End;{---In so le---}Procedure InSoLe;Var i:byte;Begin&nbsp; &nbsp;&nbsp; for i:=1 to n do&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; if a[i] mod 2=1 then&nbsp; &nbsp; &nbsp; &nbsp; write(a[i]:5);&nbsp; &nbsp;&nbsp; writeln;End;{---Kiem tra so nguyen to---}Function KTNguyenTo(k:integer):boolean;Var i:integer; dem:byte;Begin&nbsp; &nbsp;&nbsp; if (n=1) or (n=2) then&nbsp; &nbsp; &nbsp; &nbsp; KTNguyenTo:=false&nbsp; &nbsp;&nbsp; else&nbsp; &nbsp;&nbsp; begin&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; dem:=0;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; for i:=2 to k do&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; begin&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; if (k mod i)=0 then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; dem:=dem+1 ;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; end;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if dem &gt;1 then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; KTNguyenTo:=false&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; KTNguyenTo:=true;&nbsp; &nbsp;&nbsp; end;End;{---In so nguyen to---}Procedure InSoNT;Var i: byte;Begin&nbsp; &nbsp;&nbsp; for i:=1 to n do&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; if KTNguyenTo(a[i])=true then&nbsp; &nbsp; &nbsp; &nbsp; write(a[i]:5);&nbsp; &nbsp;&nbsp; writeln;End;Function SoChanLonNhat:integer;Var i,max:integer;Begin&nbsp; &nbsp;&nbsp; max:=-1;&nbsp; &nbsp;&nbsp; for i:=2 to n do&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; if (a[i] mod 2 =0) and (a[i]&gt;max) then max:=a[i];&nbsp; &nbsp; &nbsp; &nbsp; SoChanLonNhat:=max;End;Begin&nbsp; &nbsp;&nbsp; Nhap;&nbsp; &nbsp;&nbsp; write(&#039;Day so le: &#039;);&nbsp; &nbsp;&nbsp; InSoLe;&nbsp; &nbsp;&nbsp; write(&#039;Day so nguyen to: &#039;);&nbsp; &nbsp;&nbsp; InSoNT;&nbsp; &nbsp;&nbsp; kt:=SoChanLonNhat;&nbsp; &nbsp;&nbsp; if kt=-1 then&nbsp; &nbsp; &nbsp; &nbsp; writeln(&#039;Khong co so chan lon nhat.&#039;)&nbsp; &nbsp;&nbsp; else&nbsp; &nbsp; writeln(&#039;So chan lon nhat la: &#039;,kt);&nbsp; &nbsp;&nbsp; readln;End.[/php]</blockquote>

[QUOTE="dienvi2010, post: 125219, member: 11277"] Bài tập code tham khảo - Sử dụng chương trình con [php] Program BTMang; Const Max = 20; Var a : array[1..Max] of integer; n:byte; kt:integer; {---Nhap mang---} Procedure Nhap; Var i:byte; Begin Write('Nhap n phan tu (1<1n<=20): '); Readln(n); for i:=1 to n do begin write('a[',i,']: '); readln(a[i]); end; End; {---In so le---} Procedure InSoLe; Var i:byte; Begin for i:=1 to n do if a[i] mod 2=1 then write(a[i]:5); writeln; End; {---Kiem tra so nguyen to---} Function KTNguyenTo(k:integer):boolean; Var i:integer; dem:byte; Begin if (n=1) or (n=2) then KTNguyenTo:=false else begin dem:=0; for i:=2 to k do begin if (k mod i)=0 then dem:=dem+1 ; end; if dem >1 then KTNguyenTo:=false else KTNguyenTo:=true; end; End; {---In so nguyen to---} Procedure InSoNT; Var i: byte; Begin for i:=1 to n do if KTNguyenTo(a[i])=true then write(a[i]:5); writeln; End; Function SoChanLonNhat:integer; Var i,max:integer; Begin max:=-1; for i:=2 to n do if (a[i] mod 2 =0) and (a[i]>max) then max:=a[i]; SoChanLonNhat:=max; End; Begin Nhap; write('Day so le: '); InSoLe; write('Day so nguyen to: '); InSoNT; kt:=SoChanLonNhat; if kt=-1 then writeln('Khong co so chan lon nhat.') else writeln('So chan lon nhat la: ',kt); readln; End. [/php] [/QUOTE]

Tên

Mã xác nhận