Кружок "Основы программирования" программа и материалы

• 1 слайд

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

• 2 слайд

  Данные На языке программирования составляют программы для обработки данных. Данные – это информационные объекты над которыми можно производить арифметические, логические и другие операции. Существуют разные типы данных: числа, символы, слова и т.д. Каждый тип данных обрабатывается специально предназначенным для него набором операций.

• 3 слайд

  Стандартные типы данных Данные числового типа целые числа например 34, -2, 5, 0, 978 вещественные (действительные) числа9.4, 3.75, -0.056 Данные строкового типа (string) Строка длиной от 0 до 255 символов, например:‘Я люблю свою Родину!’,’Мама’ Данные символьного типа (сhar) Любой одиночный символ, введенный с клавиатуры, например ‘+’, ‘к’, а также пустой символ – ‘’ Данные логического типа False, True (ложь, истина)

• 4 слайд

  Данные числовых типов Для каждого типа данных определен свой диапазон Диапазоны для некоторых типов целых чисел: тип integer[-32768 ; 32767], тип longint (длинное целое) [-2147483648..2147483647] Диапазон для вещественных чисел типа тип real: [2.9*10E-39..1.7*10E38 ]

• 5 слайд

  Форматы числа Естественная форма записи числа 2.3, 45.9, 5700, 0.0083, 100112 , FFA.5D и т.п. Экспоненциальная форма записи числа (форма) 2.3Е+00, 4.59Е+01, 5.7Е+03, 8.3Е-3 45.5= 0.00012= 4.0Е+3= 9.7Е-4=

• 6 слайд

  Операции над данными числовых типов действия скобках NOT * , /, DIV, MOD , AND +, -, OR =, <>, >, <, >=, <=- операции отношений С учетом старшинства операций и скобок при одних и тех же значениях операндов результаты выражения получаются различными. Выражение 7-2*3 = 1, а выражение (7-2)*3 = 15 - Арифметические и логические операции Приоритетность операций

• 7 слайд

  Запись математических функций Математическая функция Запись функции на Паскале |x|вычисление модуля числа Х ABS(x) SQRT(x) x2 SQR (x) Sinx, cosx, tg x Sin(x), cos(x), tg (x)

• 8 слайд

  Запись математических выражений =4/(x+1) – 2*x =y1/x1 – 1 + 2*y1/(3*x1+1) =2*a + 4*b / (a*a+1) – sqrt(a) =Sqr(sin(2*alfa))*cos(betta) или =Sqr(sin(2*a))*cos(b) X=1; 3 a=1, b=1 2 -5 3

• 9 слайд

  Целочисленное деление 465 mod 10 465 mod 100 465 div 10 465 div 100 25 div 16 + 5 mod 3 2 * 5 mod 8 15 div 7 mod 8 25 – 205 mod 10 300 div 10

• 10 слайд

  Составление программ для поиска значений числовых выражений Для представления результата в естественном виде в программе к выражению дописывают так называемый формат. Например:WriteLn ( 2*7- 4 / (7+1):5:2 ); Введите и исполните программу PRIMER_1. Выпишите результаты вычислений в экспоненциальном виде. К каждому выражению допишите следующие форматы: :5:2, :0:4, :10:3 Исполните программу и запишите в тетрадь результаты вычислений в естественном виде. Program PRIMER_1; Begin WriteLn (2*7-4/(7+1)); WriteLn (9*0.5/sqrt(9)-3); WriteLn (1/sqr(8*cos(Pi)) End. Результат исполнения вэкспоненциальномвиде: 1.350000Е+001 -1.500000Е+000 1.562000Е-002

• 11 слайд

  Составление программ для поиска значений выражений с переменными Найти значение выражения 5*x + 3*y для (х=2; у=4), (х=1;у=7) Program PRIMER_2; Begin ReadLn (x); ReadLn (y) WriteLn (5*x + 3*y); End. Исполнение начало x=… y=… … конец. начало x=… y=… … конец.

• 12 слайд

  Задание Составить 2 программы вычисления выражений с переменными, записать их в тетради и исполнить на ПК a mod 10 b div 10 Программа №1 Найти значения выражений для х=-5, х=3 b div 10 div 16 + a mod 100 Программа №2 Найти значения выражений а) для a= 44, b= 44б) для a= 4, b=40

• 13 слайд

  Алгоритм и программа Алгоритм – последовательность действий для решения задачи. Программа – строгая конечная последовательность команд исполнителю, написанная на языке, понятном исполнителю

• 14 слайд

  Этапы решения задачи на ПК Формулировка задачи (определение исходных данных и результата решения) Построение модели процесса или объекта для которого решается задача (чертеж, схема, математическое решение) Составление алгоритма решения задачи Составление программы для исполнителя Исполнение программы и анализ полученного результата Корректировка программы (внесение изменений и дополнений в программу)

• 15 слайд

  Дано обозначим s- сумма денег, b - цена яблок (руб), n – деньги, потраченные на яблоки, Надо найтиm - количество мандарин (кг) Формулировка задачи: Мама дала сыну деньги и велела купить 2 кг яблок и на сдачу - мандарины по 60 рублей за кг. Сколько кг мандарин можно купить на сдачу? исходные данные: сумма денег, цена мандарин, количество яблок, цена яблок искомый результат: количество (кг) мандарин Построение математической модели задачи: (решение задачи в общем виде) математическая модель решения задачи Ограничения: нет (кг)

• 16 слайд

  Алгоритм «Покупка» Начало ВзятьSруб Узнатьцену яблокb Найтистоимость яблок n = 2*b Найтиколичество мандарин m =(s – n)/60 Сообщить,что куплено mкг мандарин Конец Программа Покупка; Переменные m,s,n,b:действительные; Начало Ввод (S); Ввод (b); n:= 2*b; m:=(s – n)/60; Вывести(m) Конец ProgramPokupka; Var m,s,n,b:real; Begin Read(S); Read(b); n:= 2*b; m:=(s – n)/60; Write(m) End.

• 17 слайд

  РАЗДЕЛ ПЕРЕМЕННЫХ РАЗДЕЛ ОПЕРАТОРОВ (ТЕЛО ПРОГРАММЫ) ProgramPokupka; Var m,s,n,b:real; Begin Read(S); Read(b); n:= 2*b; m:=(s – n)/60; Write(m) End. Исполнение нач S=… b=… n= 2*…= m=(…–…)/60= … кон нач S=… b=… n= m= … кон

• 18 слайд

  Задание №1 Введите и исполните программу Покупка на ПК №2 Дополните операторами программу Покупка : Writeln (‘Сколько денег дала мама сыну?’ ) Writeln (‘Какова цена яблок?’ ) Writeln (‘Сын купил’, m, ‘мандарин’ ) №3 Составьте в тетради математическую модель и программу для решения задачи: Мама дала сыну деньги и велела купить 2 кг яблок, 3 кг слив и на сдачу - мандарины по 80 рублей за кг. Сколько кг мандарин можно купить на сдачу? Исполните программу в тетради и на ПК

• 19 слайд

  Задачи для самостоятельного решения Пешеход прошел некоторое расстояние за 4 часа, двигаясь со скоростью 5 км/ч. Автомобиль это же расстояние проехал за ¼ часа. С какой скоростью двигался автомобиль? Определить стоимость набора конфет, в который входят: "Красная шапочка"- а (г) по 200р/кг "Алые паруса"- b (г) по 150 р/кг "Чародейка"- - 100 г по с руб/кг

• 20 слайд

  Задачи для самостоятельного решения Вычислите расстояние между двумя точками с координатами X1 , Y1 и X2 , Y2. Кнопочка съела на 2 пирожных меньше, чем Незнайка. Сколько они потратили на пирожные, если одно пирожное стоит 20 руб?

• 21 слайд

  Задачи для самостоятельного решения Первая бригада может выполнить задание за А дней, а вторая – за В дней. За сколько дней две бригады выполнят задание, работая вместе? В водится четырехзначное число. Заменить число на другое, которое получается из исходного числа путем записи его цифр в обратном порядке.

• 22 слайд

  Графическая форма записи алгоритма (блок-схема) Блок присваивания значений переменным Блок ввода значений в переменные Блок вывода значений Блоки начала и конца алгоритма Конструкция ветвления а:=5 - a а к а:=5 + a а:=8 а н

• 23 слайд

  Конструкция ветвления Полная конструкция ветвления Неполная конструкция ветвления ложь ист ложь ист а:=5 + a

• 24 слайд

  Поиск большего из двух чисел Program Max; Var A, B: Integer; Begin Write('Введите числа А,B- '); Readln (A, B); IfA > BThenWriteLn('Число А – больше') ElseWriteLn('ЧислоB– больше'); WriteLn('Программа завершила свою работу') End.

• 25 слайд

  Удвоить меньшее из чисел и возвести в квадрат большее Program Max_Min; Var A, B: Integer; Begin Write('Введите числа А,B- '); Readln (A, B); IfA > BThenbegin A:= A*A ; B:= 2*B end Elsebegin B:= B*B ; A:= 2*A ; end; WriteLn(‘ЧислоA=‘, A); End.

• 26 слайд

  Молодо-зелено В расцвете сил Старость не радость а Сформулируйте задачу, опираясь на алгоритм ее решения (а>0)и(a<20) а (а>21)и(a<30) (а>31) н

• 27 слайд

  Y:=X+2 Сформулируйте задачу, опираясь на алгоритм ее решения X Y Y:=Х2 X>0 Y н X

• 28 слайд

  Сформулируйте задачу, опираясь на алгоритм ее решения A B C C:=B C:=A C к н A,B

• 29 слайд

  Вложенные ветвления

• 30 слайд

  Сформулировать задачу, составить алгоритм ее решения на алг. языке, исполнить в тетради, составить программу ист ист ист Ввести два числа, разделить большее на меньшее. н К a, b a>b

• 31 слайд

  Составить программу для решения задачи ист ист

• 32 слайд

  Задание кусочных функций     –x, если x  0, y = 2 x2, если 0 < x < 2,   4, если x   2. 0 2 4 2 8 Y=-X Y=2X2

• 33 слайд

  ProgramFuncia; Var? Begin Read(x); A:=(x<=0); B:=(x>0) and (x<2); C:=(x>=2) If A then y:=-x; If B then y:=2x2; If C then y:=4; Write(y) End.

• 34 слайд

  -1 2 6 Y=X2 2 4 6 -1 Y=-X+6

• 35 слайд

  Задать функцию аналитически и записать интервалы значений Y=X2 2 4 6 -1 Y=-X+6 1

• 36 слайд

  Решить задачи №1 Ввести три числа (n, m, k) с клавиатуры и определить, является ли введенная последовательность возрастающей, убывающей или неупорядоченной. (пусть n=3, m=6, k=75. Т. к. 3<6<75, то последовательность - возрастающая). №2 Составить программу, по которой из 3-х чисел будет выбрано большее №3 Определить, делится ли введенное двухзначное число на сумму своих цифр. Например. Пусть а=35, 35 div 10=3 35 mod 10=5, тогда сумма цифр=3+5=8; число 35 не делится на 8. Пусть а=72, тогда а1=7 a2= 2, тогда сумма цифр=7+2=9; число 72 делится на 9

• 37 слайд

  Составить алгоритм решения задачи x2 5 2x -x3 0 2/sin(x) Y= 2x, при х>5 -x3, при х<=5 Y= 2/sin(x), при х>0 x2, при х<0

• 38 слайд

  Самостоятельно Определить в записи 3х -значного числа количество четных цифр, количество четных и нечетных цифр Определить существует ли треугольник с данными сторонами Определить вид треугольника (прямоугольный, равнобедренный), если известны его стороны Найти порядковый номер одного из трех введенных чисел, если число отрицательно, число больше других

• 39 слайд

  Определим границы: Граница 1:(x-2)2 +y2 = 32 Граница 2:(x-2)2 +y2 = 12 Определим области: (x-2)2 + y2 ≤ 32 (x-2)2 + y2 ≥ 12 Условие принадлежности точки с координатами (х;у) области: ((x-2)2 + y2 ≤ 32) и ((x-2)2 + y2 ≥ 12) Пусть (х;у) - координаты некоторой точки плоскости. Выяснить, принадлежит ли точка окрашенной области. А= В= if А and В then writeln (‘точка принадлежит области’) -3 3 1

• 40 слайд

  Пусть (х;у) - координаты некоторой точки плоскости. Выяснить, принадлежит ли точка окрашенной области Определим границы: 1:Y=0 2:Y= - 3x+3 3: Y= 3x+3 Определим области: 2 3 Условие принадлежности точки с координатами (х;у) области -1 3 1

• 41 слайд

  Пусть (х;у) - координаты некоторой точки плоскости. Выяснить, принадлежит ли точка окрашенной области Определим границы: 1:Y=X+1 2:Y=-5x+13 3:Y=-1/5 x - 0,6 Определим области: Условие принадлежности точки с координатами (х;у) области (2; 3) (3; -2) (-2; -1) Y=X+1

• 42 слайд

  Пусть (х;у) - координаты некоторой точки плоскости. Выяснить, принадлежит ли точка окрашенной области Определим границы: 1: Y= 2: Y= Определим области: X*Y > 0 Условие принадлежности точки с координатами (х;у) области 1 2 5 5 -5 -5

• 43 слайд

  Принадлежность точки области -1 -3 1 4 3 4 3

• 44 слайд

  Даны три целых числа, одно из которых отлично от двух других, равных между собой. Определить порядковый номер числа, отличного от остальных. На числовой оси расположены три точки: A, B, C. Определить, какая из двух последних точек (B или C) расположена ближе к A, и вывести эту точку и ее расстояние от точки A. Дано целое число. Вывести его строку-описание вида «отрицательное четное число», «нулевое число», «положительное нечетное число» и т. д. Дано целое число, лежащее в диапазоне 1–999. Вывести его строку-описание вида «четное двузначное число», «нечетное трехзначное число» и т. д.

• 45 слайд

  Циклы Алгоритм решения некоторой задачи записан в виде блок-схемы Сформулируйте задачу i<=5 i:=1 s н a:=i*i i:=i +1 к ИСТИНА s:=s+а

• 46 слайд

  Поиск суммы (произведения) элементов ряда Ряд элементов построен на основе некоторой математической закономерности (например: арифметическая и геометрическая последовательности) 3, 9, 27, 84, … ¼, 1/5, 1/6, … –1, 0, 1, 2, 3, …

• 47 слайд

  Определить формулу общего члена ряда x1 =1/4; x2 = 1/9; … x6 = ? x1 =1; x2 = ½; … x6 = ? 2, 5, 10, 17… x1 =2; x2 = 5; … x6 =?

• 48 слайд

  Найти сумму ряда Дан ряд 2, 5, 10, 17…(i +1)2 Формула общего члена рядаai = (i +1)2 Найти сумму ряда S S0 = 0 S1 = S0 + a1 S2 = S1 + a2 S3 = S2 + a3 ……. Si = Si-1 + ai a S i

• 49 слайд

  2 + 5 + 10 + 17+…(i +1)2 Program Summa; var x,h,n,s: real; Begin s:=0; n:=5; i:=1; while i<=n do begin a:=(i+1)*(i+1) s:=s+a; i:=i+1; end; End. Исполнение нач S=0; n=5 i=1 истинаистина нц нц a=a= s=s= i=i= нц нц Кон

• 50 слайд

  Поиск суммы квадратов чисел от 1 до 5 Program Summa; Var A, S: Integer; Begin i:=1; While i<=5 do begin a:=i*i; s:=s + a; i:=i + 1 end; WriteLn(‘сумма=‘, s); End. Исполнение нач i=1 1<=5 нц нц a=a= s=s= i=i= нц нц сумма= сумма= кон

• 51 слайд

  Составить программы к задачам = 1*2*3*4*5*6 6+8+10+…+20

• 52 слайд

  s:=0; i:=1 s к i <=5 i:=i +1 a>=0 s:=s + a a н

• 53 слайд

Программа кружка по информатике

для учащихся 7-8 класса

Основы программирования

(17 часов)

2015-2016 уч. год

Составила Нагорная Г.В.,

учитель МБОУ «Лицей №1 им. академика Б.Н. Петрова»

ПОЯСНИТЕЛЬНАЯ ЗАПИСКА

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

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

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

Курс «Основы программирования» позволит учащимся познакомиться с основами языка программирования, будет способствовать формированию умения самостоятельно разрабатывать алгоритм и программу решения поставленной задачи на языке программирования Паскаль АВС. Курс предполагает изучение базовых алгоритмических конструкций (следование, ветвление, цикл) и их реализацию средствами языка программирования, работу с простыми типами данных.

Программа курса составлена на основе программы учителя информатики Малясовой С. В. (адрес Интернет-ресурса: http://www.it-n.ru).

Количество часов в неделю: 1 час, всего – 17 учебных часов

Образовательная область: «Информатика»

Цели и задачи курса

• Формирование алгоритмической культуры

• Развитие алгоритмического мышления учащихся

• Приобретение учащимися знаний и навыков алгоритмизации в ее структурном варианте

• Освоение типовых методов решения задач, реализуемых на алгоритмическом языке и кодирование их на языке программирования

• Формирование умение составлять, тестировать и отлаживать программу

• Предоставление возможности учащимся реализовать свой интерес к выбранному курсу

Организация учебного процесса. В основу организации учебного процесса положена система лекций и практических занятий.

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

Требования к знаниям и умениям учащихся после прохождения курса

Учащиеся должны знать

• виды, состав и назначение базовых алгоритмических конструкций,

• структуру программы на языке Паскаль;

• что такое операция, операнд; перечень основных операторов языка Паскаль;

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

• о логических выражениях и входящих в них операндах, операциях и функциях; назначение перечислимого и интервального типов данных;

и уметь:

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

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

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

Содержание курса

Программа. Данные. Операторы – 4 часа

Тандем алгоритм – программа. Структура программы. Рекомендации по стилю записи программы, использование комментариев. Типы данных. Идентификаторы: константы, переменные. Операторы присваивания, ввода, вывода. Операции целочисленной арифметики. Тестирование.

Основные алгоритмические структуры – 13 часов

Приоритетность выполнения операций. Вычисление значений математических выражений. Структура следования. Графический способ записи алгоритма. Конструкция ветвления: полная и неполная. Вложенные ветвления. Поиск большего из трех. Тестирование. Виды циклов. Вложенные циклы. Задачи на применение алгоритмов, содержащих несколько алгоритмических конструкций. Тестирование. Обработка последовательностей

ТЕМАТИЧЕСКОЕ ПЛАНИРОВАНИЕ

№

Тема

Часы

Программа. Данные. Операторы – 4 часа

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

1

Типы данных. Константы. Переменные.

1

Организация ввода-вывода. Оператор присваивания.

2

Основные алгоритмические структуры – 13 часов

Арифметические выражения. Стандартные функции.

1

Правила записи арифметических выражений. Операции. Операнды

Конструкция следования

Организация ветвлений в программах

Программирование циклических алгоритмов, виды циклов

2

Практикум по решению задач

5

Итоговый урок по теме «Основы программирования»

1

Литература

Учебно-методический комплект по курсу «Основы программирования» включает учебные пособия и практикум:

• Информатика. Задачник - практикум в 2т. / Под ред. И.Г. Семакина, Е.К. Хеннера: Том 1. – М.: Бином. Лаборатория Знаний, 2004.

• Попов В.Б. Turbo Pascal для школьников: Учеб. Пособие.- 3-е доп. изд. - М.: Финансы и статистика, 2002.

Методический и дидактический материал

Практикум «Программирование на языке PascalABC»

Презентация «Основы программирования»

Практикум по началам программирования

На языке Паскаль

Автор: Нагорная Г.В., учитель МБОУ «Лицей №1 им. академика Б.Н. Петрова»

г. Смоленск, 2016ВЫВОД ИНФОРМАЦИИ СРЕДСТВАМИ ЯЗЫКА ПАСКАЛЬ.

ВЫВОД текстовой и числовой ИНФОРМАЦИИ на языке ПАСКАЛЬ реализуется с помощью команды WRITE (writeln).

I. Вывод текстовых сообщений

Неформатированный вывод текста

Исполните программу:

PROGRAM PRIMER;

BEGIN

WRITE('У окна стою я как у холста,');

WRITE('ах, какая за окном красота…')

END.

Замените оператор write на writeln. Исполните 2 раза.

В конце программы(перед словом END) добавьте пустой(без операндов) оператор WRITELN. Исполните 2 раза.

Форматированный вывод текста

К предыдущей программе добавьте оператор вывода с операндом 'один','два','три'. Исполните.

Чтобы информация выводилась на экран в виде:

один два три,

задайте после каждого слова ширину поля для вывода данного слова:

WRITELN('один':7,'два':7,'три':10). Исполните.

Дополните программу так, чтобы на экран был выведен фрагмент текста вида: один два три

one two three

1 2 3

Введите операторы:

writeln('2000 +5 ') - здесь операнд заключен в апострофы,

writeln(2000 + 5) - здесь операнд без апострофов,

writeln('1990 +9 =',1990+9)

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

II.Вывод результатов арифметических выражений

Пользуясь оператором writeln вычислить:

а) 99+1 ; Результатом будет дробное число, оно выведется на

8 экран в экспоненциальном виде: 1.2500000000E+01. Исполните.

(99+1)/8 = 12.5 -здесь результат записан в естественном виде.

Чтобы получить результат выражения в естественной форме, нужно отформатировать вывод результата. Для этого через двоеточие зададим ширину поля для всего выводимого числа и для дробной части этого числа: writeln((99+1)/8 :5:2) Здесь (:5:2) –формат.

Добавьте к программе указанный оператор. Исполните.

Задайте свои значения ширины поля для числа и его дробной части и исполните программу.

б) Отформатируйте результат в примере. Исполните.

(35 + 17)*10 +1.5. Подберите такой формат, чтобы результат

48*6-8.располагался посреди строки на экране. Программу с результатом исполнения запишите в тетради.

СОСТАВЛЕНИЕ ЛИНЕЙНЫХ ПРОГРАММ С ИСПОЛЬЗОВАНИЕМ КОМАНД ПРИСВАИВАНИЯ И ЗАПРОСА.

Задача. Найти скорость, если известны путь(км) и время(часы). Значения пути и времени ввести по запросу. Введите программу:

PROGRAM skorost;

var s, t, v:real;

BEGIN

writeln ( ‘введите значение пути ’);

readln (s); ^{команда запроса значения для переменной S}

writeln ( ‘введите значение времени’);

readln (t); ^{команда запроса значения для переменной t}

v := s/t; ^{команда присваивания значения переменной V}

writeln (‘скорость =’,v)

END.

Исполните программу. Отформатируйте результат.

Задача «Объем». Найдите объем комнаты, если известна высота(h)- 5м. Длину (а) и ширину(b) ввести по запросу. Составьте программу по примеру предыдущей задачи, воспользовавшись набором команд для тела программы: Begin, End, readln(a), writeln(‘объем=’,v),readln(b),Writeln(‘введите длину и ширину комнаты’), h:=5 .

Задача «Визитка ». .

Написать программу «Визитка ». Перед выводом визитки на экран запросить данные: ФИО, место работы, телефон. В результате исполнения программы на экране (примерный вариант):

*********************************

* Фамилия Иванов *

* имя Иван *

* Место работы школа *

* Тел 55 66 77 *

*********************************

Составить программы к следующим задачам:

Задача «Имя» Запросить имя(переменная строкового типа) и возраст(в годах). Сообщить фразу «Уважаемый . . .,вы прожили . . . дней»

Задача «Перевод». Запросить скорость в м/сек, сообщить в км/ч

Задача «Цифры». Даны три цифры. а)Составить число. б) Найти сумму нечетных цифр S= (a mod 2)*a + (b mod 2)*b + (c mod 2)*c

Задача «Размен». Разменный автомат меняет любую сумму денег (в коп.) 3-ех и 1-но копеечными монетами. Например, 23коп.= 7*3коп + 2*1коп. Сообщить количество копеек и ‘трешек’ с любой суммы.

Задача «минмакс». Найти наибольшее(наименьшее) число из 2-х целых чисел.

Задача «среднее». Найти среднее число из трех целых чисел.

Задача «Степень». Целое число k возвести в шестую степень за три операции умножения. Дополнительными переменными не пользоваться.

КОНСТРУКЦИЯ ВЕТВЛЕНИЯ

I. Рассмотрим неполный вариант условного оператора

Общий вид : if A then <команда>
Здесь А -переменная или выражение логического типа.
Если А=истина, то следующая за then <команда >исполняется
Если А =ложь, то <команда > не исполняется и программа обращается к оператору, записанному после условия.

Введите программу: ПОИСК БОЛЬШЕГО ИЗ ДВУХ.

PROGRAM MAXIMUM;

var M,K: integer;

BEGIN

writeln (введите два числа);

read(M,K);

if M>=K then writeln(‘MAX=‘,M);

if Mthen writeln(‘MAX=‘,K);

writeln(‘проверка окончена’);

END.

II. Рассмотрим полный вариант условного оператора

Общий вид : if A then <команда1> else<команда2>
Здесь А -переменная или выражение логического типа.
Если А=истина, то следующая за then <команда1> исполняется.
Если А =ложь, то <команда 1> не исполняется и программа обращается к оператору, записанному после слова else , т.е. <команде 2 >.

В программе MAXIMUM замените неполную конструкцию «ветвления» на полную:
if M>K then writeln(‘MAX=‘,M) «;» ставьте в конце
else writeln(‘MAX=‘,K); конструкции «ветвление»

III.Запись условия с использованием операторных скобок.

Если команда следующая за THEN(или ELSE) составная, т.е. состоит из нескольких команд, то группу этих команд заключают в операторные скобки BEGIN......END

Задача. Сравнить два числа. Если они равны, то заменить их значения на нули, иначе увеличить их значения в два раза.

Program NUM;

Var R, D, N: integer;

BEGIN

writeln (‘введите два числа’);

readln (R, D);

if R=D then begin R:=0; D:=0 end

else begin D:=2*D;R:=2*R end;

writeln (R,D)

END.

Исполнить 3 раза, результат отформатировать. Построить блок-схему.

Задача 1: Переменной В присвоить значение истина, если числа XиY равны, и ложь, если XY.

Задача «Дробь». Выяснить, существует ли дробь с числителем а и знаменателем b. Числа a, b -целого типа.

Решение: запросить значения a и b. Если знаменатель b0, то вывести дробь в виде (a/b). Например, a=3, b=7, тогда на экране: a/b=3/7=0,43.

Если дробь не существует, то сообщить: «на ноль делить нельзя».

Задача «Выражение». На основе задачи «Дробь» составить программу вычисления значения выражения:

a² +3b +1

(b+3)(a³ – 9 )

Результат сообщите в виде обыкновенной и десятичной дроби. Например, при a=2, b=3 на экране должен быть результат:

Значение выражения= - 14/6 = - 2.33

Задача «Идеал».

Ввести массу тела (в кг) и рост (в см). Рассчитать массу соответствующую введенному росту по формуле (рост-103).

Вывести одно из трех сообщений:

-«У вас нормальный вес»

-«Ваш вес превышает норму на …кг»

-«Ваш вес ниже нормы на …кг»

Задача «Слово».

В предложении из трех слов найти слово наибольшей длины и вывести его на экран.

Указание: длина слова (количество букв в слове) определяется функцией LENGTН(J), где J – некоторое слово

Задача «Уравнение».

Найти решения линейного уравнения Y=A*X + B.

Задача «Плюс(минус)».

Даны четыре числа. Найти среди них количество отрицательных и сумму положительных чисел.

Задача«Функция». Найти значение функции

Y= 1/x, для x[-3;6];

x³, для остальных x.

Задача «минмакс1».

Найти большее, меньшее, среднее из трех чисел.

ИСПОЛЬЗОВАНИЕ ЛОГИЧЕСКИХ ПЕРЕМЕННЫХ В ОПЕРАТОРЕ ПЕРЕХОДА ПО УСЛОВИЮ

Задача 1. Найти значение Y.

1, при x <-1 y=1 -1 y=0 2 y=2

y = 0, при х из [-1;2]

2, при x>2.

Пусть A,B- переменные логического типа.

Присвоим А=(x<-1), B=(x>2).

Случай X  [-1;2], т.е. Х[-;-1] и Х[2;+;] запишем как: (не A и не B).

Тогда 1, при a=истина;

y = 0, при (не A и не B);

2, при В=истина;

PROGRAM interval_1;

var x, y: integer;

A, B: boolean;

BEGIN

writeln ( ‘введите значение X’);

read (X);

A:=X<-1;

B:=X>2;

if A then Y:=1;

if B then Y:=2;

if not(A) and not(B) then Y:=0;

writeln (‘ЗНАЧЕНИЕ Y=’,Y)

END.

Задача 2. Найти значение Y.

1, при x из [-3;5],

Y= 

2, в остальных случаях.

X [-3,5] можно записать выражением (x-3)and(x5). Присвоим его значение логической переменной А, получим А=(x-3)and(x5), тогда

1, при А=истина,

y = 

2, при А=ложь.

Введите программу:

PROGRAM interval_2;

var X, Y: integer;

A: boolean;

BEGIN

writeln(‘введите значение х’);вставьте недостающие

…………………. строки,

A:=………… исполните 3 раза

if A then ……

else Y:=2;

writeln ('ЗНАЧ. Y=’,Y);

END.

Задача 3. Сообщить принадлежит ли точка с коорд. X,Y области D, где:

а)D –замкнутая область, образованная пересечением графиков функций Y=0 и Y=X²-2

б) D –замкнутая область, образованная пересечением графиков функций Y=1;X=2; Y=1/X в первой четверти координатной плоскости.

в) D –замкнутая область, образованная пересечением графиков функций Y=1; X=2 и Y=-X

КОНСТРУКЦИЯ ВЫБОРА

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

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

Выбор проходит на альтернативной основе, не может быть совпадения двух (или более) вариантов

ОБЩИЙ ВИД КОНСТРУКЦИИ ВЫБОР:

. . .  допустим, что переменная N может иметь одно из ряда значений

выбор    N из

| значение 1 : команда 1 при совпадении N c одним из

| значение 2 : команда 2 значений 1, 2 или 3, выполняется соот-

| значение 3 : команда 3 ветствующая этому значению команда

| иначе команда 4

все

команда 5

. . .

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

Пример А. Пусть переключатель N будет целого типа.

Возвести число А во 2, 3, 4-ю степень по выбору.

. . . Дополнить и исполнить программу по фрагменту
начало алгоритма: begin

A:=5 A:=5
запрос  N readln (N);

выбор    N из case N of

| 2 : вывод (А*А) 2: writeln(A*A);

| 3 : вывод (А*А*А) 3: writeln(A*A*A);

| 4 : вывод (А*А*А*А) 4: writeln(A*A*A*A);

| иначе вывод ('считайте сами') ELSE writeln('считайте сами')

все end

конец end.

Пример Б. Пусть переключатель N будет символьного типа.  Напечатать результат суммы, разности, произведения чисел а и b в зависимости от введенного с клавиатуры знака(+,-,*)

. . .

По фрагменту алгоритма составить и исполнить программу

начало

flag:= true Переменная FLAG сохранит значение

запрос  a,b ИСТИНА, если переменная N получит одно из

запрос N значений : *, +, -. Для другого значения N

выбор    N из переменная сменит значение на FLAG = ЛОЖЬ.

| '+' : m:=a + b

| '*' : m:=a * b

| '-' : m:=a – b

| иначе flag:=false

все

если flag

| то вывод (m)

| иначе вывод(‘нет решений’)

все

Задание. Включите в перечень знаков знак деления. Исключите деление на ноль.

Задание. Робот может перемещаться в четырех направлениях («С» — север,

«З» — запад, «Ю» — юг, «В» — восток) и принимать три цифровые команды: 0 — продолжать движение, 1 — поворот налево, –1 — поворот направо. Дан символ C — исходное направление робота и целое число N —посланная ему команда.

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

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

Задача "Копилка".

В копилку бросают жетоны. На каждом жетоне указан номинал (например, в рублях). Копилка способна вместить 100 жетонов, после заполнения она выдает сигнал: "Копилка полна" и сообщает накопленную сумму в рублях. Смоделировать работу копилки на ПК.

Дано: введем обозначения: G- номинал жетона, K- количество жетонов, S- текущая сумма денег в копилке.

Надо: S;

Решение: Сначала S=0; бросим жетон в 3 рубля(G=3), тогда S=0+3; бросим жетон в 5 рублей(G=5), тогда S=5+3=8 (руб.) И т.д.

Таким образом, сумма S увеличивает свое значение на G(руб.) при каждом броске:
Sтекущее = Sпредыдущее + Gтекущее;

Количество жетонов К увеличивается на "1" с каждым новым жетоном, брошенным в копилку:
K_{текущее} = K_{предыдущее} + 1;

При : К<= 100.

Алгоритм "Копилка" PROGRAM KOPILKA;

данные: S,K,G- целый тип; var …..

начало begin

S:=0; …

K:=0; …

пока K<=100 while k<=100

нц begin

| ввод (G) тело

| K:=K+1 …. цикла

| S:=S+G end;

кц …

вывод S

конец end.

Задание 1:

1. Ввести программу и исполнить ее.

2. Дополнить программу сообщениями типа:

до броска жетона - " бросайте жетон",

после броска жетона - "Спасибо".

3. После выхода из цикла

сообщить точную сумму:"В копилке … рублей",

сообщить количество жетонов в копилке.

4. Построить блок-схему.

Задание 2

Организовать останов цикла в случае обнаружения фальшивого жетона(G=0) и вывести при этом сообщение: "Внимание! Фальшивка!"

Задача "Угадайка".

Требуется угадать заранее задуманное число.

Пусть переменная num хранит задуманное число, а в переменную newnam вводятся испытуемые числа. В результате сравнения чисел num и newnum выведется одно из сообщений:

• "Угадал"("не угадал")

• "Перелет"("недолет").

Алгоритм "Угадайка"

данные: num, newnum- целый тип;

начало

Randomize;

Num:= random(100);

ввод (newnum)

пока num<>newnum

нц

| если num>newnum

| | то вывод('перелет')

| | иначе вывод('недолет')

| всё

| ввод (newnum)

кц

вывод('Угадал!')

конец

Задачи для самостоятельного решения:

1. "Пароль": С клавиатуры запрашивается "пароль" до тех пор, пока пользователь не введет нужную фразу, затем сообщается "отзыв".

2. Среди первых 20-ти натуральных чисел найти сумму четных и произведение нечетных чисел.

3. Найти остаток от деления целых чисел, если разрешено пользоваться только операцией вычитания.

ОПЕРАТОР ЦИКЛА С ПОСТУСЛОВИЕМ (ЦИКЛ "ДО")

Цикл "до" как и любой другой цикл имеет тело цикла (одна или несколько команд), условие повтора и счетчик цикла (если он нужен). Условие повтора (обозначим его буквой В) – выражение булевского типа и может принимать значения ИСТИНА либо ЛОЖЬ.

Принцип действия цикла "ДО":
Если B = ЛОЖЬ --->исполняй команды тела цикла

Если B = ИСТИНА ---> исполняй команду, следующую за телом цикла.

Repeat

begin

…

… тело

… цикла

…

end

ложь Until B

…

истина

Задание 1. В задаче "Копилка" переделать цикл "пока" на цикл "до". Предусмотреть подсчет количества монет.

Задание 2. Суммировать элементы произвольной последовательности чисел до тех пор, пока не введено число 0. Использовать цикл "до".

Задание 3. Значения функции y=x², заданы на отрезке [2;8] c шагом 0.5 Найти сумму значений меньшую некоторого числа А.

Составить программу по заданному алгоритму:

Здесь R=(Y >A) ИЛИ (X>8)

ЛОЖЬ

ИСТИНА

Найдите количество элементов составивших сумму.

ЦИКЛ "ДЛЯ"

Цикл, для которого можно точно указать число повторений называют ЦИКЛОМ "ДЛЯ".

Состоит из и команды для смены значений счетчика (параметра) цикла и тела цикла

Общий вид цикла "ДЛЯ":

для i:= нач.значение  до конечн.знач. . делай

нц

¦ тело цикла

кц

В среде PASCAL счетчик (здесь обозначен буквой i) может увеличивать или уменьшать значение только на "1".

Например:

Запись [for i:=2 to 40 do] –означает увеличение значения счетчика i на 1 с каждым витком цикла, пока i не достигнет числа 40

Запись [for i:=40 downto 2]–означает уменьшение значения счетчика i на 1, пока i не достигнет числа 2

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

Если тело цикла состоит более чем из одной команды, оно заключается в операторные скобки: begin...end.

Тело цикла исполняется столько раз, сколько значений примет параметр (счетчик цикла).

Задание 1. Введите и исполните программу, иллюстрирующую действие цикла "ДЛЯ"

PROGRAM CICL; {В программе несколько циклов со счетчиками разных типов }

var

i:integer;

c:char;

b:boolean;

begin

for i:=-4 to 4 do write('значения счетчика по возрастанию',i);

writeln(‘**********’);

for i:=4 downto -4 do write(‘значения счетчика по убыванию ',i)

writeln(‘**********’);

for c:='a' to 'r' do write('счетчик отсчитывает буквы по алфавиту ',c);

writeln(‘**********’);

for b:=TRUE downto FALSE do write(' счетчик логического типа',b);

writeln(‘**********’);

end.

Задание 2. Внесите изменения в программу CICL:

1. для подсчета количества букв в цикле 3);

2. для вывода положительных значений i в цикле 2);

3. поменяйте местами начальное и конечное значения в цикле 4), исполните;

4. для вывода букв парами в цикле 3) ab, cd,.ef..;

Правила поиска суммы (произведения) элементов ряда

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

Если ряд задан своими элементами, то перед тем как произвести действия над элементами ряда нужно определить
формулу общего члена последовательности X_i , где i-номер элемента в ряду.

Пример1. Задана последовательность элементов: 1, ½, ¹/3, ¼, …

Тогда x₁ =1; x₂ = ½; … x₆ = ¹/6,

Т.е. (x _i =1/i ) – формула общего элемента последовательности.

Пример2. Для последовательности элементов: 5/2, 5/3, 5/4, …

x₁ =5/2; x₂ =5/3; т.е. x_i =5/( i+1)-формула общего элемента ряда.

Пример3. Для последовательности 2; 2½; 3¹/₃ ; … 6¹ /₆ ;

x₁ =2 (или 1¹/₁); x₂ = 2¹ /₂; …

т.е. x _i = i+1/i; - формула общего элемента ряда

Задание. Определить формулу общего элемента для последовательности:

а) 3, 9, 27, 84, …

б) ¼, 1/5, 1/6, …

в) –1, 0, 1, 2, 3, …

Ряд может быть задан формулой общего элемента.

Пример 4.

Пусть ( b_n = n² + 1)–формула общего эл-та, тогда имеем ряд : 2, 5, 10,

Пример 5. Формула (a_n = a_n-1 + a_n-2) задает рекуррентную последовательность, каждый элемент такой последовательности выражается через предыдущие.

Если задать а₁= 1, а₂ =1, то получим ряд : 1, 1, 2, 3, 5, 8,..

Последовательность, образованную по формуле a_n =a_n-1 + a_n-2 называют последовательностью Фибоначчи.

Задание. Рекуррентная последовательность задана формулой :

x _n = 2*x _n-1, записать ряд элементов.

Поиск суммы (произведения) элементов некоторой последовательности xi

Если известно число элементов последовательности и формула общего элемента, то алгоритм строится по схеме:

• описание аргументов

• задание начального значения S и значения первого элемента.

• в теле цикла записать формулу общего элемента ряда х _i

• в теле цикла записать команду S:=S + X, следуя которой переменная S станет накапливать сумму элементов x_i

• Количество повторов в цикле равно количеству элементов ряда (т.е. числу i)

Задание 1. Составить программу поиска суммы чисел от 1 до 15.

Сумма=1+2+3+…+15; Здесь (x = i)-формула общего элемента ряда,

S_i=S_i-1+x_i ; i-счетчик(параметр) цикла, 1 i 15;

Для i:=1 до 15

Нц|

S:=S+i

Кц

Вывод S

Укажите тело цикла, условие повтора.

Внесите в программу изменения:

1. найти сумму четных чисел;

2. найти сумму четных чисел от 6 до 100;

3. найти произведение чисел

4. кратных числу 3.

Задание 2. Найти сумму 5-ти элементов ряда {r_n},

где r_n = r_n-1² + 1, если r_{1 =} 1.

Задание 3.

Дано: последовательность (x_i)= (10, 20, 30 ...); 1 i 10; Решить, используя цикл «Для»

Надо

1. Найти сумму элементов массива кратных трем и сосчитать их кол-во.

2. Найти произведение суммы первых трех элементов и суммы следующих пяти элементов ряда.

Задание 4

Найти сумму N элементов ряда: 3 + 3*3 +3*3*3 +. . . Решить, используя цикл «Для»

Задание 5

Найти произведение значений функции Y = 4*X, где 2 x 7, шаг 0.5. Решить, используя цикл «Пока»

Задание 6.

Дано: последовательность (x_i)= (5, 10, 15, 20 ...).

Сумма элементов должна быть не больше некоторого M. Сколько элементов составят сумму? Решить, используя цикл «Пока»

ФУНКЦИИ И ПРОЦЕДУРЫ НАД ПЕРЕМЕННЫМИ СТАНДАРТНЫХ ТИПОВ.

Целый тип включает несколько подтипов. Обозначим буквами выражения принадлежащие следующим подтипам:

b- byte, s-shorting, w-world, i-integer, t-longint

буквой х обозначим выражение любого из этих подтипов.

x², x

Odd( t )

true, если t- нечетное

Random(w)

случайное число в диапазоне [0; w-1]

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

ord(false) = 0; ord(true) = 1 succ(false) = true; pred(true) = false

Для переменных символьного типа:

chr(b) - сообщает символ кода b

upcase(ch), где ch - буква. Если ch - строчная буква, то она преобразуется в заглавную, иначе выводится то, что содержится в ch.

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

пусть st='чистое небо', stt=' высокое ',

тогда length(st)=10 - длина строки =10 символов

copy(st,0,4)='чист' - копия четырех символов, начиная с нулевого,

insert(stt, st, 7)='чистое высокое небо'- вставлена строка stt в строку st, начиная с 7-го символа,

pos('сто', st)=2 - находит первое вхождение подстроки в st и сообщает номер позиции.