Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
nina236
27.11.2022 13:54 •
Информатика
Объём свободной памяти устройства составляет 6кб.реферать занимает в формате . *docx=6000 байт, в формате .*pdf=6600 байт. определите и объясните, какой документ поместится на данное устройство.
решение
Показать ответ
Ответ:
Dirol1337
25.05.2022 00:22
Так как целевой ЯП не указан, приведу пример на Haskell.
Точка входа - функция main.
Main.hsmodule Main whereimport ArrsMinmain :: IO ()main = dialogArrsMin.hsmodule ArrsMin whereimport System.IO(hFlush, stdout)import Data.Char(isDigit)import Data.Maybe(isJust)import Control.Applicativeimport Numeric(showHex)import MyParserLibparserInt :: Parser IntparserInt = Parser (\s -> let res = unParser (some digitParser) s in case res of [] -> [] ((i, rest) : _) -> [(read i :: Int, rest)] ) where digitParser = predP isDigitparserIntSequence :: Parser [Int]parserIntSequence = Parser (\s -> let res = unParser (some elementParser) s in case res of [] -> [] ((i, rest) : _) -> [(i, rest)] ) where elementParser = (<*) parserInt $ many $ charP ' 'intToHex :: Int -> StringintToHex = flip showHex ""isItCorrect :: String -> BoolisItCorrect s | (length s == 2) && (head s > s !! 1) = True | otherwise = FalsetakeOnlyCorrect :: Maybe [Int] -> Maybe [Int]takeOnlyCorrect = fmap $ filter (isItCorrect . intToHex)minimum' :: (Ord a) => Maybe [a] -> Maybe aminimum' Nothing = Nothingminimum' (Just []) = Nothingminimum' (Just a) = Just (minimum a)unJust :: Maybe a -> IO aunJust (Just a) = return aunJust Nothing = fail "You can't unjust Nothing"dialog :: IO ()dialog = do putStr "Put your int sequence: " hFlush stdout stupidUserInput <- getLine let sequen = parseString stupidUserInput parserIntSequence let answer = minimum' $ takeOnlyCorrect sequen if isJust answer then do number <- unJust answer print number else putStrLn "0"MyParserLibmodule MyParserLib whereimport Data.Listimport Control.Applicativetype DataText = Stringtype RestText = Stringtype PResults parsedType = [(parsedType, RestText)]newtype Parser parsedType = Parser {unParser :: DataText -> PResults parsedType}instance Functor Parser where fmap f (Parser p1) = Parser p2 where p2 s = convert (p1 s) convert = map (\(val, s) -> (f val, s))instance Applicative Parser where pure x = Parser (\str -> [(x, str)]) pf <*> px = Parser (\str -> [(f x, sx) | (f, sf) <- unParser pf str, (x, sx) <- unParser px sf])instance Alternative Parser where empty = Parser (const []) px <|> py = Parser (\s -> unParser px s ++ unParser py s)parseString :: String -> Parser a -> Maybe aparseString str (Parser p) = case p str of [(val, "")] -> Just val _ -> NothingpredP :: (Char -> Bool) -> Parser CharpredP p = Parser f where f "" = [] f (c:cs) | p c = [(c, cs)] | otherwise = []charP :: Char -> Parser CharcharP ch = predP (\c -> c == ch)stringP :: String -> Parser StringstringP str = Parser f where f str' | str == str' = [("", str)] | otherwise = [] skip :: (Char -> Bool) -> Parser ()skip p = Parser (\str -> [((), dropWhile p str)])prefixP :: String -> Parser StringprefixP token = Parser f where f str | token `isPrefixOf` str = [(drop (length token) str, token)] | otherwise = []skipString :: String -> Parser ()skipString token = () <$ prefixP token
0,0
(0 оценок)
Ответ:
EveYo
25.05.2022 00:22
Код#include <iostream>#include <cmath>void first_task() { std::cout << "Frist task!" << std::endl; double A; std::cout << "Enter A: "; std::cin >> A; std::cout << "The answer is " << (1200 - A) / A << std::endl; std::cout << std::endl;}void second_task() { std::cout << "Frist task!" << std::endl; int A, B, C; std::cout << "Enter A: "; std::cin >> A; std::cout << "Enter B: "; std::cin >> B; std::cout << "Enter C: "; std::cin >> C; double P = A + B + C, p = P / 2; std::cout << "P = " << P << std::endl; std::cout << "S = " << std::sqrt(p*(p-A)*(p-B)*(p-C)) << std::endl; std::cout << std::endl;}void third_task() { std::cout << "Third task!" << std::endl; int n; std::cout << "Enter your number: "; std::cin >> n; std::cout << "Your number is " << n << std:: endl; std::cout << "In oct: " << std::oct << n << std:: endl; std::cout << "In hex: " << std::hex << n << std:: endl; std::cout << std::endl;}int main() { first_task(); second_task(); third_task(); return 0;}
0,0
(0 оценок)
Популярные вопросы: Информатика
kokorev861oxc4k3
06.05.2023 17:28
Написать программу дан размер файла в байтах используя операцию деления нацело найти количество полных киллобайтов которые занимают данный файл (1 килобайт = 1024байта)...
Lutiypacan1437
25.10.2022 22:51
Написать программу, проверяющую принадлежит ли число, введенное с клавиатуры, интервалу (3; 8)...
Chocolateteapot0507
25.10.2022 22:51
Нужно решить задачу по информатике на python. (задача на прикрепленном фото)...
Amina1225
15.08.2021 09:42
ПАСКАЛЬ, ОЧЕНЬ и 5 задачи...
qwertyyuill
01.06.2022 08:06
Кпереправе подошли 3 волка и 3 быка, всем надо переправиться, а в лодку помещается только двое. пока во время переправы число быков не будет меньше числа волков, то волки...
Еля24
19.09.2021 07:06
1. определите количество байт информации, требуемых для хранения целого числа -263 в памяти эвм...
kotik04062007
21.07.2020 14:07
СДАВАТЬ ЧЕРЕЗ 30 минут . Приведите примеры 1)Систематизация информации 2) Поиск информации 3)Обработка информации . Заранее спс❤️...
HollywooD2016
31.01.2022 04:32
Алексей получил закодированное сообщение, состоящее из цифр: 1718100623011302180120 Каждые две цифры этого цифрового текста соответствуют одной букве обычного текста...
Петуч
02.06.2023 11:45
В таблице приведены запросы и количество найденных по ним страниц некоторого сегмента сети Интернет.Запрос Найдено страниц(в тысячах)Альфа & Бета 260Бета & (Альфа...
mschibarova201
20.07.2020 19:40
Обьясните что такое символьные величины и как их сортировать...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Так как целевой ЯП не указан, приведу пример на Haskell.
Точка входа - функция main.
Main.hsmodule Main whereimport ArrsMinmain :: IO ()main = dialogArrsMin.hsmodule ArrsMin whereimport System.IO(hFlush, stdout)import Data.Char(isDigit)import Data.Maybe(isJust)import Control.Applicativeimport Numeric(showHex)import MyParserLibparserInt :: Parser IntparserInt = Parser (\s -> let res = unParser (some digitParser) s in case res of [] -> [] ((i, rest) : _) -> [(read i :: Int, rest)] ) where digitParser = predP isDigitparserIntSequence :: Parser [Int]parserIntSequence = Parser (\s -> let res = unParser (some elementParser) s in case res of [] -> [] ((i, rest) : _) -> [(i, rest)] ) where elementParser = (<*) parserInt $ many $ charP ' 'intToHex :: Int -> StringintToHex = flip showHex ""isItCorrect :: String -> BoolisItCorrect s | (length s == 2) && (head s > s !! 1) = True | otherwise = FalsetakeOnlyCorrect :: Maybe [Int] -> Maybe [Int]takeOnlyCorrect = fmap $ filter (isItCorrect . intToHex)minimum' :: (Ord a) => Maybe [a] -> Maybe aminimum' Nothing = Nothingminimum' (Just []) = Nothingminimum' (Just a) = Just (minimum a)unJust :: Maybe a -> IO aunJust (Just a) = return aunJust Nothing = fail "You can't unjust Nothing"dialog :: IO ()dialog = do putStr "Put your int sequence: " hFlush stdout stupidUserInput <- getLine let sequen = parseString stupidUserInput parserIntSequence let answer = minimum' $ takeOnlyCorrect sequen if isJust answer then do number <- unJust answer print number else putStrLn "0"MyParserLibmodule MyParserLib whereimport Data.Listimport Control.Applicativetype DataText = Stringtype RestText = Stringtype PResults parsedType = [(parsedType, RestText)]newtype Parser parsedType = Parser {unParser :: DataText -> PResults parsedType}instance Functor Parser where fmap f (Parser p1) = Parser p2 where p2 s = convert (p1 s) convert = map (\(val, s) -> (f val, s))instance Applicative Parser where pure x = Parser (\str -> [(x, str)]) pf <*> px = Parser (\str -> [(f x, sx) | (f, sf) <- unParser pf str, (x, sx) <- unParser px sf])instance Alternative Parser where empty = Parser (const []) px <|> py = Parser (\s -> unParser px s ++ unParser py s)parseString :: String -> Parser a -> Maybe aparseString str (Parser p) = case p str of [(val, "")] -> Just val _ -> NothingpredP :: (Char -> Bool) -> Parser CharpredP p = Parser f where f "" = [] f (c:cs) | p c = [(c, cs)] | otherwise = []charP :: Char -> Parser CharcharP ch = predP (\c -> c == ch)stringP :: String -> Parser StringstringP str = Parser f where f str' | str == str' = [("", str)] | otherwise = [] skip :: (Char -> Bool) -> Parser ()skip p = Parser (\str -> [((), dropWhile p str)])prefixP :: String -> Parser StringprefixP token = Parser f where f str | token `isPrefixOf` str = [(drop (length token) str, token)] | otherwise = []skipString :: String -> Parser ()skipString token = () <$ prefixP token