По разделам



Задача Series 22


Дано целое число N (> 1) и набор из N вещественных чисел. Если
данный набор образует убывающую последовательность, то вывести 0;
в противном случае вывести номер первого числа, нарушающего закономерность.

Код (C/C++)

# include <iostream>
# include <windows.h>
# include <cmath>
# include <iomanip>
# include <fstream>
 
using namespace std;
 
int main ()
 
{
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
 
 
  ifstream in ("Series22.txt");
  double a;
  double a_;
  in >> a_;
  cout << "Дан набор вещественных чисел: " ;
  cout << a_ << " ";
  int i = 1;
  int n = 0;
  while (in >> a ) {
        cout << a << " " ;
        ++i;
        if (a >= a_ && n == 0) n = i;
        a_ = a;
  }
  in.close ();
  cout << endl;
  if (n == 0) cout << "Последовательность убывающая." << endl;
  else cout << "Номер первого числа, нарушающего убывающую последовательность: " <<  n << endl;
 
  system ("pause");
  return 0;
}

Код (Python)

import random

N = random.randrange(2,20)
print("N = ",N)

#x = N
x = random.randrange(1,10)
x_prev = x
flag = True
for i in range(1,N):
    #x = N-i
    x = random.randrange(1,10)
    if x_prev <= x:
        flag = False
        #break
    print(x_prev,end="; ")
    x_prev = x
print(x)

print("Result = ",flag)
									

Код (Pascal)

program Series22;
var
  i,N,Num,Num1,El :Integer;
  b:boolean;
begin
 b:=TRUE;
 El:=0;
 Write('N:');
 Readln(N);
 
 for i:=1 to N do
   begin
    write('Введите ',i,' элемент последовательности :');
    Readln(Num);
    if (((Num1<Num) and (i<>1)) and b) then
     begin
      El:=i;
      b:=FALSE;
     end;
     Num1:=Num;
   end;
  Writeln(El);
end.
									

Дополнительно

n = int(input())
temp = float(input())
t = temp
b = True
idx = 0
for i in range(n - 1):
    temp = float(input())
    if temp > t and b:
        b = False
        idx = i + 2 # допустим, что индексация начинается с 1
    t = temp
if b:
    print(0)
else:
    print(idx)
									



Series. Абрамян
Series 1 Просмотров: 18
Series 2 Просмотров: 14
Series 3 Просмотров: 18
Series 4 Просмотров: 25
Series 5 Просмотров: 19
Series 6 Просмотров: 12
Series 7 Просмотров: 13
Series 8 Просмотров: 11
Series 9 Просмотров: 18
Series 10 Просмотров: 18
Series 11 Просмотров: 18
Series 12 Просмотров: 14
Series 13 Просмотров: 16
Series 14 Просмотров: 14
Series 15 Просмотров: 16
Series 16 Просмотров: 26
Series 17 Просмотров: 20
Series 18 Просмотров: 15
Series 19 Просмотров: 18
Series 20 Просмотров: 13
Series 21 Просмотров: 14
Series 22 Просмотров: 13
Series 23 Просмотров: 20
Series 24 Просмотров: 13
Series 25 Просмотров: 22
Series 26 Просмотров: 14
Series 27 Просмотров: 12
Series 28 Просмотров: 17
Series 29 Просмотров: 9
Series 30 Просмотров: 8
Series 31 Просмотров: 12
Series 32 Просмотров: 8
Series 33 Просмотров: 10
Series 34 Просмотров: 19
Series 35 Просмотров: 13
Series 36 Просмотров: 7
Series 37 Просмотров: 11
Series 38 Просмотров: 16
Series 39 Просмотров: 10
Series 40 Просмотров: 16

Комментарии

Чтобы написать комментарии вам нужно войти в систему или зарегистрироваться