0 / 0 / 0
Регистрация: 08.11.2009
Сообщений: 29
1

Рекурсия: найти номер последнего вхождения минимального значения в последовательность длины n

10.01.2010, 14:54. Показов 1179. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Найти номер последнего вхождения минимального значения в последовательность длины n.
Нужно было решить используя рекурсию , правильно ли я ее решил?

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
const n=5;
type myarr=array [1..n] of integer;
 
Procedure proc(i,k,min:byte;a:myarr;var l:byte);
begin
i:=i+1;
k:=k+1;
if min>=a[i] then begin
   min:=a[i];
   l:=k;         end;
if i<>n then proc(i,k,min,a,l)
        else writeln('Nomer Vxojdenia min =',l)
end;
 
var i,min:byte; k,l:byte;
    a:myarr;
begin
writeln('Vvedite posledovatelnost: ');
for i:=1 to n do begin
readln(a[i]);
end;
i:=1;
k:=1;
l:=k;
min:=a[1];
proc(i,k,min,a,l);
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.01.2010, 14:54
Ответы с готовыми решениями:

Рекурсия Найти номер последнего вхождения максимального значения в последовательность длины n
Рекурсия Найти номер последнего вхождения максимального значения в последовательность длины...

Рекурсия: найти номер первого вхождения минимального значения в последовательность длины n
Помогите переписать итеративную подпрограмму в рекурсивную. Задание: Найти номер первого вхождения...

Найти номер последнего вхождения данного числа в последовательность,или вывести сообщение,что такого числа нет
Нужна помощь в написании программы для создания и обработки массива вот условие: Дана...

Найти индексы первого и последнего вхождения заданного целого числа N в последовательность
Найти индексы первого и последнего вхождения заданного целого числа N в последовательность целых...

1
1 / 1 / 2
Регистрация: 16.12.2011
Сообщений: 4
16.12.2011, 15:15 2
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
program last_min_var2;
const n=10;
var i,no_el:byte;
    min:integer;
procedure last_min(var i,no_el:byte; min:integer);
var m:integer;    
begin    
  if i<=n then
   begin
     read(m);
     if m<min then
       begin
         no_el:=i;
         min:=m;
       end;     
     i:=i+1;
     last_min(i,no_el,min);
   end
  else write('Номер последнего вхождения минимального значения: ',no_el); 
end;
begin
  write('Введите последовательность длины ',n,': ');
  min:=maxint; 
  i:=1;
  last_min(i,no_el,min);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.12.2011, 15:15
Помогаю со студенческими работами здесь

В массиве найти номер последнего минимального элемента.
В) В массиве из 16 элементов. Найти номер последнего минимального элемента.

Найти номер последнего минимального элемента массива
массиве из 16 элементов. Найти номер последнего минимального элемента.

Найти номер последнего минимального элемента в последовательности
Дана последовательность из n действительных чисел. Найти номер последнего минимального элемента в...

Найти номер последнего минимального элемента в последовательности
Дана последовательность из n действительных чисел. Подсчитать количество максимальных элементов. ...

Найти максимальный элемент и номер последнего минимального элемента
Данная последовательность из n целочисленных элементов. найти максимальный элемент и номер...

Найти номер первого вхождения числа в последовательность
Помогите пожалуйста!!!(((( 7) Даны последовательность из n целых чисел и целое число a. Найти...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru