Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Jigx
1 / 1 / 0
Регистрация: 12.11.2012
Сообщений: 38
1

Массив: Получить массив В(15) типа boolean, присвоив k-му элементу значение true, если k-я строка симметрична

06.02.2013, 17:13. Просмотров 844. Ответов 3
Метки нет (Все метки)

Задана целочисленная матрица А(15х20).Получить массив В(15) типа boolean, присвоив k-му элементу значение true, если k-я строка симметрична и значение false в противном случае. Значения ввести с клавиатуры.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.02.2013, 17:13
Ответы с готовыми решениями:

Получить массив B, присвоив его k-му элементу значение 1
Есть у кого идеи ребят? Никак осилить не могу данную задачу. Задана матрица...

Написать функцию function Test(word:string): boolean принимающую значение True, если строка является словом.
Помогите пожалуйста решить задачки,срочно надо 1)Написать функцию function...

Написать функцию function Test(word:string): boolean принимающую значение True, если
Написать функцию function Test(word:string): boolean принимающую значение True,...

Массив: Переменной t присвоить значение True, если в последовательности нет нулевых элементов
Дана последовательность из n вещественных чисел. Переменной t присвоить...

Создать и вывести массив типа boolean
Создать и вывести одномерный массив из 10 элементов типа boolean

3
Kodzaev
3005 / 1894 / 1646
Регистрация: 30.04.2011
Сообщений: 3,054
06.02.2013, 21:14 2
Цитата Сообщение от Jigx Посмотреть сообщение
Значения ввести с клавиатуры.
Будешь вводить 300 элементов?
0
Jigx
1 / 1 / 0
Регистрация: 12.11.2012
Сообщений: 38
06.02.2013, 22:22  [ТС] 3
Цитата Сообщение от Kodzaev Посмотреть сообщение
Будешь вводить 300 элементов?
Ну в случайном порядке.
0
Kodzaev
3005 / 1894 / 1646
Регистрация: 30.04.2011
Сообщений: 3,054
09.02.2013, 19:33 4
Держи, если еще актуально. Но, вероятность, что в массиве B будет хотя бы один True практически нулевая:
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
Const
  n=15;
  m=20;
Var
  a: Array[1..n,1..m] of Integer;
  b: Array[1..n] of Boolean;
  t,i,j: Byte;
BEGIN
For i:=1 to n do
begin
  For j:=1 to m do
  begin
    a[i,j]:=Random(10);
    Write(a[i,j]:3);
  end;
  Writeln
end;
For i:=1 to n do
begin
  t:=0;
  For j:=1 to m div 2 do
  If a[i,j]=a[i,m-j+1] Then
  Inc(t);
  If t=m div 2 Then
  b[i]:=True
  Else
  b[i]:=False;
end;
Writeln('Массив B: ');
For i:=1 to n do
Write(b[i],' ');
END.
Поэтому сделал еще один вариант с ручным вводом размера матрицы и ее элементов:
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;
Var
  a: Array[1..10,1..10] of Integer;
  b: Array[1..10] of Boolean;
  t,i,j,n,m: Byte;
BEGIN
Write('Введите кол-во строк: ');
Readln(n);
Write('Введите кол-во столбцов: ');
Readln(m);
Writeln('Введите элементы матрицы: ');
For i:=1 to n do
For j:=1 to m do
begin
  Writeln('[',i,';',j,']=');
  Readln(a[i,j]);
end;
Clrscr;
Writeln('Матрица:');
For i:=1 to n do
begin
  For j:=1 to m do
  Write(a[i,j]:5);
  Writeln
end;
For i:=1 to n do
begin
  t:=0;
  For j:=1 to m div 2 do
  If a[i,j]=a[i,m-j+1] Then
  Inc(t);
  If t=m div 2 Then
  b[i]:=True
  Else
  b[i]:=False;
end;
Writeln('Массив B: ');
For i:=1 to n do
Write(b[i],' ');
END.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.02.2013, 19:33

Напишите логическую функцию TEST (A, k), принимающую значение True, если k-я строка массива совпадает с k+1
Помогите пожалуйста. Напишите логическую функцию TEST(A, k), принимающую...

Массив: Получить новый массив, заменяя аi нулем, если |ai| не совпадает с выбранным значением, и заменяя аi единицей, если совпадает.
Дан массив целых чисел а1,…, аn. Из абсолютных значений данной...

Создать массив C, где каждый элемент равен 1 (true), если соответствующие элементы A и B имеют одинаковый знак
Даны два двумерных массива A и B одинаковой размерности. Создать массив C, где...


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

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

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