М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
akakk
akakk
04.04.2021 00:27 •  Информатика

Задание сложное. Информатика.
Задание 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 абзац, в котором трижды используется это обращение.
Проверьте орфографию текста, используя встроенный словарь.
Сохраните документ

Заранее тому человеку, который выполнит задание! Ты самый лучший))
Если не сложно, пришлите задание в файлы в текстовом документе.

👇
Открыть все ответы
Ответ:
madinaseidahmet
madinaseidahmet
04.04.2021
1. "Школьное" решение

// PascalABC.NET 3.0, сборка 1073
const
  sb='bcdfgjklmnpqrstvwxz';
  s='Computer programming is a process of computer programs creation';
var
  i,n:integer;
  s1,sn,t:string;
begin
  i:=1;
  while s[i]<>' ' do Inc(i);
  s1:=Copy(s,1,i-1);
  n:=Length(s); i:=n;
  while s[i]<>' ' do Dec(i);
  sn:=Copy(s,i+1,n-i);
  t:='';
  for i:=1 to Length(s1) do
    if Pos(s1[i],sb)>0 then t:=t+s1[i];
  s1:=t;
  t:='';
  for i:=1 to Length(sn) do
    if Pos(sn[i],sb)>0 then t:=t+sn[i];
  sn:=t;
  t:='';
  for i:=1 to Length(s1) do
    if Pos(s1[i],sn)>0 then
      if Pos(s1[i],t)=0 then t:=t+s1[i];
  for i:=1 to Length(t) do Write(t[i],' ');
  Writeln
end.
 
Тестовый прогон:
t r

2. "Нормальное" решение

// PascalABC.NET 3.0, сборка 1073
const
  sb='bcdfgjklmnpqrstvwxz';
  s='Computer programming is a process of computer programs creation';
begin
  var a:=s.ToWords(' ');
  a[0].Intersect(a[a.Length-1]).Where(x->Pos(x,sb)>0).Println(',')
end.

Тестовый прогон:
t,r
4,7(96 оценок)
Ответ:
Donyakotova
Donyakotova
04.04.2021
Var a:array of array of integer;
c:array of array of integer;
ma:array of array of integer;
i,j,n:integer;
begin;
randomize;
readln(n);
setlength(a,n+1); //задаём размерность динамических массивов
setlength(c,n+1);
setlength(ma,n+1);
for i:=1 to n do
begin;
setlength(a[i],n+1);
setlength(c[i],n+1);
setlength(ma[i],n+1);
end;

writeln('Matrix A:');   //генерируем массив псеводслучайных чисел
for i:=1 to n do begin;
 writeln;
  for j:=1 to n do
   begin;
    a[i,j]:=random(10);
    write(a[i,j]:4);
   end;
 end;
writeln;

writeln('Matrix C:'); //аналогично
for i:=1 to n do
 begin;
 writeln;
  for j:=1 to n do
   begin;
    c[i,j]:=random(10);
    write(c[i,j]:4);
   end;
 end;

for i:=1 to n do     //сохраняем матрицу C для транспонации
  for j:=1 to n do
    ma[i,j]:=c[i,j];
    writeln;

writeln('Transpose matrix C:'); //транспонируем C
for i:=1 to n do
 begin;
  writeln;
   for j:=1 to n do
    begin;
     c[i,j]:=ma[j,i];
     write(c[i,j]:4);
    end;
 end;

writeln;
writeln('Final matrix:'); // получаем финальную матрицу
for i:=1 to n do
 begin;
  writeln;
   for j:=1 to n do
    begin;
     ma[i,j]:=2*c[i,j]*a[i,j];
{по свойству дистрибутивности матриц С(A+A)=C*A+C*A=2*C*A}
     write(ma[i,j]:4);
    end;
 end;
end.
4,6(20 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ