с практической, хотя бы пара заданий :с
!Все фото будут ниже под текстом!
Задание 1.
Дано дерево иерархической структуры на диске. Заглавными буквами обозначены имена каталогов, строчными – имена файлов:
Найти ошибку в файловой структуре.
Задание 2.
Дано дерево иерархической файловой структуры на логическом диске. Заглавными буквами обозначены имена каталогов, строчными – имена файлов:
Перечислите каталоги 1-го, 2-го, 3-го уровней, если они есть. Указать пути от корневого каталога к каждому из файлов.
Задание 3.
Указаны пути от корневого каталога к некоторым файлам, хранящимся на логическом диске. Заглавными буквами обозначены имена каталогов, строчными – имена файлов:
\COUNTRU\USA\INFO\culture.txt;
\COUNTRU\USA\washington.txt;
\COUNTRU\RUSSIA\moscow.txt;
\COUNTRU\RUSSIA\INFO\industry.txt;
\COUNTRU\RUSSIA\INFO\culture.txt.
Отобразите файловую структуру в виде иерархии.
Задание 4.
Указаны пути от корневого каталога к некоторым файлам, хранящимся на магнитном диске. Заглавными буквами обозначены имена каталогов, строчными – имена файлов:
\BOX\LETTER\peter.txt;
\BOX\LETTER\kate.txt;
\LETTER\WORK\april.txt;
\LETTER\WORK\may.txt;
\LETTER\FREND\SCOOL\mary.txt;
\LETTER\FREND\sport.txt.
Отобразите файловую структуру в виде дерева.
Задание 5.
Указаны пути от корневого каталога к некоторым файлам, хранящимся на магнитном диске. Заглавными буквами обозначены имена каталогов, строчными – имена файлов:
\SPORT\SKI\russia.txt;
\SPORT\SKI\germany.txt;
\SPORT\SKATE\finland.txt;
\COMPUTER\IBM\INFO\pentium.txt;
\COMPUTER\INFO\ibm.txt;
Отобразите файловую структуру в виде дерева.
(я бы дала вам больше , но не знаю как
Var a, b, c:integer;
Begin
Readln(a,b,c);
If a>=b+c then Writeln('Нет' )
Else if b>=a+c then Writeln('Нет')
Else if c>=a+b then Writeln('Нет')
Else Writeln('Да');
End.
Использование русских букв в названии переменной (с) это очень сильно, а ещё кавычки не `, а ' должны быть. Код можно еще улучшить избавившись от большого кол-ва проверок if т. к. это замедляет компиляцию
Var a, b, c:integer;
Begin
Readln(a,b,c);
If (a>=b+c) or (b>=a+c) or (c>= a+b) then Writeln('Нет' )
Else Writeln('Да');
End.
ответственность за разрешение любых спорных моментов, касающихся самих материалов и их содержания, берут на себя пользователи, разместившие материал на сайте. Однако администрация сайта готова оказать всяческую поддержку в решении любых вопросов, связанных с работой и содержанием сайта. Если Вы заметили, что на данном сайте незаконно используются материалы, сообщите об этом администрации сайта через форму обратной связи.
Все материалы, размещенные на сайте, созданы авторами сайта либо размещены пользователями сайта и представлены на сайте исключительно для ознакомления. Авторские права на материалы принадлежат их законным авторам. Частичное или полное копирование материалов сайта без письменного разрешения администрации сайта запрещено! Мнение администрации может не совпадать с точкой зрения авторов.