Làm việc với mảng 2 chiều trong Turbo Pascal
Chương trình dưới đây thực hiện nhập dữ liệu cho mảng số nguyên 2 chiều. Cần nhập vào giá trị số hàng, số cột (nhỏ hơn 20) và trị số các phần tử của mảng (số nguyên). Chương trình thực hiện công việc in ra mảng số dạng ma trận sau đó thực hiện tìm các phần tử có giá trị lớn nhất của các hàng và các cột rồi in ra màn hình.

program mang2chieu;

uses crt;

var

A: array[1..20,1..20] of integer;

col: integer; {so cot trong mang}

row: integer; {so hang trong mang}

i,j, max: integer;

sumcan:real;

begin

{Ma nguon tham khao tai www.chiasethongtin.com}

      clrscr;{Xoa man hinh}

      writeln('NHAP GIA TRI DAU VAO');

      write('So hang: '); readln(row);

      write('So cot: '); readln(col);

      writeln('NHAP GIA TRI CUA MANG');

      For i := 1 to row do

      Begin

         For j:= 1 to col do

         Begin

         Write('Nhap phan tu a[' ,i ,',',j,']: '); Readln(a[i,j]);

         End;

      End;

      clrscr;{Xoa man hinh}

      writeln('GIA TRI MANG DA NHAP');

      {In gia tri nhap cua mang ra man hinh}

      For i := 1 to row do

      Begin

         For j:= 1 to col do

         Begin

         Write(a[i,j]:5,' ');

         End;

         writeln;

      End;

      {Tim gia tri lon nhat cua cac hang}

      writeln('GIA TRI LON NHAT CUA CAC HANG');

      For i := 1 to row do

      Begin

         max := a[i,1];

         For j:= 1 to col do

         Begin

              if a[i,j] > max then max := a[i,j];

         End;

         writeln('Hang ':0, i:2,': ', max);

      End;

      {Tim gia tri lon nhat cua cac cot}

      writeln('GIA TRI LON NHAT CUA CAC COT');

      For i := 1 to col do

      Begin

         max := a[1,col];

         For j:= 1 to row do

         Begin

              if a[j,i] > max then max := a[j,i];

         End;

         write('Cot ':0, i:2,': ', max, '   ');

      End;

      readln;

 End.

Bài viết cùng danh mục

Bạn biết gì về bệnh sởi?
Sởi là bệnh lây lan do virus, dấu hiệu lâm sàng là viêm long ở kết mạc mắt, niêm mạc đường hô hấp và tiêu hóa, sau đó phát ban.
THÔNG TIN VỀ BỆNH SỞI
Sởi là một bệnh truyền nhiễm cấp tính với các triệu chứng sốt, phát ban, chảy nước mũi, ho, mắt đỏ... bệnh có thể gặp ở trẻ em, người lớn nếu không có miễn dịch phòng bệnh, có thể gây thành dịch. Bệnh sởi tuy ít gây tử vong nhưng biến chứng có thể gặp là: viêm tai giữa, viêm phổi, tiêu chảy, khô loét giác mạc mắt và đôi khi viêm não sau sởi, đặc biệt ở trẻ em suy dinh dưỡng...
Trẻ bị bệnh sởi kiêng gì?
Trẻ bị sởi chỉ 1 lần duy nhất, do đó trẻ em từ 1-4 tuổi rất dễ gặp bởi vì thời gian này hệ thống miễn dịch của bé chưa hoàn chỉnh, cho trẻ sơ sinh dưới 6 tháng tuổi vì sữa mẹ miễn dịch do bệnh nên khả năng là rất thấp, trong khi người lớn đã có bệnh khi họ lớn lên bé thường không mắc bệnh này một lần nữa.
Bệnh sởi ở trẻ em: Phát hiện các dấu hiệu sớm và Cách chăm sóc tại nhà.
Sởi là một bệnh truyền nhiễm cấp tính do virus gây ra. Bệnh lây từ người sang người qua đường hô hấp. Bệnh có biểu hiện sốt, viêm long đường hô hấp, đường tiêu hóa và kết mạc mắt kèm nổi ban đặc trưng. Sau khi mắc sởi, đáp ứng miễn dịch của cơ thể giảm sút nên trẻ dễ mắc các biến chứng.
Những món ăn bà bầu không nên ăn.
Có nhiều thực phẩm tốt dành cho phụ nữ mang thai, nhưng có những thực phẩm phải tránh không nên sử dụng vì sẽ ảnh hưởng tới sức khỏe và nguy hiểm cho thai nhi