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

Составьте программу: 1. вычислите объём конуса(v=1/3pi r^2 h)

👇
Ответ:
Aleksandra231v
Aleksandra231v
01.04.2021
//PascalABC
//NaaMan
var
    V, pi, h, r : real;
begin
    pi := 3.1415926;
    write('Укажите радиус основания конуса > ');
    readln(r);
    write('Введите высоту конуса > ');
    readln(h);
    V := 1 / 3 * pi * r * r * h;
    writeln('Объем конуса V = ', V);
end.
4,8(82 оценок)
Открыть все ответы
Ответ:
Tsenenks
Tsenenks
01.04.2021

задача 1

запишем условие: строк=40, символов=50, страниц=10, I=12500 байт, N-?

решение: посчитаем общее кол-во символов в тексте К=40*50*10=20000

переведем информационный объем в биты I=12500*8=100000 бит

из формулы I=K*i найдем i: i=I/K=100000/20000=5бит

из формулы мощности алфавита найдем мощность

N=2^5=32                  это и есть ответ


задача2

запишем условие: страниц=180, символы=2048, N=128, I(Кб)-?

решение: вычислим общее кол-во символов в тексте

К=180*2048=368640

найдем вес одного символа алфавита N=2^i, 128=2^i, 2^7=2^i, i=7 бит

подсчитаем информационный объем текста I=368640*7=2580480 бит=

322560 байт=315 Кб                это и есть ответ

задача3

запишем условие: N=87, K=200, I-?

решение: из формулы мощности алфавита найдем i с учетом того, что 87 не является целой степенью двойки. ближайшая мощность алфавита -64, поэтому i=6 бит

вычислим информационный объем I=K*i=200*6=1200 бит/8=150 байт



4,7(17 оценок)
Ответ:
kirillsysoev2
kirillsysoev2
01.04.2021
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;

ПЕР
  N, сч, ч, кв: ЦЕЛ;

УКАЗ
  N := Приём.Число();
  ОТ сч := 0 ДО N ВЫП
    кв := сч * сч;
    ч := сч;
    КОЛЬЦО
      ПОКА ч > 0 И кв > 0 ВЫП
        ЕСЛИ ч ОСТАТОК 10 # кв ОСТАТОК 10 ТО
          ВЫХОД
        КОН;
        ч := ч ДЕЛИТЬ 10;
        кв := кв ДЕЛИТЬ 10
      КОН;
      Вывод.ЧЦел("^%d", сч, 0, 0, 0)
    КОН
  КОН

КОН Задание.

Отдел "Приём", раз уж Издатель не успел его включить в выпуск (хотя стоило бы рассматривать это как стандартный ввод):

ОТДЕЛ Приём; 
ИСПОЛЬЗУЕТ
   ОС ИЗ "...\Отделы\Обмен\",
   КОС ИЗ "...\Отделы\Обмен\",
  Ввод ИЗ "...\Отделы\Обмен\",
   Вывод ИЗ "...\Отделы\Обмен\",
   Знак ИЗ "...\Отделы\Иное\"; 

ЗАДАЧА Строка-(строка+: РЯД ИЗ ЗНАК);
 (* Текстовая строка *)
 ПЕР
   отКлавиш: Ввод.ОтКлавиш;
   отМышки: Ввод.ОтМышки;
   Счётчик: ЦЕЛ;
 УКАЗ
   Счётчик := 0;
   КОЛЬЦО
     ЕСЛИ КОС.Опрос(отКлавиш, отМышки) = Ввод.клавиши ТО
       ЕСЛИ отКлавиш.знак = 0DX ТО
         ЕСЛИ Счётчик < РАЗМЕР(строка) ТО строка[Счётчик] := 0X КОН;
         ВЫХОД
       АЕСЛИ отКлавиш.код = 08H ТО
          ЕСЛИ Счётчик > 0 ТО
            строка[Счётчик-1] := 0X; УМЕНЬШИТЬ(Счётчик);
            Вывод.ЗнакЦепи(отКлавиш.знак); Вывод.ЗнакЦепи(" ");
            Вывод.ЗнакЦепи(отКлавиш.знак)
          КОН
       АЕСЛИ (отКлавиш.код = 2DH) И (ОС.РазмерЦепочкиОбменника() # 0) ТО
         ПОКА Счётчик > 0 ВЫП
           строка[Счётчик-1] := 0X; УМЕНЬШИТЬ(Счётчик);
           Вывод.ЗнакЦепи(8X); Вывод.ЗнакЦепи(" "); Вывод.ЗнакЦепи(8X)
         КОН;
         ОС.ЦепочкуИзОбменника(строка);
         ЕСЛИ ОС.РазмерЦепочкиОбменника() > РАЗМЕР(строка) ТО
           Счётчик := РАЗМЕР(строка)
         ИНАЧЕ Счётчик := ОС.РазмерЦепочкиОбменника() КОН;
         Вывод.Цепь(строка)
       АЕСЛИ отКлавиш.знак = 0X ТО
       ИНАЧЕ
         ЕСЛИ Счётчик < РАЗМЕР(строка) ТО
           строка[Счётчик] := отКлавиш.знак;
           УВЕЛИЧИТЬ(Счётчик);
           Вывод.ЗнакЦепи(отКлавиш.знак)
         КОН
       КОН
     ИНАЧЕ ОС.Спать(50) КОН
   КОН
КОН Строка; 

ЗАДАЧА Число-(): ЦЕЛ;
(* Целое число *)
ПЕР
   отКлавиш: Ввод.ОтКлавиш;
   отМышки: Ввод.ОтМышки;
   Счётчик, сч: ЦЕЛ;
   Результат: ЦЕЛ;
   Буфер: ДОСТУП К РЯД ИЗ ЗНАК;
   Отрицательное: КЛЮЧ;
УКАЗ
   Результат := 0; Счётчик := 0; Отрицательное := ОТКЛ;
   КОЛЬЦО
     ЕСЛИ КОС.Опрос(отКлавиш, отМышки) = Ввод.клавиши ТО
       ЕСЛИ отКлавиш.знак = 0DX ТО
         ЕСЛИ Отрицательное ТО ВОЗВРАТ -Результат ИНАЧЕ ВОЗВРАТ Результат КОН
       АЕСЛИ отКлавиш.код = 08H ТО
         ЕСЛИ Счётчик > 0 ТО
          Результат := Результат ДЕЛИТЬ 10;
           Вывод.ЗнакЦепи(отКлавиш.знак); Вывод.ЗнакЦепи(" "); Вывод.ЗнакЦепи(отКлавиш.знак); УМЕНЬШИТЬ(Счётчик)
        АЕСЛИ Отрицательное ТО
          Отрицательное := ОТКЛ;
          Вывод.ЗнакЦепи(отКлавиш.знак); Вывод.ЗнакЦепи(" "); Вывод.ЗнакЦепи(отКлавиш.знак)
        КОН
       АЕСЛИ (отКлавиш.код = 2DH) И (ОС.РазмерЦепочкиОбменника() # 0) ТО
         ПОКА Счётчик > 0 ВЫП
           УМЕНЬШИТЬ(Счётчик); Вывод.ЗнакЦепи(8X); Вывод.ЗнакЦепи(" "); Вывод.ЗнакЦепи(8X)
         КОН;
         ЕСЛИ Отрицательное ТО
          Отрицательное := ОТКЛ; Вывод.ЗнакЦепи(8X); Вывод.ЗнакЦепи(" "); Вывод.ЗнакЦепи(8X)
        КОН;
        Результат := 0;
         СОЗДАТЬ(Буфер, ОС.РазмерЦепочкиОбменника());
         ОС.ЦепочкуИзОбменника(Буфер^);
         ЕСЛИ (Буфер[0] >= "0") И (Буфер[0] <= "9") ТО
           Результат := Результат * 10 + (ВЦЕЛ(Буфер[0]) - ВЦЕЛ("0"));
           Вывод.ЗнакЦепи(Буфер[0]); УВЕЛИЧИТЬ(Счётчик)
         АЕСЛИ Буфер[0] = "-" ТО Вывод.ЗнакЦепи("-"); Отрицательное := ВКЛ КОН;
        ОТ сч := 1 ДО РАЗМЕР(Буфер^)-1 ВЫП
           ЕСЛИ (Буфер[сч] >= "0") И (Буфер[сч] <= "9") ТО
             Результат := Результат * 10 + (ВЦЕЛ(Буфер[сч]) - ВЦЕЛ("0"));
             Вывод.ЗнакЦепи(Буфер[сч]); УВЕЛИЧИТЬ(Счётчик)
           КОН
         КОН;
         Буфер := ПУСТО
       АЕСЛИ (отКлавиш.знак = "-") И (НЕ Отрицательное) ТО
         ЕСЛИ Результат = 0 ТО Отрицательное := ВКЛ; Вывод.ЗнакЦепи("-") КОН
      АЕСЛИ отКлавиш.знак = 0X ТО
       АЕСЛИ (Результат < МАКС(ЦЕЛ) ДЕЛИТЬ 10) И ((отКлавиш.знак >= "0") И (отКлавиш.знак <= "9")) ТО
         Результат := Результат * 10 + (ВЦЕЛ(отКлавиш.знак) - ВЦЕЛ("0"));
         Вывод.ЗнакЦепи(отКлавиш.знак); УВЕЛИЧИТЬ(Счётчик)
       КОН
     ИНАЧЕ ОС.Спать(50) КОН
   КОН
КОН Число; 

ЗАДАЧА Ждать-;
(* Простаиваем, пока не будет нажата любая клавиша *)
ПЕР
   отКлавиш: Ввод.ОтКлавиш;
   отМышки: Ввод.ОтМышки;
УКАЗ
   ПОКА КОС.Опрос(отКлавиш, отМышки) # Ввод.клавиши ВЫП
     ОС.Спать(50)
   КОН
КОН Ждать; 

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