13.05.2011, 08:07 | #1 (permalink) |
Технарёнок
Регистрация: 30.12.2010
Сообщений: 77
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Массив, Паскаль
Помогите написать программу в паскале. Задача: Создать матрицу 3 на 3,ввести 9 элементов,сравнить какой треугольник больше нижний или верхний,вывести сумму матрицы и сумму верхнего и нижнего треугольника,на рисунке я объяснил что такое треугольник Код:
uses crt; var i,j:integer; a:array [1..3,1..3] of integer; {Ввод массива} begin for i:=1 to 3 do for j:=1 to 3 do readln(a[i,j]); writeln; {Вывод массива} for i:=1 to 3 do begin for j:=1 to 3 do writeln(a[i,j]); end; end. |
13.05.2011, 08:07 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Содержание вашей темы довольно часто встречалось и ранее Паскаль. Матрица. Массив Турбо Паскаль или Фри Паскаль. Задание по теме Типизированный файл Массив, Паскаль |
13.05.2011, 09:56 | #3 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Пожалуйста:
Код:
uses crt; const n=3; var i,j,S_top,S_bot:integer; a:array [1..n,1..n] of integer; {Ввод массива} begin clrscr; for i:=1 to n do for j:=1 to n do begin write('a[',i,',',j,']= '); readln(a[i,j]); end; writeln; {Вывод массива} for i:=1 to n do begin for j:=1 to n do write(a[i,j]:5); writeln; end; writeln; S_top:=0; S_bot:=0; {Нахождение суммы элементов верхнего треугольника} for i:=1 to n do for j:=i+1 to n do S_top:=S_top+a[i,j]; {Нахождение суммы элементов нижнего треугольника} for i:=2 to n do for j:=1 to i-1 do S_bot:=S_bot+a[i,j]; {Вывод найденных сумм} writeln('S_top= ',S_top); writeln('S_bot= ',S_bot); {Сравнение найденных сумм и вывод результата} if S_top>S_bot then writeln('S_top>S_bot') else if S_top<S_bot then writeln('S_top<S_bot') else writeln('S_top=S_bot'); readln; end. 1. Размерность матрицы (3) задана в виде константы. Теперь, буде возникнет желание, ее можно легко изменить. 2. В блоке ввода добавлены экранные подсказки. Без них, т.е. вслепую, вводить элементы ну очень неудобно. 3. Исправлен блок вывода, чтобы матрица отображалась на экране именно в виде матрицы, а не непойми чего. |
13.05.2011, 11:47 | #4 (permalink) |
Технарёнок
Регистрация: 30.12.2010
Сообщений: 77
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
спасибо за помощь
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|