Bài tập pascal_mảng hai chiều
Chia sẻ bởi Trần Văn Nhớ |
Ngày 26/04/2019 |
40
Chia sẻ tài liệu: Bài tập pascal_mảng hai chiều thuộc Tin học 11
Nội dung tài liệu:
program mang_hai_chieu;
uses crt;
var a:array[1..100,1..100] of integer;i,j,n,s,s2,s3:integer;
begin
clrscr;
write(`nhap vao ma tran vuong cap: `);readln(n);
for i:=1 to n do
for j:=1 to n do
begin
write(`a[ `,i,` ,`,j,` ] la: `);readln(a[i,j]);
end;
writeln;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:8);
writeln;
writeln;
writeln;
writeln;
end;
{.................................................}
s:=0;
for i:=1 to n do
for j:=1 to n do
s:=s+a[i,j];
writeln(`tong cac so trong ma tran la: `,s);
{.................................................}
i:=1;j:=1;s2:=0;
repeat
s2:=s2+a[i,j];
i:=i+1;
j:=j+1;
until i>n;
writeln(`tong duong cheo thu nhat la: `,s2);
i:=1;j:=n;s3:=0;
repeat
s3:=s3+a[i,j];
i:=i+1;
j:=j-1;
until i>n;
writeln(`tong duong cheo thu hai la: `,s2);
writeln(`tong hai duong cheo la: `,s2+s3);
{..................................................}
textcolor(yellow);
writeln(`NHAN ENTER DE KET THUC CHUONG TRINH !`);
readln;
end.
uses crt;
var a:array[1..100,1..100] of integer;i,j,n,s,s2,s3:integer;
begin
clrscr;
write(`nhap vao ma tran vuong cap: `);readln(n);
for i:=1 to n do
for j:=1 to n do
begin
write(`a[ `,i,` ,`,j,` ] la: `);readln(a[i,j]);
end;
writeln;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:8);
writeln;
writeln;
writeln;
writeln;
end;
{.................................................}
s:=0;
for i:=1 to n do
for j:=1 to n do
s:=s+a[i,j];
writeln(`tong cac so trong ma tran la: `,s);
{.................................................}
i:=1;j:=1;s2:=0;
repeat
s2:=s2+a[i,j];
i:=i+1;
j:=j+1;
until i>n;
writeln(`tong duong cheo thu nhat la: `,s2);
i:=1;j:=n;s3:=0;
repeat
s3:=s3+a[i,j];
i:=i+1;
j:=j-1;
until i>n;
writeln(`tong duong cheo thu hai la: `,s2);
writeln(`tong hai duong cheo la: `,s2+s3);
{..................................................}
textcolor(yellow);
writeln(`NHAN ENTER DE KET THUC CHUONG TRINH !`);
readln;
end.
* Một số tài liệu cũ có thể bị lỗi font khi hiển thị do dùng bộ mã không phải Unikey ...
Người chia sẻ: Trần Văn Nhớ
Dung lượng: |
Lượt tài: 0
Loại file:
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)