Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Разное - Pascal. Массивы. Вывод матрицы на экран

Ответить
Настройки темы
Разное - Pascal. Массивы. Вывод матрицы на экран

Новый участник


Сообщения: 3
Благодарности: 0

Профиль | Отправить PM | Цитировать


Дана квадратная вещественная матрица:
0.0 ! 8.5 ! -1.3
0.0 ! 5.41 ! 0.0
9.0 ! -6.1 ! 0.0

Надо вывести матрицу на экран, что бы в последствии можно было связать с данной программой:


Код: Выделить весь код
program Zadanie3_Massiv;
var A: array[1..3, 1..3] of real;
S1, S2: Real;
i, j: Integer;
procedure InputOutput;
begin
Write('Исходная матрица');
WriteLn;
Write;
for i := 1 to 3 do
begin
for j := 1 to 3 do Write(A[i, j]: 5: 1);
WriteLn
end; WriteLn
end;
procedure Over;
begin
S2 := 0;
for i := 1 to 3 - 1 do
for j := i + 1 to 3 do
S2 := S2 + A[i, j];
WriteLn('Ответ:');
WriteLn('Сумма элементов, лежащих выше главной диагонали =', S2: 5: 1);
end;
procedure Under;
begin
S1 := 0;
for i := 2 to 3 do
for j := 1 to i - 1 do
S1 := S1 + A[i, j];
WriteLn('Сумма элементов, лежащих ниже главной диагонали =', S1: 5: 1);
ReadLn
end;
begin
InputOutput;
Over;
Under;
end.

Отправлено: 14:00, 08-01-2013

 

Аватара для ferget

Разный


Сообщения: 1294
Благодарности: 359

Профиль | Отправить PM | Цитировать


так примерно
Код: Выделить весь код
for i:=1 to 3 do begin
  for j:=1 to 3 do
     write(A[i,j],' ');
  writeln;
end;
Это сообщение посчитали полезным следующие участники:

Отправлено: 14:29, 08-01-2013 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Аватара для lxa85

Необычный


Contributor


Сообщения: 4402
Благодарности: 986

Профиль | Сайт | Отправить PM | Цитировать


MAKS-I, прошу, форматируй код. Во втором часу ночи его читать не возможно, все сливается во едино.
Это сообщение посчитали полезным следующие участники:

Отправлено: 01:20, 09-01-2013 | #3



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Разное - Pascal. Массивы. Вывод матрицы на экран

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Delphi - [Pascal] Вывод чётных чисел Светлана96 Тест-форум 8 02-02-2012 14:45
Разное - [решено] Массивы. Ввод параметра для строк и столбцов с клавиатуры,а заполнение матрицы random lenaustkz84 Программирование и базы данных 13 19-01-2012 09:03
C/C++ - [решено] Нахождение обратной матрицы методом Гаусса и рассширенной матрицы D.Y. Программирование и базы данных 64 06-05-2011 22:59
JavaScript вывод на экран KHEXT Вебмастеру 1 26-01-2004 23:31
VB 6.0: Быстрый вывод на экран bde Программирование и базы данных 1 04-12-2003 15:51




 
Переход