Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
kloppy69
0 / 0 / 3
Регистрация: 04.01.2014
Сообщений: 135
1

Массив работает, но отображает элементы в строку, а не столбцами

07.01.2014, 17:38. Просмотров 230. Ответов 2
Метки нет (Все метки)

Массив работает, но отображает элементы в строку, а не столбцами
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
29
30
31
32
33
34
35
36
37
38
39
40
41
program k2_1;
uses crt;
Const q=5;
      l=5;
var b: array [1..q,1..l] of integer;
i, j, N, k : integer;
max,min,i1,j1,i2,j2:integer;
 
BEGIN
clrscr;
 For i:= 1 to N do         {1.Г€Г*èöèГ*ëèçГ*öèÿ Г¬Г*Г±Г±ГЁГўГ*}
        For j:= 1 to N do
        B[i,j]:=0;
 Write ('Ââåäèòå Г°Г*çìåðГ*îñòü Г¬Г*Г±Г±ГЁГўГ* NxN');  {2.Ââîä ýëåìåГ*òîâ Г¬Г*Г±Г±ГЁГўГ*}
 Readln (N, N);
 Writeln ('Ââåäèòå ýëåìåГ*ГІГ» Г¬Г*Г±Г±ГЁГўГ* ');
    For i:=1 to N do
     For j:=1 to N do
      begin
         Write ('B[',i,',',j,']=');
         ReadLn (B[i,j]);
      end;
 Writeln ('Г¬Г*òðèöГ* B: ');{3. Âûâîä ýëåìåГ*òîâ Г¬Г*Г±Г±ГЁГўГ*}
 For i:=1 to N do
 begin
        for j:=1 to N do
                Write (B[i,j]:5);
                end;{_______________________________________}
                 if B[i,j]>max then
            begin
              max:=B[i,j];i1 :=i; j1 :=j;
            end;
 
{ГЏГҐГ·Г*ГІГ*ГҐГ¬ Г¬Г*ГЄГ±ГЁГ¬Г*ëüГ*ûé ýëåìåГ*ГІ Гў ГЄГ*æäîé ñòðîêå ГЁ ГҐГЈГ® ГЁГ*äåêñ.}
      write (' max=',max, ' ñòðîêГ*=',i1,' cmon6eГ¶ =',j1);
      writeln;
 
 
 
 READLN;
End.

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.01.2014, 17:38
Ответы с готовыми решениями:

Написать программу, которая отображает следующую строку
если не трудно можете еще 2 задачи решить 1)написать программу, которая...

Вывести созданный массив на экран, расположив элементы в одну строку через пробелы
1. Заполнить массив случайными числами (положительными и отрицательными) из...

Массив отображает лишь 1 строку, вместо 3
Привет у меня должен массив выводить 3 строчки списка, но выводит лишь одну...

Квадратный массив C(m,n) преобразовать в массив D(m,n) в котором строки из C поменяются местами со столбцами.
Квадратный массив C(m,n) преобразовать в массив D(m,n) в котором строки из C...

Вставить между средними столбцами первую строку.
Составить программу,позволяющую с помощью датчика случайных чисел сформировать...

2
Puporev
Модератор
55411 / 42542 / 29395
Регистрация: 18.05.2008
Сообщений: 100,630
07.01.2014, 17:45 2
Pascal
1
2
3
4
5
6
For i:=1 to N do
 begin
  for j:=1 to N do
  Write (B[i,j]:5);
  Writeln;
 end;{_______________________________________}
1
kloppy69
0 / 0 / 3
Регистрация: 04.01.2014
Сообщений: 135
07.01.2014, 17:55  [ТС] 3
Спасибо, теперь понял)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.01.2014, 17:55

Вставить между средними столбцами первую строку
Помогите пожалуйста. Надо в матрице вставить между средними столбцами первую...

Распарсить строку на элементы и занести в массив
В общем возвращаясь к непонятному для меня PHP. Как вы в этом языке парсите...

Поменять местами элементы с четными и нечетными столбцами. Найти минимальный элемент
Дана матрица Х(3, 4). Поменять местами элементы с четными и нечетными...


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

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

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