Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
Alexartun
1 / 1 / 0
Регистрация: 01.10.2015
Сообщений: 127
1

Получить массив X1,X2,.Xn по правилу Xi=1

15.02.2016, 16:45. Просмотров 569. Ответов 1
Метки нет (Все метки)

Получить массив X1,X2,...Xn по правилу Xi=1, если каждый элемент i-го столбца, кроме первого и последнего элементов, меньше полусуммы двух соседних элементов (предыдущего и последующего), иначе Xi=0.

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
uses crt;
var a:array[1..100,1..100] of integer;
    x:array[1..100] of integer;
    n,m,i,j:integer;
begin 
writeln('введите n:');
readln(n);
 
for i:=1 to n do 
begin
for j:=1 to n  do
 
readln ( a [ i , j ]);
end;
 
for j:=1 to n  do
   begin 
    x[j]:=1;
    for i:=2 to n-1 do 
   
    if a[i,j] >= (a[i+1,j]/2+a[i-1,j]/2) then 
        begin 
        x[j]:=0;
        break;
        end;
  
    end;
      writeln('/////////////////////////////////');
      write('x = ',x[j]);
      writeln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.02.2016, 16:45
Ответы с готовыми решениями:

Двумерный массив.Получить массив x1,x2.xn по правилу xi=0. Найти также произведение всех элементов матрицы
Дана матрица n*n. Получить массив x1,x2...xn по правилу xi=0, если все элементы...

Получить массив по правилу
получить массив x1,x2,..,xn по правилу x(i)=1, если для всех j=1,2,..n ...

Получить массив по правилу
Задан массив. Составить алгоритм и программу, которая выводит исходный массив и...

Получить массив по правилу
Получить массив по правилу X1, X2 ...., Xn по правилу Xi=1, если в i-ом столбце...

Получить массив M по правилу
Не мог нормально написать, так что задача в word'е! помогите плиз... Это...

1
Puporev
Модератор
54590 / 42094 / 29065
Регистрация: 18.05.2008
Сообщений: 99,313
15.02.2016, 17:05 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
uses crt;
var a:array[1..100,1..100] of integer;
    x:array[1..100] of integer;
    n,m,i,j:integer;
begin
writeln('введите n:');
readln(n);
for i:=1 to n do
for j:=1 to n do
readln( a[i,j]);
writeln('Матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:5);
  writeln;
 end;
for j:=1 to n  do
 begin
  x[j]:=1;
  for i:=2 to n-1 do
  if a[i,j] >= (a[i+1,j]/2+a[i-1,j]/2) then
   begin
    x[j]:=0;
    break;
   end;
 end;
writeln('Массив');
for j:=1 to n do
write(x[j]:2);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.02.2016, 17:05

Получить новый массив по правилу
Даны действительные числа a1,...a2n. Получить новый массив...

Получить новый массив по правилу
Дана матрица, состоящая из n строк и n столбцов или одномерные массивы из n...

Получить массив по заданному правилу
как это записать в паскале,и составить блок схему Дано число n и массив...


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

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

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