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

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

21.05.2015, 17:38. Просмотров 337. Ответов 1
Метки нет (Все метки)

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

Добавлено через 1 час 16 минут
Массив вот такого типа
array[1..n, 1..n] of integer;

Добавлено через 2 минуты
Попробовал сам написать код, но функция не хочет правильно работать. Помогите найти ошибку
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
function Test(A: matrix;k:integer):boolean;
var i:integer;
begin
if k=n then
for i:=1 to n do 
if A[k,i]=A[1,i] then Test:=true
else Test:=false;
if k<>n then
for i:=1 to n do 
if A[k,i]=A[k+1,i] then Test:=true
else Test:=false;
end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.05.2015, 17:38
Ответы с готовыми решениями:

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

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

Написать функцию принимающую значение true
Если строка является перевертышем(палиандромом), то функция примет значение true

Рекурсия: создать логическую функцию, которая возвращает True, если ее аргумент - простое число
С помощью рекурсии, создать логическую функцию, которая возвращает True, если...

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

1
APALoff
1638 / 1067 / 1080
Регистрация: 03.07.2013
Сообщений: 4,507
21.05.2015, 23:22 2
Pascal
1
2
3
4
5
6
7
8
9
function Test(A: matrix;k:integer):boolean;
var i : integer;
    b : Boolean;
begin
  b:=True;
  if k=n then for i:=1 to n do b:=b and (A[k,i]=A[1,i])
  else for i:=1 to n do b:=b and (A[k,i]=A[k+1,i]);
  Test:=b;
end;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.05.2015, 23:22

Составить программу, которая выдает TRUE, если точка совпадает с заданными координатами
Пожалуйста, помогите! Задача на паскале: Составить программу, которая выдает...

Напишите логическую функцию определяющую является ли число n гиперпростым
Простое число называется гиперпростым если любое число получающееся из него...

Присвоить логической переменной T значение true, если значение d-цифра, и значение false в противном случае
Имеется символьная переменная d, присвоить логической переменной T значение...


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

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

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