Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день Заказать работу  
Другие темы раздела
Pascal ABC Процедуры. Вычислить сумму элементов второго столбца матрицы // условие Вычислить сумму элементов второго столбца матрицы 5x5// program MatrixSum; var Matrix:array of integer; i,j,sum:integer; begin writeln('Размеры матрицы 5х5'); for i:=1 to 5 do begin for j:=1 to 5 do matrix:=random(9); https://www.cyberforum.ru/ pascalabc/ thread544758.html Pascal ABC Множества. Дан текст. Найти множество латинских букв, входящих в него
Срочно помогите!!! задачи на множества! 1.Дан текст.Найти множество латинских букв входящих в него,; посчитать количество знаков препинания. 2.Найти мощность множества , состоящего из объединения множеств натуральных чисел от 1 до А и делителей числа А.
Pascal ABC Процедуры. Сколько в матрице 5x5 положительных и отрицательных чисел //условие Сколько в матрице 5x5 положительных и отрицательных чисел? // uses crt; var a: array of integer; i,j,p,o: integer; begin for i:=1 to 5 do begin for j:=1 to 5 do begin a:=random(11)-5; https://www.cyberforum.ru/ pascalabc/ thread544754.html Pascal ABC Процедуры. Определить длину самого длинного слова https://www.cyberforum.ru/ pascalabc/ thread544753.html
uses crt; //условие Случайным образом сформирована строка из нескольких “слов”, состоящих из повторяющихся букв “а”. Определить длину самого длинного слова.// var s: string; i,l,lmax: byte; begin s:=''; lmax:=0; l:=0; for i:=1 to random(21)+20 do if random(2)=1 then s:=s+'a' else s:=s+' ';
Найти сумму первых n-членов ряда Pascal ABC
Задача. найти сумму первых n-членов ряда y=1-1/x+2/x^2 -3/x^3 +4/x^4 при |x|>1 		Pascal ABC дан прямоугольный массив A [1..N,1..M].НАЙТИ количество строк содержащих разные элементы может можно это как то изменить вместо FFF вставить program ff; uses crt; const n=3; m=4; var a:array of integer; b:array of integer; i, j, s, c: integer; begin for i:=1 to n do for j:=1 to m do begin https://www.cyberforum.ru/ pascalabc/ thread544730.html
Pascal ABC Процедуры. Сколько в матрице положительных и отрицательных элементов 1)сколько в матрице 5х5 положительных и отрицательных элементов. 2)Переписать элементы матрицы 7х7 в вектор по строкам. 3)Дан русский текст.Написать программу проверки правильности написания сочетаний "ча","ща","чу","щу". Указать слова, в которых были найдены ошибки и устранить их. решите плиз через процедуры https://www.cyberforum.ru/ pascalabc/ thread544710.html Напечатать списки изделий, изготовленных на сумму более некоторой заданной величины X Pascal ABC
Даны шифры изделий H1,...,H10;себестоимость каждого S1,...,S10;количество в штуках K1,...,K10;Напечатать списки изделий,изготовленных на сумму более некоторой заданной величины X.Определить изделие,для которого Si*Ki максимально. помогите пожалуйста написать программу
Pascal ABC Описать процедуру Transp(A,M), выполняющую транспонирование квадратной вещественной матрицы A порядка M. Двумерный массив A — входной и выходной парам Описать процедуру Transp(A,M), выполняющую транспонирование квадратной вещественной матрицы A порядка M. Двумерный массив A — входной и выходной параметр, M — входной параметр. Использовать эту процедуру для транспонирования данной матрицы A порядка M. Пожалуйста, помогите решить на паскале абс. https://www.cyberforum.ru/ pascalabc/ thread544702.html Pascal ABC Залить прямоугольник зелёным цветом https://www.cyberforum.ru/ pascalabc/ thread544701.html
Здравствуйте, ребята! Прощу прощения, что задаю такой глупый вопрос, но понять не могу, почему если я меняю параметр функции setbrushcolor, цвет всё равно остаётся чёрным? Как залить прямоугольник любым, но не чёрным цветом? Благодарю. uses graphabc; var i, c, x, y: integer; begin x:=windowwidth; y:=windowheight; setbrushcolor(7);
Создать массив b, равный а, но каждый элемент b на единицу больше элемента а Pascal ABC
1)Массив а содержит 100 чисел, создать массив b равный а, но каждый элемент b на единицу больше элемента а вот решение: program gh; type mas = array of integer; var i,a,b:real; for i:=1 to 100 do begin b= a+1; 		Pascal ABC Символьные переменные. Узнать, есть ли введенное слово в предложении https://www.cyberforum.ru/ pascalabc/ thread544685.html
Ввести предложение. Затем с клавиатуры запросить слово слово.Узнать, есть ли введенное слово в предложении. заранее, спасибо
Почетный модератор
64304 / 47599 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
11.04.2012, 09:55 0

Нужно написать с рекурсией. Числа Люка - Pascal ABC - Ответ 2898418

11.04.2012, 09:55. Показов 3533. Ответов 1
Метки (Все метки)
Лучший ответ Сообщение было отмечено Vonderfull как решение

Решение

Сама рекурсивная функция простая.
Pascal
1
2
3
4
5
6

function Luk(n:integer):longint;
begin
if n=1 then Luk:=1
else if n=2 then Luk:=3
else Luk:=Luk(n-2)+Luk(n-1);
end;
Но считать рекурсивно все числа до maxLongin это издевательство, может за день и посчитает, в то время как циклами посчитает очень быстро.
Вот та же функция с циклом.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

function Luk(n:integer):longint;
var a1,a2,an,i:longint;
begin
if n=1 then an:=1
else if n=2 then an:=3
else
 begin
  a1:=1;
  a2:=3;
  for i:=3 to n do
   begin
    an:=a1+a2;
    a1:=a2;a2:=an;
   end;
 end;
Luk:=an;
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

var k,i:longint;
    x:array[1..50] of longint;
begin
repeat
write('Введите натуральное число k=');
readln(k);
until k>0;
writeln('Первые ',k,' чисел Люка:');
for i:=1 to k do
write(Luk(i),' ');
writeln;
i:=1;
k:=0;
while Luk(i)>0 do
 begin
  k:=k+1;
  x[k]:=Luk(i);
  i:=i+1;
 end;
writeln('Номер последнего числа, входящего в диапазон типа Longint=',k);
writeln('Последние 3 числа:');
for i:=k downto k-2 do
writeln('k=',i,'=',x[i]:10);
end.
Запустите ее для сравнения с той и другой функциями.

Вернуться к обсуждению:
Нужно написать с рекурсией. Числа Люка Pascal ABC
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 11.04.2012, 09:55
Готовые ответы и решения:

нужно решить рекурсией
Найдите сумму цифр заданного натурального числа. var n,s:integer; begin s:=0; ...

нужно решить рекурсией
Треугольник задан координатами своих вершин. Составить программу вычисления его площади.

СМА BOSCH WOR 16153 OE крючок люка, разбор крышки люка (вертикалка)
Ребята, может кто знает технологию разбора крышки люка у BOSCH WOR 16153 OE с верхней загрузкой,...

Нужно сделать что бы давало рандомно числа и нужно написать ответ
В командной строке. Тоесть примерно так: Запускаешь программу, показывает числа что выбрались...

1
11.04.2012, 09:55
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 11.04.2012, 09:55
Помогаю со студенческими работами здесь

решить нужно рекурсией
Реализовать функцию, генерирующую все перестановки чисел от 0 до N-1. помогите пожалуйста,если...

Написать программу с рекурсией
Помогите Написать программу с рекурсивной функцией перевода числа из десятичной системы счисления...

Написать программу с рекурсией
Описать рекурсивные функции для определения pi, hi. Задать значение Z и вычислить C (формулы для...

Числа Фибоначчи рекурсией
Всем привет! Сразу скажу, что: 1) Находить ЧФ от 1 до n-го я умею. 2) Находить ЧФ рекурсией в лоб...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru