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

1. Пользователь находился в каталоге Расписание. Сначала он поднялся на один уровень вверх, затем спустился на один уровень вниз, потом ещё раз спустился на один уровень вниз. В результате он оказался в каталоге С:\учёба\математика\ГИА.
Укажите полный путь каталога, с которым пользователь начинал работу.

2. Пользователь находился в каталоге Расписание. Сначала он поднялся на один уровень вверх, затем спустился на один уровень вниз, потом ещё раз спустился на один уровень вниз и ещё раз спустился на один уровень вниз. В результате он оказался в каталоге
С:\учёба\информатика\ГИА.
Укажите полный путь каталога, с которым пользователь начинал работу.

3. В некотором каталоге хранится файл Вьюга.doc. В этом каталоге создали подкаталог Январь и файл Вьюга.doc переместили в созданный подкаталог. Полное имя файла стало D:\2013\Зима\Январь\Вьюга.doc. Укажите полное имя файла до перемещения.

4. В некотором каталоге хранился файл Сирень.doc, имевший полное имя D:\2013\Лето\Сирень.doc. В этом каталоге создали подкаталог Июнь и файл Сирень.doc переместили в созданный подкаталог. Укажите полное имя этого файла после перемещения.

5. В каталоге Май хранился файл Сценарий.doc. Позже этот каталог перенесли в каталог Готово, расположенный в корне диска С. Укажите полное имя этого файла после перемещения.

6. Марина Иванова, работая над проектом по литературе, создала следующие файлы:
D:\Литература\Проект\Есенин.bmp
D:\Учёба\Работа\Писатели.doc
D:\Учёба\Работа\Поэты.doc
D:\Литература\Проект\Пушкин. bmp
D:\Литература\Проект\Стихотворения.doc

Укажите полное имя папки, которая останется пустой при удалении всех файлов с расширением .doc. Считайте, что других файлов и папок на диске D нет.

👇
Открыть все ответы
Ответ:
Оля666Olya
Оля666Olya
23.07.2020

Процедуры Read и Readln в языках семейства Паскаль (Pascal) предназначены для организации ввода данных с клавиатуры или их чтения из файла. Процедура Read завершает чтение непосредственно после получения последнего символа исходных данных, ограниченного пробелом или признаком смены строки (который получается при нажатии клавиши Enter). Процедура Readln, кроме того, осуществляет принудительный переход к следующей строке, пропуская признак смены строки.

Пример. Пусть надо ввести значения для переменных a и b типа integer.

Read(a, b); выполнит такой ввод независимо от того, как разделять значания - одним или более пробелами, нажатием Enter или комбинацией этих действий.

Readln(a, b); поведет себя точно так же. Поэтому нет разницы, какую из двух процедур использовать (зато Read короче писать!) для ввода данных числового типа.

Но для ввода символов и символьных строк разница есть!

Пробел и признак смены строки - это тоже символы, поэтому тут нужно использовать только Readln, поскольку признаком разделения данных для строк является только смена строки. Строка также может быть и пустой, т.е. не содержать символов.

Поэтому правило такое: если нет ввода символьных данных - используем Read. Если вводятся символьные данные, используем Readln, причем, если перед вводом таких данных вводятся числовые данные, их также надо вводить посредством Readln. Почему? Чтобы после Read не остался ко вводу признак смены строки и не получить в качестве вводимой затем строки пустую.

Подробнее обо всем этом можно прочесть в литературе по языку Паскаль. Например, в книге "PascalABC.NET: Введение в современное программирование", стр 214. Она легко ищется в Интернет, расположена на официальном сайте PascalABC.NET и бесплатна для скачивания.

4,4(61 оценок)
Ответ:
Sdq2
Sdq2
23.07.2020

program sorting;

const

 N = 10;

var

 v: array[1..N] of integer;

 d: integer;

 i, t: integer;  

 k: boolean;  

begin

 randomize;

 write('ДО сортировки:    ');

 for i := 1 to N do

 begin

   readln(v[i])

   write(v[i]:6);

 end;

}  

 d := N div 2;

 while(d > 0) do

 begin

   k := true;  

   while k do

   begin

     k := false;

     i := 1;

     for i := 1 to N - d do

     begin

       if(v[i] > v[i + d]) then

       begin

         t := v[i];

         v[i] := v[i + d];

         v[i + d] := t;

         k := true;

       end;

     end;

   end;    

   d := d div 2;

 end;

 writeln;

 write('ПОСЛЕ сортировки: ');

 for i := 1 to N do

   write(v[i]:6);

 writeln;

end.

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