Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
lexer1
0 / 0 / 0
Регистрация: 19.11.2015
#1

Формирование массива - Pascal

28.11.2009, 00:23. Просмотров 434. Ответов 5
Метки нет (Все метки)

Помогите составить программу: Сформировать элементы массива А(5*5) по формуле


i, i-j<1
а(ij) = 0, i-j=1
j, i-j>1
http://www.cyberforum.ru/pascal/thread122121.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.11.2009, 00:23
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Формирование массива (Pascal):

Формирование массива
Дан массив целых чисел, в котором могут встречаться повторяющиеся элементы....

Формирование массива
Дан массив целых чисел, в котором могут встречаться повторяющиеся элементы....

Формирование массива
Даны массивы X(8),Y(8),Z(10),W(15) элементы которых определяются за формулами (...

на формирование массива
Даны два целочисленных массива с положительными элементами: X1,X2,...,Xn и...

Формирование массива по правилу
нужно 1) сформирования массива Х По закону : x=a; x=a+dx;...

5
кот Бегемот
Платежеспособный зверь
8447 / 3886 / 1511
Регистрация: 28.10.2009
Сообщений: 10,062
28.11.2009, 00:40 #2
Сам-то понял, что написал? Только честно.
0
MadMag
(Yellow_Duck)
1261 / 130 / 15
Регистрация: 16.10.2008
Сообщений: 733
28.11.2009, 00:49 #3
я понял

Добавлено через 1 минуту
Код
         | i, i-j<1
A[i,j] = { 0, i-j=1 
         | j, i-j>1
Ну типа "либо либо".

Добавлено через 1 минуту
Просто это достаточно сложно на форуме написать, имхо. =)

Добавлено через 10 секунд
Задача не для ламера
0
Inadequate
Retired
7709 / 2542 / 670
Регистрация: 17.10.2009
Сообщений: 5,100
28.11.2009, 04:57 #4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
uses
  crt;
const
  str=5;{êîëè÷åñòâî ñòðîê}
  col=5;{êîëè÷åñòâî ñòîëáöîâ}
var
  a:array [1..str,1..col] of integer;
  i,j:integer;
begin
  clrscr;
  {Г§Г*ïîëГ*ГїГҐГ¬ ГЁ âûûâîäèì Г¬Г*òðèöó}
  writeln('ГЊГ*òðèöГ* A:');
  for i:=1 to str do
  begin
    for j:=1 to col do
    begin
      if i-j<1 then
        a[i,j]:=i
      else
        if i-j=1 then
          a[i,j]:=0
        else
          a[i,j]:=j;
      write(a[i,j]:2)
    end;
    writeln
  end;
end.
0
Puporev
Модератор
54131 / 41764 / 28875
Регистрация: 18.05.2008
Сообщений: 98,290
28.11.2009, 12:41 #5
MadMag, Но ты же написал! Просто тегами уметь пользоваться нужно.
0
lexer1
0 / 0 / 0
Регистрация: 19.11.2015
28.11.2009, 12:44 #6
Спасибо=)
0
28.11.2009, 12:44
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.11.2009, 12:44
Привет! Вот еще темы с решениями:

Формирование матрицы и массива по условию.
Обработка двумерных массивов с помощью подпрограмм. Использовать процедуры...

Формирование нового массива из старого
Из элементов массива С сформировать массив А той же размерности по правилу:...

Формирование нового массива из имеющегося
Помогите пожалуйста! Дан массив В(к), к&lt;=20. Определить номер и значение...

Формирование одномерного массива из двумерного
Бьюсь над задачей, сам не могу допереть как это сделать, найти тоже не...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru