Треугольник существует, если сумма длин двух любых его сторон больше длины третьей стороны. Длина стороны может быть определена как расстояние между соответствующими сторонами треугольника:
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016 type Point=record x,y:real end;
procedure GetPoint(c:char;var M:Point); begin Write('Введите координаты точки ',c,': '); Read(M.x,M.y) end;
function Dist(a,b:Point):=sqrt(sqr(b.x-a.x)+sqr(b.y-a.y));
begin var A,B,C:Point; GetPoint('A',A); GetPoint('B',B); GetPoint('C',C); var ab:=Dist(A,B); var bc:=Dist(B,C); var ac:=Dist(A,C); if (ab<bc+ac) and (bc<ab+ac) and (ac<ab+bc) then Writeln('Треугольник существует') else Writeln('Треугольник не существует') end.
Тестовое решение: Введите координаты точки A: -6.9 -5.3 Введите координаты точки B: 0 11.4 Введите координаты точки C: 9 3 Треугольник существует
Вариант 1 1. Поименованная информация, хранящаяся в долговременной памяти компьютера: 1) файл
2. Расширение файла указывает: 2) на тип данных, хранящихся в нем
З. Определите тип файла выход.ррt. 4) презентация
4. Какое расширение имеют текстовые файлы? 2) rtf, doc, docx, txt
5. Заполните пропуск в предложении Полное имя файла включает в себя ... и имя файла. ответ: путь
6. Установите соответствие.
Расширение Тип файла 1) .wav В) звуковой 2) .bmp Б) графический 3) .zip А) архив
7. Файловая система — это: 3) структура для хранения файлов и каталогов
8. Объект, не являющийся элементом файловой системы: 3) корзина
9. Полное имя файла D:\8 класс\Иванов Иван\Контрольная pa6oтa\контрошa.doc. В какой папке хранится файл контрошa.doc? 3) Контрольная работа
10. В каталоге хранился файл Отметки.txt. После создания в этом каталоге подкаталога и перемещения в созданный подкаталог файла Oтметки.txt полное имя файла стало A:\SCHOOL\USER\TXT\MARCH\Oтметки.txt. Полное имя каталога, в котором хранился файл до перемещения: 2) A:\SCHOOL\USER\TXT
11. Что представляет собой каталог диска в одноуровневой файловой системе? ответ:линейная последовательность
12. Что такое корневой каталог? ответ:начальный каталог в структуре каталогов устройства внешней памяти, в котором могут храниться файлы и другие подкаталоги.
Вариант 2 1. Файл — это: 1) поименованная группа данных в долговременной памяти
2. Сколько символов может быть в расширении файла? 4) до 256
З. Определите тип файла выход.jpg. 2) графический
4. Видеофайлы имеют расширение: 4) avi, wmv, mpeg
5. Заполните пропуск в предложении. Полное имя файла включает в себя путь и ... файла. ответ: имя
6.Установите соответствие
Расширение Тип файла l).rtf А) текстовый 2) .bmp В) графический 3) .mp3 Б) звуковой
7. Функциональная часть ОС, обеспечивающая выполнение операций над файлами: 2) файловая система
8. Объект, не являющийся элементом файловой системы: 4) пуск
9. Полное имя файла С:\8 класс\Петров Петр\Самостоятельная работа\самраб.dос. В какой папке хранится файл самраб.dос? 3) Самостоятельная работа
10. В каталоге хранился файл Kaчecтвo.txt. После создания в этом каталоге подкаталога и перемещения в созданный подкаталог файла Kaчecтво.txt полное имя файла стало A:\SCHOOL\ADMIN\DOC\YEAR\Kaчecтво.txt. Полное имя каталога, в котором хранился файл до перемещения: 2) A:\SCHOOL\ADMIN\DOC
11. Что представляет собой каталог диска в многоуровневой файловой системе?
ответ: дерево
12. Задан путь к файлу C:\Text\Primer\Proba.doc. Назовите имя каталога, в котором находится этот файл.
Длина стороны может быть определена как расстояние между соответствующими сторонами треугольника:
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
type
Point=record
x,y:real
end;
procedure GetPoint(c:char;var M:Point);
begin
Write('Введите координаты точки ',c,': ');
Read(M.x,M.y)
end;
function Dist(a,b:Point):=sqrt(sqr(b.x-a.x)+sqr(b.y-a.y));
begin
var A,B,C:Point;
GetPoint('A',A); GetPoint('B',B); GetPoint('C',C);
var ab:=Dist(A,B);
var bc:=Dist(B,C);
var ac:=Dist(A,C);
if (ab<bc+ac) and (bc<ab+ac) and (ac<ab+bc) then
Writeln('Треугольник существует')
else Writeln('Треугольник не существует')
end.
Тестовое решение:
Введите координаты точки A: -6.9 -5.3
Введите координаты точки B: 0 11.4
Введите координаты точки C: 9 3
Треугольник существует