Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Вычислить значение выражения https://www.cyberforum.ru/ pascalabc/ thread1342991.html Помогите решить пожалуйста, крайне важно успеть. Заранее спасибо	Pascal ABC Конвертация строк (приведение русских и английских букв к верхнему регистру) Здравствуйте. Данная тема уже обсуждалась на форуме, однако и после её прочтения, у меня не получилось выполнить моё задание. Мне необходимо привести русские и английские буквы к верхнему регистру....
Pascal ABC Переписать в другой файл и распечатать: список абитуриентов имеющих средний балл больше 4,5 Из внешнего файла ABITURIENT.DAT содержавшего исходные данные. Переписать в другой файл и распечатать:список абитуриентов имеющих средний балл больше 4,5. https://www.cyberforum.ru/ pascalabc/ thread1342954.html	Pascal ABC Получить в файле g все компоненты файла f, которые делятся на m и не делятся на n https://www.cyberforum.ru/ pascalabc/ thread1342951.html Заполнить файл последовательного доступа f целыми числами, полученными с помощью генератора случайных чисел. Получить в файле g все компоненты файла f, которые делятся на m и не делятся на n
Модули. Реализовать в виде модуля набор подпрограмм для выполнения над обыкновенными дробями Pascal ABC Реализовать в виде модуля набор под программ для выполнения над обыкновенными дробями вида P/Q(где Р-целое число, Q-натуральное число). решить задачи с использованием внешних подпрограмм и внешних...	Pascal ABC Самое большое максимальное уменьшить на среднее арифметическое,а 2 максимальное удалить из файла В файле из целых чисел найти 2 максимальных значений.Самое большое максимальное уменьшить на среднее арифметическое,а 2 максимальное удалить из файла. uses crt; const n=5; var f:file of... https://www.cyberforum.ru/ pascalabc/ thread1342890.html
Pascal ABC Определить сумму цифр во второй половине числа и сумму цифр в первой половине числа n Дано натуральное число n. Определить сумму цифр во второй половине числа и сумму цифр в первой половине числа n. И блок-схему,если не сложно. https://www.cyberforum.ru/ pascalabc/ thread1342866.html	Pascal ABC Перемножить матрицы Написал прогу с помощью процедур, препод просит написать теперь с помощью функции. Помогите пожалуйста, не разберусь никак. Заданы двумерные массивы A, B, C одинаковых размерностей. Вычислить...
Pascal ABC Добавить графический интерфейс к программе помогите пожалуйста сделать графический итерфейс в этой программе, чтоб по Х и У строился график.. const m=3; n=9; type m1= array of real; m2= array of real; n1= array of real; ... https://www.cyberforum.ru/ pascalabc/ thread1342646.html	Pascal ABC Шифрование. Введённое сообщение нужно разложить посимвольно в массив по диагоналям Добрый день, требуется помощь в такой вот задаче. Введённое сообщение нужно разложить посимвольно в массив по диагоналям (пробелы заменить нулями). Например, сообщение "светло". "с" будет в первом... https://www.cyberforum.ru/ pascalabc/ thread1342608.html
Pascal ABC Сделайте блок - схему по двумерному массиву Дана действительная матрица a размера (n×m), n,m≤10. В каждом столбце матрицы a сделать следующие изменения: каждый положительный элемент заменить суммой предшествующих ему в этом столбце...	Pascal ABC Нужна блок-схема по готовому коду Дан массив целых чисел Найти сумму нечетных положительных элементов массива . program lr91; type t=array of integer; var y:t; n,i:integer; https://www.cyberforum.ru/ pascalabc/ thread1342546.html

Puporev

Почетный модератор

64275 / 47574 / 32739

Регистрация: 18.05.2008

Сообщений: 115,182

28.12.2014, 11:56

Описать логическую (возможно рекурсивную) функцию, проверяющую является ли симметричной часть массива - Pascal ABC - Ответ 7046873

28.12.2014, 11:56. Показов 1560. Ответов 4

Метки (Все метки)

Ответ

Pascal

uses crt;
type mas=array[1..100] of integer;
function simm(a:mas;i,j:integer):boolean;
begin
if (j=i)or((j-i=1)and(a[i]=a[j])) then simm:=true
else simm:=(a[i]=a[j])and(simm(a,i+1,j-1));
end;
var a:mas;
    n,i,j:integer;
begin
write('Введите размер массива n=');
readln(n);
writeln('Введите элементы массива, целые числа');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i])
 end;
clrscr;
writeln('Массив');
for i:=1 to n do
write(a[i],' ');
writeln;
repeat
write('Введите начало интервала от 1 до ',n,' i=');
readln(i);
until(i>0)and(i<=n);
repeat
write('Введите конец интервала j>=',i,' и j<=',n,' j=');
readln(j);
until (j>=i)and(j<=n);
write(simm(a,i,j));
end.

Вернуться к обсуждению:
Описать логическую (возможно рекурсивную) функцию, проверяющую является ли симметричной часть массива Pascal ABC

Следующий ответ

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

28.12.2014, 11:56

Готовые ответы и решения:

Описать рекурсивную логическую функцию cumm (s,I,j),Проверяющую ,является ли симметричной часть строки s,Начинающаяся i-m и кончающаяся j-m ее элем
Описать рекурсивную логическую функцию cumm (s,I,j),Проверяющую ,является ли симметричной часть...

Описать рекурсивную логическую функцию, определяющую, является ли симметричной часть строки S
3. Описать рекурсивную логическую функцию, определяющую, является ли симметричной часть строки S,...

Описать рекурсивную функцию: является ли симметричной часть строки, начинающаяся i-м и кончающаяся j-м элемент
Описать рекурсивную логическую функцию summ(\alpha,i,j), проверяющую, является ли симметричной...

Описать рекурсивную логическую функцию Sym(S, i, j), проверяющую, является ли симметричной часть строки S
Описать рекурсивную логическую функцию Sym(S, i, j), проверяющую, является ли симметричной часть...

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

28.12.2014, 11:56

Помогаю со студенческими работами здесь

Описать рекурсивную логическую функцию Simm(S,I,J), проверяющую, является ли симметричной часть строки
Составить программы, использующие рекурсивные методы и печатающие результаты вычислений. Для...

Описать рекурсивную логическую функцию Simm(S,I,J), проверяющую, является ли симметричной часть строки S
Описать рекурсивную логическую функцию Simm(S,I,J), проверяющую, является ли симметричной часть...

Описать рекурсивную логическую функцию Simm(S,I,J), проверяющую, является ли симметричной часть строки S, начинающаяся i
Описать рекурсивную логическую функцию Simm(S,I,J), проверяющую, является ли симметричной часть...

Описать логическую функцию, проверяющую является ли симметричной часть массива
Описать логическую функцию, проверяющую является ли симметричной часть массива, начинающегося i-м и...

Наверх