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

Заполнить матрицы по правилу. - Pascal ABC

08.02.2013, 13:02. Просмотров 247. Ответов 1
Метки нет (Все метки)

Ребят помогите решить задачу в паскаль по двумерным массивам: надо составить массив4*5,где слева,справа,снизу и сверху единицы, а внутри нули.
и еще: составить массив по главной и побочной диагонали пятерки,все остальное четверки.
Ребят,выручите пожалуйста срочно надо
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.02.2013, 13:02
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Заполнить матрицы по правилу. (Pascal ABC):

Заполнить матрицу по правилу
как заполнить массив таким образом

Заполнить массив по правилу
1. Заполнить А. Таким образом: 1,3,5,7 2.Есть два масса а,bзаполнить случайным...

Заполнить матрицу по правилу
Помогите составить программу. При заданных условиях заполнить массив по...

Массив 9 на 9 заполнить по правилу
Помогите решить задачу. "Массив 9 на 9. Все элементы расположенные на...

Заполнить массив по правилу
Подскажите пожалуйста, как заполнить массив по правилу ( размерность 6*6) ...

Заполнить матрицу по правилу
Всем привет. Нужна помощь с 2 заданиями:

1
Puporev
Модератор
54124 / 41757 / 28869
Регистрация: 18.05.2008
Сообщений: 98,280
08.02.2013, 14:32 #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
uses crt;
const m=4;
      n=5;
var a:array[1..n,1..n] of byte;
    i,j:byte;
begin
writeln('Задание 1');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    if(i=1)or(i=m)or(j=1)or(j=n) then a[i,j]:=1
    else a[i,j]:=0;
    write(a[i,j]:2);
   end;
  writeln
 end;
writeln;
writeln('Задание 2');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if(j=i)or(j=n-i+1) then a[i,j]:=5
    else a[i,j]:=4;
    write(a[i,j]:2);
   end;
  writeln
 end;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.02.2013, 14:32
Привет! Вот еще темы с решениями:

Заполнить массив по правилу
Заполнить массив размерностью 6х6 по правилу

Заполнить массив 7*7 по правилу
Всем привет...прошу решить мне задачку т.к. я не могу совладать с этими...

Заполнить массив по правилу
Помогите пожалуйста, нужно заполнить массив Задание 1. for i:=1 to 10 do...

Заполнить массив по правилу
Заполнить массив размерность 7 х 7 по правилу: n 0 0 … 0 0 0...


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

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

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