И еще раз ТР

Не забывайте для самопроверки про значек "непечатаемые символы")

Задани 9. Создайте в текстовом редакторе документ и напишите в нём следующий текст, точно воспроизведя всё оформление текста, имеющееся в образце.

Данный текст должен быть набран шрифтом размером 14 пунктов обычного начертания. Отступ первой строки первого абзаца основного текста  — 1 см. Расстояние между строками текста не менее одинарного, но не более полуторного междустрочного интервала.

Основной текст выровнен по ширине; в ячейках первого столбца таблицы применено выравнивание по левому краю, в ячейках второго и третьего столбцов  — по центру. В основном тексте и таблице есть слова, выделенные полужирным, курсивным шрифтом и подчёркиванием. Ширина таблицы меньше ширины основного текста. Таблица выровнена на странице по центру горизонтали.

При этом допустимо, чтобы ширина Вашего текста отличалась от ширины текста в примере

Интервал между текстом и таблицей не менее 12 пунктов, но не более 24 пунктов.

Текст сохраните в файле под своей фамилией в одном из следующих форматов: *.odt , или *.doc, или *.docx. Готовую работу необходимо отправить через форму загрузки своего класса до 20.00 19 марта

Форма загрузки для 9А

Форма загрузки для 9Э

Массивы. Готовимся к проверочной

 Для закрепления пройденного материала предлагаю еще раз выполнить задания, разобранные в классе:

 

Кроме этого публикую полные тексты программ, блок-схемы которых мы обсуждали на уроках.

Программа1. Задан массив. Вводят некоторое число. Программа определяет сколько раз встретилось данное число в массиве.

Program mas;

const N = 20; {задаем кол-во элементов в массиве } 

var a: array [1..N] of integer; i,k,x: integer;

begin 

    for i:=1 to N do a[i] := Random(100); {Присваиваем в качестве значения каждого элемента некоторое целое случайное число в промежутке от 1 до 100}

    writeln('Элементы массива: '); 

    for i:=1 to N do write('a[' , i, ']=', a[ i ],'  '); {выводим элементы массива на экран}

 end;

k:=0; {переменная для подсчета количества}

  For i:=1 to N do if m[i]=х then k:=k+1;

if k=0 then write(‘В массиве нет числа x’)

    else write(‘число x присутствует’, k , ‘раз’)

    End.

Программа2. Задан массив. Вводят некоторое число. Программа выводит на экран элекмент, равный этому числу, и его номер.

Program mas;

const N = 20; {задаем кол-во элементов в массиве } 

var a: array [1..N] of integer; i,k,x: integer;

begin 

    for i:=1 to N do a[i] := Random(100); {Присваиваем в качестве значения каждого элемента некоторое целое случайное число в промежутке от 1 до 100}

    writeln('Элементы массива: '); 

    for i:=1 to N do write('a[' , i, ']=', a[ i ],'  '); {выводим элементы массива на экран}

 end;

k:=0;

  For i:=1 to N do 

    if m[i]=х then 

    begin k:=k+1; writeln(’m[’ , i, ’]=’,m[i]); end;

if k=0 then write(‘В массиве нет числа x’)

End.

Программа3. Программа находит в массиве максимальный элемент и его номер.

Program mas;

const N = 20; {задаем кол-во элементов в массиве } 

var a: array [1..N] of integer; i, max, nmax: integer;

begin 

    for i:=1 to N do a[i] := Random(100); {Присваиваем в качестве значения каждого элемента некоторое целое случайное число в промежутке от 1 до 100}

    writeln('Элементы массива: '); 

    for i:=1 to N do write('a[' , i, ']=', a[ i ],'  '); {выводим элементы массива на экран}

 end;

max:=A[1]; nmax:=1;

 For i:=2 to N do 

    if A[i] > max then  begin max:=A[i]; nmax:=i; end;

Writeln('максимальный элемент = ', max, 'его номер =', nmax);

end.