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

Переделать задачу, используя метод программирования сверху – вниз. С процедурами

16.12.2014, 19:51. Просмотров 228. Ответов 3
Метки нет (Все метки)

Переделать задачу, используя метод программирования сверху – вниз. (С помощью процедур)
Дана матрица А(nxn). Построить n-мерный вектор по правилу: если в строке матрицы с номером i есть отрицательные элементы, то bi = 0, в противном случае bi = 1.
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
program postroyka;
const h=10;
var
 a: array [1..h,1..h] of integer;
  b: array [1..h] of integer;
  i, j, n: integer;
begin
  randomize;
  write('Введите размер матрицы = ');
  readln(n);
 
 for i:=1 to n do begin
    b[i]:=1;
    for j:=1 to n do begin
      a[i,j]:=random(10)-2;
      if a[i,j]<0 then b[i]:=0;
    end;
  end;
  for i:=1 to n do begin
    for j:=1 to n do write(a[i,j]:4);
    writeln;
  end;
  writeln;
  for i:=1 to n do write(b[i]:4);
  writeln;
end.
Нужна помощь, уже много вариантов перепробовал, не получается.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.12.2014, 19:51
Ответы с готовыми решениями:

Метод «Сверху вниз»
Здравствуйте. Возник вопрос, считается ли код ниже кодом, написанным по методу «Сверху вниз»? ...

Переделать задачу, используя указатели вместо индексов(С++)
#include &lt;stdio.h&gt; #define TWLV 12 #define YRS 5 void main () { float rain = { {10.2,...

Проектирование сверху вниз
Хотел бы сразу предупредить. Отвечают только &quot;бывалые&quot;, профессионалы, скажем так. Слышал это не...

Эллипсы падают сверху вниз
Можете дать примеры как можно сделать , чтобы эллипсы зарисовывались рандомно сверху экрана ( за...

Совместимость модулей сверху вниз
Остро необходимо запустить модуль написанный для 7 друпала на 6-ом. Я только начал знакомство с...

3
Cyborg Drone
Модератор
5887 / 3475 / 2560
Регистрация: 17.08.2012
Сообщений: 11,165
17.12.2014, 02:05 2
Цитата Сообщение от Andryshan Посмотреть сообщение
уже много вариантов перепробовал
Выкладывайте варианты, обкашляем.
1
Andryshan
0 / 0 / 0
Регистрация: 14.12.2014
Сообщений: 38
17.12.2014, 18:43  [ТС] 3
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
uses crt;
const n=5;
type A=array [1..n,1..n] of integer;
B=array[1..n] of integer;
var A:S;
var B:integer;
var i,j:integer;
procedure massiv (size: integer; S:A);
var i,j:integer;
begin 
for i:=1 to size do
begin
for j:=1 to size do
write (S[i,j],' ');
writeln;
end;
end;
procedure random (n,a,b:integer; var S:A);
var i,j:integer;
begin
randomize;
for i:=1 to n do
for j:=1 to n do
S[i,j]:=random(b-a+1)+a;
end;
begin
write (a[i,j]:4);
end;
begin 
random (n, 1, 100, A);
massiv (n,A);
writeln(' ');
readln(B);
for i:=1 to n do
b[i]:=1
for j:=1 to n do
if S[i,j]<0 then B[i]=0;
write(B[i]:4);
writeln;
end.
Но тут неправильно все конечно,но что смог вообщем.
0
Cyborg Drone
Модератор
5887 / 3475 / 2560
Регистрация: 17.08.2012
Сообщений: 11,165
17.12.2014, 19:16 4
Для начала, что за var A:S;, тип S не объявлен.
0
17.12.2014, 19:16
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.12.2014, 19:16

Квадраты падают сверху вниз
Можете дать примеры как можно сделать , чтобы квадраты зарисовывались рандомно сверху экрана и...

Построение таблицы сверху вниз
Нужна помощь! есть таблица &lt;table&gt; &lt;tbody&gt; &lt;?$k=0;?&gt; &lt;?foreach;?&gt; &lt;?if...

Слева направо сверху вниз
Слева направо от наименьших чисел к наибольшим используя 2-мepный мaccив! Обмозгуйте код я тупой! ...


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

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

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