fork(1) download
copy 
  1. program peredelol;
  2. uses
  3. 	sysutils;
  4. var
  5. 	n,i,j,k: integer;
  6. begin
  7. 	write('vvedite razmernost of matrica: ');
  8. 	readln(n);
  9. 	writeln;
  10. 	writeln('zapustite etot program v pascale:');
  11. 	writeln('program zdelol;');
  12. 	writeln('var');
  13. 	writeln(Format(#9'a,b,c: array[1..%d,1..%d] of integer;',[n,n]));
  14. 	writeln('begin');
  15. 	for i:= 1 to n do
  16. 	begin
  17. 		for j:= 1 to n do
  18. 		begin
  19. 			writeln(Format(#9'readln(a[%d,%d]);',[i,j]));
  20. 		end
  21. 	end;
  22. 	writeln('');
  23. 	for i:= 1 to n do
  24. 	begin
  25. 		for j:= 1 to n do
  26. 		begin
  27. 			writeln(Format(#9'readln(b[%d,%d]);',[i,j]));
  28. 		end
  29. 	end;
  30. 	writeln;
  31. 	for i:= 1 to n do
  32. 	begin
  33. 		for j:= 1 to n do
  34. 		begin
  35. 			if j<>n then
  36. 				writeln(Format(#9'write(a[%d,%d]:3);',[i,j]))
  37. 			else
  38. 				writeln(Format(#9'writeln(a[%d,%d]:3);',[i,j]));
  39. 		end
  40. 	end;
  41. 	writeln(#9'writeln;');
  42. 	writeln;
  43. 	for i:= 1 to n do
  44. 	begin
  45. 		for j:= 1 to n do
  46. 		begin
  47. 			if j<>n then
  48. 				writeln(Format(#9'write(b[%d,%d]:3);',[i,j]))
  49. 			else
  50. 				writeln(Format(#9'writeln(b[%d,%d]:3);',[i,j]));
  51. 		end
  52. 	end;
  53. 	writeln(#9'writeln;');
  54. 	for i:= 1 to n do
  55. 	begin
  56. 		for j:= 1 to n do
  57. 		begin
  58. 			write(Format(#9'c[%d,%d]:=',[i,j]));
  59. 			for k:= 1 to n do
  60. 			begin
  61. 				write(Format('a[%d,%d]*b[%d,%d]',[i,k,k,j]));
  62. 				if k<>n then
  63. 					write('+')
  64. 				else
  65. 					write(';');
  66. 			end;
  67. 			writeln;
  68. 		end;
  69. 	end;
  70. 	writeln;
  71. 	for i:= 1 to n do
  72. 	begin
  73. 		for j:= 1 to n do
  74. 		begin
  75. 			if j<>n then
  76. 				writeln(Format(#9'write(c[%d,%d]:4);',[i,j]))
  77. 			else
  78. 				writeln(Format(#9'writeln(c[%d,%d]:4);',[i,j]));
  79. 		end
  80. 	end;
  81. 	writeln(#9'writeln;');
  82. 	writeln;
  83. 	for i:= 1 to n do
  84. 		writeln(Format(#9'write(c[%d,%d]:4);',[i,i]));
  85. 	writeln('end.');
  86. end.
Success #stdin #stdout 0s 388KB
comments (?)
stdin
copy 
4
stdout
copy 
vvedite razmernost of matrica: 
zapustite etot program v pascale:
program zdelol;
var
	a,b,c: array[1..4,1..4] of integer;
begin
	readln(a[1,1]);
	readln(a[1,2]);
	readln(a[1,3]);
	readln(a[1,4]);
	readln(a[2,1]);
	readln(a[2,2]);
	readln(a[2,3]);
	readln(a[2,4]);
	readln(a[3,1]);
	readln(a[3,2]);
	readln(a[3,3]);
	readln(a[3,4]);
	readln(a[4,1]);
	readln(a[4,2]);
	readln(a[4,3]);
	readln(a[4,4]);

	readln(b[1,1]);
	readln(b[1,2]);
	readln(b[1,3]);
	readln(b[1,4]);
	readln(b[2,1]);
	readln(b[2,2]);
	readln(b[2,3]);
	readln(b[2,4]);
	readln(b[3,1]);
	readln(b[3,2]);
	readln(b[3,3]);
	readln(b[3,4]);
	readln(b[4,1]);
	readln(b[4,2]);
	readln(b[4,3]);
	readln(b[4,4]);

	write(a[1,1]:3);
	write(a[1,2]:3);
	write(a[1,3]:3);
	writeln(a[1,4]:3);
	write(a[2,1]:3);
	write(a[2,2]:3);
	write(a[2,3]:3);
	writeln(a[2,4]:3);
	write(a[3,1]:3);
	write(a[3,2]:3);
	write(a[3,3]:3);
	writeln(a[3,4]:3);
	write(a[4,1]:3);
	write(a[4,2]:3);
	write(a[4,3]:3);
	writeln(a[4,4]:3);
	writeln;

	write(b[1,1]:3);
	write(b[1,2]:3);
	write(b[1,3]:3);
	writeln(b[1,4]:3);
	write(b[2,1]:3);
	write(b[2,2]:3);
	write(b[2,3]:3);
	writeln(b[2,4]:3);
	write(b[3,1]:3);
	write(b[3,2]:3);
	write(b[3,3]:3);
	writeln(b[3,4]:3);
	write(b[4,1]:3);
	write(b[4,2]:3);
	write(b[4,3]:3);
	writeln(b[4,4]:3);
	writeln;
	c[1,1]:=a[1,1]*b[1,1]+a[1,2]*b[2,1]+a[1,3]*b[3,1]+a[1,4]*b[4,1];
	c[1,2]:=a[1,1]*b[1,2]+a[1,2]*b[2,2]+a[1,3]*b[3,2]+a[1,4]*b[4,2];
	c[1,3]:=a[1,1]*b[1,3]+a[1,2]*b[2,3]+a[1,3]*b[3,3]+a[1,4]*b[4,3];
	c[1,4]:=a[1,1]*b[1,4]+a[1,2]*b[2,4]+a[1,3]*b[3,4]+a[1,4]*b[4,4];
	c[2,1]:=a[2,1]*b[1,1]+a[2,2]*b[2,1]+a[2,3]*b[3,1]+a[2,4]*b[4,1];
	c[2,2]:=a[2,1]*b[1,2]+a[2,2]*b[2,2]+a[2,3]*b[3,2]+a[2,4]*b[4,2];
	c[2,3]:=a[2,1]*b[1,3]+a[2,2]*b[2,3]+a[2,3]*b[3,3]+a[2,4]*b[4,3];
	c[2,4]:=a[2,1]*b[1,4]+a[2,2]*b[2,4]+a[2,3]*b[3,4]+a[2,4]*b[4,4];
	c[3,1]:=a[3,1]*b[1,1]+a[3,2]*b[2,1]+a[3,3]*b[3,1]+a[3,4]*b[4,1];
	c[3,2]:=a[3,1]*b[1,2]+a[3,2]*b[2,2]+a[3,3]*b[3,2]+a[3,4]*b[4,2];
	c[3,3]:=a[3,1]*b[1,3]+a[3,2]*b[2,3]+a[3,3]*b[3,3]+a[3,4]*b[4,3];
	c[3,4]:=a[3,1]*b[1,4]+a[3,2]*b[2,4]+a[3,3]*b[3,4]+a[3,4]*b[4,4];
	c[4,1]:=a[4,1]*b[1,1]+a[4,2]*b[2,1]+a[4,3]*b[3,1]+a[4,4]*b[4,1];
	c[4,2]:=a[4,1]*b[1,2]+a[4,2]*b[2,2]+a[4,3]*b[3,2]+a[4,4]*b[4,2];
	c[4,3]:=a[4,1]*b[1,3]+a[4,2]*b[2,3]+a[4,3]*b[3,3]+a[4,4]*b[4,3];
	c[4,4]:=a[4,1]*b[1,4]+a[4,2]*b[2,4]+a[4,3]*b[3,4]+a[4,4]*b[4,4];

	write(c[1,1]:4);
	write(c[1,2]:4);
	write(c[1,3]:4);
	writeln(c[1,4]:4);
	write(c[2,1]:4);
	write(c[2,2]:4);
	write(c[2,3]:4);
	writeln(c[2,4]:4);
	write(c[3,1]:4);
	write(c[3,2]:4);
	write(c[3,3]:4);
	writeln(c[3,4]:4);
	write(c[4,1]:4);
	write(c[4,2]:4);
	write(c[4,3]:4);
	writeln(c[4,4]:4);
	writeln;

	write(c[1,1]:4);
	write(c[2,2]:4);
	write(c[3,3]:4);
	write(c[4,4]:4);
end.
https://ideone.com/kqYRN6
language:
Pascal (fpc 3.0.4)
created:
9 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!