PascalABC.NET

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

Войти

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

Другие темы раздела

PascalABC.NET Является ли матрица магическим квадратом? https://www.cyberforum.ru/ pascalabc-net/ thread2229223.html
У меня уже сделана часть программы, а конкретно проверка суммы строк, столбцов и главной диагонали, но я не могу составить часть с проверкой второстепенной диагонали и саму концовку программы, где будет определяться, является ли матрица магическим квадратом. Ниже будет сама программа. Буду благодарна за помощь. const x=50; y=10000; var a:array of integer; b:array of integer; ...

PascalABC.NET Ошибка с "счётчиком"
Есть программа, готовая, работает. Но тут есть проблема со счётчиком. Он неверно начисляется. Я встроил костыль в конце (h-1), но это же не дело товарищи! Я никак не пойму в чём здесь проблема. const n=5; var i,x,h,p:integer; c:char; s:string;

PascalABC.NET Найти элемент, в значении которого больше всего разрядов https://www.cyberforum.ru/ pascalabc-net/ thread2229153.html
Дана матрица A(n×n) многоразрядных целых чисел. Найти номер строки и номер столбца, на пересечении которых находится элемент матрицы, в значении которого больше всего расположено разрядов. Видел код сделанный с помощью функции. Как написать без него?

PascalABC.NET Модификатор internal https://www.cyberforum.ru/ pascalabc-net/ thread2228817.html
Как сделать чтобы Value был доступен только через модули A и B? unit A; type T1 = class internal class Value: integer; end; end. unit B; uses A;

PascalABC.NET Заменить все элементы массива кроме тем, что расположены одновременно над главной и под побочной диагоналями
Помогите пожалуйста) Выполните задание реализовав использование процедур (void-методов) пользователя. Задание:Дан двумерный числовой массив, состоящий из N строк и столбцов, заполненный случайными вещественными числами из диапазона от А до B. Проведите замену части массива по приведенному ниже правилу. Правило:Заменить значения всех элементов массива за исключением тех, что расположены...

PascalABC.NET Заменить те элементы массива, которые начинаются на введенную с клавиатуры букву, этой буквой Помогите пожалуйста) Задача:Для решения приведённой ниже задачи разработайте соответствующую процедуру (void-метод). Во всех задачах дан одномерный массив из N элементов. При решении задачи также опишите и примените процедуры (void-методы) для ввода и вывода элементов массива на экран. Элементами массива являются слова различной длины, введённые с клавиатуры. Замените те элементы массива,... https://www.cyberforum.ru/ pascalabc-net/ thread2228576.html

PascalABC.NET Калькулятор «Параллелограмм» Помогите пожалуйста) Выполните задание реализовав использование процедур (void-методов) пользователя Задание :С помощью оператора «Выбор» смоделируйте соответствующий калькулятор. В качестве исходных данных для значений селектора используйте символы. Задача:Смоделируйте калькулятор «Параллелограмм», который для данных периметра P, одной из сторон b и острого угла  параллелограмма в... https://www.cyberforum.ru/ pascalabc-net/ thread2228574.html

PascalABC.NET Процедура, которая выводит на экран фигуру из звёздочек
Помогите пожалуйста) Напишите процедуру, которая выводит на экран фигуру из звёздочек (смотри пример ниже). Вывести на экран заданное количество таких фигур. Опишите указанную процедуру без параметров. Используйте данную процедуру в основной части программы на языке PascalABC.NET

PascalABC.NET Отсортировать массив записей по полю «улица» в обратном алфавитном порядке https://www.cyberforum.ru/ pascalabc-net/ thread2228569.html
Помогите пожалуйста) Составьте программу для решения указанной задачи. Во всех вариантах дан массив из N записей, которые описаны в первом предложении каждого варианта, затем указано условие задачи. Осуществите проверку правильности введения информации при заполнении массива. Адрес: город (строка), улица (строка), номер дома (натуральное число), номер квартиры (натуральное число). Выведите на...

PascalABC.NET Вывести на экран все квартиры из указанного города Помогите пожалуйста) Составьте программу для решения указанной задачи. Во всех вариантах дан массив из N записей, которые описаны в первом предложении каждого варианта, затем указано условие задачи. Осуществите проверку правильности введения информации при заполнении массива. Адрес: город (строка), улица (строка), номер дома (натуральное число), номер квартиры (натуральное число). Выведите на... https://www.cyberforum.ru/ pascalabc-net/ thread2228568.html

PascalABC.NET Проверка правильности введённой даты
Помогите пожалуйста) Составьте программу для решения указанной задачи Дана дата в формате «дд.мм.гггг» (где «дд» – число, «мм» – номер месяца, «гггг» – год), описанная в виде записи. Проверьте, правильность введенной даты.

PascalABC.NET Неправильное восприятие переменной procedure modi(var m: integer); var k: real; var t,n,g,i: integer; begin m:= m*m; t:= m; i:= 0; while (t>0) do begin t:= t div 10; i:= i+1; end; https://www.cyberforum.ru/ pascalabc-net/ t

OmegaProgrammer

0 / 0 / 0

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

Сообщений: 84

Сделать рекурсию - PascalABC.NET - Ответ 12308618

15.04.2018, 11:27. Показов 1072. Ответов 5

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

Author24 — интернет-сервис помощи студентам

Сделать рекурсию.

Имеется двумерное рекуррентное соотношение:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> \begin{cases}x_{n+1}= x_n+y_n\\\\ y_{n+1}=y_n-x_n \end{cases}<br />$

Начальные условия: x₁ = 1, у₁ = 1.

Напишите программу для нахождения элементов последовательностей по номеру.

Pascal

var
x,y,a:integer;
procedure AVR(z:integer);
var a,b:integer;
 begin
 while z>1 do
  begin
   a:=x;
   x:=x+y;
   y:=y-a;
   z:=z-1;
  end;
  writeln('X = "',x,'" ','Y = "',y,'"');
 end;
 
begin
x:=1;
y:=1;
write('Какой номер? --> ');
readln(a);
AVR(a);
end.

Вернуться к обсуждению:
Сделать рекурсию PascalABC.NET

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

Заказать работу у эксперта

Лучшие ответы (1)

Сообщение: #12309476

Programming

Эксперт

94731 / 64177 / 26122

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

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

15.04.2018, 11:27

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

Из Repeat сделать рекурсию
Здравствуйте, дано код на PascalABC.NET, в нет есть цикл repeat - until, нужно переделать программу...

Дана программа. Нужно сделать рекурсию
Дана программа. Нужно сделать рекурсию при помощи процедуры. var s,k:string; i:integer; begin ...

Задача на рекурсию
Разработать рекурсивную функцию для обработки одномерного массива, которая находит количество...

Сделать рекурсию
Помогите исправить код. procedure Find(k: integer); var L,R,i,j: integer; w,x: integer;...

	15.04.2018, 11:27

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

15.04.2018, 11:27

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

Упражнение на рекурсию
Возвести число в квадрат, пользуясь соотношением...

Задача на рекурсию
const n=...; type vector = array of real; Описать рекурсивную функцию max (x) для определения...

Цикл на рекурсию
помогите приминить рекурсию в ф-ии. function IsValid(r: Queens; step: integer) : boolean; var...

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

Наверх