Задание сложное. Информатика. Задание 1 Войдите в редактор Word. Ознакомьтесь со стандартным окном редактора (строка главного меню и ее команды, панель инструментов и ее кнопки, служебные кнопки, функциональные клавиши Установите поля документа: верхнее – 2 см, нижнее – 1, 5 см, левое – 2, 5 см, правое – 1 см. Введите предложенный тексттекст внизу) Сохраните текст под своим оригинальным именем. Закройте документ. Откройте созданный текст для редактирования. Визуально отредактируйте текст. Подчеркните заголовок документа. Сохраните отредактированный документ. Закройте документ. Закройте редактор Word. Текст: Microsoft Word многим обязан Bravo — текстовому редактору с оригинальным графическим интерфейсом, разработанному в исследовательском центре «Xerox PARC». Создатель Bravo Чарльз Симони (Charles Simonyi) покинул PARC в 1981 году. Тем же летом Симони переманил Броди, с которым вместе работал над Bravo. Первый выпуск Word для MS-DOS состоялся в конце 1983 года. Он был плохо принят рынком, продажи снижало наличие конкурирующего продукта — WordPerfect. Однако версия для «макинтоша», выпущенная в 1985 году, получила широкое рас Через два года «Word 3.01 для Macintosh» усилил позиции (версия 3.0 изобиловала ошибками и быстро была заменена). Как и прочее программное обеспечение для «макинтоша», Word был полностью WYSIWYG-редактором (принцип «What You See Is What You Get» — «получаешь то, что видишь»). Хотя MS-DOS и являлась текстовой операционной системой, лишённой графической оболочки, Word для DOS был первым текстовым процессором для IBM PC, который был отображать разметку текста, например, полужирный или курсивный текст в процессе редактирования. Однако он всё же не являлся в полном смысле WYSIWYG-редактором. Другие же текстовые процессоры, такие как WordStar и WordPerfect, использовали текстовый экран с кодами разметки, иногда текст был цветным. Задание 2 Откройте полученный в задании №1 документ и создайте под новым именем его копию. В копии установите новые поля документа (все по 2 см). Разбейте текст копии на 6 абзацев. Из копии удалите четвертый абзац и первое предложение шестого. В оставшемся тексте переставьте абзацы в обратном порядке. Разрешите перенос слов. . Найдите в тексте одинаковые слова и выделите их курсивом. Найдите в тексте однокоренные слова и подчеркните их корни. Создайте элемент автозамены текста при наборе, например, обращение «Уважаемый коллега». Дополните отредактированный текст деловым письмом в 1 абзац, в котором трижды используется это обращение. Проверьте орфографию текста, используя встроенный словарь. Сохраните документ Заранее тому человеку, который выполнит задание! Ты самый лучший)) Если не сложно, пришлите задание в файлы в текстовом документе.
Ответы
// тестировалось на C#.Net Framework 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;
}
}
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;
}
}
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
function IsPrime(n:integer):boolean;
begin
if n<4 then Result:=True
else begin
var found:= (n mod 2 = 0);
var p:=3;
while (not found) and (sqr(p)<=n) do
begin
found:=(n mod p = 0);
p+=2
end;
Result:=not found
end
end;
begin
Writeln('k=',ArrRandom(ReadInteger('n='),1,999).Println.
Where(x->IsPrime(x)).Count)
end.
Тестовое решение:
n= 10
401 828 780 444 694 965 23 341 673 875
k=3
2. А вот так это пишется с процедурой
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
procedure IsPrime(n:integer; var res:boolean);
begin
if n<4 then res:=True
else begin
var found:= (n mod 2 = 0);
var p:=3;
while (not found) and (sqr(p)<=n) do
begin
found:=(n mod p = 0);
p+=2
end;
res:=not found
end
end;
begin
var a:=ArrRandom(ReadInteger('n='),1,999); a.Println;
var k:=0;
var prime:boolean;
foreach var e in a do begin
IsPrime(e,prime);
if Prime then Inc(k)
end;
Writeln('k=',k)
end.
Тестовое решение:
n= 12
199 43 71 365 417 904 170 212 694 103 161 689
k=4