Среда программирования АЛГО – Изучения Паскаля для школьников


Алгоритмы с повторением и разветвлением 2

Урок 1.              Учебное программную среду АЛГО 2

Упражнение 1 «Среда программирования АЛГО »3

Урок 2.              Основные элементы Паскаль 4

Упражнение 2 «Основные элементы языка Паскаль »6

Урок 3.              Составления линейных программ 6

Упражнение 3 «« Составление линейных программ »» 8

Урок 4.              Целый и логический типы данных. Оператор ветвления 8

Упражнение 4 «Целый и логический типы данных. условный оператор »11

Урок 5.              Оператор выбора 12

Упражнение 5 «Оператор выбора »13

Урок 6.              Практическая работа 1 «Программы по разветвлением» 13

Урок 7.              Операторы повторения. Цикл с параметром 14

Упражнение 7 «Оператор повторения. цикл с параметром »15

Урок 8.              Практическая работа 2 «Программы с повторением» 16

Урок 9.              цикл с предпосылкой 16

Упражнение 9 «Цикл с условием »18

Урок 10.   цикл с постусловием 18

Упражнение 10 «Цикл с постусловием »19

Урок 11.   Практическая работа 3 «Программы с повторением и разветвлением »20

 

Пособие может использоваться в 5-7 классах основной школы, имеет 11 уроков: 8 уроков

— теоретический материал с упражнением каждого урока и 3 урока — практические работы. Упражнения и практические работы рассчитаны на индивидуальное исполнение во время урока.

Упражнения предназначены для закрепления теоретического материала и отработки со- от них практических навыков текущего урока. Упражнение продолжительностью до 25 мин. выполняется на каждом уроке. Выполняя упражнение, ученик может заработать оценку 12 баллов: 6 баллов за знание теории + 6 баллов за выполнение практических задач.

Знание теории при выполнении упражнений оцениваются с помощью контрольно-диагностической системы Test-W2, настроенной на 6-балльную шкалу. Используются тесты, подготовленные для 7 класса. Их можно бесплатно скачать на сайте https://aspekt.in.ua/

Практические работы предназначены для формирования и закрепления теоретических знаний и практическую навыков, полученных в течение нескольких уроков. Для практической работы отводится отдельный урок. Выполняя практическую работу ученик может заработать 12 баллов за работу на компьютере, знание теории при этом не проверяется.

Для оценки практических навыков в упражнениях и практических работах предлагаются задания, при выполнении которых ученик выполняет определенные действия, вписывая при необходимости ответы в места, обозначены «               ».За каждое задание, в зависимости от сложности, можно получить: до 2 баллов, до 3 баллов или до 6 баллов.

 

Алгоритмы с повторением и разветвлением

 

Урок 1.   Учебное программную среду АЛГО 1

В среде АЛГО реализована язык программирования Паскаль, разработанная Никлаус Вирт в 1968-1970 годах специально для обучения программированию и которая получила признание благодаря наглядности программ и легкости изучения.

В 1984 году на рынке программных продуктов появилась система программирования Турбо Паскаль фирмы Borland, стало настоящей революцией в программировании.

Турбо Паскаль предоставлял удобную среду, которое обеспечивало работу с текстом, отладки и запуск программ.

Для запуска разработанной про- граммы необходима специальная программа — компилятор, который пере- кладае эту программу на языке команд процессора, и текстовый файл, в котором записана сама программа.

Чтобы подготовить такой файл, нужно воспользоваться текстовым редактором. Кроме того, нужно иметь возможность запустить программу на пошаговое выполнение, иметь средства для работы с файлами, просмотра промежуточных результатов тому подобное.

Все эти средства, собранные вместе, называют системой программирования, а элементы, отображающие выполняемые действия (окна, меню, кнопки) и обеспечивают необходимые сервисные возможности для программиста,

средой программирования.

Общий вид главного окна среды программу- ния АЛГО приведен на рисунке страницу).

АЛГО позволяет отображать команды программы одной из двух языков — английском или украинском. Для перехода на английский язык, нужно нажать кнопку с английским флагом, а на украинском — с украинским, или нажав на клавиатуре клавиши Ctrl + E и Ctrl + U соответственно.

АЛГО предоставляет возможность автоматического упорядочения текста программы (записи каждого оператора с новой строки, отступлений перед вложенными операторами и т.д.).  Для выполнения этой операции следует выбрать в меню команду Редактирование / Сортировать (F4).

Для более быстрого набора программы предусмотрена возможность вставлять в текст операторы, описания и других конструкции, которые можно выбирать из меню Шаблоны.

Это же меню можно активизировать клавишей F10 или нажатием правой кнопки мыши в режиме редактирования программы.Выбранный текст вставляется в программу на место положения курсора.Этим меню пользуются также, чтобы выбрать цвет для команд.

Загрузка и сохранение программ

Для того, чтобы прочитать (скачать) текст программы с диска, нужно выбрать команду меню Файл / Прочитать.При этом будет открыто стандартное окно для выбора файла, в котором следует указать папку и искомый файл.

Для того, чтобы создать новый файл, нужно выбрать пункт Файл / Новый в меню.Если те- на программа содержит не сохранены изменения, то будет выведено соответствующее предупреждение.

1 АЛГО создал Василий Петрив http://petriv.ho.com.ua/algo/ м.Львов.

Чтобы сохранить файл, следует выбрать команду меню Файл / Сохранить.Откроется стандартное окно системного диалога для сохранения файла. Если файл уже был записан и вы только вносили изменения, то система автоматически предложит записать его с тем же именем. Сохраняя новый файл, следует обязательно ввести с клавиатуры его имя в соответственно- м поле диалога.

Если при этом указать расширения (.pas, .dat, .txt), то файл будет записан с этим расширением, в другом случае

система автоматически запишет файл с расширением .pas.

Выполнение и отладка программы

Чтобы запустить программу на выполнение, нужно выбрать команду меню Выполнение / Выполнить (F9).Начнется компиляция, которая успешно завершится только тогда, когда в тексте программы нет синтаксических ошибок.

Обнаружив ошибку, компилятор прекращает работу. Строку, в которой прекратилась компиляция, выделяется красным цветом и курсор устанавливается на месте остановки.Исправить ошибку и снова запустить программу.

Если программа скомпилювалася, то начнется ее выполнения. Однако компилятор не может найти логических ошибок (например, если вместо знака добавления написать знак умножения). Кнопкой Stop или клавишей F6 всегда можно прекратить выполнение программы.

Чтобы найти логические ошибки в программе, можно выполнять ее по одному оператору, для чего выбрать пункт Выполнить следующий оператор или Трассировать программу (клавиша F7).

Вопросы для компьютерного тестирования:

1. Опишите общий вид главного окна АЛГО.

2. Прокомментируйте действие основных элементов с панели инструментов.

3. Как загрузить ранее созданную программу?

4. Как сохранить программу?

5. С помощью каких команд программа запускается на выполнения?

6. Какие существуют режимы выполнения программы?

Упражнение 1 «Среда программирования АЛГО»

Займы рабочее место. Подготовь компьютер к работе. Загрузка программу TEST-W2.Открой из папки 7-КЛАСС тест под названием УРОК-2-1.Укажи фамилию, имя и класс. Ответь на вопросы теста до получения оценки. Сообщения оценку учителю. Завершите работу с программой TEST-W2.

1. Загрузка программу Алгоа.Открой готовую программу командой Файл — прочитать — tabl_mnoz.Запусти программу, отвечай на вопросы к получению оценки. (до 2 баллов)

2. Включи украинский язык.  Посмотри работу программы в режиме пошагового выполнения.Введи в текст программы ошибку, попробуй запустить программу. Исправь ошибку. (до 2 баллов)

3. Выбери команду ФайлНовый.Используя меню Шаблоны и клавиатуру, набери такой текст программы:

Program NoName;

Var i, j : integer; Begin

For i: = 1 to 20 do Begin

For j = 1 to 20 do Write (8);

WriteLn; end

end.

Запусти программу. Закрой программу Алгоа.Набранную программу не храни! (До 2 баллов)

Урок 2.Основные элементы языка Паскаль

Алфавит и словарь языка программирования

При написании программы используют знаки, об- ют алфавит языка программирования:

• буквы английского алфавита от A до Z и от a до z;

• буквы украинского алфавита от А до Я и от a до я;

• арабские цифры от до 9;

• пропуск;

• специальные единичные символы: + — * / = <> []. , «():; { }

• специальные пары символов: <=> = (*) <> .

Неделимые последовательности символов образуют слова, несущие в программе определенный смысл. Слова делятся на зарезер- Вован и идентификаторы объектов.

Зарезервированы (служебные) слова является составной частью языка, имеют фиксированное написание и раз и навсегда определенный смысл.

Приведем таблицу зарезервированных слов языка Паскаль и их переводов на украинский язык, используемые при работе АЛГО.

Зарезервированные слова языка Паскаль и их переводы

And и array массив
Begin начало case выбор
const стала div целая часть
do выполнить downto назадДо
else иначе end конец
for для function функция
if если label метка
mod Остаток goto идти к
or или not НЕ
program программа of с
repeat повторять procedure процедура
string строка record запись
then то type Тип
until докинут to к
while пока var переменная

Идентификаторы (имена) используют для обозначения типов, констант, переменных, процедур и функций, встроенных в систему программирования или определенные пользователем.

Идентификатор может иметь произвольную длину, однако учитываются только первые 16 символов. Он не может начинаться с цифры и не должен содержать пробелов. В идентификаторах допускаются буквы, цифры и знак подчеркивания «_».

Приведем несколько примеров идентификаторов:

G, alfa, test17, x2y, _h1, Сума2Чисел, кинець_масиву.

Слова «имя» и «идентификатор» употреблять как синонимы. В АЛГО идентификаторы стандарт-них типов, констант, функций и процедур выделяются в тексте программы красным цветом.

При написании зарезервированных слов и идентификаторов можно использовать как большие, так и малые буквы.

Правила оформления программ

Программа начинается с заголовка, имеет следующий вид:

Program <имя программы>;

Примечание. В этом пособии угловые скобки <…> означают: «здесь следует написать …».В данном случае вместо <имя программы> в заголовке пишут идентификатор программы (см. Примеры ниже).

После заголовка размещаются разделы, в которых описываются все объекты (константы, переменные, типы, процедуры, функции, метки), которые будут использованы в программе.

Раздел операторов начинается со служебного слова Вegin и заканчивается служебным словом Еnd

и точкой.В этом разделе задаются действия над объектами программы, объявленными в разделе описаний.

Операторы в этом разделе отделяются друг от друга точкой с запятой. Так же отделяют друг от друга разделы программы.

пример

Program Example; Var a, b, Sum: integer; Begin

End.

Write ( ‘a, b =’); Readln (a, b) Sum = a + b; Writeln ( ‘Sum = ‘, sum);

 

Имя этой программы — Example.С разделов описания лишь один — раздел описания переменных. Он начи- ется со служебного слова Var, после которого записывают последовательность объявлений переменных, разделенных точкой с запятой.

В каждом объявлении перечисляются через запятую имена переменных одного типа, после чего ставится двоеточие и указывается тип переменных.

В данном примере описано три переменные с идентификаторами a, b и Sum, все они имеют тип

integer, то есть значения переменных этого типа — целые числа (подробнее о типах данных будет далее).

После раздела описаний переменных идет раздел операторов. Он начинается со служебного слова Begin, после которого идут операторы программы.

Writeln ( ‘a, b =’) — вызов стандартной процедуры для вывода на экран текста, содержащегося между апострофами.На экране появится текст a, b =

Следующий оператор — Readln (a, b) — вызов стандартной процедуры для чтения данных с клавиа- туры.В данном случае необходимо ввести два целых числа через пробел (!), Тогда переменная а получит значение, равное первом введенном числу, а переменная b — значение, равное втором введенному числу.

Например, если ввести числа так: а, у = 10 20, то а = 10, а b = 20.

После этих двух операторов стоит оператор присваивания: Sum = a + b (= — это знак оператора присваивания).

Во время выполнения этого оператора переменная Sum примет значение, равное сумме чисел а и b.

Поскольку в результате сложения двух чисел образуется целое число, то переменная Sum

описана как целая.

Следующий оператор — это опять оператор вывода Writeln ( ‘Sum =’, Sum).Он выведет на экран текст, размещенный между апострофами, а за ним — значение переменной Sum.В конце раздела операторов стоит служебное слово End, после которого стоит точка.

Если в АЛГО переключить язык с английского на украинский, то эта программа будет выглядеть так:

Программа Пример; Переменная a, b, Sum: целая; начало

Вывести ( ‘a, b =’); Ввести (a, b) Sum = a + b; Вывести ( ‘Sum =’, sum);

Конец.

В дальнейшем в большинстве примеров мы будем использовать классический запись программ (английсь- кой языке).

Для лучшего понимания текста программ можно пользоваться автоматическим переводом прог рамы, изменяя язык с английского на украинский кнопками панели инструментов.

Вопросы для компьютерного тестирования:

1. Из чего состоят алфавит и словарь языка Паскаль?

2. Что такое зарезервированы слова?

3. Какие правила записи идентификаторов?

4. С чего начинается программа?

5. как описываются переменные?

6. С чего начинается раздел операторов?

7. Как записывается оператор вывода?

8. Как записывается оператор ввода?

9. Как записывается оператор присваивания?

10. Чем закончится программа?

Упражнение 2 «Основные элементы языка Паскаль»

Займы рабочее место. Подготовь компьютер к работе. Загрузка программу TEST-W2.Открой из папки 7-КЛАСС тест под названием УРОК-2-2.Укажи фамилию, имя и класс. Ответь на вопросы теста до получения оценки. Сообщения оценку учителю. Завершите работу с программой TEST-W2.

1. Загрузка программу Алгоа.Используя меню Шаблоны и клавиатуру, склады программу для вычисления суммы двух чисел с приведенным образцом.В названии программы напиши свою фамилию. Включи для текста программы украинский язык. Посмотри работу программы в режиме пошагового выполнения. Справа запиши краткие пояснения к каждой команды. Командой Файл Записа- ты как … сохрани программу под названием Упражнение-2А в собственную папку. (До 3 баллов)

Program Фамилия;

Var

a, b, Sum: integer; Begin

Write ( ‘a, b =’); ReadLn (a, b) Sum = a + b;

WriteLn ( ‘Sum =’, sum); end.

2. Изменения программу так, чтобы исчислялся периметр треугольника по заданным тремя сторонами (Р = a + b + c).Испытай программу для различных чисел. Командой Записать как … сохрани программу под названием Упражнение-2Б в собственную папку. (до 3 баллов)

 

Урок 3.Составление линейных программ

В линейных программах команды выполняются последовательно, одна за другой.

Правила записи математических выражений

Почти в каждой программе будут выполняться вычисления, причем результаты вычислений не- обходимо будет сохранять для дальнейшего использования. Для этого существует оператор присваивания. При его выполнении переменная, имя которой стоит слева от знака «=», получает значение выражения, записанного справа. Каким бы сложным ни было выражение, он должен быть записан в строку.

Следует соблюдать правила записи арифметических выражений:

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

— сложение и вычитание;

• нельзя опускать знак операции умножения: 5ab 5 * a * b;

• обыкновенные дроби записываются в строку (обратите внимание на скобки!):

2 a 5 (2 * a 5) / (3 b) 3 b

 

• при необходимости в выражениях используются стандартные функции или функции пользователя (см. т.д.);

• аргументы функций записываются в круглых скобках.

Некоторые стандартные математические функции

Функция sqr (x) вычисляет квадрат значение аргумента х, то есть sqr (x) = x 2 = x * x.

Математическое ный запись Запись на Паскале значения переменных результат
2 апреля sqr (4) 16
х 2 sqr (x) х = 13 169
(D + e) 2 sqr (d + e) d = 2, e = 5 49
3 4 = (3 2) 2 sqr (sqr (x)) x = 3 81

Функция abs (x) вычисляет абсолютную величину (модуль) значения аргумента.

Математическая запись Запись на Паскале значения переменных результат
| 12 | abs (12) 12
| -12 | abs (-12) 12
| x + y | abs (x + y) x = 3, y = -5 2
| x | + | y | abs (x) + abs (y) x = 3, y = -5 8

Стандартные процедуры для ввода и вывода данных

Большинство программ предусматривают введение (например, с клавиатуры) пользователем определенных данных и вывода результатов работы (в частности, на экран монитора).

Язык Паскаль предоставляет все необходимые средства для реализации ввода и вывода в программах. В предыдущем параграфе для этого были использованы процедуры Readln и Writeln.

Рассмотрим подробнее работу этих и других процедур.

Ввод данных обеспечивается вызовом процедур Read и Readln.Если предусматривается введение нескольких значений (например, Read (a, b, c)), то их можно ввести в одной строке, отделяя «пропуском», а в конце нажать Enter.

Читать  Операционная система Linux – Начало работы, Запуск приложений, Nautilus, удаление программ

Можно вводить каждое значение отдельно, нажимая каждый раз Enter.Переменные получают свои значения последовательно: сначала a, затем b и последней — c.

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

Для вывода сообщений, значений переменных и выражений используют процедуры Write и Writeln.Действие процедуры Writeln отличается тем, что после вывода курсор переводится на новую строку.

Все параметры процедуры вывода разделяются запятыми.

Пример при a = 2, b = 3

Writeln (a, b) на экране: 23 Writeln ( ‘a =’, a); на экране: а = 2 Writeln ( ‘a =’, a, ‘b =’, b); на экране: а = 2b = 3 Writeln ( ‘a + b =’, a + b) на экране: a + b = 5

Для получения результатов в виде таблиц, колонок используют отформатировано вывода. При этом после элемента списка вывода через двоеточие указывается количество позиций на экране для вывода ее значение.

Если позиций больше чем нужно, то они заполняются пробелами слева от значения.

пример

Writeln (a: 5, b: 3); на экране: 2 3 Создать

Writeln ( ‘a + b =’, a + b: 4); на экране: a + b = 5

Процедура вывода Writeln без параметров используется для перевода курсора на новую строку и вывод пустых строк.

пример

Составить программу для вычисления значения выражения y = | х2-2 | +3.  Значение переменной х ввести с клавиатуры.

Решение Program Example; Var x, y: integer; Begin

Write ( ‘x =’); Readln (x) y = abs (sqr (x) -2) +3;

Writeln ( ‘y =’, y)

End.

Вопросы для компьютерного тестирования:

1. Какие правила записи арифметических выражений языке Паскаль?

2. Запишите выражение у = | х | языке программирования Паскаль.

3. Запишите выражение z = | х-2 | + 3х 8 языке программирования Паскаль.

4. Запишите выражение a = 6b 2 + | b-3 | 3 -15 языке Паскаль.

5. Что значит команда Writeln ( ‘a, b =’)?

6. Действия выполняются командой Readln (a, b)?

7. С помощью какой функции вычислить квадрат числа х?

8. Какие процедуры обеспечивают ввод данных?

9. Какие процедуры обеспечивают вывод данных?

10. Чем отличается команда Writeln от Write? 

Упражнение 3 «« Составление линейных программ »»

Займы рабочее место. Подготовь компьютер к работе. Загрузка программу TEST-W2.Открой из папки 7-КЛАСС тест под названием УРОК-2-3.Укажи фамилию, имя и класс. Ответь на вопросы теста до получения оценки. Сообщения оценку учителю. Завершите работу с программой TEST-W2.

1. Загрузка программу Алгоа.Склады программу для вычисления выражения y = 3×2 + 12x-5, значения х вводится с клавиатуры. Образец программы смотри в левой колонке. В правой колонке запиши краткие пояснения к каждой команды.  Запусти программу для х = 3, запиши результат y =               .Сохрани программу под названием Упражнение-3А в собственную папку. (До 3 баллов)

Program Фамилия;

Var

x, y: integer; Begin

Write ( ‘x =’); ReadLn (x) y = 3 * sqr (x) + 12 * x-5; WriteLn ( ‘y =’, y) end.

2. Измените программу для вычисления выражения z = (a + b) c 2 16, значение a, b, c вводятся с клавиатуры.Испытай программу для a = 3, b = 4, c = 7, запиши результат z =               .командой записать как … сохрани программу под названием Упражнение-3Б в собственную папку. (До 3 баллов)

 

Урок 4.Целый и логический типы данных. оператор ветвления

Простые типы данных

Чтобы описать переменную, необходимо отметить ее тип.

Тип переменной определяет набор значений, которые она может принимать, форму записи их в памяти и операции, которые могут быть с ней выполнены. Типы делятся на простые и сложные.

Переменная простого типа всегда содержит один элемент данных (число, букву и т.п.

Переменная сложного типа представляет собой таблицу значений одного типа (массив) или набор полей различных типов (запись).

К простым типов в АЛГО относятся:

 

    • целый тип integer;
    • логический тип boolean;
    • символьный тип char;
    • действительный тип real.

 

Все простые типы, кроме действительного, является порядковыми.

Тип называют порядковым, если все его значение можно пронумеровать целыми числами.

Целый тип данных

Переменная целого типа может принимать значения из диапазона от -2147483648 до 2147483647 и занимает в памяти 4 б.

Пример описания:

var a, k, D1, D2: integer;

К данным целого типа можно применять операции:

«+» — сложение, «-» — вычитание, «*» — умножение, «/» — деление и некоторые другие.

Примечание.Поскольку при делении одного целого числа на другое не всегда получается целое число, то присваивать результат операции деления переменной целого типа нельзя.

Есть две операции, которые применяют только к данным целого типа и получают целочисленный ре- пап: div — целая часть от деления; mod — остаток от деления.

пример

19 div 4 = 4; 19 mod 4 = 3;
12 div 4 = 3; 12 mod 4 = 0;
-21 div 4 = -5; -21 mod 4 = 1;
-7 div (-4) = 1; -7 mod (-4) = -3.

 

Логический тип

При составлении программ, кроме математических, можно вычислять значения логических выражений. Переменные логического типа могут приобретать только одного из двух значений — False (ложный или Нет) и

True (истинный или Да).

Переменные логического типа получают значение в результате выполнения операций сравнения (отно- шение):

«<» (Меньше), «>» (больше), «<=» (меньше или равно)

«> =» (Больше или равно), «<>» (не равно), «=» (равно).

Результат операции отношение равно True, если отношение удовлетворяется для значений операндов, входящих в него, и False — в противном случае.

Пример описания переменных логического типа:

var m1, m2, dd: boolean;

Логическое выражение может быть простым (например, x> 5) или составным.Составленные выражения утворю- ются из простых с помощью логических операций and, or, not (и, или, не).

Пример (x> = a) and (x <= b)

(X> a) or (x> b) not (x> a)

Логическая операция and имеет истинный результат в том случае, когда оба логические выражения истинны.

Логическая операция or имеет истинный результат в том случае, когда истинный хотя бы один логич- ной выражение.

Логическая операция not всегда дает результат, противоположный значению выражения.

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

Арифметические и логические операции имеют следующий приоритет: not — (унарный)

and, * /, div, mod or, xor, +, —

операции отношения.

Порядок выполнения операций регулируется скобками.

В языке Паскаль нельзя вводить логические данные с помощью оператора Read. Однако предусмотрен вывод значений переменных логического типа с помощью оператора Write.

Выполнение оператора ветвления начинается с вычисления значения логического выражения,

записанного в условии.

Если условие истинно, то выполняется <команда 1>, в противном случае — <команда 2>.

Если на месте одной команды нужно записать несколько, то они объединяются служебными сло- вами Begin-End.

пример №1

Вывести на экран большее из двух данных чисел.

Решение

Program Example; Var x, y: integer; Begin

Write ( ‘x, y =’); Readln (x, y)

If x> y Then Writeln (x)

Else Writeln (y)

End.

Обратите внимание на то, что перед служебным словом Else точка с запятой не ставится. Алгоритм этой задачи показано на рисунке.

Неполная форма оператора ветвления имеет вид:

Ветка Else может отсутствовать, если при невико- ние условия ничего делать не нужно.

Например, если значение переменной — х меньше 0, то заменить его на противоположное. Задача решается с помощью неполной формы оператора:

If х <0 Then х = — х;

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

If х <0 Then; х = — х;

В таком случае команда х = — х не является частью условного оператора If-Then, и будет выполнена обязательно.Говорят, что в ветке Then записан пустой оператор.

пример №2

Написать программу для проверки, принадлежит целое число, введенное с клавиатуры, интервала 0,5 .

Решение

Обозначим через х число, которое вводится с клавиатуры пользователем.По условию х — это переменная целого типа.Число х принадлежит заданному интервалу [0, 5] только в том случае, если одновременно выполняются два условия: (х> = 0) и (х <= 5).Поэтому для образования сложной условия воспользуемся логической операцией and.

Program Example;

Var x: integer;

Begin

Write ( ‘x =’); Readln (x) If (x> = 0) and (x = <5)

Then Writeln (x, ‘принадлежит’) Else Writeln (x, «не принадлежит ‘);

End.

Вложенные операторы ветвления

При решении задач часто рассматривается не два, а больше вариантов. Это можно сделать, используя последовательно несколько условных операторов. В этом случае после служебных слов Then и Else может записываться новый условный оператор.

пример №3

Даны целые числа а, b, c. Если а <= b <= c, то все числа заменить их квадратами. Если a> b> c, то каждое число заменить наибольшим из них, в других случаях — изменить знак каждого из чисел.

Решение

Условие задачи перепишем так:

если a <= b <= c, то a = a 2, b = b 2, c = c 2; если a> b> c, то a = c, b = c,

в остальных случаях: a = — a, b = — b, c = — c.

Program Example;

Var a, b, c: integer;

Begin

Writeln ( ‘Введите числа a, b, c’); Readln (a, b, c)

If (a <= b) and (b <= c)

Then begin

a = SQR (a) b = SQR (b) c = SQR (c)

end

Else if (a> b) and (b> c) Then

begin

a = c; b = c

end

Else begin

a = — a; b = — b; c = — c

end;

Writeln (a 3, b 3, c: 3)

End.

Примечание.Если вложенными условными операторами являются неполные условные операторы, то могут возникать проблемы, связанные с установлением границ условных операторов. В таких случаях служебное слово Else относится к ближайшему Иf.

Вопросы для компьютерного тестирования:

1. Типы принадлежат к простым типам данных в АЛГО?

2. Каких значений могут приобретать сменные целого типа и операции с ними можно выполнять?

3. Определить значение логического выражения: (-3> = 5) or (7 <9) and (0> 3).

4. Записать последовательность операторов для нахождения неполного частного и остатка от деления целого числа а на целое число b.

5. Какие союзы используются в сложных отношениях?

6. Каким может быть результат логической операции отношения?

7. После выполнения операторов

а = 0;

if a <> 0 then; a = 2;

значение переменной а равно 2. Объясните почему.

8. Используя составной оператор, упростите такой фрагмент программы:

If a> b then c: = 1; If a> b then d = 2; If a <= b then c: = 3; If a <= b then d = 4;

9. Каким будет значение переменной а после выполнения операторов:

a = 3;

if a <4 then Begin a = a + 2; a = a + 3 End.

10. Запишите условный оператор, в котором значение переменной вычисляется по формуле a + b, если а — нечетное, а * b, если а — парное.

Упражнение 4 «Целый и логический типы данных. Условный оператор »

Займы рабочее место. Подготовь компьютер к работе. Загрузка программу TEST-W2.Открой из папки 7-КЛАСС тест под названием УРОК-2-4.Укажи фамилию, имя и класс. Ответь на вопросы теста до получения оценки. Сообщения оценку учителю. Завершите работу с программой TEST-W2.

1. Загрузка программу Алгоа.Склады программу для нахождения большего из двух введенных с клавиатуры целых чисел с приведенным образцом. В правой колонке запиши краткие пояснения к каждой команды. Запусти программу для таких значений переменных: а = 1, b = 3; а = 3, b = 1; а = 1, b = 1. Сохрани программу под названием Упражнение-4А в собственную папку. (До 3 баллов)

Program Фамилия; Var a, b: integer; Begin

WriteLn ( ‘Введите числа a, b’); ReadLn (a, b)

If (a> b) then

WriteLn (a)

else

WriteLn (b)

end.

2. Измените программу для нахождения большего из трех чисел. Выполни программу для произвольных значений переменных. Сохрани программу под названием Упражнение-4Б в собственную папку. (До 3 баллов)

 

Урок 5.оператор выбора

Оператор выбора (варианта) можно рассматривать как обобщение условного оператора. Он позволяет сделать выбор из нескольких вариантов в зависимости от значения переменной.

Выполнение оператора выбора начинается с вычисления выражения, должен иметь значение порядкового типа.

Формат записи оператора варианта таков:

Case <порядковая переменная или выражение> of

<Константа 1>: <оператор 1>;

<Константа 2>: <оператор 2>;

<константа n>: <оператор n>; [Else <оператор>; ]

End;

или

Выбор <порядковая переменная или выражение> с

<Константа 1>: <оператор 1>;

<Константа 2>: <оператор 2>;

<константа n>: <оператор n>; [Иначе <оператор>; ]

конец;

В случае, когда результат вычисления равен одной из перечисленных констант, выполняется соответствующий оператор. Затем управление передается за пределы оператора выбора.

Если значение выражения не совпадает ни с одной из констант, то выполняется оператор, стоящий после Else, если он есть, или управление передается оператору, следующего за End.

Примечания

1. Тип каждой из констант должен совпадать с типом выражения. Можно задавать не только одну константу, но и список констант (см. пример).

2. Ветка Else содержится в квадратных скобках.Это означает, что эта часть оператора выбора не обязательно.

3. В конструкции выбора (в отличие от условного оператора) перед Else ставится точка с запятой.

4. В качестве операторов могут использоваться и составлены операторы.

пример

Пусть при тестировании ученик получил N баллов из 20 возможных. Нужно вывести сумму баллов с коротким комментарием.

Решение Program оценка; Var N: integer; Begin

Write ( ‘Введите N-‘);

ReadLn (N) Case N of

20: WriteLn ( ‘Лучше НЕ бывает!’); 19,18,17 : WriteLn ( ‘Отлично!’); 16,15,14,13: WriteLn ( ‘Хорошо.’); 12,11,10,9: WriteLn ( ‘Уд.’); 8,7: WriteLn ( ‘Еще немного, и было бы хорошо.’);

else

WriteLn ( ‘Нужно поработать!’) End;

WriteLn ( ‘Сумма баллов — «, N 2,» из 20 возможных’);

end.

Вопросы для компьютерного тестирования:

1. В каких случаях используется оператор выбора?

2. Какой общий формат записи оператора выбора?

3. Каких правил нужно придерживаться, используя оператор выбора при решении задач?

4. Каким должен быть тип констант?

5. Что значит, когда ветвь Else содержится в квадратных скобках?

6. Которая ставится перед веткой Else?

Упражнение 5 «Оператор выбора»

Займы рабочее место. Подготовь компьютер к работе. Загрузка программу TEST-W2.Открой из папки 7 класс тест под названием УРОК-2-5.Укажи фамилию, имя и класс. Ответь на вопросы теста до получения оценки. Сообщения оценку учителю. Завершите работу с программой TEST-W2.

1. Загрузка программу Алгоа.Склады программу по указанному образцу. Запусти для различных значений переменной N. В правой колонке запиши краткие пояснения к каждой команды. Сохрани программу под названием Упражнение-5А в собственную папку. (До 3 баллов)

Program Фамилия;

Var N : integer;

Begin

Write ( ‘Введите N — ‘);

ReadLn (N)

Case N of               1,2,3,4,5: WriteLn ( ‘Рабочий день ‘);               6,7: WriteLn ( ‘Исходный день ‘);               else

WriteLn ( ‘Неправильные данные’) ;

end;

end.

2. Склады программу для определения времени года и названия месяца по номеру месяца. Если введенный номер не принадлежит промежутке от 1 до 12 — выведи сообщение об ошибке.Сохрани программу под названием Упражнение-5Б в собственную папку. (до 3 баллов)

 

Урок 6.Практическая работа 1 «Программы по разветвлением»

1. Подчеркни операторы, которые записаны правильно: (до 2 баллов)

a) if x> <0 then y = x-2 else y = x + 2,

b) if x = 0 then y: = 1024 else y = x-1024;

c) if (x = 0) or (y <> 0) then y = x;

d) if x = 0 and a> 0 then b = a else b = x;

2. Запиши на языке Паскаль следующее: если число является четным, то выведи «Да», иначе — выведи «Нет». (До 2 баллов)

3. Запиши на языке Паскаль формулу: (до 2 баллов)

 

 

 

 

4. Подготовь компьютер к работе. Загрузка программу Алгоа.Дополни программу Упражнение-2Б для вычисления периметра треугольника проверкой корректности введенных данных: в треугольнике сумма длин любых двух сторон должна быть больше, чем длина третьей стороны.Сохрани программу под названием Работа-6А в собственную папку. (До 3 баллов)

5. Дано число N (N <= 100), которое обозначает возраст человека.  Добавь к этому числу одно из слов: «Год»,

Читать  Методические указания к выполнению лабораторных работ Информатика

«Годы», «лет» в соответствии с нормами украинского языка. Например: 1 год, 12 лет, 52 года. Сохрани программу под названием Работа-6Б в собственную папку. (До 3 баллов)

 

Урок 7.Операторы повторения. Цикл с параметром

При составлении программ часто возникает необходимость многократно повторить один и тот же набор команд.В таких случаях применяются операторы повторения (циклические операторы), а команды повторяющихся называют телом цикла.

В зависимости от того, известна заранее количество повто- ний, различают цикл с параметром и циклы с условием.

Оператор цикла с параметром применяют тогда, когда заранее известно число повторений определенной последовательности опе- раторов.

Для подсчета количества повторений вводится зминна- параметр одного из порядковых типов (integer, boolean, char и т.д.).

Есть две формы записи цикла с параметром:

Где А — начальное значение параметра, В — конечное значение параметра, тело цикла — оператор

(Простой или составной).

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

Рассмотрим выполнение оператору цикла с параметром вида

For <параметр> = A to B do <тело цикла>;

Сначала вычисляются значения выражений А и В.

Если А ≤ В, то переменная-параметр последовательно принимает значения равных А, А + 1, …, В-1, В (т.е. с шагом 1) и для каждого из этих значений выполняется тело цикла.Если в начале А> В, то тело цикла не будет выполнено ни одного раз.

В случае, когда параметр цикла нужно уменьшать, используется вторая форма оператора со служебным словом downto.Цикл выполняется так же, но значение параметра меняется с шагом, равным 1.

Если нужно повторить несколько операторов, то они объединяются служебными словами Begin-

End.

пример №1

Из чисел от 10 до 99 вывести те, сумма цифр которых равна N (0 <N≤18).

Решение

Обозначим через k очередной номер, р1 — старшую цифру числа k, р2 — меньшую цифру числа k, S — сумму.

Число k будем печатать только в том случае, когда сумма Р1 и Р2 равно S.

 

Program Example;

Var k, N, p1, p2, S: integer;

Begin

Write ( ‘N =’); Readln (N)

For k = 10 to 99 do

Begin

p1 = k div 10; {выделяем старшую цифру} p2 = k mod 10 {выделяем младшую цифру} S = p1 + p2; {Находим сумму цифр}

If S = N then writeln (k)

End

End.

В этой программе цикл можно было записать короче:

For k = 10 to 99 do

If k div 10 + k mod 10 = N then writeln (k)

Проанализируйте его работу самостоятельно.

пример №2

Найти все двузначные числа, делящиеся на N или содержат цифру N.

Решение

Если двузначное число удовлетворяет условию задачи, то для него выполняется хотя бы одно из трех условий: первая цифра равна N (p1 = n) или вторая цифра равна N (p2 = n), или само число делится на N (k mod n = 0).

Какую логическую операцию необходимо использовать для объединения этих простых условий в сложенную?

Вопросы для компьютерного тестирования:

1. В каких случаях используются операторы повторения?

2. Какие особенности записи цикла с параметром?

3. К какому типу данных принадлежит переменная параметра цикла?

4. В каких случаях при составлении цикла используются служебные слова Begin-End?

5. Сколько раз будет выполнено тело цикла во фрагменте программы ::

For k = — 1 to 1 do …

6. Сколько раз будет выполнено тело цикла во фрагменте программы ::

k = 5; r = 15;

For i = k + 1 to r-1 do

7. Сколько раз будет выполнено тело цикла во фрагменте программы ::

k = 5; r = 15;

For i = 0 to k * r do …

8. Сколько раз будет выполнено тело цикла во фрагменте программы ::

k = r;

For i = k to r do …

9. Определить значение переменной S после выполнения следующих операторов: S: = 0; N = 10;

For i = 2 to N do S = S + 100 div i;

10. Проверьте работу данной программы на компьютере. Проанализируйте использование оператору цикла с параметром:

Program Demo; Var c: boolean; Begin

For c = false to true do writeln (c)

End.

Упражнение 7 «Оператор повторения. Цикл с параметром »

Займы рабочее место. Подготовь компьютер к работе. Загрузка программу TEST-W2.Открой из папки 7-КЛАСС тест под названием УРОК-2-7.Укажи фамилию, имя и класс. Ответь на вопросы теста до получения оценки. Сообщения оценку учителю. Завершите работу с программой TEST-W2.

1. Загрузка программу Алгоа. Склады программу для нахождения суммы натуральных чисел из промежутка от 1 до 100, что делятся нацело на введенное с клавиатуры число N. Выполни программу. В пра- вом столбце запиши краткие пояснения к каждой команды. Сохрани программу под названием Упражнение-7А в собственную папку. (До 3 баллов)

 

Program Фамилия; Var k, N, S: integer; Begin

Write ( ‘N =’); Readln (N) S: = 0;

For k = 1 to 100 do

If k mod N = 0 then S = S + k; Writeln ( ‘S =’, S);

End.

2. Склады программу для нахождения всех двузначных чисел, делящихся на N или содержат цифру N (объяснение к задаче см. В учебнике). Сохрани программу под названием Упражнение-7Б в собственную папку. (До 3 баллов)

 

Урок 8.Практическая работа 2 «Программы с повторением»

1. Подготовь компьютер к работе. Загрузка программу Алгоа.Напиши программу для нахождения всех делителей натурального числа А, введенного с клавиатуры. Запусти программу. Сохрани программу под названием Работа-8А в собственную папку. (До 3 баллов)

2. Дополни программу по п. 1, чтобы находилась сумма делителей введенного числа А. Запусти программу. Сохрани программу под названием Работа-8Б в собственную папку. (До 3 баллов)

3. Дополни программу по п. 1, чтобы находилась количество делителей заданного числа А.  Запусти программу. Сохрани программу под названием Работа-8Б в собственную папку. (До 3 баллов)

4. Дополни программу для проверки, есть ли введенное число А простым. Запусти программу. Сохрани программу под названием Работа-8 в собственную папку. (До 3 баллов)

 

Урок 9.Цикл с предусловием

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

Оператор цикла с предусловием имеет вид:

While <условие> Do <тело цикла>; или

Пока <условие> Выполнить <тело цикла>;

Выполнение оператора цикла с предусловием начинается с проверки

условия, записанной после слова While. Если она выполняется, то выполняется тело цикла, затем снова проверяется условие и т.д.

Если во время очередной проверки выяснится, что условие не выполняется, то тело цикла виконувати- ся не будет. Управление перейдет к оператору, после цикла.

Примечания

1. Если тело цикла состоит из нескольких операторов, то они объединяются служебными словам

Begin-End.

2. В теле цикла обязательно должен быть оператор, влияет на истинность условия, иначе станеть- ся зацикливания: операторы тела цикла будут повторяться «Вечно».

пример №1

Подсчитать количество цифр заданного натурального числа n.

Решение

Ранее мы выделяли цифры двузначных и трехзначных чисел. В этом же случае мы не знаем сколько цифр должно число.

Поэтому, пока число не станет равно 0, будем выполнять такую ​​последовательность команд: збильшува- ты счетчик количества цифр числа на единицу, а число уменьшать в 10 раз (с помощью целочисленного деления избавляться последней цифры числа).

Program Example;

Var m, n, k: integer;

Begin

Write ( ‘Введите натуральное число:’); Readln (n)

m = n; {Копируем введено число}

k = 0; {Переменная-счетчик количества цифр} While m <> 0 Do

Begin

k = k + 1; {Увеличиваем счетчик цифр} m = m div 10 {отвергаем последнюю цифру}

End;

Writeln ( ‘В числе «, n,’ — ‘, k,’ цифр ‘)

End.

Работу этой программы интересно наблюдать в пошаговом режиме выполнения, следя за изменением значений m и k.

пример №2

Подсчитать сумму цифр заданного натурального числа n.

Решение

Чтобы решить эту задачу, достаточно сделать незначительные изменения в предыдущей программе. Нужно, по-прежнему отделять последнюю цифру числа, но перед этим ее нужно запоминать в дополнительную переменную (например, а) и добавлять к сумме S.

Фрагмент программы: While m <> 0 Do

Begin

 

 

 

 

End;

a = m mod 10; s = s + a; m = m div 10

 

 

Вопросы для компьютерного тестирования:

1. В каких случаях используется цикл с предусловием и какие особенности его записи?

2. В данном фрагменте программы вычисления количества цифр числа а найдите ошибку и исправьте ее.

ck = 0;

While a> = 0 Do

Begin

ck = ck + 1; a = a div 10

End;

3. Дана последовательность операторов:

a = 1; b = 1;

While a + b <8 Do

Begin a = a + 1; b = b + 2 End; s = a + b;

Сколько раз будет повторяться тело цикла? Какими будут значения переменных а, b и s после выполнения этой последовательности операторов?

4. Какими будут значения переменных а и b после выполнения последовательности операторов:

a = 1; b = 1;

while a <= 3 Do a = a + 1; b = b + 1;

5. Найдите значение переменной s после выполнения следующих операторов:

а) s = 0; i = 0;

While i <5 Do i = i + 1; s = s + 100 div i; б) s = 0; i = 0;

While i> 1 Do

Begin s = s + 100 div и; i = i-1 End;

6. Каким условиям должно удовлетворять значение переменной k, чтобы такие циклы были бесконечными:

а) While c <0 Do c = c + k; б) While k <> 0 Do k = k + 1; в) While k <> 0 Do k = k + 2,

 

Упражнение 9 «Цикл с предусловием»

Займы рабочее место.  Подготовь компьютер к работе.  Загрузка программу TEST-W2.Открой из папки 7-КЛАСС тест под названием УРОК-2-9.Укажи фамилию, имя и класс. Ответь на вопросы теста до получения оценки. Сообщения оценку учителю. Завершите работу с программой TEST-W2.

1. Загрузка программу Алгоа. Склады программу, которая будет определять количество чётных цифр в натураль- ном числе N, введенному с клавиатуры. Испытай программу. В правой колонке запиши краткие пояснения к каждой команды. Сохрани программу под названием Упражнение-9А в собственную папку. (До 3 баллов)

Program Фамилия;               Var Ost, N, k: integer;               Begin

Write ( ‘N =’);

Readln (N)

k = 0;

While N <> 0 Do

Begin

Ost = N mod 10;               If Ost mod 2 = 0 Then k = k + 1;               N = N div 10;

End;               Writeln ( ‘Четным цифр — «, K)               End.

2. Изменения программу так, чтобы находилась самая большая цифра целого числа N, введенного с клавиатуры. Сохрани программу под названием Упражнение-9Б в собственную папку. (До 3 баллов)

 

Урок 10.Цикл с постусловием

Оператор цикла с постусловием имеет следующий вид:

или

Этот оператор отличается от цикла с предусловием тем, что проверка условия производится после очередного выполнения тела цикла. Это обеспечивает выполнение тела цикла хотя бы один раз.

Обратите внимание на то, что данный оператор цикла предполагает наличие нескольких операторов в теле цикла, поэтому служебные слова Begin i End не нужны.

Порядок выполнения цикла с постусловием таков: выполняется последовательность операторов, составляющих тело цикла, после чего проверяется условие, записанное после служебного слова Until.Если условие выполняется, то цикл завершается.

В противном случае операторы тела цикла выполняются еще раз, после чего снова перевиря- ется выполнения условия.

пример

Составить программу для планирования покупки в магазине товаров на сумму, не превышающую заданную величину.

Решение

Обозначим через x и k цену и количество товара, через p — заданную предельную сумму, через s — стоимость покупки.

Начальное значение общей стоимости покупки s равна нулю. Значение предельной суммы вводится с клавиатуры.

 

Необходимо повторять запрос цены и количества выбранного товара, определять его стоимость, добавлять ее в общую стоимость и выводить результат на экран до тех пор, пока стоимость не превысит предельную сумму p.

Рrogram Exemple;

Var x, k, p, s: integer;

Begin

Write ( ‘Предельная сума—‘); Readln (P);

S: = 0;

Repeat

Write ( ‘Введите цену товара и количество:’); Readln (x, k)

S = s + k * x;

Writeln ( ‘стоимость покупки равна’, s) Until s> p;

Writeln ( ‘стоимость покупки превысила предельную сумму!’);

End.

Вопросы для компьютерного тестирования:

1. В каких случаях используется цикл с постусловием и какие особенности его записи?

2. В чем сходство и различие циклов с условиями?

3. Выберите правильную ответ.

При выполнении оператора повторения Repeat

а) сначала вычисляется логическое выражение и в зависимости от результата, выполняются или не выполняются операторы тела цикла;

б) сначала выполняются операторы тела цикла, затем вычисляется логическое выражение, результат которого влияет на повторное выполнение операторов.

4. Определить значение переменной s после выполнения следующих операторов:

s: = 0; i: = 1;

Repeat

s = s + 5 div и; i = i-1

Until i <= 1;

5. Что будет напечатано в результате выполнения такой последовательности операторов:

i: = 1;

repeat

write (i, »); i = i + 2

until i> 19;

6. Определить значения переменных s и и после выполнения таких операторов:

S: = 0; i: = 1;

repeat

S = S + i;

i = i + 1 until i> 10;

Упражнение 10 «Цикл с постусловием»

Займы рабочее место. Подготовь компьютер к работе. Загрузка программу TEST-W2.Открой из папки 7-КЛАСС тест под названием УРОК-2-10.Укажи фамилию, имя и класс. Ответь на вопросы теста до получения оценки. Сообщения оценку учителю. Завершите работу с программой TEST-W2.

1. Для вычисления наибольшего общего делителя (НОД) двух чисел уже более 20 веков известен алгоритм, предложенный древнегреческим математиком Евклидом алгоритм Евклида.Идея алгоритма: числа сравнивают и больше из них заменяют разницей этих чисел. Это действие повторяют до тех пор, пока число не станут равными. Полученный результат и является искомым НОД двух чисел. Фрагмент программы для реализации алгоритма имеет вид:

Readln (A, B) Repeat

If A> B then A = AB else B = BA; until A = B;

WriteLn ( ‘NSD =’, A)

Загрузка программу Алгоа.Напиши программу, которая находит НОД двух чисел и испытай ее для следующих значений:

а) А = 12, В = 6; б) А = 8, В = 10; в) А = 5, В = 7.

Сохрани программу под названием Упражнение-10А в собственную папку. (до 3 баллов)

2. Напиши программу для нахождения НОД трех целых чисел, учитывая, что НОД (А, В, С) = НОД (НОД (А, В), С).      Запусти программу для таких значений:

а) А = 12 В = 6, С = 15; б) А = 21, В = 14 С = 35.

Сохрани программу под названием Упражнение-10Б в собственную папку. (До 3 баллов)

 

Урок 11.Практическая работа 3 «Программы с повторением и разветвлением»

1. Напиши значение переменной S, которого она приобретет после выполнения таких операторов :. (До 2 баллов) 1) s = 2; i = 0;

while i <5 do i = i + 1; s = s + 1 / i;

2) s = 5; i: = 1;

while i> 1 do begin s: = s + 1 / i; i = i-1 end;

3) s = 1; i: = 1;

while i <4 do begin i: = i + 1; s = s * i end;

2. Напиши значение переменной S, которого она приобретет после выполнения таких операторов: (до 2 баллов)

1) s = 4; i: = 1;

repeat s = s + 1 / i; i = i-1 until i <= 1;

2) s = 2; i: = 1;

repeat s = s + 1 / (i + 1); i = i + 3 until i> = 5,

3) s = 1; i: = 1;

repeat i = i + 1; s = s + i until i> 3;

3. Напиши значение переменной S, которого она приобретет после выполнения таких операторов: (до 2 баллов)

1) s: = 0; for i = 10 downto 6 do s = s + 1,

2) s = 0; for i: = 8 to 3 do s = s + 1,

3) s = 1; for i: = 2 downto 10 do s = s + 1,

4. Подготовь компьютер к работе. Загрузка программу Алгоа. Напиши программу для нахождения произведения цифр натурального числа N, введенного с клавиатуры. Сохрани программу под названием Работа-2-11 в собственную папку. (до 3 баллов)

5. Напиши программу для проверки, содержит натуральное число N цифру А (значения переменных N и А вводятся с клавиатуры). Сохрани программу под названием Работа-2-11Б в собственную папку. (до 3 баллов)

 

 

 

содержание

Алгоритмы с повторением и разветвлением 2

Читать  Информатика Конспект лекций Для студентов – Windows, язык программирования Turbo Pascal 7

Урок 1.              Учебное программную среду АЛГО 2

Упражнение 1 «Среда программирования АЛГО »3

Урок 2.              Основные элементы Паскаль 4

Упражнение 2 «Основные элементы языка Паскаль »6

Урок 3.              Составления линейных программ 6

Упражнение 3 «« Составление линейных программ »» 8

Урок 4.              Целый и логический типы данных. Оператор ветвления 8

Упражнение 4 «Целый и логический типы данных. условный оператор »11

Урок 5.              Оператор выбора 12

Упражнение 5 «Оператор выбора »13

Урок 6.              Практическая работа 1 «Программы по разветвлением» 13

Урок 7.              Операторы повторения. Цикл с параметром 14

Упражнение 7 «Оператор повторения. цикл с параметром »15

Урок 8.              Практическая работа 2 «Программы с повторением» 16

Урок 9.              цикл с предпосылкой 16

Упражнение 9 «Цикл с условием »18

Урок 10.   цикл с постусловием 18

Упражнение 10 «Цикл с постусловием »19

Урок 11.   Практическая работа 3 «Программы с повторением и разветвлением »20

 

Пособие может использоваться в 5-7 классах основной школы, имеет 11 уроков: 8 уроков

— теоретический материал с упражнением каждого урока и 3 урока — практические работы. Упражнения и практические работы рассчитаны на индивидуальное исполнение во время урока.

Упражнения предназначены для закрепления теоретического материала и отработки со- от них практических навыков текущего урока. Упражнение продолжительностью до 25 мин. выполняется на каждом уроке. Выполняя упражнение, ученик может заработать оценку 12 баллов: 6 баллов за знание теории + 6 баллов за выполнение практических задач.

Знание теории при выполнении упражнений оцениваются с помощью контрольно-диагностической системы Test-W2, настроенной на 6-балльную шкалу. Используются тесты, подготовленные для 7 класса. Их можно бесплатно скачать на сайте https://aspekt.in.ua/

Практические работы предназначены для формирования и закрепления теоретических знаний и практическую навыков, полученных в течение нескольких уроков. Для практической работы отводится отдельный урок. Выполняя практическую работу ученик может заработать 12 баллов за работу на компьютере, знание теории при этом не проверяется.

Для оценки практических навыков в упражнениях и практических работах предлагаются задания, при выполнении которых ученик выполняет определенные действия, вписывая при необходимости ответы в места, обозначены «               ».За каждое задание, в зависимости от сложности, можно получить: до 2 баллов, до 3 баллов или до 6 баллов.

 

Алгоритмы с повторением и разветвлением

 

Урок 1.   Учебное программную среду АЛГО 1

В среде АЛГО реализована язык программирования Паскаль, разработанная Никлаус Вирт в 1968-1970 годах специально для обучения программированию и которая получила признание благодаря наглядности программ и легкости изучения.

В 1984 году на рынке программных продуктов появилась система программирования Турбо Паскаль фирмы Borland, стало настоящей революцией в программировании.

Турбо Паскаль предоставлял удобную среду, которое обеспечивало работу с текстом, отладки и запуск программ.

Для запуска разработанной про- граммы необходима специальная программа — компилятор, который пере- кладае эту программу на языке команд процессора, и текстовый файл, в котором записана сама программа.

Чтобы подготовить такой файл, нужно воспользоваться текстовым редактором. Кроме того, нужно иметь возможность запустить программу на пошаговое выполнение, иметь средства для работы с файлами, просмотра промежуточных результатов тому подобное.

Все эти средства, собранные вместе, называют системой программирования, а элементы, отображающие выполняемые действия (окна, меню, кнопки) и обеспечивают необходимые сервисные возможности для программиста,

средой программирования.

Общий вид главного окна среды программу- ния АЛГО приведен на рисунке страницу).

АЛГО позволяет отображать команды программы одной из двух языков — английском или украинском. Для перехода на английский язык, нужно нажать кнопку с английским флагом, а на украинском — с украинским, или нажав на клавиатуре клавиши Ctrl + E и Ctrl + U соответственно.

АЛГО предоставляет возможность автоматического упорядочения текста программы (записи каждого оператора с новой строки, отступлений перед вложенными операторами и т.д.).  Для выполнения этой операции следует выбрать в меню команду Редактирование / Сортировать (F4).

Для более быстрого набора программы предусмотрена возможность вставлять в текст операторы, описания и других конструкции, которые можно выбирать из меню Шаблоны.

Это же меню можно активизировать клавишей F10 или нажатием правой кнопки мыши в режиме редактирования программы.Выбранный текст вставляется в программу на место положения курсора.Этим меню пользуются также, чтобы выбрать цвет для команд.

Загрузка и сохранение программ

Для того, чтобы прочитать (скачать) текст программы с диска, нужно выбрать команду меню Файл / Прочитать.При этом будет открыто стандартное окно для выбора файла, в котором следует указать папку и искомый файл.

Для того, чтобы создать новый файл, нужно выбрать пункт Файл / Новый в меню.Если те- на программа содержит не сохранены изменения, то будет выведено соответствующее предупреждение.

1 АЛГО создал Василий Петрив http://petriv.ho.com.ua/algo/ м.Львов.

 

 

 

Чтобы сохранить файл, следует выбрать команду меню Файл / Сохранить.Откроется стандартное окно системного диалога для сохранения файла. Если файл уже был записан и вы только вносили изменения, то система автоматически предложит записать его с тем же именем. Сохраняя новый файл, следует обязательно ввести с клавиатуры его имя в соответственно- м поле диалога.

Если при этом указать расширения (.pas, .dat, .txt), то файл будет записан с этим расширением, в другом случае

система автоматически запишет файл с расширением .pas.

Выполнение и отладка программы

Чтобы запустить программу на выполнение, нужно выбрать команду меню Выполнение / Выполнить (F9).Начнется компиляция, которая успешно завершится только тогда, когда в тексте программы нет синтаксических ошибок.

Обнаружив ошибку, компилятор прекращает работу. Строку, в которой прекратилась компиляция, выделяется красным цветом и курсор устанавливается на месте остановки.Исправить ошибку и снова запустить программу.

Если программа скомпилювалася, то начнется ее выполнения. Однако компилятор не может найти логических ошибок (например, если вместо знака добавления написать знак умножения). Кнопкой Stop или клавишей F6 всегда можно прекратить выполнение программы.

Чтобы найти логические ошибки в программе, можно выполнять ее по одному оператору, для чего выбрать пункт Выполнить следующий оператор или Трассировать программу (клавиша F7).

Вопросы для компьютерного тестирования:

1. Опишите общий вид главного окна АЛГО.

2. Прокомментируйте действие основных элементов с панели инструментов.

3. Как загрузить ранее созданную программу?

4. Как сохранить программу?

5. С помощью каких команд программа запускается на выполнения?

6. Какие существуют режимы выполнения программы?

Упражнение 1 «Среда программирования АЛГО»

Займы рабочее место. Подготовь компьютер к работе. Загрузка программу TEST-W2.Открой из папки 7-КЛАСС тест под названием УРОК-2-1.Укажи фамилию, имя и класс. Ответь на вопросы теста до получения оценки. Сообщения оценку учителю. Завершите работу с программой TEST-W2.

1. Загрузка программу Алгоа.Открой готовую программу командой Файл — прочитать — tabl_mnoz.Запусти программу, отвечай на вопросы к получению оценки. (до 2 баллов)

2. Включи украинский язык.  Посмотри работу программы в режиме пошагового выполнения.Введи в текст программы ошибку, попробуй запустить программу. Исправь ошибку. (до 2 баллов)

3. Выбери команду ФайлНовый.Используя меню Шаблоны и клавиатуру, набери такой текст программы:

Program NoName;

Var i, j : integer; Begin

For i: = 1 to 20 do Begin

For j = 1 to 20 do Write (8);

WriteLn; end

end.

Запусти программу. Закрой программу Алгоа.Набранную программу не храни! (До 2 баллов)

Урок 2.Основные элементы языка Паскаль

Алфавит и словарь языка программирования

При написании программы используют знаки, об- ют алфавит языка программирования:

• буквы английского алфавита от A до Z и от a до z;

• буквы украинского алфавита от А до Я и от a до я;

• арабские цифры от до 9;

• пропуск;

• специальные единичные символы: + — * / = <> []. , «():; { }

• специальные пары символов: <=> = (*) <> .

Неделимые последовательности символов образуют слова, несущие в программе определенный смысл. Слова делятся на зарезер- Вован и идентификаторы объектов.

Зарезервированы (служебные) слова является составной частью языка, имеют фиксированное написание и раз и навсегда определенный смысл.

Приведем таблицу зарезервированных слов языка Паскаль и их переводов на украинский язык, используемые при работе АЛГО.

Зарезервированные слова языка Паскаль и их переводы

And и array массив
Begin начало case выбор
const стала div целая часть
do выполнить downto назадДо
else иначе end конец
for для function функция
if если label метка
mod Остаток goto идти к
or или not НЕ
program программа of с
repeat повторять procedure процедура
string строка record запись
then то type Тип
until докинут to к
while пока var переменная

Идентификаторы (имена) используют для обозначения типов, констант, переменных, процедур и функций, встроенных в систему программирования или определенные пользователем.

Идентификатор может иметь произвольную длину, однако учитываются только первые 16 символов. Он не может начинаться с цифры и не должен содержать пробелов. В идентификаторах допускаются буквы, цифры и знак подчеркивания «_».

Приведем несколько примеров идентификаторов:

G, alfa, test17, x2y, _h1, Сума2Чисел, кинець_масиву.

Слова «имя» и «идентификатор» употреблять как синонимы. В АЛГО идентификаторы стандарт-них типов, констант, функций и процедур выделяются в тексте программы красным цветом.

При написании зарезервированных слов и идентификаторов можно использовать как большие, так и малые буквы.

Правила оформления программ

Программа начинается с заголовка, имеет следующий вид:

Program <имя программы>;

Примечание. В этом пособии угловые скобки <…> означают: «здесь следует написать …».В данном случае вместо <имя программы> в заголовке пишут идентификатор программы (см. Примеры ниже).

После заголовка размещаются разделы, в которых описываются все объекты (константы, переменные, типы, процедуры, функции, метки), которые будут использованы в программе.

Раздел операторов начинается со служебного слова Вegin и заканчивается служебным словом Еnd

и точкой.В этом разделе задаются действия над объектами программы, объявленными в разделе описаний.

Операторы в этом разделе отделяются друг от друга точкой с запятой. Так же отделяют друг от друга разделы программы.

пример

Program Example; Var a, b, Sum: integer; Begin

 

End.

Write ( ‘a, b =’); Readln (a, b) Sum = a + b; Writeln ( ‘Sum = ‘, sum);

Имя этой программы — Example.С разделов описания лишь один — раздел описания переменных. Он начи- ется со служебного слова Var, после которого записывают последовательность объявлений переменных, разделенных точкой с запятой.

В каждом объявлении перечисляются через запятую имена переменных одного типа, после чего ставится двоеточие и указывается тип переменных.

В данном примере описано три переменные с идентификаторами a, b и Sum, все они имеют тип

integer, то есть значения переменных этого типа — целые числа (подробнее о типах данных будет далее).

После раздела описаний переменных идет раздел операторов. Он начинается со служебного слова Begin, после которого идут операторы программы.

Writeln ( ‘a, b =’) — вызов стандартной процедуры для вывода на экран текста, содержащегося между апострофами.На экране появится текст a, b =

Следующий оператор — Readln (a, b) — вызов стандартной процедуры для чтения данных с клавиа- туры.В данном случае необходимо ввести два целых числа через пробел (!), Тогда переменная а получит значение, равное первом введенном числу, а переменная b — значение, равное втором введенному числу.

Например, если ввести числа так: а, у = 10 20, то а = 10, а b = 20.

После этих двух операторов стоит оператор присваивания: Sum = a + b (= — это знак оператора присваивания).

Во время выполнения этого оператора переменная Sum примет значение, равное сумме чисел а и b.

Поскольку в результате сложения двух чисел образуется целое число, то переменная Sum

описана как целая.

Следующий оператор — это опять оператор вывода Writeln ( ‘Sum =’, Sum).Он выведет на экран текст, размещенный между апострофами, а за ним — значение переменной Sum.В конце раздела операторов стоит служебное слово End, после которого стоит точка.

Если в АЛГО переключить язык с английского на украинский, то эта программа будет выглядеть так:

Программа Пример; Переменная a, b, Sum: целая; начало

Вывести ( ‘a, b =’); Ввести (a, b) Sum = a + b; Вывести ( ‘Sum =’, sum);

Конец.

В дальнейшем в большинстве примеров мы будем использовать классический запись программ (английсь- кой языке).

Для лучшего понимания текста программ можно пользоваться автоматическим переводом прог рамы, изменяя язык с английского на украинский кнопками панели инструментов.

Вопросы для компьютерного тестирования:

1. Из чего состоят алфавит и словарь языка Паскаль?

2. Что такое зарезервированы слова?

3. Какие правила записи идентификаторов?

4. С чего начинается программа?

5. как описываются переменные?

6. С чего начинается раздел операторов?

7. Как записывается оператор вывода?

8. Как записывается оператор ввода?

9. Как записывается оператор присваивания?

10. Чем закончится программа?

Упражнение 2 «Основные элементы языка Паскаль»

Займы рабочее место. Подготовь компьютер к работе. Загрузка программу TEST-W2.Открой из папки 7-КЛАСС тест под названием УРОК-2-2.Укажи фамилию, имя и класс. Ответь на вопросы теста до получения оценки. Сообщения оценку учителю. Завершите работу с программой TEST-W2.

1. Загрузка программу Алгоа.Используя меню Шаблоны и клавиатуру, склады программу для вычисления суммы двух чисел с приведенным образцом.В названии программы напиши свою фамилию. Включи для текста программы украинский язык. Посмотри работу программы в режиме пошагового выполнения. Справа запиши краткие пояснения к каждой команды. Командой Файл Записа- ты как … сохрани программу под названием Упражнение-2А в собственную папку. (До 3 баллов)

Program Фамилия;

Var

a, b, Sum: integer; Begin

Write ( ‘a, b =’); ReadLn (a, b) Sum = a + b;

WriteLn ( ‘Sum =’, sum); end.

2. Изменения программу так, чтобы исчислялся периметр треугольника по заданным тремя сторонами (Р = a + b + c).Испытай программу для различных чисел. Командой Записать как … сохрани программу под названием Упражнение-2Б в собственную папку. (до 3 баллов)

 

Урок 3.Составление линейных программ

В линейных программах команды выполняются последовательно, одна за другой.

Правила записи математических выражений

Почти в каждой программе будут выполняться вычисления, причем результаты вычислений не- обходимо будет сохранять для дальнейшего использования. Для этого существует оператор присваивания. При его выполнении переменная, имя которой стоит слева от знака «=», получает значение выражения, записанного справа. Каким бы сложным ни было выражение, он должен быть записан в строку.

Следует соблюдать правила записи арифметических выражений:

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

— сложение и вычитание;

• нельзя опускать знак операции умножения: 5ab 5 * a * b;

• обыкновенные дроби записываются в строку (обратите внимание на скобки!):

2 a 5 (2 * a 5) / (3 b) 3 b

• при необходимости в выражениях используются стандартные функции или функции пользователя (см. т.д.);

• аргументы функций записываются в круглых скобках.

Некоторые стандартные математические функции

Функция sqr (x) вычисляет квадрат значение аргумента х, то есть sqr (x) = x 2 = x * x.

Математическое ный запись Запись на Паскале значения переменных результат
2 апреля sqr (4) 16
х 2 sqr (x) х = 13 169
(D + e) 2 sqr (d + e) d = 2, e = 5 49
3 4 = (3 2) 2 sqr (sqr (x)) x = 3 81

Функция abs (x) вычисляет абсолютную величину (модуль) значения аргумента.

Математическая запись Запись на Паскале значения переменных результат
| 12 | abs (12) 12
| -12 | abs (-12) 12
| x + y | abs (x + y) x = 3, y = -5 2
| x | + | y | abs (x) + abs (y) x = 3, y = -5 8

 

 

 

Стандартные процедуры для ввода и вывода данных

Большинство программ предусматривают введение (например, с клавиатуры) пользователем определенных данных и вывода результатов работы (в частности, на экран монитора).

Язык Паскаль предоставляет все необходимые средства для реализации ввода и вывода в программах. В предыдущем параграфе для этого были использованы процедуры Readln и Writeln.

Рассмотрим подробнее работу этих и других процедур.

Читать  СВОБОДНАЯ кроссплатформенное СИСТЕМА визуального программирования LAZARUS

Ввод данных обеспечивается вызовом процедур Read и Readln.Если предусматривается введение нескольких значений (например, Read (a, b, c)), то их можно ввести в одной строке, отделяя «пропуском», а в конце нажать Enter.

Можно вводить каждое значение отдельно, нажимая каждый раз Enter.Переменные получают свои значения последовательно: сначала a, затем b и последней — c.

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

Для вывода сообщений, значений переменных и выражений используют процедуры Write и Writeln.Действие процедуры Writeln отличается тем, что после вывода курсор переводится на новую строку.

Все параметры процедуры вывода разделяются запятыми.

Пример при a = 2, b = 3

Writeln (a, b) на экране: 23 Writeln ( ‘a =’, a); на экране: а = 2 Writeln ( ‘a =’, a, ‘b =’, b); на экране: а = 2b = 3 Writeln ( ‘a + b =’, a + b) на экране: a + b = 5

Для получения результатов в виде таблиц, колонок используют отформатировано вывода. При этом после элемента списка вывода через двоеточие указывается количество позиций на экране для вывода ее значение.

Если позиций больше чем нужно, то они заполняются пробелами слева от значения.

пример

Writeln (a: 5, b: 3); на экране: 2 3 Создать

Writeln ( ‘a + b =’, a + b: 4); на экране: a + b = 5

Процедура вывода Writeln без параметров используется для перевода курсора на новую строку и вывод пустых строк.

пример

Составить программу для вычисления значения выражения y = | х2-2 | +3.  Значение переменной х ввести с клавиатуры.

Решение Program Example; Var x, y: integer; Begin

Write ( ‘x =’); Readln (x) y = abs (sqr (x) -2) +3;

Writeln ( ‘y =’, y)

End.

Вопросы для компьютерного тестирования:

1. Какие правила записи арифметических выражений языке Паскаль?

2. Запишите выражение у = | х | языке программирования Паскаль.

3. Запишите выражение z = | х-2 | + 3х 8 языке программирования Паскаль.

4. Запишите выражение a = 6b 2 + | b-3 | 3 -15 языке Паскаль.

5. Что значит команда Writeln ( ‘a, b =’)?

6. Действия выполняются командой Readln (a, b)?

7. С помощью какой функции вычислить квадрат числа х?

8. Какие процедуры обеспечивают ввод данных?

9. Какие процедуры обеспечивают вывод данных?

10. Чем отличается команда Writeln от Write?

Упражнение 3 «« Составление линейных программ »»

Займы рабочее место. Подготовь компьютер к работе. Загрузка программу TEST-W2.Открой из папки 7-КЛАСС тест под названием УРОК-2-3.Укажи фамилию, имя и класс. Ответь на вопросы теста до получения оценки. Сообщения оценку учителю. Завершите работу с программой TEST-W2.

1. Загрузка программу Алгоа.Склады программу для вычисления выражения y = 3×2 + 12x-5, значения х вводится с клавиатуры. Образец программы смотри в левой колонке. В правой колонке запиши краткие пояснения к каждой команды.  Запусти программу для х = 3, запиши результат y =               .Сохрани программу под названием Упражнение-3А в собственную папку. (До 3 баллов)

Program Фамилия;

Var

x, y: integer; Begin

Write ( ‘x =’); ReadLn (x) y = 3 * sqr (x) + 12 * x-5; WriteLn ( ‘y =’, y) end.

2. Измените программу для вычисления выражения z = (a + b) c 2 16, значение a, b, c вводятся с клавиатуры.Испытай программу для a = 3, b = 4, c = 7, запиши результат z =               .командой записать как … сохрани программу под названием Упражнение-3Б в собственную папку. (До 3 баллов)

 

Урок 4.Целый и логический типы данных. оператор ветвления

Простые типы данных

Чтобы описать переменную, необходимо отметить ее тип.

Тип переменной определяет набор значений, которые она может принимать, форму записи их в памяти и операции, которые могут быть с ней выполнены. Типы делятся на простые и сложные.

Переменная простого типа всегда содержит один элемент данных (число, букву и т.п.

Переменная сложного типа представляет собой таблицу значений одного типа (массив) или набор полей различных типов (запись).

К простым типов в АЛГО относятся:

 

 

    • целый тип integer;
    • логический тип boolean;
    • символьный тип char;
    • действительный тип real.

 

 

Все простые типы, кроме действительного, является порядковыми.

Тип называют порядковым, если все его значение можно пронумеровать целыми числами.

Целый тип данных

Переменная целого типа может принимать значения из диапазона от -2147483648 до 2147483647 и занимает в памяти 4 б.

Пример описания:

var a, k, D1, D2: integer;

К данным целого типа можно применять операции:

«+» — сложение, «-» — вычитание, «*» — умножение, «/» — деление и некоторые другие.

Примечание.Поскольку при делении одного целого числа на другое не всегда получается целое число, то присваивать результат операции деления переменной целого типа нельзя.

Есть две операции, которые применяют только к данным целого типа и получают целочисленный ре- пап: div — целая часть от деления; mod — остаток от деления.

пример

19 div 4 = 4; 19 mod 4 = 3;
12 div 4 = 3; 12 mod 4 = 0;
-21 div 4 = -5; -21 mod 4 = 1;
-7 div (-4) = 1; -7 mod (-4) = -3.

 

Логический тип

При составлении программ, кроме математических, можно вычислять значения логических выражений. Переменные логического типа могут приобретать только одного из двух значений — False (ложный или Нет) и

True (истинный или Да).

Переменные логического типа получают значение в результате выполнения операций сравнения (отно- шение):

«<» (Меньше), «>» (больше), «<=» (меньше или равно)

«> =» (Больше или равно), «<>» (не равно), «=» (равно).

Результат операции отношение равно True, если отношение удовлетворяется для значений операндов, входящих в него, и False — в противном случае.

Пример описания переменных логического типа:

var m1, m2, dd: boolean;

Логическое выражение может быть простым (например, x> 5) или составным.Составленные выражения утворю- ются из простых с помощью логических операций and, or, not (и, или, не).

Пример (x> = a) and (x <= b)

(X> a) or (x> b) not (x> a)

Логическая операция and имеет истинный результат в том случае, когда оба логические выражения истинны.

Логическая операция or имеет истинный результат в том случае, когда истинный хотя бы один логич- ной выражение.

Логическая операция not всегда дает результат, противоположный значению выражения.

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

Арифметические и логические операции имеют следующий приоритет: not — (унарный)

and, * /, div, mod or, xor, +, —

операции отношения.

Порядок выполнения операций регулируется скобками.

В языке Паскаль нельзя вводить логические данные с помощью оператора Read. Однако предусмотрен вывод значений переменных логического типа с помощью оператора Write.

Выполнение оператора ветвления начинается с вычисления значения логического выражения,

записанного в условии.

Если условие истинно, то выполняется <команда 1>, в противном случае — <команда 2>.

Если на месте одной команды нужно записать несколько, то они объединяются служебными сло- вами Begin-End.

 

 

 

пример №1

Вывести на экран большее из двух данных чисел.

Решение

Program Example; Var x, y: integer; Begin

Write ( ‘x, y =’); Readln (x, y)

If x> y Then Writeln (x)

Else Writeln (y)

End.

Обратите внимание на то, что перед служебным словом Else точка с запятой не ставится. Алгоритм этой задачи показано на рисунке.

Неполная форма оператора ветвления имеет вид:

Ветка Else может отсутствовать, если при невико- ние условия ничего делать не нужно.

Например, если значение переменной — х меньше 0, то заменить его на противоположное. Задача решается с помощью неполной формы оператора:

If х <0 Then х = — х;

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

If х <0 Then; х = — х;

В таком случае команда х = — х не является частью условного оператора If-Then, и будет выполнена обязательно.Говорят, что в ветке Then записан пустой оператор.

пример №2

Написать программу для проверки, принадлежит целое число, введенное с клавиатуры, интервала 0,5 .

Решение

Обозначим через х число, которое вводится с клавиатуры пользователем.По условию х — это переменная целого типа.Число х принадлежит заданному интервалу [0, 5] только в том случае, если одновременно выполняются два условия: (х> = 0) и (х <= 5).Поэтому для образования сложной условия воспользуемся логической операцией and.

Program Example;

Var x: integer;

Begin

Write ( ‘x =’); Readln (x) If (x> = 0) and (x = <5)

Then Writeln (x, ‘принадлежит’) Else Writeln (x, «не принадлежит ‘);

End.

Вложенные операторы ветвления

При решении задач часто рассматривается не два, а больше вариантов. Это можно сделать, используя последовательно несколько условных операторов. В этом случае после служебных слов Then и Else может записываться новый условный оператор.

пример №3

Даны целые числа а, b, c. Если а <= b <= c, то все числа заменить их квадратами. Если a> b> c, то каждое число заменить наибольшим из них, в других случаях — изменить знак каждого из чисел.

Решение

Условие задачи перепишем так:

если a <= b <= c, то a = a 2, b = b 2, c = c 2; если a> b> c, то a = c, b = c,

в остальных случаях: a = — a, b = — b, c = — c.

Program Example;

Var a, b, c: integer;

Begin

Writeln ( ‘Введите числа a, b, c’); Readln (a, b, c)

If (a <= b) and (b <= c)

Then begin

a = SQR (a) b = SQR (b) c = SQR (c)

end

Else if (a> b) and (b> c) Then

begin

a = c; b = c

end

Else begin

a = — a; b = — b; c = — c

end;

Writeln (a 3, b 3, c: 3)

End.

Примечание.Если вложенными условными операторами являются неполные условные операторы, то могут возникать проблемы, связанные с установлением границ условных операторов. В таких случаях служебное слово Else относится к ближайшему Иf.

Вопросы для компьютерного тестирования:

1. Типы принадлежат к простым типам данных в АЛГО?

2. Каких значений могут приобретать сменные целого типа и операции с ними можно выполнять?

3. Определить значение логического выражения: (-3> = 5) or (7 <9) and (0> 3).

4. Записать последовательность операторов для нахождения неполного частного и остатка от деления целого числа а на целое число b.

5. Какие союзы используются в сложных отношениях?

6. Каким может быть результат логической операции отношения?

7. После выполнения операторов

а = 0;

if a <> 0 then; a = 2;

значение переменной а равно 2. Объясните почему.

8. Используя составной оператор, упростите такой фрагмент программы:

If a> b then c: = 1; If a> b then d = 2; If a <= b then c: = 3; If a <= b then d = 4;

9. Каким будет значение переменной а после выполнения операторов:

a = 3;

if a <4 then Begin a = a + 2; a = a + 3 End.

10. Запишите условный оператор, в котором значение переменной вычисляется по формуле a + b, если а — нечетное, а * b, если а — парное.

Упражнение 4 «Целый и логический типы данных. Условный оператор »

Займы рабочее место. Подготовь компьютер к работе. Загрузка программу TEST-W2.Открой из папки 7-КЛАСС тест под названием УРОК-2-4.Укажи фамилию, имя и класс. Ответь на вопросы теста до получения оценки. Сообщения оценку учителю. Завершите работу с программой TEST-W2.

1. Загрузка программу Алгоа.Склады программу для нахождения большего из двух введенных с клавиатуры целых чисел с приведенным образцом. В правой колонке запиши краткие пояснения к каждой команды. Запусти программу для таких значений переменных: а = 1, b = 3; а = 3, b = 1; а = 1, b = 1. Сохрани программу под названием Упражнение-4А в собственную папку. (До 3 баллов)

Program Фамилия; Var a, b: integer; Begin

WriteLn ( ‘Введите числа a, b’); ReadLn (a, b)

If (a> b) then

WriteLn (a)

else

WriteLn (b)

end.

2. Измените программу для нахождения большего из трех чисел. Выполни программу для произвольных значений переменных. Сохрани программу под названием Упражнение-4Б в собственную папку. (До 3 баллов)

 

Урок 5.оператор выбора

Оператор выбора (варианта) можно рассматривать как обобщение условного оператора. Он позволяет сделать выбор из нескольких вариантов в зависимости от значения переменной.

Выполнение оператора выбора начинается с вычисления выражения, должен иметь значение порядкового типа.

Формат записи оператора варианта таков:

Case <порядковая переменная или выражение> of

<Константа 1>: <оператор 1>;

<Константа 2>: <оператор 2>;

<константа n>: <оператор n>; [Else <оператор>; ]

End;

или

Выбор <порядковая переменная или выражение> с

<Константа 1>: <оператор 1>;

<Константа 2>: <оператор 2>;

<константа n>: <оператор n>; [Иначе <оператор>; ]

конец;

В случае, когда результат вычисления равен одной из перечисленных констант, выполняется соответствующий оператор. Затем управление передается за пределы оператора выбора.

Если значение выражения не совпадает ни с одной из констант, то выполняется оператор, стоящий после Else, если он есть, или управление передается оператору, следующего за End.

Примечания

1. Тип каждой из констант должен совпадать с типом выражения. Можно задавать не только одну константу, но и список констант (см. пример).

2. Ветка Else содержится в квадратных скобках.Это означает, что эта часть оператора выбора не обязательно.

3. В конструкции выбора (в отличие от условного оператора) перед Else ставится точка с запятой.

4. В качестве операторов могут использоваться и составлены операторы.

пример

Пусть при тестировании ученик получил N баллов из 20 возможных. Нужно вывести сумму баллов с коротким комментарием.

Решение Program оценка; Var N: integer; Begin

Write ( ‘Введите N-‘);

ReadLn (N) Case N of

20: WriteLn ( ‘Лучше НЕ бывает!’); 19,18,17 : WriteLn ( ‘Отлично!’); 16,15,14,13: WriteLn ( ‘Хорошо.’); 12,11,10,9: WriteLn ( ‘Уд.’); 8,7: WriteLn ( ‘Еще немного, и было бы хорошо.’);

else

WriteLn ( ‘Нужно поработать!’) End;

WriteLn ( ‘Сумма баллов — «, N 2,» из 20 возможных’);

end.

Вопросы для компьютерного тестирования:

1. В каких случаях используется оператор выбора?

2. Какой общий формат записи оператора выбора?

3. Каких правил нужно придерживаться, используя оператор выбора при решении задач?

4. Каким должен быть тип констант?

5. Что значит, когда ветвь Else содержится в квадратных скобках?

6. Которая ставится перед веткой Else?

Упражнение 5 «Оператор выбора»

Займы рабочее место. Подготовь компьютер к работе. Загрузка программу TEST-W2.Открой из папки 7 класс тест под названием УРОК-2-5.Укажи фамилию, имя и класс. Ответь на вопросы теста до получения оценки. Сообщения оценку учителю. Завершите работу с программой TEST-W2.

1. Загрузка программу Алгоа.Склады программу по указанному образцу. Запусти для различных значений переменной N. В правой колонке запиши краткие пояснения к каждой команды. Сохрани программу под названием Упражнение-5А в собственную папку. (До 3 баллов)

Program Фамилия;

Var N : integer;

Begin

Write ( ‘Введите N — ‘);

ReadLn (N)

Case N of               1,2,3,4,5: WriteLn ( ‘Рабочий день ‘);               6,7: WriteLn ( ‘Исходный день ‘);               else

WriteLn ( ‘Неправильные данные’) ;

end;

end.

2. Склады программу для определения времени года и названия месяца по номеру месяца. Если введенный номер не принадлежит промежутке от 1 до 12 — выведи сообщение об ошибке.Сохрани программу под названием Упражнение-5Б в собственную папку. (до 3 баллов)

 

Урок 6.Практическая работа 1 «Программы по разветвлением»

1. Подчеркни операторы, которые записаны правильно: (до 2 баллов)

a) if x> <0 then y = x-2 else y = x + 2,

b) if x = 0 then y: = 1024 else y = x-1024;

c) if (x = 0) or (y <> 0) then y = x;

d) if x = 0 and a> 0 then b = a else b = x;

2. Запиши на языке Паскаль следующее: если число является четным, то выведи «Да», иначе — выведи «Нет». (До 2 баллов)

3. Запиши на языке Паскаль формулу: (до 2 баллов)

 

4. Подготовь компьютер к работе. Загрузка программу Алгоа.Дополни программу Упражнение-2Б для вычисления периметра треугольника проверкой корректности введенных данных: в треугольнике сумма длин любых двух сторон должна быть больше, чем длина третьей стороны.Сохрани программу под названием Работа-6А в собственную папку. (До 3 баллов)

5. Дано число N (N <= 100), которое обозначает возраст человека.  Добавь к этому числу одно из слов: «Год»,

Читать  Предмет и задачи информатики учебного курса "Информатика" для студентов первого и второго курсов

«Годы», «лет» в соответствии с нормами украинского языка. Например: 1 год, 12 лет, 52 года. Сохрани программу под названием Работа-6Б в собственную папку. (До 3 баллов)

 

Урок 7.Операторы повторения. Цикл с параметром

При составлении программ часто возникает необходимость многократно повторить один и тот же набор команд.В таких случаях применяются операторы повторения (циклические операторы), а команды повторяющихся называют телом цикла.

В зависимости от того, известна заранее количество повто- ний, различают цикл с параметром и циклы с условием.

Оператор цикла с параметром применяют тогда, когда заранее известно число повторений определенной последовательности опе- раторов.

Для подсчета количества повторений вводится зминна- параметр одного из порядковых типов (integer, boolean, char и т.д.).

Есть две формы записи цикла с параметром:

Где А — начальное значение параметра, В — конечное значение параметра, тело цикла — оператор

(Простой или составной).

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

Рассмотрим выполнение оператору цикла с параметром вида

For <параметр> = A to B do <тело цикла>;

Сначала вычисляются значения выражений А и В.

Если А ≤ В, то переменная-параметр последовательно принимает значения равных А, А + 1, …, В-1, В (т.е. с шагом 1) и для каждого из этих значений выполняется тело цикла.Если в начале А> В, то тело цикла не будет выполнено ни одного раз.

В случае, когда параметр цикла нужно уменьшать, используется вторая форма оператора со служебным словом downto.Цикл выполняется так же, но значение параметра меняется с шагом, равным 1.

Если нужно повторить несколько операторов, то они объединяются служебными словами Begin-

 

End.

пример №1

Из чисел от 10 до 99 вывести те, сумма цифр которых равна N (0 <N≤18).

 

Решение

Обозначим через k очередной номер, р1 — старшую цифру числа k, р2 — меньшую цифру числа k, S — сумму.

Число k будем печатать только в том случае, когда сумма Р1 и Р2 равно S.

Program Example;

Var k, N, p1, p2, S: integer;

Begin

Write ( ‘N =’); Readln (N)

For k = 10 to 99 do

Begin

p1 = k div 10; {выделяем старшую цифру} p2 = k mod 10 {выделяем младшую цифру} S = p1 + p2; {Находим сумму цифр}

If S = N then writeln (k)

End

End.

В этой программе цикл можно было записать короче:

For k = 10 to 99 do

If k div 10 + k mod 10 = N then writeln (k)

Проанализируйте его работу самостоятельно.

пример №2

Найти все двузначные числа, делящиеся на N или содержат цифру N.

Решение

Если двузначное число удовлетворяет условию задачи, то для него выполняется хотя бы одно из трех условий: первая цифра равна N (p1 = n) или вторая цифра равна N (p2 = n), или само число делится на N (k mod n = 0).

Какую логическую операцию необходимо использовать для объединения этих простых условий в сложенную?

Вопросы для компьютерного тестирования:

1. В каких случаях используются операторы повторения?

2. Какие особенности записи цикла с параметром?

3. К какому типу данных принадлежит переменная параметра цикла?

4. В каких случаях при составлении цикла используются служебные слова Begin-End?

5. Сколько раз будет выполнено тело цикла во фрагменте программы ::

For k = — 1 to 1 do …

6. Сколько раз будет выполнено тело цикла во фрагменте программы ::

k = 5; r = 15;

For i = k + 1 to r-1 do

7. Сколько раз будет выполнено тело цикла во фрагменте программы ::

k = 5; r = 15;

For i = 0 to k * r do …

8. Сколько раз будет выполнено тело цикла во фрагменте программы ::

k = r;

For i = k to r do …

9. Определить значение переменной S после выполнения следующих операторов: S: = 0; N = 10;

For i = 2 to N do S = S + 100 div i;

10. Проверьте работу данной программы на компьютере. Проанализируйте использование оператору цикла с параметром:

Program Demo; Var c: boolean; Begin

For c = false to true do writeln (c)

End.

Упражнение 7 «Оператор повторения. Цикл с параметром »

Займы рабочее место. Подготовь компьютер к работе. Загрузка программу TEST-W2.Открой из папки 7-КЛАСС тест под названием УРОК-2-7.Укажи фамилию, имя и класс. Ответь на вопросы теста до получения оценки. Сообщения оценку учителю. Завершите работу с программой TEST-W2.

1. Загрузка программу Алгоа. Склады программу для нахождения суммы натуральных чисел из промежутка от 1 до 100, что делятся нацело на введенное с клавиатуры число N. Выполни программу. В пра- вом столбце запиши краткие пояснения к каждой команды. Сохрани программу под названием Упражнение-7А в собственную папку. (До 3 баллов)

 

Program Фамилия; Var k, N, S: integer; Begin

Write ( ‘N =’); Readln (N) S: = 0;

For k = 1 to 100 do

If k mod N = 0 then S = S + k; Writeln ( ‘S =’, S);

End.

2. Склады программу для нахождения всех двузначных чисел, делящихся на N или содержат цифру N (объяснение к задаче см. В учебнике). Сохрани программу под названием Упражнение-7Б в собственную папку. (До 3 баллов)

 

Урок 8.Практическая работа 2 «Программы с повторением»

1. Подготовь компьютер к работе. Загрузка программу Алгоа.Напиши программу для нахождения всех делителей натурального числа А, введенного с клавиатуры. Запусти программу. Сохрани программу под названием Работа-8А в собственную папку. (До 3 баллов)

2. Дополни программу по п. 1, чтобы находилась сумма делителей введенного числа А. Запусти программу. Сохрани программу под названием Работа-8Б в собственную папку. (До 3 баллов)

3. Дополни программу по п. 1, чтобы находилась количество делителей заданного числа А.  Запусти программу. Сохрани программу под названием Работа-8Б в собственную папку. (До 3 баллов)

4. Дополни программу для проверки, есть ли введенное число А простым. Запусти программу. Сохрани программу под названием Работа-8 в собственную папку. (До 3 баллов)

 

Урок 9.Цикл с предусловием

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

Оператор цикла с предусловием имеет вид:

While <условие> Do <тело цикла>; или

Пока <условие> Выполнить <тело цикла>;

Выполнение оператора цикла с предусловием начинается с проверки

условия, записанной после слова While. Если она выполняется, то выполняется тело цикла, затем снова проверяется условие и т.д.

Если во время очередной проверки выяснится, что условие не выполняется, то тело цикла виконувати- ся не будет. Управление перейдет к оператору, после цикла.

Примечания

1. Если тело цикла состоит из нескольких операторов, то они объединяются служебными словам

Begin-End.

2. В теле цикла обязательно должен быть оператор, влияет на истинность условия, иначе станеть- ся зацикливания: операторы тела цикла будут повторяться «Вечно».

пример №1

Подсчитать количество цифр заданного натурального числа n.

Решение

Ранее мы выделяли цифры двузначных и трехзначных чисел. В этом же случае мы не знаем сколько цифр должно число.

Поэтому, пока число не станет равно 0, будем выполнять такую ​​последовательность команд: збильшува- ты счетчик количества цифр числа на единицу, а число уменьшать в 10 раз (с помощью целочисленного деления избавляться последней цифры числа).

Program Example;

Var m, n, k: integer;

Begin

Write ( ‘Введите натуральное число:’); Readln (n)

m = n; {Копируем введено число}

k = 0; {Переменная-счетчик количества цифр} While m <> 0 Do

Begin

k = k + 1; {Увеличиваем счетчик цифр} m = m div 10 {отвергаем последнюю цифру}

End;

Writeln ( ‘В числе «, n,’ — ‘, k,’ цифр ‘)

End.

Работу этой программы интересно наблюдать в пошаговом режиме выполнения, следя за изменением значений m и k.

пример №2

Подсчитать сумму цифр заданного натурального числа n.

Решение

Чтобы решить эту задачу, достаточно сделать незначительные изменения в предыдущей программе. Нужно, по-прежнему отделять последнюю цифру числа, но перед этим ее нужно запоминать в дополнительную переменную (например, а) и добавлять к сумме S.

Фрагмент программы: While m <> 0 Do

Begin

End;

a = m mod 10; s = s + a; m = m div 10

Вопросы для компьютерного тестирования:

1. В каких случаях используется цикл с предусловием и какие особенности его записи?

2. В данном фрагменте программы вычисления количества цифр числа а найдите ошибку и исправьте ее.

ck = 0;

While a> = 0 Do

Begin

ck = ck + 1; a = a div 10

End;

3. Дана последовательность операторов:

a = 1; b = 1;

While a + b <8 Do

Begin a = a + 1; b = b + 2 End; s = a + b;

Сколько раз будет повторяться тело цикла? Какими будут значения переменных а, b и s после выполнения этой последовательности операторов?

4. Какими будут значения переменных а и b после выполнения последовательности операторов:

a = 1; b = 1;

while a <= 3 Do a = a + 1; b = b + 1;

5. Найдите значение переменной s после выполнения следующих операторов:

а) s = 0; i = 0;

While i <5 Do i = i + 1; s = s + 100 div i; б) s = 0; i = 0;

While i> 1 Do

Begin s = s + 100 div и; i = i-1 End;

6. Каким условиям должно удовлетворять значение переменной k, чтобы такие циклы были бесконечными:

а) While c <0 Do c = c + k; б) While k <> 0 Do k = k + 1; в) While k <> 0 Do k = k + 2,

Упражнение 9 «Цикл с предусловием»

Займы рабочее место.  Подготовь компьютер к работе.  Загрузка программу TEST-W2.Открой из папки 7-КЛАСС тест под названием УРОК-2-9.Укажи фамилию, имя и класс. Ответь на вопросы теста до получения оценки. Сообщения оценку учителю. Завершите работу с программой TEST-W2.

1. Загрузка программу Алгоа. Склады программу, которая будет определять количество чётных цифр в натураль- ном числе N, введенному с клавиатуры. Испытай программу. В правой колонке запиши краткие пояснения к каждой команды. Сохрани программу под названием Упражнение-9А в собственную папку. (До 3 баллов)

Program Фамилия;               Var Ost, N, k: integer;               Begin

Write ( ‘N =’);

Readln (N)

k = 0;

While N <> 0 Do

Begin

Ost = N mod 10;               If Ost mod 2 = 0 Then k = k + 1;               N = N div 10;

End;               Writeln ( ‘Четным цифр — «, K)               End.

2. Изменения программу так, чтобы находилась самая большая цифра целого числа N, введенного с клавиатуры. Сохрани программу под названием Упражнение-9Б в собственную папку. (До 3 баллов)

 

Урок 10.Цикл с постусловием

Оператор цикла с постусловием имеет следующий вид:

или

Этот оператор отличается от цикла с предусловием тем, что проверка условия производится после очередного выполнения тела цикла. Это обеспечивает выполнение тела цикла хотя бы один раз.

Обратите внимание на то, что данный оператор цикла предполагает наличие нескольких операторов в теле цикла, поэтому служебные слова Begin i End не нужны.

Порядок выполнения цикла с постусловием таков: выполняется последовательность операторов, составляющих тело цикла, после чего проверяется условие, записанное после служебного слова Until.Если условие выполняется, то цикл завершается.

В противном случае операторы тела цикла выполняются еще раз, после чего снова перевиря- ется выполнения условия.

пример

Составить программу для планирования покупки в магазине товаров на сумму, не превышающую заданную величину.

Решение

Обозначим через x и k цену и количество товара, через p — заданную предельную сумму, через s — стоимость покупки.

Начальное значение общей стоимости покупки s равна нулю. Значение предельной суммы вводится с клавиатуры.

Необходимо повторять запрос цены и количества выбранного товара, определять его стоимость, добавлять ее в общую стоимость и выводить результат на экран до тех пор, пока стоимость не превысит предельную сумму p.

Рrogram Exemple;

Var x, k, p, s: integer;

Begin

Write ( ‘Предельная сума—‘); Readln (P);

S: = 0;

Repeat

Write ( ‘Введите цену товара и количество:’); Readln (x, k)

S = s + k * x;

Writeln ( ‘стоимость покупки равна’, s) Until s> p;

Writeln ( ‘стоимость покупки превысила предельную сумму!’);

End.

Вопросы для компьютерного тестирования:

1. В каких случаях используется цикл с постусловием и какие особенности его записи?

2. В чем сходство и различие циклов с условиями?

3. Выберите правильную ответ.

При выполнении оператора повторения Repeat

а) сначала вычисляется логическое выражение и в зависимости от результата, выполняются или не выполняются операторы тела цикла;

б) сначала выполняются операторы тела цикла, затем вычисляется логическое выражение, результат которого влияет на повторное выполнение операторов.

4. Определить значение переменной s после выполнения следующих операторов:

s: = 0; i: = 1;

Repeat

s = s + 5 div и; i = i-1

Until i <= 1;

5. Что будет напечатано в результате выполнения такой последовательности операторов:

i: = 1;

repeat

write (i, »); i = i + 2

until i> 19;

6. Определить значения переменных s и и после выполнения таких операторов:

S: = 0; i: = 1;

repeat

S = S + i;

i = i + 1 until i> 10;

Упражнение 10 «Цикл с постусловием»

Займы рабочее место. Подготовь компьютер к работе. Загрузка программу TEST-W2.Открой из папки 7-КЛАСС тест под названием УРОК-2-10.Укажи фамилию, имя и класс. Ответь на вопросы теста до получения оценки. Сообщения оценку учителю. Завершите работу с программой TEST-W2.

1. Для вычисления наибольшего общего делителя (НОД) двух чисел уже более 20 веков известен алгоритм, предложенный древнегреческим математиком Евклидом алгоритм Евклида.Идея алгоритма: числа сравнивают и больше из них заменяют разницей этих чисел. Это действие повторяют до тех пор, пока число не станут равными. Полученный результат и является искомым НОД двух чисел. Фрагмент программы для реализации алгоритма имеет вид:

Readln (A, B) Repeat

If A> B then A = AB else B = BA; until A = B;

WriteLn ( ‘NSD =’, A)

Загрузка программу Алгоа.Напиши программу, которая находит НОД двух чисел и испытай ее для следующих значений:

а) А = 12, В = 6; б) А = 8, В = 10; в) А = 5, В = 7.

Сохрани программу под названием Упражнение-10А в собственную папку. (до 3 баллов)

2. Напиши программу для нахождения НОД трех целых чисел, учитывая, что НОД (А, В, С) = НОД (НОД (А, В), С).      Запусти программу для таких значений:

а) А = 12 В = 6, С = 15; б) А = 21, В = 14 С = 35.

Сохрани программу под названием Упражнение-10Б в собственную папку. (До 3 баллов)

 

Урок 11.Практическая работа 3 «Программы с повторением и разветвлением»

1. Напиши значение переменной S, которого она приобретет после выполнения таких операторов :. (До 2 баллов) 1) s = 2; i = 0;

while i <5 do i = i + 1; s = s + 1 / i;

2) s = 5; i: = 1;

while i> 1 do begin s: = s + 1 / i; i = i-1 end;

3) s = 1; i: = 1;

while i <4 do begin i: = i + 1; s = s * i end;

2. Напиши значение переменной S, которого она приобретет после выполнения таких операторов: (до 2 баллов)

1) s = 4; i: = 1;

repeat s = s + 1 / i; i = i-1 until i <= 1;

2) s = 2; i: = 1;

repeat s = s + 1 / (i + 1); i = i + 3 until i> = 5,

3) s = 1; i: = 1;

repeat i = i + 1; s = s + i until i> 3;

3. Напиши значение переменной S, которого она приобретет после выполнения таких операторов: (до 2 баллов)

1) s: = 0; for i = 10 downto 6 do s = s + 1,

2) s = 0; for i: = 8 to 3 do s = s + 1,

3) s = 1; for i: = 2 downto 10 do s = s + 1,

4. Подготовь компьютер к работе. Загрузка программу Алгоа. Напиши программу для нахождения произведения цифр натурального числа N, введенного с клавиатуры. Сохрани программу под названием Работа-2-11 в собственную папку. (до 3 баллов)

5. Напиши программу для проверки, содержит натуральное число N цифру А (значения переменных N и А вводятся с клавиатуры). Сохрани программу под названием Работа-2-11Б в собственную папку. (до 3 баллов)

[Всего голосов: 308    Средний: 5/5]