Дана матрица а (5, 5 элементы находящиеся ниже основной диагонали изменить на цифру 0, а выше - на 3. изменить элементы диагонали на 7. паскаль авс программу, .

Var A:array[1..5,1..5] of integer;
i,j:integer;
Begin
WriteLn('Исходный массив:');
For i:= 1 to 5 do
    Begin
    For j:= 1 to 5 do
        Begin
        A[i,j]:=random(21)-10;
        Write(A[i,j]:3,' ')
        End;
    WriteLn
    End;
WriteLn;

For i:= 1 to 5 do
    Begin
    For j:= 1 to 5 do
        Begin
        if (j>i) then A[i,j]:=3
        else if (j<i) then A[i,j]:=0
             else A[i,j]:=7;
        Write(A[i,j]:3,' ')
        End;
    WriteLn;
    End;
End.

Цель урока:

Познакомить учащихся с режимом ввода-редактирования текста, обучить основным приемам работы с текстовым редактором.

Задачи урока:

Образовательная: Образовательная: научить вводить и редактировать текст, научить автоматической проверке правописания, поиск и замена фрагмента текста.

Развивающая: Развить познавательные интересы, навыки работы с мышью и клавиатурой, самоконтроль.

Воспитательная: Воспитание информационной культуры учащихся, внимательности, аккуратности, дисциплинированности, усидчивости.

Ход урока.

I. Орг момент.

Здравствуйте ребята, садитесь.

Меня зовут Елена Геннадьевна. Я буду вести у вас уроки информатики.

Откройте тетради, запишите число и тему урока: «Ввод и редактирование документа».

Сегодня на уроке, мы узнаем, как редактируется документ.

II. Актуализация знаний.

Но сначала несколько вопросов по предыдущим темам.

Что такое текстовый редактор?

Ввод и редактирование документа (конспект)

Что можно назвать стандартными компонентами среды ТР?

Порядок создания документа?

Какие параметры страниц необходимо задать перед началом создания документа?

Какие ориентации страниц существуют?

Что определяет формат страниц документа?

Что определяют размеры полей?

III. Новый материал.

Профессионалы, знакомые с Word давно, умеют выполнять работу с минимальным количеством манипуляций. Их действия не просто умелые, а эффективные, особенно при выполнении повторяющихся задач. Овладев этими вы сможете ускорить свою подготовку документов.

На уроке вы создавали документ в текстовом редакторе, а сегодня мы научимся вводить и редактировать док-т.

Вспомним, что называется документом?

Ввод текста

Ввод-редактирование – это основной режим работы текстового редактора.

Основой большинства документов явл-ся текст.

Что такое текст в информатике?

Существуют правила ввода текста (распечатано на листах).

При работе с текстовым редактором в режиме ввода-редактирования по экрану дисплея перемещается курсор, который указывает текущую позицию для ввода. Символ, соответствующий нажатой клавише, помещается в позицию курсора, который после этого перемещается на один шаг вправо или, если достигнут конец строки, в начало следующей строки.

Весь материал - в документе.

Объяснение:

//Pascal ABC.NET 3.1 сборка 1256

Var
 s,s1:string;
begin
readln(s);
if (s[1]='в') and (s[2]=' ') then
 begin
  delete(s,1,1);
  s:='на'+s;
 end;
if (s[1]='В') and (s[2]=' ') then
 begin
  delete(s,1,1);
  s:='На'+s;
 end;
while pos(' в ',s)<>0 do
 begin
  if (s[1]='в') and (s[2]=' ') then
 begin
  delete(s,1,1);
  s:='на'+s;
 end;if (s[1]='В') and (s[2]=' ') then
 begin
  delete(s,1,1);
  s:='На'+s;
 end;
  s1:=s1+copy(s,1,pos(' в ',s)-1)+' на ';
  delete(s,1,pos(' в ',s)+2);
 end;
  if (s[1]='в') and (s[2]=' ') then
 begin
  delete(s,1,1);
  s:='на'+s;
 end;
if (s[1]='В') and (s[2]=' ') then
 begin
  delete(s,1,1);
  s:='На'+s;
 end;
s:=s1+s;
writeln(s);
end.

Пример ввода 1:
запасти в зиму, приехать в год, приготовить в день, выпить лекарство в ночь
Пример вывода 1:
запасти на зиму, приехать на год, приготовить на день, выпить лекарство на ночь

Пример ввода 2(глубокие песни современной отечественной эстрады):
В в в в в в в в в в в в в в в в в в н.
Пример вывода 2:
На на на на на на на на на на на на на на на на на на н.