Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.05.2016, 23:54   #1
Вячик
Пользователь
 
Регистрация: 09.11.2015
Сообщений: 14
По умолчанию матрица

Пусть дана символьная квадратная матрица порядка 10. Замените буквой а все ее элементы, расположенные выше главной диагонали.
нужно написать при помощи функции вот этот кад
for i:=1 to 10 do
for j:=1 to 10 do
if i<j then a[i,j]:='a';
writeln;
for i:=1 to 10 do
begin
for j:=1 to 10 do
write(a[i,j],' ');
writeln;
end;
Код:
var
   a:array[1..10,1..10]of char;
   i,j:integer;
begin
   randomize;
   for i:=1 to 10 do
   for j:=1 to 10 do
    a[i,j]:=char(random(26)+integer('a'));
   for i:=1 to 10 do
    begin
       for j:=1 to 10 do
        write(a[i,j],'  ');
       writeln;
    end;
   for i:=1 to 10 do
   for j:=1 to 10 do
    if i<j then a[i,j]:='a';
   writeln;
  for i:=1 to 10 do
    begin
       for j:=1 to 10 do
        write(a[i,j],'  ');
       writeln;
    end;
    end.
Вячик вне форума Ответить с цитированием
Старый 29.05.2016, 00:12   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

так, код у Вас нормальный, рабочий.

в чём, собственно, состоит вопрос?
Serge_Bliznykov вне форума Ответить с цитированием
Старый 29.05.2016, 13:07   #3
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,602
По умолчанию

Код:
const
  n = 10;

type
  matrix = array[1..n, 1..n] of char;

var
  a: matrix;
  i, j: integer;

function ChangeA(var x: matrix): boolean;
var
  i, j: integer;

begin
  for i := 1 to n do
    for j := 1 to n do
      if i < j then 
        x[i, j] := 'a';
end;

begin
  randomize;
  writeln('Initial matrix:');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := char(random(26) + integer('a'));
      write(a[i, j]:5 );
    end;  
    writeln;
  end;
  writeln('Transformed matrix:');
  ChangeA(a);
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(a[i, j]:5 );
    writeln;
  end;
  
end.
ZX Spectrum-128 вне форума Ответить с цитированием
Старый 29.05.2016, 13:55   #4
Вячик
Пользователь
 
Регистрация: 09.11.2015
Сообщений: 14
По умолчанию

написать код при помощи функции или процедуры
writeln('Transformed matrix:');
ChangeA(a);
for i := 1 to n do
begin
for j := 1 to n do
write(a[i, j]:5 );
writeln;
end;
Вячик вне форума Ответить с цитированием
Старый 29.05.2016, 19:18   #5
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,602
По умолчанию

Написал же:
Код:
ChangeA(a);
ZX Spectrum-128 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Матрица. Задана матрица X[N,N], где N<=15. В каждом столбце матрицы поменять местами минимальный элемент и элемент главной диагона _Marchel_ Паскаль, Turbo Pascal, PascalABC.NET 5 28.11.2015 16:23
Паскаль. Матрица NxN -> текстовый файл -> Матрица NxN - найти max по диагоналям -> типизированный файл Лунатик13 Помощь студентам 1 20.02.2012 15:54
Матрица druger Помощь студентам 3 29.10.2011 20:54
Непонятки с DirectX (матрица поворота, камера, матрица проекции) ROD Общие вопросы C/C++ 2 17.09.2010 17:00
TurboPascal: граф, матрица смежности и матрица инцидентности. ulala Помощь студентам 0 02.12.2009 10:11