Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Alexartun
1 / 1 / 0
Регистрация: 01.10.2015
Сообщений: 127
#1

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

15.02.2016, 16:45. Просмотров 493. Ответов 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
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.02.2016, 16:45
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Получить массив X1,X2,.Xn по правилу Xi=1 (Pascal ABC):

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

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

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

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

Получить массив по правилу - Pascal
получить массив x1,x2,..,xn по правилу x(i)=1, если для всех j=1,2,..n выполняется неравенство A<=A, иначе x(i)=0. Найти сумму элементов...

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

1
Puporev
Модератор
53842 / 41475 / 14582
Регистрация: 18.05.2008
Сообщений: 97,198
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
Привет! Вот еще темы с ответами:

Получить новый массив по правилу - Pascal
Даны действительные числа a1,...a2n. Получить новый массив a1,a2n,a2,a2n-1,..an,an+1. Решил, но есть ошибки. Укажите где!! Вот код:const...

Двумерный массив: получить массив по правилу - Pascal ABC
Дан массив X(N,M)/Получить одномерный массив следующим образом : j-ый элемент массива равен 1, если j-ый столбец данного массива имеет хотя...

Получить массив A(N), компоненты которого находятся по правилу - Pascal ABC
Дана матрица B(N,N). Получить массив A(N), компоненты которого находятся по правилу: Ai равно первому по порядку положительному элементу в...

Ввести массив, получить число по заданному правилу - Pascal ABC
Дан массив целых чисел, состоящий из 15 элементов получить, вывести на экран исходный массив и массив с помощью клавиатуры, получить число...


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

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

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