М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
anastejsablek
anastejsablek
20.08.2021 10:09 •  Информатика

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

👇
Ответ:
АсяСокол
АсяСокол
20.08.2021
// PascalABC.NET 3.2, сборка 1374 от 10.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Укажите количество чисел:');
  var a:=ReadArrReal('Вводите: ',n);
  var m:=a.Min;
  Writeln(a.Where(x->x=m))
end.

Пример
Укажите количество чисел: 6
Вводите:  -3 2.4 -7 0 -7 3
[-7,-7]
4,6(27 оценок)
Открыть все ответы
Ответ:
prunsesca005
prunsesca005
20.08.2021

--- Python 3.8.3 ---

#Не удаляйте импорты

import typing

from typing import Callable

from typing import AnyStr

from typing import Any

from typing import Iterable

from typing import List

#DEFINING USER TYPES

Numeric = typing.TypeVar('Numeric', int, float, complex)

#ENDDEF

#Решение задания 1

def StringCount(RawString: AnyStr, Selector: Callable[[AnyStr], bool], splitter: AnyStr = None) -> int:

   counter = 0

   if splitter:

       ToAnalyse = RawString.split(splitter)

   else:  

       ToAnalyse = list(RawString)

   for item in ToAnalyse:

       if Selector(item): counter += 1  

   return counter

#Вс функция для решения задания 2. Возвращает считанные из файла данные

def LoadDataFromFile(fname:AnyStr, encoding:AnyStr):

   with open(fname, 'r', encoding=encoding) as f:

       rawData = f.read()

   return rawData  

def Product(data: Iterable[Numeric]):

   #Перемножает все значения в переданной последовательности.

   #Последовательность НЕ МОЖЕТ содержать какие либо элементы, кроме чисел

   p = 1

   for i in data: p *= i

   return p

def Dump(fname: AnyStr, data: AnyStr, encoding: AnyStr):

   with open(fname, 'w', encoding=encoding) as f:

       f.write(str(data))

def Task1():

   '''

   Использует фукнцию StringCount(RawString: AnyStr, Selector: Callable[[AnyStr], bool], splitter: AnyStr = None)

   При помещении в отдельный файл функции Task2, в этот же файл необходимо поместить фукнцию StringCount(), а так же выполнить следующие импорты:

   import typing

   from typing import Any

   from typing import AnyStr

   from typing import Callable

   При помещении в отельный файл код из функции Task1() можно поместить в глобальную область.

   '''

   RawNum = input()

   fives = StringCount(RawNum, lambda s: s == '5')

   print(f'"5" count: {fives}')

def Task2():

   '''

   Использует функции:

   LoadDataFromFile(fname:AnyStr, encoding:AnyStr)

   Dump(fname: AnyStr, data: AnyStr, encoding: AnyStr)

   При помещении функции Task2 в отдельный файл,  

   в этот же файл необходимо поместить функцию LoadDataFromFile(), Функцию Dump(),

   а так же выполнить следующие импорты:

   import typing

   from typing import Any

   from typing import AnyStr

   from typing import Iterable

   а так же сразу после импортов добавить следующую строку:  

   Numeric = typing.TypeVar('Numeric', int, float, complex)

   при помещении в отдельный файл код из функции Task2() можно поместить в глобальную область.

   '''

   Numbers = [int(i) for i in LoadDataFromFile('input.txt', 'utf-8').split('\n')]

   Dump('Output.txt', Product(Numbers), 'utf-8')

P.S Не советую что то менять, если вы плохо разбираетесь. Решение представляет собой цельную программу, которая выполняет оба задания сразу.

P.S 2 Код работает для интерпретатора Python 3.5 и выше

P.S 3 Код протестирован

P.S 4 Файл, в котором лежат входные данные для задачи 2, должен называться input.txt и лежать в одной директории с файлом программы

P.S 5 Если вы тупо скопируете код, Интерпретатор может начать ругаться. Это вызвано тем, что наш любимый сайт подменяет табуляции и подряд идущие пробелы каким то своим дурацким символом, который не может переварить интерпретатор

4,4(63 оценок)
Ответ:
ынпщщ357
ынпщщ357
20.08.2021

Сам код(Для C++):

#include <iostream>  

using namespace std;  

long double fact(int N)  

{

if(N < 0) // если пользователь ввел отрицательное число

return 0; // возвращаем ноль

if (N == 0) // если пользователь ввел ноль,

return 1; // возвращаем факториал от нуля

else // Во всех остальных случаях

return N * fact(N - 1); // делаем рекурсию.  

}

int main()  

{

int N; setlocale(0,""); // Включаем кириллицу  

cout << "Введите число для вычисления факториала: ";

cin >> N;

cout << "Факториал для числа " << N << " = " << fact(N) << endl << endl; // fact(N) - функция для вычисления факториала.

return 0;  

}

Объяснение:

2.1. Формулировка задания.

Разработка программы для вычисления факториала.

Факториал числа — это произведение натуральных чисел от 1 до самого числа (включая данное число). Обозначается факториал восклицательным знаком «!».  

Например,

5!=1×2×3×4×5

3!=1×2×3

И тому подобное.

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

4,6(31 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ