Untitled

SUBMITTED BY: Guest

DATE: Oct. 9, 2014, 6:31 a.m.

FORMAT: Text only

SIZE: 3.2 kB

Raw Download

HITS: 1250

Report
  1. program Thap_Phan_Sang_Nhi_Phan;
  2. uses crt;
  3. var d:array[1..20] of integer;
  4. i,j,n: integer;
  6. BEGIN
  7. Clrscr;
  8. Write('Nhap so thap phan : ');
  9. Readln(n);
  10. i:=1;
  11. While n>0 do
  12. begin
  13. d[i]:=n mod 2;
  14. n:=n div 2;
  15. i:=i+1;
  16. end;
  17. Write('So nhi phan la: ');
  18. for j:=i-1 downto 1 do
  19. Write (d[j]);
  20. Readln;
  21. end.
  22. ----------------------------------------
  23. PROGRAM BT7_40;
  24. USES crt;
  25. VAR n,m,i,j,k,s : INTEGER;
  26. A:ARRAY[1..100,1..100] OF INTEGER;
  27. BEGIN
  28. clrscr;
  29. s:=0;
  30. k:=0;
  31. Write('Nhap m,n : ') ;
  32. Readln(m,n);
  33. FOR i:= 1 TO n DO
  34. FOR j:= 1 TO m DO
  35. BEGIN
  36. Writeln('Nhap A[',i,',',j,'] : ');
  37. Readln(A[i,j]);
  38. END;
  39. writeln;
  40. writeln;
  41. FOR i:=1 TO n DO
  42. FOR j:= 1 TO m DO
  43. IF A[i,j] MOD (i+j) =0 THEN BEGIN k:=k+1; s:=s+A[i,j]; END;
  44. Writeln('Ma tran A : ');
  45. writeln;
  46. FOR i :=1 TO n DO
  47. BEGIN
  48. FOR j := 1 TO m DO
  49. write(A[i,j]:5);
  50. Writeln;
  51. writeln;
  52. END;
  53. Writeln('Tong la : ',s);
  54. Writeln('So luong : ',k);
  55. readln;
  56. END.
  57. ---------------------------------
  58. PROGRAM BT7_41;
  59. USES crt;
  60. VAR n,m,k,i,j,s,l: INTEGER;
  61. A:ARRAY[1..100,1..100] OF INTEGER;
  62. BEGIN
  63. clrscr;
  64. s:=0;
  65. l:=0;
  66. Write('Moi nhap m, n : ');
  67. Readln(m,n);
  68. FOR i:=1 TO n DO
  69. FOR j:=1 TO m DO
  70. BEGIN
  71. Writeln('Moi nhap A[',i,',',j,'] : ');
  72. Readln(A[i,j]);
  73. END;
  74. Writeln('Ma tran A la : ');
  75. Writeln;
  76. FOR i:= 1 TO n DO
  77. BEGIN
  78. FOR j:=1 TO m DO
  80. Write(A[i,j]:4);
  81. writeln;
  82. Writeln;
  83. END;
  84. FOR j:= 1 TO m DO
  85. s:=s+A[1,j];
  86. Writeln('Tong cac phan tu dong 1 la : ',s);
  87. Readln;
  88. Writeln('Moi nhap k: ');
  89. Readln(k);
  90. FOR i:=1 TO m DO
  91. l:=l+ A[i,k];
  92. Writeln('Tong cac phan tu cot ',k,' la : ',l);
  93. Readln;
  94. END.
  95. ------------------------------------
  96. PROGRAM BT7_42;
  97. USES crt;
  98. VAR n,m,i,j,k,t : INTEGER;
  99. A:ARRAY[1..100,1..100] OF INTEGER;
  100. BEGIN
  101. clrscr;
  102. Write('Moi nhap m, n : ');
  103. Readln(m,n);
  104. FOR i:=1 TO n DO
  105. FOR j:=1 TO m DO
  106. BEGIN
  107. Writeln('Moi nhap A[',i,',',j,'] : ');
  108. Readln(A[i,j]);
  109. END;
  110. Writeln('Ma tran A la : ');
  111. Writeln;
  113. FOR i :=1 TO n DO
  114. BEGIN
  115. FOR j:= 1 TO m DO
  116. Write(A[i,j]:4);
  117. Writeln;
  118. Writeln;
  119. END;
  120. FOR k:= n DOWNTO 2 DO
  121. FOR i:=1 TO n-1 DO
  122. IF A[i,1] > A[i+1,1] THEN
  123. BEGIN
  124. t:=A[i,1];
  125. A[i,1]:=A[i+1,1];
  126. A[i+1,1]:=t;
  127. END;
  129. Writeln('Ma tran sau khi da sap xep : ');
  130. FOR i:=1 TO n DO
  131. BEGIN
  132. FOR j:=1 TO m DO
  133. Write(A[i,j]:4);
  134. Writeln;
  135. Writeln;
  136. END;
  137. readln;
  138. END.
  139. -------------------------------
  140. Program npsangtp;
  141. uses crt;
  142. Var S:string;
  143. A:array[1..100] of integer;
  144. N,i,k,gt:integer;
  145. Begin
  146. write('Nhap vao so nhi phan : ');
  147. Readln(S);
  148. For i:=1 to length(s) do
  149. if S[i]='1' then A[i]:=1
  150. else
  151. A[i]:=0;
  152. N:=0;
  153. For i:=1 to length(S) do
  154. Begin
  155. gt:=1;
  156. For k:=1 to length(S)-i do
  157. gt:=gt*2;
  158. N:=N+A[i]*gt;
  159. End;
  160. write('So thap phan la:',N);
  161. Readln
  162. End.
  163. ---------------------------
comments powered by Disqus