В Древнем Египте наряду со значками , обозначавшими целые понятия и слова, существовали и другие знаки, обозначавшие слоги и даже отдельные звуки . Потребность в таких знаках очевидна, так как не все можно выразить в виде изображений (прежде всего, это касается личных имен).
В этих случаях египтяне превращали слова иероглифы в буквы иероглифы, из которых и составлялись слова, подлежащие передаче на письме согласно их звучанию. Например иероглиф «хт» — изображение дома — сделался двухбуквенным иероглифом, обозначающим звук [хт], иероглиф «мн» — изображение шахматной доски — стал иероглифом, обозначающим два звука [мн] и т.д. На первых порах значение фонетических иероглифов было вс но со временем их роль все более возрастала, и в последние века существования египетской письменности значение фонетических иероглифов стало господствующим. Но к чисто фонографическому письму (то есть такому, где каждый знак обозначает отдельный звук или букву) египтяне так и не перешли . Это важное усовершенствование было сделано в письме других народов.
Задача 1
var
x1, y1, x2, y2, l: real;
begin
Writeln('Введите значения (x1,y1,x2,y2)');
Read(x1, y1, x2, y2);
l := Sqrt(Sqr(x1 - x2) + Sqr(y1 - y2));
Writeln('Расстояние: ', l:3:2);
end.
Тестовое решение:
Введите значения (x1,y1,x2,y2)
2 3 4 5
Расстояние: 2.83
Задача 2
var
a, b, c, p, s: real;
begin
Writeln('Введите ABC');
Read(a, b, c);
P := (a + b + c)/2;
S := Sqrt(p * (p - a) * (p - b) * (p - c));
Writeln('Площадь по Герону: ', S:3:2);
end.
Тестовое решение:
Введите ABC
2 3 4
Площадь по Герону: 2.90
string a;
string b;
int count = 0;
int count2 = 0;
bool g = false;
bool g2 = false;
Console.WriteLine("Введите первую строку");
a = Convert.ToString(Console.ReadLine());
Console.WriteLine("Введите первую строку");
b = Convert.ToString(Console.ReadLine());
Console.WriteLine("Введите первый символ");
Макрой avatar
char first_symbol = Convert.ToChar(Console.ReadLine());
Console.WriteLine("Введите последний символ");
char second_symbol = Convert.ToChar(Console.ReadLine());
char[] separ = { ' ' };
string[] a1 = a.Split(separ);
string[] b1 = b.Split(separ);
Макрой avatar
for (int i = 0; i < a1.Length; i++)
if (a1[i].IndexOf(first_symbol) == 0 && a1[i].IndexOf(second_symbol) == a1[i].Length - 1)
{
Console.Write(a1[i]+";"); count++; g= true;
}
if (g)
{
Console.WriteLine(" В этой строке :" + count + " слов(о)");
}
Console.WriteLine();
Макрой avatar
for (int i = 0; i < b1.Length; i++)
if (b1[i].IndexOf(first_symbol) == 0 && b1[i].IndexOf(second_symbol) == b1[i].Length - 1)
{
Console.Write(b1[i]+";"); count2++; g2 = true;
}
if (g2)
{
Console.WriteLine(" В этой строке :" + count2 + " слов(о)");
}
Console.ReadLine();
Объяснение: