Запишите с блок схемы или на школьном алгоритмическом языке алгоритм отбора для салата всех имеющихся в школьной столововой вареных яиц, если пригодными для использования в салате являются яйца, полноценно раскручивающиеся вокруг своей оси. ,
// PascalABC.NET 3.0, сборка 1076 var a,b,c,p,s:real; begin Writeln('Введите через пробел стороны треугольника: '); Read(a,b,c); if (a+b>c) and (a+c>b) and (b+c>a) then begin p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); Writeln('Площадь треугольника равна ',s) end else Writeln('Невозможно построить треугольник') end.
Тестовые решения: Введите через пробел стороны треугольника: 10 15 13.6 Площадь треугольника равна 66.3272183948641
Введите через пробел стороны треугольника: 5 8 20.4 Невозможно построить треугольник
По реализации интерфейса пользователя различают неграфические и графические операционные системы. В однозадачных неграфических ОС пользователь в один момент времени работает с одной конкретной программой. Неграфические операционные системы реализуют интерфейс командной строки. Основным устройством управления в данном случае является клавиатура. Управляющие команды вводят в поле командной строки, где их можно и редактировать. Исполнение команды начинается после ее утверждения, например нажатием клавиши ENTER. Пример: МS-DOS, МSХ. Многозадачные графические ОС позволяют параллельно работать с несколькими программами, и количество программ зависит от мощности системы. Графические операционные системы реализуют сложный тип интерфейса, в котором в качестве органа управления кроме клавиатуры может использоваться манипулятор координатного типа (мышь или тачпад). Работа с графической ОС основана на взаимодействии активных и пассивных экранных элементов управления. В качестве активного элемента управления – графический объект, перемещение которого на экране синхронизировано с перемещением мыши. В качестве пассивных элементов управления - графические элементы управления приложениями (экранные кнопки, значки, переключатели, флажки, раскрывающиеся списки, строки меню и многие другие). Примеры: Мiсrоsоft Windows, UNIX, OS/2, Linux, Mac OS.
var
a,b,c,p,s:real;
begin
Writeln('Введите через пробел стороны треугольника: ');
Read(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
Writeln('Площадь треугольника равна ',s)
end
else Writeln('Невозможно построить треугольник')
end.
Тестовые решения:
Введите через пробел стороны треугольника:
10 15 13.6
Площадь треугольника равна 66.3272183948641
Введите через пробел стороны треугольника:
5 8 20.4
Невозможно построить треугольник