1. Дайте информацию ознаках и договоренностях. 2. Что такое кодирование?
3. Проанализируйте методы кодирования в истории?
рования Морзе?
6. Какие методы кодирования связаны салфавитом?
7. Придумайте свой кодирования и закодируйте выражену
«Родина священна».
an
4. Объясните смысл ровных и неровных методов кодирования.
5. Проанализируйте полезные стороны и недостатки коли ПОДПИШЮС ТЕМ КТО
using System;
class Program
{
static void Main()
{
int x1 = 2, y1 = 1;
int x2 = 6, y2 = 5;
int x3 = 10, y3 = 1;
var a = Distance(x2, y2, x3, y3);
var b = Distance(x1, y1, x3, y3);
var c = Distance(x2, y2, x1, y1);
Console.WriteLine("S = {0}", Square(a, b, c));
Console.ReadKey();
}
//растояние между точками
static double Distance(int x1, int y1, int x2, int y2)
{
return Math.Sqrt((x2 - x1) * (x2 - x1) + (y2 - y1) * (y2 - y1));
}
//формула герона
static double Square(double a, double b, double c)
{
var p = (a + b + c) / 2;
return Math.Sqrt(p * (p - a) * (p - b) * (p - c));
}
// теорема косинусов
static double Angle(double a, double b, double c)
{
return Math.Acos((b * b + c * c - a * a) / (2 * b * c));
}
static bool IsAcuteAngel(double alpha)
{
return alpha < Math.PI / 2;
}
}
Заданный вопрос - отличная иллюстрация к написанному выше. Алгоритма нет, поскольку, что автор вопроса не понимает о чем идет речь, но зато он спрашивает, как выполнить кодирование на язык Паскаль. Вполне понятно, что автор самостоятельно этого сделать не может.
Вернемся к заданию. Насколько его можно попытаться понять, речь идет о кусочной функции.
Кусочная функция содержит условия, определяющие её части на различных интервалах. Поскольку в условиях есть операции сравнения, в Паскале понадобится условный оператор if - then - else, причем не один.
// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var x:=ReadReal('x=');
var s:real;
if x<0 then s:=x*x else
if x=0 then s:=5
else s:=x-12;
Writeln(s)
end.