Pascal Nhập vào một ma trận vuông góc cấp n.Hãy in ra ma trận 1.Ma trận vừa nhập 2.tìm ptử nhỏ nhất trong từng hàng 3.đếm xem trong ma trận có bn số 0 4.đếm
Pascal Nhập vào một ma trận vuông góc cấp n.Hãy in ra ma trận 1.Ma trận vừa nhập 2.tìm ptử nhỏ nhất trong từng hàng 3.đếm xem trong ma trận có bn số 0 4.đếm số lần xhiện của số x trong ma trận và vtri của chúng(x dc nhập từ bàn phím) 5.tính tổng các phân tử lớn nhất của mỗi hàng
Lời giải 1 :
program oken;
uses crt;
var a: array [1..100,1..100] of integer;
vtc,vth: array [1..100] of integer;
n,i,j,min,dem,x,k,s,max: longint;
begin
clrscr;
writeln('--Nhap mang--');
write('Nhap do dai vuong goc: '); readln(n);
for i:=1 to n do
for j:=1 to n do
begin
write('A[',i,',',j,']: ');
readln(a[i,j]);
end;
writeln('--Mang vua nhap--');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j],' ');
writeln;
end;
writeln('--Phan tu nho nhat tung hang--');
for i:=1 to n do
begin
min:=a[i,1];
for j:=2 to n do
if a[i,j]< min then
min:= a[i,j];
writeln('So nhat nhat hang ',i,', cot ',j,': ',min);
end;
dem:=0;
for i:=1 to n do
for j:=1 to n do
if a[i,j]=0 then
dem:=dem+1;
writeln('So lan xuat hien cua so 0: ',dem);
writeln('--Dem so lan X xuat hien--');
write('Nhap so x: '); readln(x);
dem:=0; k:=0;
for i:=1 to n do
for j:=1 to n do
if a[i,j]=x then
begin
k:=k+1;
dem:=dem+1;
vtc[k]:=i;
vth[k]:=j;
end;
writeln('So lan ',x,' xuat hien: ',dem);
writeln('Cac vi tri lan luot xuat hien cua ',x,': ');
for i:=1 to k do
writeln(' ',vtc[i],',',vth[i]);
s:=0;
for i:=1 to n do
begin
max:=a[i,1];
for j:=2 to n do
if max< a[i,j] then
max:= a[i,j];
s:=s+max;
end;
writeln('Tong cac phan tu lon nhat cua moi hang: ',s);
readln;
end.
Thảo luận
Lời giải 2 :
program ct;
uses crt;
var A:array[1..100,1..100] of integer;
c,h:array [1..100] of integer;
i,j,l,n,min,max,d,x:integer;
S:longint;
begin clrscr;
write('Nhap cap n cua ma tran: '); readln(n);
for i:=1 to n do
for j:=1 to n do
begin
write('Nhap mang A[',i,',',j,']: '); readln(A[i,j]);
end;
for i:=1 to n do
begin
for j:=1 to n do
write(A[i,j],:3);
end;
for i:=1 to n do
begin
min:=A[i,1];
for j:=2 to n do
if A[i,j]<min then min:=A[i,j];
writeln('So nho nhat hang ',i,', la: ',min);
end;
for i:=1 to n do
for j:=1 to n do
if a[i,j]=0 then
inc(d);
writeln('Ma tran co ',d,' so 0');
writeln('Nhap so x: '); readln(x);
d:=0; k:=0;
for i:=1 to n do
for j:=1 to n do
if a[i,j]=x then
begin
l:=l+1;
d:=d+1;
c[l]:=i;
h[l]:=j;
end;
writeln('Co ',d,' lan ',x,' xuat hien trong ma tran');
writeln('Cac vi tri lan luot xuat hien cua ',x,' la: ');
for i:=1 to l do
writeln(c[i],'.',h[i]:3);
S:=0;
for i:=1 to n do
begin
max:=A[i,1];
for j:=2 to n do
if A[i,j]>max then max:=A[i,j];
S:=S+max;
end;
writeln('Tong cac phan tu lon nhat cua moi hang la: ',S);
readln;
end.
Học tốt!
Có thể bạn quan tâm
Bạn có biết?
Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.
Nguồn : Wikipedia - Bách khoa toàn thưTâm sự 8
Lớp 8 - Năm thứ ba ở cấp trung học cơ sở, học tập bắt đầu nặng dần, sang năm lại là năm cuối cấp áp lực lớn dần nhưng các em vẫn phải chú ý sức khỏe nhé!
Nguồn : ADMIN :))Copyright © 2021 HOCTAP247