De thi va Dap an HSG tin hoc

<span class='text_page_counter'>(1)</span><div class='page_container' data-page=1></div>
<span class='text_page_counter'>(2)</span><div class='page_container' data-page=2>

<b>Bài 1: Chương trình Pascal</b>
VAR

<i> i, n: INTEGER;</i>
<i> x, p, S: REAL;</i>
<i>BEGIN</i>

<i> Write('x, n = '); Readln(x, n);</i>
<i> S := 1; p := 1;</i>

<i> FOR i := 1 TO n DO</i>
<i> BEGIN</i>

<i> p := p * x / i;</i>
<i> S := S + p;</i>
<i> END;</i>

<i> Writeln('exp(', x:1:4, ') = ', S:1:4);</i>
<i> readln;</i>

<i>END.</i>

<b>Bài 2: Chương trình Pascal</b>
<i>USES crt;</i>

<i>VAR n: LONGINT;</i>
<i> m,tong,i: INTEGER;</i>
<i>BEGIN</i>

<i> clrscr;</i>

<i> write('Nhap n: '); readln(n);</i>
<i> write('Nhap m: '); readln(m);</i>
<i> tong:=0;</i>

<i> FOR i:=1 TO m DO</i>
<i> BEGIN</i>

<i> tong:=tong+(n MOD 10);</i>
<i> n:=n DIV 10;</i>

<i> END;</i>

<i> write('Tong ',m,' chu so cuoi cua so vua nhap = ',tong);</i>
<i> readln;</i>

<i>END.</i>

<b>Bài 3: Chương trình Pascal</b>
<i>VAR tep1,tep2:TEXT;</i>

<i> i,n,s:INTEGER;</i>

<i>a:ARRAY[1..100] OF INTEGER;</i>
<i>BEGIN</i>

<i> assign(tep1,'D:\BT.txt');</i>
<i> rewrite(tep1);</i>

<i> write('nhap n= ');readln(n);</i>
<i>FOR i:=1 TO n DO</i>

<i> BEGIN</i>

</div>
<span class='text_page_counter'>(3)</span><div class='page_container' data-page=3>

<i> write(tep1,a[i]:4);</i>
<i>END;</i>
<i>close(tep1);</i>
<i>assign(tep2,'D:\BT1.txt');</i>
<i>rewrite(tep2);</i>
<i>reset(tep1);</i>
<i>s:=0;</i>

<i>WHILE NOT eof(tep1) DO</i>
<i> BEGIN</i>

<i> read(tep1,a[i]);</i>
<i> write(a[i]:4);</i>

<i> IF(a[i] MOD 2=0) THEN s:=s+a[i];</i>
<i> END; </i>

<i> write(tep2,s);</i>
<i> writeln;</i>

<i> write('Tong cac so chan co trong day la: ',s);</i>
<i>close(tep2);</i>

<i>readln;</i>
<i>END.</i>

<b>Bài 4: Chương trình Pascal</b>

<i>USES Crt;</i>

<i> TYPE Mang = ARRAY[1..10,1..10] OF INTEGER;</i>
<i> VAR A:Mang;</i>

<i> m,n,i,j,x,dem,S,max:INTEGER;</i>
<i> BEGIN</i>

<i> Write('Nhap so dong m='); Readln(m);</i>
<i> Write('Nhap so cot n='); Readln(n);</i>
<i> FOR i:=1 TO m DO</i>

<i> FOR j:=1 TO n DO</i>
<i> BEGIN</i>

<i> Write('A[',i,',',j,']='); Readln(A[i,j]);</i>
<i> END;</i>

<i> FOR i:=1 TO m DO</i>
<i> BEGIN</i>

<i> FOR j:=1 TO n DO </i>
<i> Write(A[i,j]:5);</i>
<i> Writeln;</i>

<i> END;</i>

<i> Write('Nhap x='); Readln(x);</i>
<i> dem:=0;</i>

<i> Writeln('Vi tri cua x trong mang A: ');</i>
<i> FOR i:=1 TO m DO</i>

</div>
<span class='text_page_counter'>(4)</span><div class='page_container' data-page=4>

<i> BEGIN</i>

<i> Write(i,',',j,' ; ');</i>
<i> dem:=dem+1;</i>
<i> END;</i>

<i> Writeln('So lan xuat hien cua x trong mang A la: ',dem);</i>
<i> S:=0;</i>

<i> FOR i:=1 TO m DO</i>
<i> BEGIN</i>

<i> Max:=A[i,1];</i>

<i> FOR j:=2 TO n DO </i>

<i> IF max<A[i,j] THEN max:=A[i,j];</i>
<i> S:=S+max;</i>

<i> END;</i>

<i> Writeln('Tong cac phan tu lon nhat cua moi dong la: ',S);</i>
<i> Readln;</i>

</div>

<!--links-->