Pascallllll

SUBMITTED BY: Guest

DATE: Oct. 9, 2014, 5:57 a.m.

FORMAT: Text only

SIZE: 3.1 kB

Raw Download

HITS: 1343

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