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

Составить программу, которая будет вводить пять целых чисел с клавиатуры и выводить на экран только те, которые принадлежат интервалам (0,5) и (-1,-8), либо выводить соответствующее сообщение.

👇
Ответ:
dashutka20032
dashutka20032
06.10.2020
Если требуется выводить соответствующее сообщение в случае, когда таких чисел нет:
var i, x, k : integer;
Begin
 k:=0;
 for i:=1 to 5 do begin
 readln(x);
 if ((x>0) and (x<5)) or ((x>-8) and (x<-1)) then begin
   k:=k+1;
   writeln(x);
 end;
 end;
 if k=0 then writeln('нет таких чисел');
End.

Если требуется выводить соответствующее сообщение каждый раз когда число не входит в промежуток:
var i, x : integer;
Begin
 for i:=1 to 5 do begin
 readln(x);
 if ((x>0) and (x<5)) or ((x>-8) and (x<-1)) then
   writeln(x)
 else writeln(x,' не входит в промежуток');
 end;
End.
4,4(12 оценок)
Открыть все ответы
Ответ:
detka201080
detka201080
06.10.2020
{Первый вариант}

uses crt;
label 1;
var a: integer;
begin
1: write('Введите азимут в градусах: ');
readln(a);
 if a in [1..89] then writeln('Направление: северо-восток');
  if a = 90 then writeln('Направление: восток');
   if a in [91..179] then writeln('Направление: юго-восток');
    if a = 180 then writeln('Направление: юг');
     if a in [181..269] then writeln('Направление: юго-запад');
      if a = 270 then writeln('Направление: запад');
       if a in [271..359] then writeln('Направление: северо-запад');
        if a in [0,360] then writeln('Направление: север');
          if a > 360 then begin
           clrscr;
введите корректное значение.');
           goto 1;
           end;
          if a < 0 then begin
           clrscr;
введите корректное значение.');
           goto 1;
           end; 
end. 

{Второй вариант}
uses crt;
label 1;
var a: integer;
begin
1: write('Введите азимут в градусах: ');
readln(a);
case a of
 0,360:    writeln('Направление: север');
 1..89:    writeln('Направление: северо-восток');
 90:       writeln('Направление: восток');
 91..179:  writeln('Направление: юго-восток');
 181..269: writeln('Направление: юго-запад');
 270:      writeln('Направление: запад');
 271..359: writeln('Направление: северо-запад');
 end;
if a < 0 then begin
 clrscr;
введите корректное значение.');
 goto 1;
 end;
if a > 360 then begin
 clrscr;
введите корректное значение.');
 goto 1;
 end; 
end. 
4,4(43 оценок)
Ответ:
Nurbibi12
Nurbibi12
06.10.2020

1. расширенные возможности по созданию документов:

- самостоятельно пользователем;

- на базе шаблона;

- с мастера.

шаблон  — служебный файл с расширением .dot, который содержит информацию о структуре и оформлении документа конкретного типа: фрагменты стандартного текста͵ графические объекты, стили, элементы автотекста͵ состав панелей инструментов и т. д. шаблон — это предварительно разработанная заготовка, в которую удобно вводить недостающие данные, после чего она сразу превращается в полноценный документ. основная цель создания и использования шаблонов состоит по сути в том, чтобы пользователь не тратил время на ввод типовой информации и форматирование документа. кроме этого, использование шаблонов позволяет поддерживать единообразный стиль документов.

мастер  — служебный файл с расширением .wiz, содержащий перечень вопросов, отвечая на которые, пользователь создает документ. как правило, документ, созданный с мастера, требует внесения в него дополнительных сведений. формат и основные элементы текста на этапе работы с мастером.

2. расширенные возможности по форматированию текста: пользовательское форматирование; стилевое форматирование.

стиль  — это именованный и сохраненный как единое целое набор форматов, таких, как шрифт, размер, отступ, интервал и т. д. существуют стили символов, абзацев, заголовков, указателей.

стилевое форматирование наиболее часто применяется при создании больших по объёму и сложных по структуре документов.

3. разнообразный набор возможностей по работе с графическими объектами:

- включение в документ иллюстраций, созданных в графических редакторах (поддержка технологии ole);

- наличие простого встроенного графического редактора (панель инструментов  рисование);

- вставка рисунков из коллекции clipart;

- создание текстовых эффектов с приложения wordart.

4. поддержка новых технологий ole, dde, truetype.

5. возможность выполнения операций по верстке текста͵ создание оригинал-макетов.

6. создание таблиц, проведение вычислений над данными таблицы, построение диаграмм.

7. наличие фоновой печати документа. фоновая печать позволяет продолжать работу в процессоре во время вывода документа на печать.

8. возможность работы в различных режимах. учитывая зависимость , которую пользователь решает в данный момент времени, можно выбрать один из трех вариантов представления документа в окне ms word: обычный режим; режим разметки страницы; режим структуры документа; режим web-документа.

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

9. работа с несколькими документами одновременно (многооконный режим).

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

11. возможность набора , и других формул (редактор формул ms equation).

12. поддержка технологии intellisense — функций искусственного интеллекта. этим термином обозначается способность программы анализировать действия пользователя и при крайне важно сти корректировать их или даже брать на себя выполнение некоторых рутинных операций. наиболее важные инструменты технологии: автоматическое корректирование текста в процессе ввода — исправление типовых опечаток, замена введенных символов на специальные и т. п. (автозамена); автоматическая проверка орфографии; автоматическое форматирование документа (автоформат); автоматизация набора текста (автотекст).

11. создание гипертекстовых документов, выработка web-страниц.

12. наличие справочной системы.

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