extracted_text:
Практическое задание №7
Тема: Отработка навыков открытия, просмотра и редактирования БД
Задание:
1. Открыть таблицу базы данных «Страны мира».
2. Увеличить длину поля «столица» на 5 и уменьшить длину поля «часть света» на 3.
3. Добавить после поля «население» поле «год переписи», определив его тип и размер.
Порядок выполнения:
1. На рабочем столе открыть папку «9 класс», в ней папку «Практические задания» и открыть файл
«База данных Страны мира»
2. Открыть таблицу «Страны мира», щелкнув по ней 2 раза. Таблица откроется в Режиме таблицы.
3. Чтобы изменить таблицу, необходимо перейти в Конструктор. Для этого нужно нажать
Конструктор 4. Чтобы   увеличить   длину   поля  «столица»  на   5,   необходимо   нажать   на   поле  «столица»   и   в
Свойствах поля Общие напечатать Размер поля 20.
Также уменьшить длину поля «часть света» на 3.
5. Чтобы   добавить   поле  «год   переписи»  после   поля  «население»,  необходимо   нажать   на   поле
«площадь», а затем на кнопку «Вставить строки» 6. Напечатать   в   Имя   поля   «год   переписи»,   Тип   данных   выбрать   «Числовой»,   Описание   –   «Год
переписи населения»


extracted_text:
Практическое задание №6
Тема: Разработка сайта «Мой город»
Задание:
1. Разработать сайт на тему «Мой город»
2. Просмотреть сайт в webбраузере (Mozilla FireFox).
Порядок выполнения:
Сайт «Мой город» будет состоять из 2х страниц: Главной страницы (bogdan.htm), на которой
будет ссылка на страницу История Богдановича (history.htm)
1. Откройте программу «Блокнот» (Пуск/ Все программы/ Стандартные/ Блокнот).
2. В Блокноте наберите код главной страницы сайта «Мой город»:

Главная страница

 Сайт города Богданович
 История Богдановича

3. Сохраните документ в свою папку в папке 9 класс на Рабочем столе под именем bogdan.htm 4. Создаем  вторую  страницу История  Богдановича.  Открыть программу  Блокнот  и набрать  код
страницы:

История

 История Богдановича

Узловая станция Оверино, расположенная практически на середине пути между Екатеринбургом
и Тюменью, в том же 1885 году получает новое название  станция Богданович.
15 августа 1924 года образован Богдановический район с центром в селе Троицкое, в 1930м
центр района перенесен в поселок при станции, в июле 1931го Богдановический и Курьинский районы
объединены в один  Сухоложский. И только в 1944 году на карте Свердловской области вновь появился
наш район. С тех пор его территория неоднократно менялась. На сегодняшний день в его состав, помимо
районного центрагорода Богданович, входят сельские территории: Байновская, Барабинская,
Волковская, Гарашкинская, Ильинская, Коменская, Кунарская, Троицкая, Тыгишская и Чернокоровская
 всего 40 населенных пунктов.

5. Также   сохраните   документ   в   свою   папку   в   папке   9   класс   на   Рабочем   столе   под   именем
history.htm 6. Зайдите   в   свою   папку,   двойным   щелчком   откройте   файл   bogdan.htm   и   нажмите   на   ссылку
История Богдановича.

description:
Практическое задание №6
Тема: Разработка сайта «Мой город»
Задание:
1. Разработать сайт на тему «Мой город»
2. Просмотреть сайт в webбраузере (Mozilla FireFox).
Порядок выполнения:
Сайт «Мой город» будет состоять из 2х страниц: Главной страницы (bogdan.htm), на которой
будет ссылка на страницу История Богдановича (history.htm)
1. Откройте программу «Блокнот» (Пуск/ Все программы/ Стандартные/ Блокнот).
2. В Блокноте наберите код главной страницы сайта «Мой город»:

<title>
Главная страница
</title>

 Сайт города Богданович

 История Богдановича

3. Сохраните документ в свою папку в папке 9 класс на Рабочем столе под именем bogdan.htm

description:
4. Создаем  вторую  страницу История  Богдановича.  Открыть программу  Блокнот  и набрать  код
страницы:

<title>
История
</title>

 История Богдановича

Узловая станция Оверино, расположенная практически на середине пути между Екатеринбургом
и Тюменью, в том же 1885 году получает новое название  станция Богданович.
15 августа 1924 года образован Богдановический район с центром в селе Троицкое, в 1930м
центр района перенесен в поселок при станции, в июле 1931го Богдановический и Курьинский районы
объединены в один  Сухоложский. И только в 1944 году на карте Свердловской области вновь появился
наш район. С тех пор его территория неоднократно менялась. На сегодняшний день в его состав, помимо
районного центрагорода Богданович, входят сельские территории: Байновская, Барабинская,
Волковская, Гарашкинская, Ильинская, Коменская, Кунарская, Троицкая, Тыгишская и Чернокоровская
 всего 40 населенных пунктов.

5. Также   сохраните   документ   в   свою   папку   в   папке   9   класс   на   Рабочем   столе   под   именем
history.htm

intro:
Вот практическое Задание:
1.	Разработать сайт на тему «Мой город»
2.	Просмотреть сайт в web-браузере (Mozilla FireFox).
Порядок выполнения:
Сайт «Мой город» будет состоять из 2х страниц: Главной страницы (bogdan.htm), на которой будет ссылка на страницу История Богдановича (history.htm)
1.	Откройте программу «Блокнот» (Пуск/ Все программы/ Стандартные/ Блокнот).

информатика

group: Дисциплины


extracted_text:
Практическое задание №5
Тема: Разработка Web  страницы
Задание:
1. Написать htmlкод web  страницы в программе «Блокнот».
2. Просмотреть страницу в webбраузере (Mozilla FireFox).
Порядок выполнения:
1. Чтобы открыть программу «Блокнот», нужно зайти в «Пуск», затем выбрать «Все программы»,
далее «Стандартные», далее «Блокнот».
2. Набрать htmlкод web – страницы:

  NEW

Моя страница
Практическое задание выполнил!
Молодец!

 3. Сохранить документ с расширением .htm на рабочий стол в папку «9 класс». Для этого нажать
Файл, далее Сохранить как…
4. В поле «Имя файла» написать prak.htm  и нажать кнопку «Сохранить»
5. В папке «9 класс» открыть созданную страницу prak.htm

description:
Практическое задание №5
Тема: Разработка Web  страницы
Задание:
1. Написать htmlкод web  страницы в программе «Блокнот».
2. Просмотреть страницу в webбраузере (Mozilla FireFox).
Порядок выполнения:
1. Чтобы открыть программу «Блокнот», нужно зайти в «Пуск», затем выбрать «Все программы»,
далее «Стандартные», далее «Блокнот».
2. Набрать htmlкод web – страницы:

<title>  NEW  </title>

Моя страница

Практическое задание выполнил!

Молодец!

intro:
Вот практическое Задание:
1.	Написать html-код web - страницы в программе «Блокнот».
2.	Просмотреть страницу в web-браузере (Mozilla FireFox).
Порядок выполнения:
1.	Чтобы открыть программу «Блокнот», нужно зайти в «Пуск», затем выбрать «Все программы», далее «Стандартные», далее «Блокнот».
1.	Набрать html-код web – страницы:

<title>  NEW  </title>

Моя страница

Практическое задание выполнил!

администрации

group: Педагогика

title: Практическое задание №5 Тема: Разработка Web - страницы


extracted_text:
Практическое задание №4
Тема: Способы поиска в Интернет
Задание:
Найти   ответы   на   вопросы,   используя   поисковый   сервер  Rambler  (http://www.rambler.ru).   Указать
адрес источника информации.
1. Место и дата рождения В.В. Путина  главы правительства РФ.
2. Место и дата рождения Билла Гейтса – главы фирмы Microsoft.
3. В каком году была написана картина Айвазовского «Море. Коктебельская бухта»?
4. Настоящая фамилия Кира Булычева.
5. Место и дата рождения математика Н.И. Лобачевского.
6. В каком году и где родился Мишель Нострадамус?
7. Назвать основателей фирмы Honda и год ее создания.
8. Когда и где состоялись первые зарубежные гастроли группы Beatles?
9. Назвать издателя и разработчика игры «Братья пилоты».
10. Когда и где родился Владимир Высоцкий?
Порядок выполнения:
1. На рабочем столе найти значок webбраузера Mozilla Firefox
 (возле Пуска) и запустить
программу.
2. В адресной строке написать http://www.rambler.ru/ и нажать  на клавиатуре кнопку Enter
3. Найти ответы на вопросы, например, в поле для поиска ввести: место и дата рождения В.В.
Путина  главы правительства РФ и нажать кнопку Найти.
4. В списке сайтов найти наиболее точный ответ и перейти на сайт посылке 5. Адрес сайта скопировать в MS Word.

description: 5. Адрес сайта скопировать в MS Word.

intro:
Задание:
Найти ответы на вопросы, используя поисковый сервер Rambler (http://www.rambler.ru). Указать адрес источника информации.
1.	Место и дата рождения В.В. Путина - главы правительства РФ.
2.	Место и дата рождения Билла Гейтса – главы фирмы Microsoft.
3.	В каком году была написана картина Айвазовского «Море. Коктебельская бухта»?
4.	Настоящая фамилия Кира Булычева.
5.	Место и дата рождения математика Н.И. Лобачевского.
6.	В каком году и где родился Мишель Нострадамус?
7.	Назвать основателей фирмы Honda и год ее создания.
8.	Когда и где состоялись первые зарубежные гастроли группы Beatles?
9.	Назвать издателя и разработчика игры «Братья пилоты».
10.	Когда и где родился Владимир Высоцкий?


extracted_text:
Практическое задание №3
Тема: Internet и всемирная паутина
Задание:
1. Ознакомиться  с услугами Интернета с помощью поисковой системы «Рамблер».
2. Создать документ в MS Word, содержащий гиперссылки.
Услуги сети Интернет:
 всемирная паутина (World Wide Web);
 электронная почта и списки рассылки;
 группы новостей;
 файлообменные сети,
 электронные платёжные системы;
 Интернетрадио;
 Интернеттелевидение;
 IPтелефония;
 поисковые системы.
Порядок выполнения:
Задание1:
1. На рабочем столе найти значок webбраузера Mozilla Firefox
 (возле Пуска) и запустить
программу.
2. В адресной строке написать http://www.rambler.ru/ и нажать  на клавиатуре кнопку Enter
3. В  строке поиска ввести Всемирная паутина и нажать кнопку «Найти»
4. В   списке   сайтов   найти   наиболее   точный   ответ   и   перейти   на   сайт   по   ссылке.   Ознакомиться
(прочитать) с услугой Интернета. 5. Таким же образом  поискать про все услуги Интернета.
Задание2:
1. На рабочем столе открыть папку «9 класс», в ней папку «Практические задания» и открыть
тестовый   файл   «Гипертекстовые   ссылки».   (Для   создания   гиперссылки   сначала   нужно   создать
закладку на тот текст, который будет открываться при нажатии гиперссылки, а затем выделить
слово и создать на него ссылку )
2. Во втором абзаце под буквой «б» выделить слова «Вся информация»
3. Перейти на вкладку «Вставка» и нажать «Закладка»
4. Написать Имя закладки – байтов и нажать кнопку «Добавить»
5. В первом абзаце под буквой «а» найти и выделить слово «байтов». Это слово будет служить
гиперссылкой. 6. На вкладке «Вставка» нажать «Гиперссылка»
7. В окне «Вставка гиперссылки» нажать «Связать с местом в документе», затем выбрать Закладку с
именем «байтов» и нажать «Ок». Гиперссылка  создана!
8. Самостоятельно продолжить создание гиперссылок, имена закладок придумать самостоятельно.
Слова, на которые следует сделать гиперссылками, выделены красным цветом.
9. В абзаце под буквой «а» на слова «жесткий или гибкий магнитный диск» создать ссылку,   чтобы
открывался абзац под буквой «г».
10. В абзаце под буквой «б» на слова «оперативной памяти» создать ссылку,    чтобы    открывался
абзац под буквой «в»
11. В абзаце под буквой «в» на слово «программа» создать ссылку,   чтобы   открывался абзац под
буквой «д»

intro:
Вот практическое Задание:
1.	Ознакомиться  с услугами Интернета с помощью поисковой системы «Рамблер».
2.	Создать документ в MS Word, содержащий гиперссылки.
Услуги сети Интернет:
•	всемирная паутина (World Wide Web);
•	электронная почта и списки рассылки;
•	группы новостей;
•	файлообменные сети,
•	электронные платёжные системы;
•	Интернет-радио;
•	Интернет-телевидение;
•	IP-телефония;
•	поисковые системы.

Порядок выполнения:
Задание1:
На рабочем столе найти значок web-браузера Mozilla Firefox


extracted_text:
Практическое задание №27
Тема: Датчик случайных чисел в Паскале. Поиск чисел в массиве
Задание:
1. Изучите пример программы поиска числа в массиве.
2. Составить блоксхему и написать программу.
Порядок выполнения:
Задание №1.  Датчик случайных чисел в Паскале. Поиск чисел в массиве
Пример: программа поиска числа в массиве
Program Example;
{Программа заполняет массив Rand случайными числами в диапазоне от 0 до 50,
вводит число Х, и вычисляет, сколько раз Х входит в массив Rand}
Var Rand: array[1..20] of integer;
       I, X, NumberX : integer,
Begin
{Установка датчика случайных чисел}
Randomize;
  {Заполнение массива случайными числами и вывод их на экран}
Writeln(‘Массив случайных чисел:’)
For I:=1 to 10 do
begin
      Rand[I]:=random(50); Write(Rand[I]:4)
End;
Writeln;
{Ввод Х}
Write(‘Введите Х:’)); Readln(X);
{Подсчет числа вхождений Х в массив}
NumberX:=0;
For I:=1 to 10 do
If   Rand(I)=X then NumberX:=NumberX+1;
{Анализ и вывод результата}
If  NumberX=0
Then writeln(‘В массиве нет числа’,X)
Else writeln(‘Число’,X,’в массиве присутствует’,NumberX,’раза’)
End.
Задание №2. Написать программу, которая вводит массив из N целых чисел и выводит на
экран элементы, кратные числу K. Протестировать программу на следующих исходных данных:
а) k=3   Массив: 2 6 9 4 5 12 15
б) k=4   Массив: 9 0 8 124 16 11 19

intro:
Задание:
1.	Изучите пример программы поиска числа в массиве.
2.	Составить блок-схему и написать программу.
Порядок выполнения:
Задание №1.  Датчик слу¬чайных чисел в Паскале. Поиск чисел в массиве
Пример: программа поиска числа в массиве

Program Example;
{Программа заполняет массив Rand случайными числами в диапазоне от 0 до 50,
вводит число Х, и вычисляет, сколько раз Х входит в массив Rand}

Var Rand: array[1..20] of integer;
       I, X, NumberX : integer,
Begin
{Установка датчика случайных чисел}
	Randomize;
  {Заполнение массива случайными числами и вывод их на экран}
	Writeln(‘Массив случайных чисел:’)
	For I:=1 to 10 do
	begin

title: Практическое задание №27 Тема: Датчик слу¬чайных чисел в Паскале. Поиск чисел в массиве


extracted_text:
Практическое задание №26
Тема: Разработка программы с использованием одномерных массивов на языке Паскаль
Задание:
1. Прочитать текст «Одномерные массивы», изучите примеры.
2. Составить блоксхемы к примерам решения задач (2.1, 2.2., 2.3, 2.4).
3. Записать блоксхемы и примеры в тетрадь (2.1, 2.2., 2.3, 2.4).
Порядок выполнения:
Задание №1.  Одномерные массивы
1.1.  Понятие «массив»
С понятием «массив» приходится сталкиваться при решении научнотехнических и экономических задач
обработки совокупностей большого количества значений. В общем случае массив – это
структурированный тип данных, состоящий из фиксированного числа элементов, имеющих один и тот же
тип.
Название регулярный тип (или ряды) массивы получили за то, что в них объединены однотипные
(логически однородные) элементы, упорядоченные (урегулированные) по индексам, определяющим
положение каждого элемента в массиве.
Массив – это составной объект, образованный из элементов (компонент) одного и того же типа. Такой
тип данных применяется в программировании для обозначения объектов, аналогичных числовым
последовательностям в математике, где сразу целая группа чисел обозначается одним именем (чаще
всего буквой), а для обращения к каждому отдельному числу данной последовательности используются
различные индексы (номера элементов). В математике это может выглядеть, например, так:
a1, а2, а3, …, аn.
Таким образом, в программировании массив – это последовательность однотипных элементов, имеющих
общее имя, причем каждый элемент этой последовательности определяется порядковым номером
(индексом) элемента.
Примеры массивов:
 Х1, Х2, …, Хn – одномерный массив, состоящий из n элементов;
 А0, А1, А2, …, А10 – одномерный массив,состоящий из 11 элементов.
Массивы бывают одномерными  (один индекс), двумерными (два индекса) и т.д.
Структура массива всегда однородна. Массив может состоять из элементов типа integer , real или char ,
либо других однотипных элементов. Другая особенность массива состоит в том, что к любой его
компоненте можно обращаться произвольным образом. Программа может сразу получить нужный ей
элемент по его порядковому номеру (индексу). Номер элемента массива называется индексом. Индекс –
это значение порядкового типа, определенного, как тип индекса данного массива. Тип индекса
определяет границы изменения значений индекса. Рассмотрим массив Х1, Х2, …, Хn.  Здесь
 Х – имя массива;

1, 2,…, n – индексы (порядковые номера) элементов;
 Х7 – седьмой элемент массива Х.
1.2. Описание одномерных массивов
Одномерный массив – это фиксированное количество элементов одного типа, объединенных одним
именем, причем каждый элемент имеет свой уникальный номер, и номера элементов идут подряд. Для
описания подобных объектов в программировании предварительно следует ввести соответствующий тип
в разделе описания типов.
Тип массив описывается следующим образом:
Type
       Имя типа = Array [тип индекса (ов)] Of  тип элементов;
Var
       Имя переменной: имя типа;
Переменную типа массив можно описать сразу в разделе описания переменных Var:
Var   Имя переменной: array [тип индекса (ов)] Of  тип элементов;
Здесь
 Array – служебное слово (в переводе с английского означает «массив»);
 Of – служебное слово (в переводе с английского означает «из»).
 Тип индекса – любой порядковый тип, кроме типов integer, longint.
 Тип же самих элементов может быть любым, кроме файлового типа.
 Количество элементов массива называется его размерностью. Несложно подсчитать, что при
последнем способе описания множества индексов размерность массива равна: максимальное
значение индекса – минимальное значение индекса + 1.
Например:
Type
       mas = array [1..20] of  real;
Var  X: mas;
Массив Х – одномерный, состоящий из двадцати элементов вещественного типа. Элементы массива
хранятся в памяти компьютера последовательно друг за другом. При использовании переменных для обозначения индекса их значения к моменту использования должны
быть определены, а в случае арифметических выражений их результат не должен выходить за границы
минимального и максимального значения индексов массива.
Индексы элементов массива могут начинаться с любого целого числа, в том числе и отрицательного,
например:
Type bb = Array [5..3] Of Boolean;
Массивы данного типа будут содержать 9 логических переменных, пронумерованных от 5 до 3.
1.3. Ввод и вывод одномерных массивов в Паскале
Ввод и вывод массивов осуществляется поэлементно.
Введем одномерный массив Х, состоящий из 30 элементов, то есть необходимо ввести некую
последовательность элементов Х1, Х2, …, Х30.
Пусть i – индекс (порядковый номер) элемента в массиве Х. Тогда
Хi – iй элемент массива Х, где i = 1, 2, …, 30.
Для ввода массива можно использовать любой цикл.
Первый вариант: ввод массива с использованием цикла с предусловием (Рисунок 1). Program Primer_1;
Var i: integer;
     X: array [1..30] of Integer;
Begin
     i := 1;
     While i <= 30 Do
         Begin
            Read (X[i]); i := i + 1
          End;
       Readln
End.
Можно ввести с клавиатуры элементы следующим образом:
7 _ 4 _ 2 _ 0 _ 12 _ 1 _ 5 _  9 _ 11 _ 3 _ 5 _ … _15, то есть через пробел ввести в строчку и нажать
клавишу Enter.
Можно было ввести элементы в столбец,   отделяя элементы клавишей Enter, то есть каждый элемент с
новой экранной строки:
7 Enter
 4 Enter
2 Enter
  …
  …
  …
 15 Enter
В первом варианте ввод массива Х в программе осуществляется с использованием цикла с предусловием.
Второй вариант: ввод массива с использованием цикла с постусловием (Рисунок 2). Program Primer_2;
Var i: integer;
     X: array [1..30] of Integer;
Begin
     i := 1;
     Repeat
           Read (X[i]); i := i + 1
     Until i > 30;
       Readln
End.
Массив X введен с использованием цикла с постусловием.
Третий вариант: ввод массива с использованием цикла с параметром (Рисунок 3). Program Primer_3;
Var i: integer;
     X: array [1..30] of Integer;
Begin
     For i := 1 To 30 Do Read (X[i]);
     Readln
End.
Массив вводится с помощью цикла с параметром, где в качестве параметра используется индекс
элемента массива (i).
Вывод одномерного массива осуществляется аналогично.
В программе вместо операторов Read или Readln используются операторы Write или Writeln. Но просто
заменить одни операторы на другие здесь недостаточно. Для того чтобы выводимые значения не
сливались между собой, надо явным образом вставлять между ними разделитель – пробел или перевод
строки. Приведем два возможных способа вывода массива:
 For i := 1 To n Do Write (X[i],’ ‘);
 For i := 1 To n Do Writeln (x[i]).
На первый взгляд второй способ может показаться более простым и удобным, но это далеко не всегда
так. Результат работы такой программы зачастую неудобно, а то и просто невозможно анализировать.
Ведь каждый элемент массива будет располагаться в отдельной строке, следовательно, мы не сможем
увидеть более 25 элементов одновременно. Кроме того, очень часто массив требуется распечатать дважды, чтобы сравнить состояние массива до обработки и результат его обработки. В этом случае
сравнение состояний массива гораздо удобнее проводить, если они распечатаны в двух соседних строках,
а элементы выровнены по столбцам, то есть к варианту 1 должна быть добавлена еще и форматная печать
(указано количество позиций, которое должно отводиться на печать одного элемента).
Например, выведем одномерный массив Х1, Х2, …, Хn, состоящий из элементов вещественного типа,
используя цикл с параметром (Рисунок 4):
Program Primer_4;
Const n = 30;
Var i: Integer;
     X: Array [1..n] Of Real;
Begin
        For i:= 1 To n Do Write (X[i] : 6 : 2,  ‘ ‘);
          Writeln; {курсор переводит на новую строку}
        Readln
End.
Задание №2.  Примеры решения задач
2.1. Вычисление суммы и произведения элементов массива, удовлетворяющих заданному условию. Задача 1. Дан целочисленный одномерный массив, состоящий из n элементов. Найти сумму и
произведение нечетных элементов, кратных 3.
Введем обозначения: n – количество элементов в массиве; А – имя массива; i – индекс элемента
массива; Ai – iй элемент массива A; s – сумма нечетных элементов массива, кратных 3; p – произведение
нечетных элементов массива, кратных 3.
Входные данные: n, A.
Выходные данные: s, p.
Первоначально сумма искомых элементов равна нулю: не просуммировано ни одно слагаемое, то есть
s:=0. Далее, используя любой оператор цикла, просматриваем весь массив от первого и до последнего
элемента. И если при этом элемент массива нечетный и кратен 3, то к уже накопленной сумме
добавляется очередное слагаемое, т.е. s:= s + A[i]. Здесь слева и справа от знака присваивания записано
имя одной и той же переменной s, именно это обеспечивает постепенное накопление суммы: s справа –
уже вычисленное известное значение суммы, s   ее новое, вычисляемое значение.
При просмотре массива можно сразу вычислить и произведение элементов массива, удовлетворяющих
заданному условию. Произведение вычисляется с помощью оператора p:=p*A[i]. При этом p справа и p
слева имеют разные значения: p справа – уже известное, вычисленное ранее значение произведения, p
слева – новое, вычисляемое его значение. Первоначально искомое произведение равно единице, т.е. p:=1.
При решении этой задачи можно использовать любой из видов циклов. Рассмотрим несколько вариантов
решения задачи.
Первый способ.  Для решения используется цикл с параметром:
Program Primer1_1;
Var A: Array[1..20] Of Integer;
      i, n, s, p: Integer;
Begin
     Write (‘n=’); Readln (n);
     For i:=1 To n Do Readln (A[i]);   {ввод массива}
     s:= 0;  p:=1;
     For i:=1 To n Do   {обработка массива}
      If (A[i] mod 2 <>0) and (A[i] mod 3 = 0) Then
      Begin
          s:=s+A[i];  p:= p*A[i]
      End;
      Writeln (‘s=’, s, ‘p=’, p); Readln
      End.
Второй способ. Для решения используется цикл с предусловием:
Program Primer1_2;
Var A: Array[1..20] Of Integer;
      i, n, s, p: Integer;
Begin
     Write (‘n=’); Readln (n); i:=1;
     While i <= n Do
      Begin
      Readln (A[i]);   i:= i + 1
      End;
     s:= 0;  p:=1; i:=1;
     While i<=n  Do
     Begin
             If (A[i] mod 2 <>0) and (A[i] mod 3 = 0) Then
Begin
          s:=s+A[i]; p:= p*A[i]
  End;  i:= i + 1
      End;
      Writeln (‘s=’, s, ‘p=’, p);
      Readln
      End.
2.2. Нахождение количества элементов, удовлетворяющих заданному условию
Задача 2. Дан массив целых чисел. Найти количество тех элементов, значения которых положительны и
не превосходят заданного натурального числа А. Введем обозначения: n – количество элементов в массиве; X – имя массива; i – индекс элемента
массива; Xi – iй элемент массива X; А – заданное число; k – количество элементов, значения которых
положительны и не превосходят заданного числа А.
Входные данные: n, X, A.
Выходные данные: k.
Вводим с клавиатуры значение числа А. Количество элементов, значения которых положительны и не
превосходят заданного числа А, вначале полагаем равным нулю, то есть k:=0. Если очередной элемент
массива положителен и не превосходят заданного числа A, то количество таких элементов нужно
увеличить на единицу, то есть k:=k + 1. Таким образом, обрабатываются все элементы массива.
При решении этой задачи можно использовать любой из видов циклов. Рассмотрим несколько вариантов
решения задачи.
Первый способ.  Для решения используется цикл с параметром:
Program Primer2_1;
Var X: Array[1..20] Of Integer;
      i, n, k, A: Integer;
Begin
     Write (‘n=’); Readln (n);
     For i:=1 To n Do Readln (X[i]);   {ввод массива}
      Write (‘A=’);  Readln (A); k:= 0;
     For i:=1 To n Do   {обработка массива}
      If (X[i] >0) and (X[i] <= A) Then k:=k + 1;
      Writeln (‘k=’, k);
      Readln
      End.
Второй способ. Для решения используется цикл с постусловием:
Program Primer2_2;
Var X: Array[1..20] Of Integer;
      i, n, k, A: Integer;
Begin Write (‘n=’); Readln (n); i:=1;
     Repeat
           Read (X[i]); i := i + 1
     Until i > n;
      Write (‘A=’); Readln (A); k:= 0; i:=1;
     Repeat
      If (X[i] >0) and (X[i] <= A) Then
          k:=k + 1; i := i + 1
     Until I > n;
      Writeln (‘k=’, k);
      Readln
      End.
2.3. Нахождение номеров элементов, обладающих заданным свойством
Задача 3. Найти номера четных элементов, стоящих на нечетных местах.
Введем обозначения: n – количество элементов в массиве; X – имя массива; i – индекс элемента
массива; Xi – iй элемент массива Х.
Входные данные: n, X.
Выходные данные: i.
Необходимо просмотреть весь массив. Если просматриваемый элемент является четным, а его
порядковый номер – нечетный, то вывести его номер. При решении этой задачи можно использовать
любой из видов циклов.
Составим программу с помощью цикла с параметром:
Program Primer3_1;
Var X: Array[1..20] Of Integer;
      i, n:  Integer;
Begin
     Write (‘n=’); Readln (n);
     For i:=1 To n Do Readln (X[i]);   {ввод массива} For i:=1 To n Do   {обработка массива}
      If (X[i] mod 2 = 0) and (i mod 2<>0) Then Write (i:5);
      Readln
      End.
2.4. Найти номер последнего отрицательного элемента массива.
Введем обозначения: n – количество элементов в массиве; А – имя массива; i – индекс элемента
массива; Ai – iй элемент массива A; m – номер последнего отрицательного элемента массива.
Входные данные: n, A.
Выходные данные: m.
Последний отрицательный элемент массива – это первый отрицательный элемент, который встретится
при просмотре массива с конца. Если очередной элемент не является отрицательным, то нужно
уменьшать значение текущего индекса (i:=i1), пока он не станет меньше номера первого элемента или не
будет найден отрицательный элемент. Переменная m получает значение i (номер отрицательного
элемента), т.е. m := i. Если в массиве нет отрицательного элемента, то значение переменной m остается
равным нулю.
Program Primer3_2;
Const n=10;
Var A: Array[1..n] Of Integer;
      i, m: Integer;
Begin
      For i:=1 To n Do Readln (A[i]);   {ввод массива}
      m := 0;  i:=n;
      While  (i >= 1) and (A[i] >=0) Do i:=i1;    m:=i;
       Writeln (‘m=’, m);
      Readln
      End.

intro:
Задание:
1.	Прочитать текст «Одномерные массивы», изучите примеры.
2.	Составить блок-схемы к примерам решения задач (2.1, 2.2., 2.3, 2.4).
3.	Записать блок-схемы и примеры в тетрадь (2.1, 2.2., 2.3, 2.4).
Порядок выполнения:
Задание №1.  Одномерные массивы
1.1.  Понятие «массив»
С понятием «массив» приходится сталкиваться при решении научно-технических и экономических задач обработки совокупностей большого количества значений. В общем случае массив – это структурированный тип данных, состоящий из фиксированного числа элементов, имеющих один и тот же тип.

title: Практическое задание №26 Тема: Разработка про¬граммы с использованием одномерных массивов на языке Паскаль


extracted_text:
Практическое задание №25
Тема: Разработка программы с использование циклов
Задание:
1. Прочитать текст «Цикл с предусловием», изучите примеры.
2. Составить блоксхему по готовому фрагменту программы.
3. Прочитать текст «Цикл с параметром (арифметический)», изучите примеры.
4. Определить значение переменной S.
5. Определить сколько раз будет выполняться тело цикла.
6. Прочитать текст «Цикл с постусловием», изучите примеры.
7. Определить сколько раз будет выполняться тело цикла.
Порядок выполнения:
Задание №1.  Цикл с предусловием.
Цикл – это такая структура, которая позволяет многократно повторять одни и те же действия.
Существует три вида циклов:
 Цикл с предусловием;
 Цикл с параметром (арифметический цикл);
 Цикл с постусловием.
Цикл с предусловием организует циклическое выполнение некоторой последовательности
операторов, пока условие выхода из цикла имеет значение «истина».
                                                                                ПОКА условие истина ПОВТОРЯТЬ
                                                                                Тело цикла
                                                                                КОНЕЦ     ЦИКЛА
Условие выхода из цикла
_
+

                                                                                While <условие> Do
                                                                                <тело цикла>;
Тело
цикла
Примеры

 :
                                     a:= 7;
a:=7;
While a>5 Do                         While a<5 Do
           a:=a1;                                  a:=a+1;  Условие выхода из цикла всегда имеет переменную <параметр>. Значение этой переменной
необходимо явно изменять в теле цикла таким образом, чтобы условие выхода из цикла в какойто
момент времени приняло значение «ложь» (т.е., чтобы произошел выход из цикла).
Например

 :
s:=4;
While s>=0 Do
     s:=s1;
В данном примере параметром цикла является переменная s. Значение этой переменной в цикле
уменьшается каждый раз на 1. В какой то момент времени значение переменной s  станет меньше
нуля и произойдет выход из цикла.
 Если в теле цикла значение параметра не изменяется или изменяется не правильно, то
происходит зацикливание, т.е. цикл выполняется бесконечно.
Например

 :
s:=1;
While s>0 Do
     Writeln(s);
В данном примере параметром является переменная s, но ее значение не изменяется в теле цикла,
поэтому условие выхода из цикла всегда будет иметь значение «Истина» и цикл будет
выполняться бесконечно.
 Если условие выхода сразу имеет значение «ложь», то тело цикла не выполнится ни разу.
Например

 :
a:=1;
While a<0 Do
     Writeln(a);
 Если тело цикла содержит более одного оператора, то его заключают в операторные скобки.
Например

 :
a:=1;
While a>0 Do
     Begin
        Writeln(a);
         a:=a1;
     End;
начало
S:=0
A:=0.2
A<=2.0
Пример составления блоксхемы по готовому фрагменту программы:
+
-
Program summa;
     Var A, S: real;
Begin
     S:=0;
     A:=0;
       While A<=2.0 do
 S:=S+A
A:=A+0.1
S
конец Begin
               S:=S+A;
               A:=A+0.1;
           End;
       Writeln(‘Сумма=’, S);
End.
Задание №2. Составить блоксхему по готовому фрагменту программы.
Program cikl;
     Var
         K, Max: real;
         N:byte;
Begin
     Max:=0;
     N:=0;
       While N<=10 do
           Begin
             Write (‘Введите число’);
             Readln (K);
IF Max:= <н.з.> TO <к.з.> DO
     <тело цикла>;
Примеры:
For i:=1 to 5 do        или            For i:= 5 to 1 do
Writeln (i);                           Writeln (i);
2.      Если
 Шаг

  равен 1

FOR <параметр>:= <н.з.> DOWNTO <к.з.>  DO
     <тело цикла>;
Примеры:
For i:=5 downto 1 do        или            For i:= 1 downto 5 do
Writeln (i);                           Writeln (i);
!!! При этом если н.з.< к.з, то оператор не выполнится ни разу
Нельзя  явно   изменять   параметр   цикла   в   теле   арифметического   цикла,   но   можно
использовать его в выражениях в качестве операнда.
Если тело цикла содержит более одного оператора, то оно заключается в операторные скобки
begin … end.
Например:
For i:=1 to 5 do
   Begin
       K:=K+2; Writeln (K);
End;
Задание №4. Определить значение переменной S после выполнения следующих операторов:
S:=1;
I:=1
For I:=2 to 2 do
S:=S+1/I;
S=________
S:=0;
I:=1
For I:=2 to 5 do
S:=S+1/I;
S=________
S:=1;
I:=1
For I:=2 downto 2 do
S:=S+1/I;
S=________
Задание №5. Определить сколько раз будет выполняться тело следующих операторов цикла.
K:=0;
K:=0;
K:=0;
K:=0;
For i:=1 to K+3 do
For i:=1 to 9 do
For i:=9 to 1 do
For i:=1 to 1 do
K:=K+1;
K:=K+sqr(i);
K:=K+1;
K:=K+1;
______________
______________
______________
______________
Задание №6. Цикл с постусловием
Цикл с постусловием – это цикл, у которого условие выхода располагается после его тела.
Условие выхода проверяется после выполнения тела цикла, поэтому тело в цикле с постусловием
всегда выполняется хотя бы один раз.
                                                                                ПОВТОРЯТЬ
                                                                                Тело цикла
                                                                                ДО выполнения Условия выхода;

Тело
цикла
Условие выхода
-
+
                REPEAT
                                    <тело цикла>
                                              UNTIL <условие выхода>;
Примеры:
A:=1;
REPEAT
      A:=A+1;
UNTIL A=5;
A:=1;
REPEAT
      A:=A1;
UNTIL A= 5;
A:=5;
REPEAT
      A:=A+1;
UNTIL A>=5; Переменная (параметр), которая используется в условии выхода из цикла обязательно должна
изменятся в теле цикла таким образом, чтобы условие выхода в какойто момент времени стало равно
«истина».
 Если параметр не изменяется в теле цикла или изменяется не правильно, то произойдет
зацикливание (т.е. цикл будет выполняться бесконечно).
A:=1;
REPEAT
A:=A+1;
S:=S+A;
UNTIL
A=5;
Ключевые слова  REPEAT и UNTIL играют роль операторных скобок, поэтому если
тело цикла содержит более одного оператора, то необходимости в использовании
операторных скобок begin
 …   end

  нет.
Пример:
Задача: Дано натуральное число N. Получить наименьшее число вида 2 в степени R, превосходящее
число N.
начало
Постановка задачи

Ид.   N – число: integer.
Рез.  K – число: integer.
Мм.  K=2R
В языке программирования Turbo Pascal
отсутствует функция вычисления степени
числа.
Степень числа вычисляется как произведение
2 R = 2*2*2*2*2
           R раз
Для вычисления произведения используется
стандартный алгоритм.
Словесное описание алгоритма
1. Ввести число N.
2. Произведению присвоить начальное значение 1.
3. Вычислить число вида 2R
4. Если полученное число не больше N, то повторить п.3.
5. Вывести полученное число.
Трассировочная таблица
N
К:=1
К:=K*2
-
K>N
+
K
конец
N K K>N
5
0
1
2
4
8
1
6
3
2
6
ложь
ложь
ложь
ложь
ложь
истин
1
2
3
4
5
6 4
а
Ответ. Наименьшее число вида 2R, большее 50 равно 64
Задание №7. Определить сколько раз будет выполняться тело цикла.
S:=0;
I:=0;
REPEAT
   I:=I1;
   S:=S+1/I;
UNTIL I<=1;
S:=0;
I:=1;
REPEAT
   I:=I+1;
UNTIL I>=2;
   S:=S+1/I;
S:=0;
I:=1;
REPEAT
   S:=S+1/I;
   I:=I+1;
UNTIL I<1;
______________
______________
______________

description:
Begin
               S:=S+A;
               A:=A+0.1;
           End;
       Writeln(‘Сумма=’, S);
End.
Задание №2. Составить блоксхему по готовому фрагменту программы.
Program cikl;
     Var
         K, Max: real;
         N:byte;
Begin
     Max:=0;
     N:=0;
       While N<=10 do
           Begin
             Write (‘Введите число’);
             Readln (K);
IF Max<K THEN
    Max:=K;
    N:=N+1;
       End;
        End.
Задание №3.  Цикл с параметром.
Арифметический цикл – это цикл, в котором заранее известно число его повторений.
Параметр:= н.з., к.з., шаг
тело цикла
Параметр – это простая переменная целого типа.
Начальное и конечное значение – это переменные или выражения целого типа.
Шаг  может быть равен +1 или 1.
Цикл повторяется до тех пор, пока значение параметра лежит в интервале между начальным
значением и конечным значение включительно.
Формат оператора:

description:
1.      Если
 Шаг

  равен +1

FOR <параметр>:= <н.з.> TO <к.з.> DO
     <тело цикла>;
Примеры:
For i:=1 to 5 do        или            For i:= 5 to 1 do
Writeln (i);                           Writeln (i);
2.      Если
 Шаг

  равен 1

FOR <параметр>:= <н.з.> DOWNTO <к.з.>  DO
     <тело цикла>;
Примеры:
For i:=5 downto 1 do        или            For i:= 1 downto 5 do
Writeln (i);                           Writeln (i);
!!! При этом если н.з.< к.з, то оператор не выполнится ни разу
Нельзя  явно   изменять   параметр   цикла   в   теле   арифметического   цикла,   но   можно
использовать его в выражениях в качестве операнда.
Если тело цикла содержит более одного оператора, то оно заключается в операторные скобки
begin … end.
Например:
For i:=1 to 5 do
   Begin
       K:=K+2;

intro:
Задание:
1.	Прочитать текст «Цикл с предусловием», изучите примеры.
2.	Составить блок-схему по готовому фрагменту программы.
3.	Прочитать текст «Цикл с параметром (арифметический)», изучите примеры.
4.	Определить значение переменной S.
5.	Определить сколько раз будет выполняться тело цикла.
6.	Прочитать текст «Цикл с постусловием», изучите примеры.
7.	Определить сколько раз будет выполняться тело цикла.
Порядок выполнения:
Задание №1.  Цикл с предусловием.
Цикл – это такая структура, которая позволяет многократно повторять одни и те же действия.
Существует три вида циклов:
	Цикл с предусловием;
	Цикл с параметром (арифметический цикл);
	Цикл с постусловием.

title: Практическое задание №25 Тема: Разработка про¬граммы с использование циклов


extracted_text:
Практическое задание №24
Тема: Разработка программы с использование оператора ветвления и логических операций
Задание:
1. Прочитать текст «Вложенные ветвления», изучите пример.
2. Опишите фрагмент блоксхемы на языке программирования.
3. Представьте фрагмент программы в виде блоксхемы.
4. Вычислить значение b после выполнения фрагмента программы.
Порядок выполнения:
Задание №1.  Вложенные ветвления.
Ветвление называется вложенным, если выполняется по одной из ветвей другого ветвления. При
описании вложенных ветвлений на языке программирования Turbo Pascal следует помнить, что перед
Else  точку с запятой ставить нельзя!
Пример: описание фрагмента блоксхемы на языке программирования.
                                                                                +
a > b
If  a> b then
If c> b then
k:=1
Else
k:=2
Else
k:=3;
k:=3
                       +
c > b
k:=2
k:=1
Задание №2. Опишите фрагмент блоксхемы на языке программирования.
1)
                                                                     +
a > b
                                                                                +
c > b
k:=2
k:=1
a > b
k:=3
c > b
2)                                          +
k:=2                           +
3)
                                                    +
a > b
k:=3
с > b
                                                                       +
k:=1
4)
                               +
a > b

с > b
                       +
k:=1
5)
                                                +
a > b
                                                                  +
с > b
k:=2
Задание №3. Представьте фрагмент программы в виде блоксхемы.
1) IF a>b THEN
          k:=k+1
    ELSE
          IF a>b THEN
               k:=k+2
          ELSE
              k:=k+3;
Writeln(k); 2) IF a=0 THEN
        Begin
              X:=1;
              Y:=1;
        End
    ELSE
        Begin
              X:=2;
              Y:=2;
        End; Задание №4. Вычислить значение b после выполнения фрагмента программы.
a:=3;
b:=5
c:=3;
IF b>4 THEN
    begin
         a:=c;
         b:=c;
    end
ELSE
    a:=15;
 b:=15;
b>4
a:=3;
b:=5
c:=3;

IF
THEN
    begin
         a:=c;
         b:=c;
    end;
ELSE
 a:=15;
 b:=15;
b=______
b=______
a:=3;
b:=5
c:=3;
IF b>4 THEN
    begin
         a:=c;
         b:=c;
    end
ELSE
    begin
          a:=15;
          b:=15;
    end;
b=______
b>4
a:=3;
b:=5
c:=3;

IF
THEN
    begin
         a:=c;
         b:=c;
    end
ELSE;
 a:=15;
 b:=15;
b=______

intro:
Задание:
1.	Прочитать текст «Вложенные ветвления», изучите пример.
2.	Опишите фрагмент блок-схемы на языке программирования.
3.	Представьте фрагмент программы в виде блок-схемы.
4.	Вычислить значение b после выполнения фрагмента программы.
Порядок выполнения:
Задание №1.  Вложенные ветвления.
Ветвление называется вложенным, если выполняется по одной из ветвей другого ветвления. При описании вложенных ветвлений на языке программирования Turbo Pascal следует помнить, что перед Else  точку с запятой ставить нельзя!

title: Практическое задание №24 Тема: Разработка про¬граммы с использование оператора ветв¬ления и логических операций


extracted_text:
Практическая работа №23
Тема: Разработка программы на языке Паскаль с использованием операторов ввода, вывода,
присваивания и простых ветвлений
Задание:
1. Задача. Найти наибольшее число из трех чисел (алгоритм с ветвлением). Составить блоксхему.
Набрать  программу в PascalABC.
2. Задание для самостоятельной работы: найти наименьшее из двух чисел. Составить блоксхему и
протестировать в Паскале.
Порядок выполнения:
1. На рабочем столе найти значок
2. Набрать код программы.
  и открыть программу  PascalABC
Код программы:                                                            Блоксхема:
Program Primer;
Var  a, b ,c, max: integer;
Begin
Writeln (‘Введите три числа’);
Readln (a,b,c);
If a>b then
max:=a
else
max:=b;
If c>max then
max:=c;
Writeln (‘Наибольшее ’, max);
End.
max:=
b
начало
a, b, c
a>b
c>max
max
конец
max:=
a
max:=
c
Кнопка запуска
программы
3. Для запуска программы нажать зеленую стрелку.
4.
 Ввести три числа. После каждого ввода числа нажимать Enter.

intro:
Задание:
1.	Задача. Найти наибольшее число из трех чисел (алгоритм с ветвлением). Составить блок-схему. Набрать  программу в PascalABC.
2.	Задание для самостоятельной работы: найти наименьшее из двух чисел. Составить блок-схему и протестировать в Паскале.
Порядок выполнения:
1.	На рабочем столе найти значок    и открыть программу  PascalABC
2.	Набрать код программы.
Код программы:                                                            Блок-схема:
Program Primer;
Var  a, b ,c, max: integer;
Begin
Writeln (‘Введите три числа’);
Readln (a,b,c);
If a>b then

title: Практическая работа №23 Тема: Разработка программы на языке Паскаль с использованием операторов ввода, вы¬вода, присваивания и простых ветвлений


description:
(4039) ∙18=   Ь  (8181):4=
А
63:9∙8=           И 201∙12=           Е
П
6046+0=
758∙4=         С 8∙8+36:6=
Н
Л (18+45):63=
(4039) ∙18=   Ь  (8181):4=
А
63:9∙8=           И 201∙12=           Е
П
6046+0=
758∙4=         С 8∙8+36:6=
Н
Л (18+45):63=
(4039) ∙18=   Ь  (8181):4=
А
63:9∙8=           И 201∙12=           Е
6046+0=
П
758∙4=         С 8∙8+36:6=
Н
Л (18+45):63=
(4039) ∙18=   Ь  (8181):4=
А
63:9∙8=           И 201∙12=           Е
6046+0=
П
758∙4=         С 8∙8+36:6=
Н
Л (18+45):63=

title: Разработка урока по математике 3 класс .Тема "Доли"


extracted_text:
Дорожка
знаний
                  Дорожка знаний
 Дорожка знаний

file_name: Дорожка знаний.doc