Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015

Опубликуйте свой материал в официальном Печатном сборнике методических разработок проекта «Инфоурок»

(с присвоением ISBN)

Выберите любой материал на Вашем учительском сайте или загрузите новый

Оформите заявку на публикацию в сборник(займет не более 3 минут)

+

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

Инфоурок / Информатика / Конспекты / Разработка уроков по информатике и ИКТ для 8 класса "Алгоритмизация и программирование. Язык программирования Паскаль"
ВНИМАНИЮ ВСЕХ УЧИТЕЛЕЙ: согласно Федеральному закону № 313-ФЗ все педагоги должны пройти обучение навыкам оказания первой помощи.

Дистанционный курс "Оказание первой помощи детям и взрослым" от проекта "Инфоурок" даёт Вам возможность привести свои знания в соответствие с требованиями закона и получить удостоверение о повышении квалификации установленного образца (180 часов). Начало обучения новой группы: 24 мая.

Подать заявку на курс
  • Информатика

Разработка уроков по информатике и ИКТ для 8 класса "Алгоритмизация и программирование. Язык программирования Паскаль"

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

14.79 КБ Список используемой литературы.docx
26.5 КБ Проверочная работа _1 вариант.doc
26 КБ Проверочная работа _2 вариант.doc
29.5 КБ Проверочная работа.doc
39 КБ Урок11_учитель.doc
29.5 КБ Урок 1_ученик.doc
45 КБ Урок 1_учитель.doc
31 КБ Практическая работ2.doc
23.5 КБ Практическая работа_урок10.doc
45.5 КБ Урок 10_учитель.doc
27 КБ Задания к уроку 2.doc
29 КБ Проверочная работа_урок 2.doc
159.5 КБ Урок 2_ученик.doc
179.5 КБ Урок 2_учитель.doc
25.5 КБ Плакат1_урок3.doc
23.5 КБ Плакат2_урок3.doc
19.5 КБ Пример1_урок3.doc
23.5 КБ Пример2_урок3.doc
28 КБ Решение задач_урок3.doc
33.5 КБ Тестирование_урок 3.doc
76.5 КБ Урок 3_учитель.doc
23.5 КБ плакат_урок3.doc
53 КБ Урок 4_учитель.doc
27.5 КБ практическая работа_урок4.doc
84.5 КБ функции табл.doc
22.5 КБ Практическая работа_урок5.doc
25.5 КБ Проверочная работа.doc
49 КБ Урок5_учитель.doc
19.5 КБ Плакат1_6.doc
22.5 КБ Практическая работа_урок6.doc
78 КБ Таблица намеров цвета.doc
73 КБ Урок6_учитель.doc
26 КБ Ввод одиночного символа.doc
23.5 КБ Плакат.doc
62 КБ Урок 7_учитель.doc
28 КБ практическая работа_урок7.doc
47 КБ проверочная работа_урок7.doc
30.5 КБ Практическая работа_дополнительно.doc
31 КБ Урок 8_учитель.doc
23 КБ практическая работа_8.doc
30.5 КБ Задание для проверки.doc
21.5 КБ Практическая работа_урок9.doc
35 КБ Урок 9_учитель.doc
26.5 КБ Практическая работа_1.doc
26.5 КБ Урок_1.doc
19.5 КБ Плакат.doc
23 КБ Практическая работа_1.doc
23 КБ Практическая работа_2.doc
24 КБ Проверочная работа.doc
42 КБ Урок 1_учитель.doc
29 КБ Урок 2_учитель.doc
30 КБ Практическая работа_1.doc
181.5 КБ Практическая работа_2.doc
95 КБ Урок_1.doc
327.5 КБ Урок_2.doc
51 КБ Дополнение к теме.doc
24 КБ Практическая работа_1.doc
28.5 КБ Практическая работа_2.doc
107.5 КБ Проверочная работа.doc
45 КБ Урок_1.doc
89 КБ Урок_2.doc
343.5 КБ Урок_3.doc
117 КБ Урок_4.doc

Выбранный для просмотра документ Список используемой литературы.docx

библиотека
материалов

Список используемой литературы

  1. Вольский С.В., Дмитриев П.А. Turbo Pascal 7.0 для студентов и школьников. – СПб.: Наука и Техника, 2009.

  2. Залогова Л.А., Плаксин М.А., Русаков С.В. и др.; под ред. И.Г. Семакина, Е.К. Ханнера. Информатика и ИКТ. Задачник-практикум в 2 т. – М.: Бином. Лаборатория знаний, 2009.

  3. Культин Н.Б. Turbo Pascal в задачах и примерах. - СПб.: БХВ-Петербург, 2009.

  4. Сафронов И.К. Бейсик в задачах и примерах. – СПб.: БХВ-Петербург, 2009.

  5. Ставнистый Н.Н. Basic в математике. – М.: СОЛОН-Р, 2001.

  6. Ушаков Д.М., Юркова Т.А. Паскаль для школьников. – СПб.: Питер, 2008.

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

библиотека
материалов

Проверочная работа по теме: «Условный оператор».


1 вариант.

Задание 1. (письменная работа)

Ответе на следующие вопросы:


1. Является ли условным оператором последовательность символов:

а) if х < у then х: =0 else у: = 0;

б) if х> у then x: = 0 else read (у);

в) if x>=y then х: = 0; у:=0 else write (z);

г) if a < b then 100 else z: = 5;

д) if aс then z: = z+1;

е) if sqrt(z) < =3.17 then z: = z+1;

ж) if a <> b then z: = z+1; a:=b+l ?


2. Какие из следующих вложенных условных операторов допустимы:

а) if x+yх+1 else

if y>z then z: = 0 else y: = 0;

б) if x+y< z then

if y> z then r: = 0 else y: =0

else z:=0;

в) if x+y < z then

if у > z then z: = 0 else y:= 0?


3. Указать составные операторы среди следующих последовательностей символов:

а) begin

begin а:=0

end

end.

б) begin

a:= 0;

end

в) а:=0;

г) if a < b then

begin

a := 0;

b := 0;

end



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

if j>k then j = k-2 else k=k-2;

если исходные значения переменных равны:

a) j=3,k=5;

б) j=3,k=3;

в) j=3,k=2.


Задание 2. (практическая работа).

Выполните задание на компьютере и полученные программы запишите.


1. Дано вещественное число х. Вычислить hello_html_2155d687.gif если

0, при Х<=0,

hello_html_m1704d24.gifпри hello_html_m53d4ecad.gif0<x<=1,

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


2. Составить программу нахождения суммы двух наибольших из трёх различных чисел.


3. В чемпионате по футболу команде за выигрыш даётся 3 очка, за проигрыш – 0, за ничью – 1. Известно количество очков, полученных командой за игру. Определить словесный результата игры (выигрыш, проигрыш или ничья).


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

библиотека
материалов

Проверочная работа по теме: «Условный оператор».


2 вариант.

Задание 1. (письменная работа)

Ответе на следующие вопросы:


1. Является ли условным оператором последовательность символов:

а) if х < у then х: =0 else у: = 0;

б) if х> у then x: = 0 else read (у);

в) if x>=y then х: = 0; у:=0 else write (z);

г) if a < b then 100 else z: = 5;

д) if aс then z: = z+1;

е) if sqrt(z) < =3.17 then z: = z+1;

ж) if a <> b then z: = z+1; a:=b+l ?


2. Какие из следующих вложенных условных операторов допустимы:

а) if x+yх+1 else

if y>z then z: = 0 else y: = 0;

б) if x+y< z then

if y> z then r: = 0 else y: =0

else z:=0,

в) if x+y < z then

if у > z then z: = 0 else y:= 0?


3. Указать составные операторы среди следующих последовательностей символов:

а) begin

begin а:=0

end

end,

б) begin

a:= 0

end

в) а:=0,

г) if a < b then

begin

a := 0;

b := 0

end



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

if j>k then j = k-2 else k=k-2;

если исходные значения переменных равны:

a) j=3,k=5;

б) j=3,k=3;

в) j=3,k=2.


Задание 2. (практическая работа).

Выполните задание на компьютере и полученные программы запишите.


1. Дано вещественное число у. Вычислить hello_html_7bbe6178.gif если:

2, при у>2,

hello_html_71312bb1.gifпри hello_html_m53d4ecad.gif0<x<=2,

-3у в остальных случаях.


2.Составить программу нахождения произведения двух наименьших из трёх различных чисел.


3. В чемпионате по футболу команде за выигрыш даётся 3 очка, за проигрыш – 0, за ничью – 1. Известно количество очков, полученных командой за игру. Определить словесный результата игры (выигрыш, проигрыш или ничья).


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

библиотека
материалов

1. Является ли условным оператором последовательность символов:

а) if х < у then х: =0 else у: = 0.

б) if х> у then x: = 0 else read (у),

в) if x>=y then х: = 0; у:=0 else write (z),

г) if a < b then 100 else z: = 5,

д) if aс then z: = z+1,

е) if sqrt(z) < =3.17 then z: = z+1,

ж) if a <> b then z: = z+1; a:=b+l ?

2. Какие из следующих вложенных условных операторов допустимы:

а) if x+yх+1 else if y>z then z: = 0 else y: = 0,

б) if x+y< z then if y> z then r: = 0 else y: =0 else z:=0,

в) if x+y < z then if у > z then z: = 0 else y:= 0?

3. Указать составные операторы среди следующих последовательностей символов:

а) begin begin а:=0 end end,

б) begin a:= 0 end

в) а:=0,

г) if a < b then begin a := 0; b := 0 end

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

if j>k Then j = k-2 Else k=k-2 if j>k then j:=k - 2 else dec(k,2); если исходные значения переменных равны:

a)j=3,k=5;

6)j=3,k=3;

B)j=3,k=2.


1. Является ли условным оператором последовательность символов:

а) if х < у then x: =0 else у: = 0,

б) if х> у then x: = 0 else read (у),

в) if x>=y then х: = 0; у:=0 else write (z), Г) if a < b then 100 else z: = 5,

д) if aс then z: = z+1,

е) if sqrt(z) < =3.17 then z: = z+1,

ж) if a <> b then z: = z+1; a:=b+l?

2. Какие из следующих вложенных условных операторов допустимы:

а) if x+yх+1 else if y>z then z: = 0 else y: = 0,

б) if x+y< z then if y> z then r: = 0 else y: =0 else z:=0,

в) if x+y < z then if у > z then z: = 0 else y:= 0?

3. Указать составные операторы среди следующих последовательностей символов:

а) begin begin a:=0 end end,

б) begin a:= 0 end

в) а:=0,

г) if a < b then begin a := 0; b := 0 end

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

if j>k Then j = k-2 Else k=k-2 if j>k then j :=k - 2 else dec(k,2); если

исходные значения переменных равны:

a)j=3,k=5;

6)j=3,k=3;

в) j=3,k=2.

Выбранный для просмотра документ Урок11_учитель.doc

библиотека
материалов

ЯЗЫК ПРОГРАММИРОВАНИЯ TURBO PASCAL 7.0


Тема: ПРОВЕРОЧНАЯ РАБОТА ПО ТЕМЕ: «УСЛОВНЫЙ ОПЕРАТОР В TURBO PASCAL 7.0»



Цели: закрепить знания учащихся об условном операторе IF полной и неполной формы и составном операторе.




План.

I. Проверочная работа.

II. Практическая работа.

III. Итог урока.


Ход урока.


I. Проверочная работа.


Письменная работа.


1. Является ли условным оператором последовательность символов:

а) if х < у then х: =0 else у: = 0;

б) if х> у then x: = 0 else read (у);

в) if x>=y then х: = 0; у:=0 else write (z);

г) if a < b then 100 else z: = 5;

д) if aс then z: = z+1;

е) if sqrt(z) < =3.17 then z: = z+1;

ж) if a <> b then z: = z+1; a:=b+l ?


2. Какие из следующих вложенных условных операторов допустимы:

а) if x+yх+1 else

if y>z then z: = 0 else y: = 0;

б) if x+y< z then

if y> z then r: = 0 else y: =0

else z:=0,

в) if x+y < z then

if у > z then z: = 0 else y:= 0?


3. Указать составные операторы среди следующих последовательностей символов:

а) begin

begin а:=0

end

end.

б) begin

a:= 0

end

в) а:=0,

г) if a < b then

begin

a := 0;

b := 0;

end


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

if j>k then j = k-2 else k=k-2;

если исходные значения переменных равны:

a) j=3,k=5;

б) j=3,k=3;

в) j=3,k=2.


II. Практическая работа.

1 вариант


1. Дано вещественное число х. Вычислить hello_html_2155d687.gif если

0, при Х<=0,

hello_html_m1704d24.gifпри hello_html_m53d4ecad.gif0<x<=1,

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


2. Составить программу нахождения суммы двух наибольших из трёх различных чисел.


3. В чемпионате по футболу команде за выигрыш даётся 3 очка, за проигрыш – 0, за ничью – 1. Известно количество очков, полученных командой за игру. Определить словесный результата игры (выигрыш, проигрыш или ничья).


2 вариант.


1. Дано вещественное число у. Вычислить hello_html_7bbe6178.gif если:

2, при у>2,

hello_html_71312bb1.gifпри hello_html_m53d4ecad.gif0<x<=2,

-3у в остальных случаях.


2.Составить программу нахождения произведения двух наименьших из трёх различных чисел.


3. В чемпионате по футболу команде за выигрыш даётся 3 очка, за проигрыш – 0, за ничью – 1. Известно количество очков, полученных командой за игру. Определить словесный результата игры (выигрыш, проигрыш или ничья).


III. Итог урока.


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



Ответы:

1. Проверочная работа.

№ 1

да, да, нет, нет, нет, да, нет.

№ 2

да, нет, нет.

№ 3

нет, нет, нет, да.

№ 4

3, 3

3, 1

0, 2

2. Практическая работа.

1 вариант.

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

библиотека
материалов

ОСНОВНЫЕ ПОНЯТИЯ О ЯЗЫКЕ ПРОГРАММИРОВАНИЯ TURBO PASCAL 7.0

Основные средства языка.

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

Символы языка - это элементарные знаки, используемые при составлении любых текстов. Набор таких символов называют алфавитом языка.

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


Алфавит языка Turbo Pascal 7.0.

Алфавит (набор символов) языка Turbo Pascal 7.0. включает:

- все латинские прописные и строчные буквы (A-Z,a-z)

- арабские цифры 0-9

- знаки + -*\/<>,.;:'()_и др.

- служебные слова.


Служебные слова в Turbo Pascal 7.0.

Для записи команд, имен функций, поясняющих терминов Turbo Pascal 7.0 предусматривают набор строго определенных слов, которые называются служебными или зарезервированными (это английские мнемонические сокращения).

Служебные слова делятся на три категории:

- операторы (коды операций) (WRITELN и т. д.)

- функции (имена функций) (SIN,COS и т. д.)

- ключевые слова (AND, VAR, BEGIN, END и т. д.)

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


Структура программы.


Программа на Turbo Pascal 7.0 состоит из строк. Одна строка содержит один или несколько операторов, разделенных точкой с запятой.

Например:

a: = 1;b:=1;

Ссылка в нужное место программы в Turbo Pascal 7.0 может осуществляться также по метке.

В этом случае метки должны быть описаны в разделе описания меток. (Label аа;)

Если строка в Turbo Pascal 7.0 заключена в фигурные скобки ({}), то строка воспринимается как комментарий.


Имя в Turbo Pascal 7.0 образуется из букв от А до Z (или от а до z), знака подчеркивания _ и цифр 0 ... 9 и начинается с буквы. Имя используется для обозначения переменных, меток, процедур и т. п.

Компиляция и запуск программы в ТП 7.0 осуществляется комбинацией клавиш CTRL-F9 (или вызовом команды RUN из меню RUN). Если транслятор обнаружит в программе синтаксическую ошибку, он выдаст соответствующее сообщение на экран, указав предполагаемое место ошибки. Откорректировав программу, сохраните ее последнюю версию с помощью клавиши F2 и перейдите к процессу компиляции и запуска.


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


Program имя (input, output);

Label; - раздел меток;

Const; - раздел констант;

Type; -раздел типов;

Var; -раздел переменных;

Procedure - раздел процедур и функций;

Function

BEGIN

оператор 1

оператор 2

оператор п-1;

оператор п;

END.


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

В одной строке можно указать несколько описаний или операторов.

Выбранный для просмотра документ Урок 1_учитель.doc

библиотека
материалов


ЯЗЫК ПРОГРАММИРОВАНИЯ TURBO PASCAL 7.0


Т е м а: ОСНОВНЫЕ ПОНЯТИЯ О ЯЗЫКЕ ПРОГРАММИРОВАНИЯ TURBO PASCAL 7.0


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


ПЛАН

I. Изучение нового материала.

1. Основные сведения о языках программирования.

2. Основные средства языка. Алфавит языка. Служебные слова.

3. Структура программ.

II. Итог урока.

Домашнее задание.


Ход урока


I. Изучение нового материала.


1. Основные сведения о языках программирования.


Компьютер - это устройство для универсальной обработки информации. Достаточно только написать точную инструкцию (последовательность) тех действий, которые нам нужны. Вспомним, что словесное описание этих действий - один из способов задания (описания) алгоритма. А сама последовательность действий носит название - программа. Эту последовательность действий следует писать на языке, который был бы понятен человеку и компьютеру.

Под языком понимают любую систему знаков (Знак - это объект, специально выделенный для передачи информации: буква, жест, положение переключателя и т. п.) - это общее определение. И здесь возникает следующая проблема- язык ЭВМ (машинный язык) весьма далек от понятий, которыми оперирует человек: регистр, переслать, перейти по адресу и т. д., и все это записывается в машинных кодах. Поэтому, чтобы компьютер мог понять написанную программу, она должна быть переведена на язык, понятный самому компьютеру. Этот процесс перевода называется трансляцией. Существует два различных подхода к трансляции - интерпретация и компиляция:

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

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

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

Из истории. Турбо Паскаль появился па рынке программных продуктов в 1984 году и совершил революцию в программировании. До этих пор предпочтение отдавалось QBasic — простому, дешевому и легко усваиваемому. Паскаль же был аппаратно зависимым, дорогим и сложным в обращении. С появлением Турбо Паскаля положение меняется. Турбо Паскаль состоит из языка программирования и среды программирования, которая создает удобства в работе.

Изучение языка программирования идет вместе с изучением всей системы Турбо Паскаль. Язык программирования Паскаль был разработан Н. Виртом в 1968-1970 годах и получил широкое распространение благодаря наглядности программ и легкости при изучении. Он послужил основой для разработки других языков программирования (например, Ада, Модула-2).

В 1992 году фирма Borland International выпустила два пакета программирования на языке Паскаль - это Borland Pascal 7.0 и Turbo Pascal 7.0.

Пакет Turbo Pascal 7.0 использует новейшие достижения в программировании. Он может быть использован практически на любой машине и относительно дешев. Язык этой версии обладает широкими возможностями, имеет большую библиотеку модулей. Среда программирования позволяет создавать тексты программ, компилировать их, находить и исправлять ошибки, компоновать программы из отдельных частей, использовать модули, отлаживать и выполнять отлаженную программу.

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


2. Основные средства языка. Алфавит языка. Служебные слова.


Основные средства языка.

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

Символы языка - это элементарные знаки, используемые при составлении любых текстов. Набор таких символов называют алфавитом языка.

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


Алфавит языка Turbo Pascal 7.0.

Алфавит (набор символов) языка Turbo Pascal 7.0. включает:

- все латинские прописные и строчные буквы (A-Z,a-z)

- арабские цифры 0-9

- знаки + -*\/<>,.;:'()_и др.

- служебные слова.


Служебные слова в Turbo Pascal 7.0.

Для записи команд, имен функций, поясняющих терминов Turbo Pascal 7.0 предусматривают набор строго определенных слов, которые называются служебными или зарезервированными (это английские мнемонические сокращения).

Служебные слова делятся на три категории:

- операторы (коды операций) (WRITELN и т. д.)

- функции (имена функций) (SIN,COS и т. д.)

- ключевые слова (AND, VAR, BEGIN, END и т. д.)

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


3. Структура программы.


Программа на Turbo Pascal 7.0 состоит из строк. Одна строка содержит один или несколько операторов, разделенных точкой с запятой.

Например:

a: = I;b:=l;

Ссылка в нужное место программы в Turbo Pascal 7.0 может осуществляться также по метке.

В этом случае метки должны быть описаны в разделе описания меток. (Label аа;)

Если строка в Turbo Pascal 7.0 заключена в фигурные скобки ({}), то строка воспринимается как комментарий.


Имя в Turbo Pascal 7.0 образуется из букв от А до Z (или от а до z), знака подчеркивания _ и цифр 0 ... 9 и начинается с буквы. Имя используется для обозначения переменных, меток, процедур и т. п.

Компиляция и запуск программы в ТП 7.0 осуществляется комбинацией клавиш CNTR-F9 (или вызовом команды RUN из меню RUN). Если транслятор обнаружит в программе синтаксическую ошибку, он выдаст соответствующее сообщение на экран, указав предполагаемое место ошибки. Откорректировав программу, сохраните ее последнюю версию с помощью клавиши F2 и перейдите к процессу компиляции и запуска.


Таким образом, структура программы имеет следующий вид:


Turbo Pascal 7.0

Program имя (input, output);

Label; - раздел меток;

Const; - раздел констант;

Type; -раздел типов;

Var; -раздел переменных;

Procedure - раздел процедур и функций;

Function

BEGIN

оператор 1

оператор 2

оператор п-1;

оператор п;

END.


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

В одной строке можно указать несколько описаний или операторов.


II. Итог урока.

Домашнее задание.

Подготовить ответы на вопросы:

  1. Для чего служит компьютер?

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

  3. Что называется алфавитом языка?

  4. Что такое интерпретация и компиляция?

  5. Что представляет собой программа?

  6. Что включает в себя алфавит языков Qbasic и Turbo Pascal 7.0?

  7. В каком разделе происходит описание переменных?

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

библиотека
материалов

Практическая работа.

Условные операторы


  1. Даны три вещественных числа. Вывести на экран:

    1. Квадраты, те из них, которые принадлежат интервалу (1,6-3,8);

    2. Кубы, те из них, которые принадлежат интервалу (0,7-5,1).

Иначе вывести сообщение «Ваше число не попадает в заданный интервал».


  1. Даны четыре целых числа. Определить, сколько из них чётных.



Практическая работа.

Условные операторы


  1. Даны три вещественных числа. Вывести на экран:

    1. Квадраты, те из них, которые принадлежат интервалу (1,6-3,8);

    2. Кубы, те из них, которые принадлежат интервалу (0,7-5,1).

Иначе вывести сообщение «Ваше число не попадает в заданный интервал».


  1. Даны четыре целых числа. Определить, сколько из них чётных.




Практическая работа.

Условные операторы


  1. Даны три вещественных числа. Вывести на экран:

    1. Квадраты, те из них, которые принадлежат интервалу (1,6-3,8);

    2. Кубы, те из них, которые принадлежат интервалу (0,7-5,1).

Иначе вывести сообщение «Ваше число не попадает в заданный интервал».


  1. Даны четыре целых числа. Определить, сколько из них чётных.




Практическая работа.

Условные операторы


  1. Даны три вещественных числа. Вывести на экран:

    1. Квадраты, те из них, которые принадлежат интервалу (1,6-3,8);

    2. Кубы, те из них, которые принадлежат интервалу (0,7-5,1).

Иначе вывести сообщение «Ваше число не попадает в заданный интервал».


  1. Даны четыре целых числа. Определить, сколько из них чётных.


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

библиотека
материалов

Практическая работа.

Задание 1.

Даны два различных вещественных числа. Определить:

  1. какое из них больше;

  2. какое из них меньше.

Задание 2.

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

Задание 3.

Написать программу вычисления стоимости покупки с учётом скидки. Скидка в 10% предоставляется, если сумма покупки больше 1000 рублей. Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введённые пользователем, выделены полужирным шрифтом).

Вычисления стоимости покупки с учётом скидки.

Введите сумму покупки и нажмите <Enter>

-1200

Вам предоставляется скидка 10%

Сумма покупки с учётом скидки: 1080.00 руб.

Задание 4.

Дана x, y (x<>y). Получить числа x, y в следующем порядке: большее, потом меньшее.

Задание 5.

Даны три числа. Возвести в квадрат те из них, значения которых неотрицательны. Отрицательные числа оставить без изменения.



Практическая работа.

Задание 1.

Даны два различных вещественных числа. Определить:

  1. какое из них больше;

  2. какое из них меньше.

Задание 2.

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

Задание 3.

Написать программу вычисления стоимости покупки с учётом скидки. Скидка в 10% предоставляется, если сумма покупки больше 1000 рублей. Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введённые пользователем, выделены полужирным шрифтом).

Вычисления стоимости покупки с учётом скидки.

Введите сумму покупки и нажмите <Enter>

-1200

Вам предоставляется скидка 10%

Сумма покупки с учётом скидки: 1080.00 руб.

Задание 4.

Дана x, y (x<>y). Получить числа x, y в следующем порядке: большее, потом меньшее.

Задание 5.

Даны три числа. Возвести в квадрат те из них, значения которых неотрицательны. Отрицательные числа оставить без изменения.

Выбранный для просмотра документ Урок 10_учитель.doc

библиотека
материалов

ЯЗЫК ПРОГРАММИРОВАНИЯ TURBO PASCAL 7.0


Тема: УСЛОВНЫЙ ОПЕРАТОР.


Цели: познакомить учащихся с условным оператором IF полной и неполной формы и составным оператором.


План.

I. Знакомство с новым материалом.

  1. Условный оператор полной формы.

  2. Условный оператор неполной формы.

  3. Составной оператор.

II. Практическая работа.

III. Закрепление.

IV. Итог урока.


Ход урока.


I. Знакомство с новым материалом.


  1. Условный оператор полной формы.

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

Для организации вычислений в зависимости от какого-либо условия в Турбо Паскале используется условный оператор IF, который в общем виде записывается следующим образом:


IF условие THEN оператор_1 ELSE оператор_2;


В качестве условия должно использоваться логическое значение, представленное константой, переменной или выражением. Простые условия записываются в виде равенств или неравенств. Сложные условия составляют из простых с помощью логических операций. Если условие истинно, то выполняется оператор_1, в противном случае – оператор_2.


Задание 1.

Даны два числа А и В. Найти наибольшее из них.

Решение:

Program primer1;

Uses

CRT;

Описываем переменные как целые.

Var

A,B: integer;

Begin

Clrscr;

Вводим два целых числа с клавиатуры.

Writeln (‘введите 2 числа‘);

Readln (A,B);

Если А>В, то выводим на экран А, иначе В.

If A>B then writeln(A) else writeln(B);

End.


  1. Условный оператор неполной формы.

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


IF условие THEN оператор;


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

Например:


IF условие THEN

IF условие THEN

IF условие THEN оператор;


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


  1. Составной оператор.

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


If a>b then c:=10;

If a>b then d:=100-a;

If a>b then r:=c*d;

If a>b then write(r);


В Турбо Паскаль предусмотрено использование составных операторов, которые представляют собой некоторую последовательность команд, заключённых между словами begin и end.

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

Например, вышеприведённый пример, с использованием составного оператора можно записать следующим образом:


If a>b then begin

c:=10;

d:=100-a;

r:=c*d;

write(r);

end


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


Если по смыслу задачи необходимо выполнить несколько операторов, тогда следует использовать составной оператор. Оператор if имеет следующую структуру:

If условие then

Begin

Оператор_1;

Оператор_2;

оператор_n;

end

else

begin

Оператор_1;

Оператор_2;

оператор_n;

end

Здесь оператор_1, оператор_2, опе6ратор_n – любые операторы языка Паскаль


II. Практическая работа.


Задание 1.

Даны два различных вещественных числа. Определить:

  1. какое из них больше;

  2. какое из них меньше.


Задание 2.

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


Задание 3.

Написать программу вычисления стоимости покупки с учётом скидки. Скидка в 10% предоставляется, если сумма покупки больше 1000 рублей. Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введённые пользователем, выделены полужирным шрифтом).


Вычисления стоимости покупки с учётом скидки.

Введите сумму покупки и нажмите <Enter>

-1200

Вам предоставляется скидка 10%

Сумма покупки с учётом скидки: 1080.00 руб.


Задание 4.

Дана x, y (x<>y). Получить числа x, y в следующем порядке: большее, потом меньшее.


Задание 5.

Даны три числа. Возвести в квадрат те из них, значения которых неотрицательны. Отрицательные числа оставить без изменения.


III. Закрепление.

  1. Какие виды условных операторов вы знаете?

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

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

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


IV. Итог урока.


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


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

библиотека
материалов

«Turbo Pascal в задачах и примерах.» Н. Культин

Объявление переменных


Приступая к решению задач этого раздела, следует помнить, что:

каждая переменная программы должна быть объявлена;

объявления переменных помещают в раздел, который начи­нается словом var;

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

ИмяПеременной:Тип;

в имени переменной можно использовать буквы латинского алфавита и цифры (первым символом должна быть буква);

основными числовыми типами языка Turbo Pascal являются:

integer (целый), real (дробный);

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


Задания:

1. Объявите переменные, необходимые для вычисления значе­ния функции

у = х2.

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

3. Объявите переменные, необходимые для вычисления объема параллелепипеда.

4. Объявите переменные, необходимые для вычисления площади круга.

5. Объявите переменные, необходимые для вычисления площади кольца.

6. Объявите переменные, необходимые для вычисления объема и площади поверхности цилиндра.

7. Объявите переменные, необходимые для вычисления стои­мости покупки, состоящей из нескольких тетрадей, карандашей и линейки.

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

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

библиотека
материалов

Переменные, константы, описание типов.


Задание.

Выберите из предложенного списка имена переменных.


  1. Peremennaja

  2. Q

  3. Begin

  4. B52

  5. Itreiuhi

  6. Name.

  7. MyPeremennaja

  8. Q12

  9. _MyPeremennaja

  10. B_12

  11. UfhYsdk

  12. My_Peremennaja

  13. My Peremennaja

  14. L414

  15. B12_

  16. FoRmila

  17. begin

  18. Моя_переменная

  19. 44 rurka







Переменные, константы, описание типов.


Задание.

Выберите из предложенного списка имена переменных.


  1. Peremennaja

  2. Q

  3. Begin

  4. B52

  5. Itreiuhi

  6. Name.

  7. MyPeremennaja

  8. Q12

  9. _MyPeremennaja

  10. B_12

  11. UfhYsdk

  12. My_Peremennaja

  13. My Peremennaja

  14. L414

  15. B12_

  16. FoRmila

  17. begin

  18. Моя_переменная

  19. 44 rurka



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

библиотека
материалов

Переменные, константы, описание типов.

Переменная — это поиме­нованная область оперативной памяти. Програм­ма обращается к переменным по их именам (идентификаторам), задаваемым программистом на этапе разработки программы. В Turbo Pascal используются следующие правила назначения имен:

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

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

Длина имени, назначаемого любому элементу программы, не должна превышать 63-х символов.


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

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


Тип данных определяет:

- формат представления данных в памяти ЭВМ;

- множество допустимых значений;

- множество допустимых операций.

Типы данных в языке программирования Turbo Pascal 7.0 де­лятся на пять основных классов:

- простые типы;

- структурированные типы;

- ссылочные типы;

- процедурные типы;

- объектные типы.


hello_html_23e08399.png


Целочисленные типы

Тип

Диапазон возможных значений

Формат

Shorting

-128.. 127

1 байт со знаком

Integer

-32768.. 32767

2 байта со знаком

Longint

-2147483648..2147483647

4 байта со знаком

Byte

0..255

1 байт без знака

Word

0.. 65535

2 байта без знака



Вещественные типы

Тип

Диапазон возможных значений

Точность

Формат

Real

2.9Е-39..1.7Е38

11-12 знаков

6 байт

Single

1.5Е-45..3.4Е38

7-8 знаков

4 байта

Double

5.0Е-324..1.7Е308

15-16 знаков

8 байт

Extended

3.4Е-4932..1.1Е4932

19-20 знаков

10 байт

Comp

-9.2Е18..9.2Е18

19-20 знаков

8 байт


Перечисляемый тип данных.

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

Например:

Var month: (January, February, Marсh, April, May, June, July, August, September, October, November, December).

Упорядоченность элементов перечисляемого типа определя­ется порядком их следования. Самый левый имеет минимальное значение (значение функции ord для него равно 0), а наиболее пра­вый — максимальное.


Символьный тип данных.

Описание: идентификатор Char.

Диапазон значений: значением переменной этого типа может быть любой символ - это буквы, цифры, знаки препинания и спе­циальные символы. Каждому символу алфавита соответствует индивидуальный числовой код от 0 до 255.

Так как символы языка упорядочены, то к символьным данным применимы операции сравнения. Операция сравнения осуществля­ется следующим образом: из двух символов меньше тот, который встречается в таблице ASCII раньше.

Обычно значения для переменных типа char задаются в апо­строфах: ch:= '*'; а:= '3'; letter:='G`.

Кроме того, имеется возможность задавать значения указа­нием непосредственного числового значения ASCII-кода: kd:= #65 {символ 'A'}; s:=#10 {клавиша <Enter>}.

Интервальный (ограниченный) тип данных.

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

Например, Var a:1..25; ch: 'a' .. 'z'.

Здесь переменные а и ch могут принимать значения только из указанного интервала; базовым типом для переменной а является целый тип, а для переменной ch - символьный.

Переменная ограниченного типа сохраняет все свойства пере­менных базового типа.


Выбранный для просмотра документ Урок 2_учитель.doc

библиотека
материалов

ЯЗЫК ПРОГРАММИРОВАНИЯ TURBO PASCAL 7.0

Т е м а: Переменные, константы, описание типов.


Цель: дать основные сведения о переменных, константах, описания типов в Turbo Pascal 7.0.


ПЛАН

I. Проверка домашнего задания.

II. Изучение нового материала.

1. Переменные, константы в Turbo Pascal 7.0.

2. Раздел описания типов в Turbo Pascal 7.0.

III. Итог урока. Домашнее задание.


Ход урока


I. Проверка домашнего задания.


Вопросы.

1. Для чего служит компьютер?

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

3. Что называется алфавитом языка?

4. Что такое интерпретация и компиляция?

5. Что представляет собой программа?

6. В каком разделе происходит описание переменных?


II. Изучение нового материала.


1. Переменные, константы в Turbo Pascal 7.0.


Переменная. Правила именования переменных в Turbo Pascal.

Все внутренние данные программы хранятся в специальных структурах, называемых переменными. Переменная — это поиме­нованная область оперативной памяти. Таким образом, програм­ма обращается к переменным по их именам (идентификаторам), задаваемым программистом на этапе разработки программы. В Turbo Pascal используются следующие правила назначения имен:

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

Два разных элемента программы не могут иметь одинако­вые имена, то есть имя, назначаемое переменной должно быть уникальным в пределах программы. В случае попыт­ки описания, например, двух переменных с одинаковыми именами, компилятором будет выдана ошибка Duplicate Identifier (повторяющийся идентификатор). В скобках будет указано имя переменной, которая описывается пов­торно.

Длина имени, назначаемого любому элементу программы, не должна превышать 63-х символов.


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

Peremennaja Q B52 Itreiuhi

MyPeremennaja Q12 B_12 UfhYsdk

My_Peremennaja L414 B12_ foRmila


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

Begin - Является ключевым словом языка Pascal, поэтому имя данной переменной не удовлетворяет требованию уникаль­ности в пределах программы.

begin — Поскольку Turbo Pascal не различает строчных и прописных букв, это то же самое ключевое слово Begin, просто написанное с маленькой буквы.

Моя_ переменная — Имя содержит не латинские символы.

Name. — В имени переменной, используется недопустимый символ •- точка.

My Peremennaja — Имя представляет собой два слова.

_MyPeremennaja — Имя начинается с символа подчеркивания "_"

44 rurka — Имя начинается с цифры.


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

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

Например:

CONST Е=2.7'18281828; (Число Эйлера)

С=2.99792458Е+8; (скорость света вм\с)

CUBE —12; (число ребер куба)

HELLO = 'Привет'; (строка - приветствие)

On = true; (логические константы)

Off=false;

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

Например:

CONST FLAG: BOOLENT=TRUE;

A:INTEGER=90;


2. Раздел описания типов в Turbo Pascal 7.0.

В языке Turbo Pascal 7.0 все данные, используемые программой, должны принадлежать к какому-либо заранее известному типу данных.

Тип данных определяет:

- формат представления данных в памяти ЭВМ;

- множество допустимых значений;

- множество допустимых операций.

Типы данных в языке программирования Turbo Pascal 7.0 де­лятся на пять основных классов:

- простые типы;

- структурированные типы;

- ссылочные типы;

- процедурные типы;

- объектные типы.

В данный момент нас больше всего интересуют простые типы. Простые типы данных делятся на порядковые и веществен­ный типы данных.

hello_html_23e08399.png


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

В любом порядковом типе для каждого значения, кроме первого, существует предшествующее значение, и для каждого значения, кроме последнего, существует последующее значение. В языке Turbo Pascal 7.0 существуют стандартные функции, которые позволяют определять соответствующие значения для заданного значения:

функция Pred(x) определяет предыдущее значение величины х,

функция Succ(x) определяет последующее значение величины х;

функция Ord(x) возвращает порядковый помер величины х.


Целочисленные типы

Тип

Диапазон возможных значений

Формат

Shorting

-128.. 127

1 байт со знаком

Integer

-32768.. 32767

2 байта со знаком

Longint

-2147483648..2147483647

4 байта со знаком

Byte

0..255

1 байт без знака

Word

0.. 65535

2 байта без знака


Вещественные типы

Тип

Диапазон возможных значений

Точность

Формат

Real

2.9Е-39..1.7Е38

11-12 знаков

6 байт

Single

1.5Е-45..3.4Е38

7-8 знаков

4 байта

Double

5.0Е-324..1.7Е308

15-16 знаков

8 байт

Extended

3.4Е-4932..1.1Е4932

19-20 знаков

10 байт

Comp

-9.2Е18..9.2Е18

19-20 знаков

8 байт


Логический тип и логические выражения. (BOOLEAN)

Переменные, константы и выражения логического типа име­ют только два значения: TRUE (истина) или FALSE (ложь).

Например, при сравнении чисел А и В результат будет TRUE (истина) или FALSE (ложь в зависимости от значений А и В).

Кроме операций сравнения, логический результат дает функ­ция целой величины Odd (нечетный), которая имеет значение TRUE, если ее аргумент нечетный, и FALSE, если ее аргумент четный. Для логических переменных определены операции: NOT, AND, OR, XOR

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

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

NOT

AND, * DIV, MOD

OR, XOR, +, -

операции сравнения

Порядок выполнения операций определяется скобками. Напри­мер, в логическом выражении A OR В AND NOT(A OR В) сначала выполняется заключенная в скобки операция OR, а затем операции NOT, AND, OR.

В языке Turbo Pascal 7.0 нет возможности ввода логических данных с помощью оператора read. Однако предусмотрен вывод значений переменных логического типа с помощью оператора write. В этом случае для идентификаторов FALSE и TRUE авто­матически отводится по 6 позиций: две - перед словом TRUE и одна - перед FALSE.


Перечисляемый тип данных.

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

Например:

Var month: (January, February, Marсh, April, May, June, July, August, September, October, November, December).


Упорядоченность элементов перечисляемого типа определя­ется порядком их следования. Самый левый имеет минимальное значение (значение функции ord для него равно 0), а наиболее пра­вый — максимальное.


Символьный тип данных.

Описание: идентификатор Char.

Диапазон значений: значением переменной этого типа может быть любой символ - это буквы, цифры, знаки препинания и спе­циальные символы. Каждому символу алфавита соответствует индивидуальный числовой код от 0 до 255.

Так как символы языка упорядочены, то к символьным данным применимы операции сравнения. Операция сравнения осуществля­ется следующим образом: из двух символов меньше тот, который встречается в таблице ASCII раньше.

Обычно значения для переменных типа char задаются в апо­строфах: ch:= '*'; а:= '3'; letter:='G`.

Кроме того, имеется возможность задавать значения указа­нием непосредственного числового значения ASCII-кода: kd:= #65 {символ 'A'}; s:=#10 {клавиша <Enter>}.

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


Интервальный (ограниченный) тип данных.

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

Например, Var a:1..25; ch: 'a' .. 'z'.

Здесь переменные а и ch могут принимать значения только из указанного интервала; базовым типом для переменной а является целый тип, а для переменной ch - символьный.

Переменная ограниченного типа сохраняет все свойства пере­менных базового типа.

Для чего вводится ограниченный тип данных? Использование ограниченного типа делает программу более наглядной и понят­ной. Например, если в программе переменная b может принимать только значения 3, 4, 5, 6, 7, 8, то лучше описать ее следующим образом: var b:3..8; чем var b: integer; так как в случае выхода зна­чения b за диапазон 3..8 в первом случае будет выдано диагности­ческое сообщение, которое поможет найти ошибку. Во втором случае будет получен неправильный результат, что затруднит поиск ошибки. Таким образом, второй вариант описания перемен­ной следует использовать в тех случаях, когда диапазон значений заранее неизвестен либо занимает весь допустимый интервал зна­чений для рассматриваемого типа.


III. Итог урока.

Домашнее задание.


Подготовить ответы на вопросы:

1. Чем характеризуется переменная?

2. Перечислите типы данных?

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

4. Какова структура программы?

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

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

Выбранный для просмотра документ Плакат1_урок3.doc

библиотека
материалов

Операция

Приоритет

not

Первый (высший)

*, /, div, mod, and

Второй

+, -, or, xor

Третий

=, >, <, <>, >=, <=

Четвертый (низший)


Выбранный для просмотра документ Плакат2_урок3.doc

библиотека
материалов

<Имя переменной>: = <Значение переменной>;


Write(<Выводимая информация>);


WriteLn(<Выводимая информация>);


Write(<Выводимая информация>, …, <Выводимая информация>);


WriteLn(<Выводимая информация>, …, <Выводимая информация>);



Выбранный для просмотра документ Пример1_урок3.doc

библиотека
материалов

Program Vivod;

Begin

Write (`Первая строка`);

WriteLn (`Вторая строка`);

End.


Выбранный для просмотра документ Пример2_урок3.doc

библиотека
материалов

Program VivodSlogn;

Const

Name=`Владимир`;

Begin

WriteLn;

WriteLn (`Меня зовут`, Name);

End.


Выбранный для просмотра документ Решение задач_урок3.doc

библиотека
материалов

АРИФМЕТИЧЕСКИЕ ВЫРАЖЕНИЯ. ОПЕРАТОРЫ ПРИСВАИВАНИЯ, ВЫВОДА ИНФОРМАЦИИ.


Задание 1.

Вывести на экран приветствие: «Добрый день».


Задание 2.

Вычислить периметр прямоугольника со сторонами А=8, В=21.


Задание 3.

Вычислите выражение:

7

*76.2833

.478937-89.2456

8hello_html_249bbe2.gif83.5995+618.332


Задание 4.

Н


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













АРИФМЕТИЧЕСКИЕ ВЫРАЖЕНИЯ. ОПЕРАТОРЫ ПРИСВАИВАНИЯ, ВЫВОДА ИНФОРМАЦИИ.


Задание 1.

Вывести на экран приветствие: «Добрый день».


Задание 2.

Вычислить периметр прямоугольника со сторонами А=8, В=21.


Задание 3.

Вычислите выражение:

7

*76.2833

.478937-89.2456

8hello_html_249bbe2.gif83.5995+618.332


Задание 4.

Н


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


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

библиотека
материалов

Тестирование по теме: «Переменные, константы, описание типов».


Задание: выбрать из предложенных вопросов правильные ответы (может иметь несколько вариантов).


1. Какая строка из раздела описания переменных соответствует правилам Turbo Pascal?

a) variable: real;

б)variable=real;

в)variable:=real;


2. Какая строка из раздела описания констант корректна?

а) а=10;

б) а:=10;

в) а: 10;


3. Какой из следующих операторов присваивания представлен без ошибок?

а) а=b+с;

б) а:=b+с;

в) а:=b+с


4. Какие из представленных ниже комментариев соответствуют правилам Turbo Pascal?

а) {Это комментарий}

б) (*Это также комментарий*)

в)*(Еще один комментарий)*


5. Какая из следующих групп символов принадлежит алфавиту Turbo Pascal?

а) А И Л Д Т А о в ч п № ! % &

6) F G H I J K u v w x [ $ ( )

в) В Ж И М Л г в и п о ^ « | »


6. Где здесь группа зарезервированных слов?

а) Write, Read, WriteLn, Sqr, Sqrt

б) PROGRAM, VAR, CONST, BEGIN, END

в) Real, Integer, Boolean, Char



Тестирование по теме: «Переменные, константы, описание типов».


Задание: выбрать из предложенных вопросов правильные ответы (может иметь несколько вариантов).


1. Какая строка из раздела описания переменных соответствует правилам Turbo Pascal?

a) variable: real;

б)variable=real;

в)variable:=real;


2. Какая строка из раздела описания констант корректна?

а) а=10;

б) а:=10;

в) а: 10;


3. Какой из следующих операторов присваивания представлен без ошибок?

а) а=b+с;

б) а:=b+с;

в) а:=b+с


4. Какие из представленных ниже комментариев соответствуют правилам Turbo Pascal?

а) {Это комментарий}

б) (*Это также комментарий*)

в)*(Еще один комментарий)*


5. Какая из следующих групп символов принадлежит алфавиту Turbo Pascal?

а) А И Л Д Т А о в ч п № ! % &

6) F G H I J K u v w x [ $ ( )

в) В Ж И М Л г в и п о ^ « | »


6. Где здесь группа зарезервированных слов?

а) Write, Read, WriteLn, Sqr, Sqrt

б) PROGRAM, VAR, CONST, BEGIN, END

в) Real, Integer, Boolean, Char



Выбранный для просмотра документ Урок 3_учитель.doc

библиотека
материалов

ЯЗЫК ПРОГРАММИРОВАНИЯ TURBO PASCAL 7.0


Т е м а: АРИФМЕТИЧЕСКИЕ ВЫРАЖЕНИЯ. ОПЕРАТОРЫ ПРИСВАИВАНИЯ, ВЫВОДА ИНФОРМАЦИИ В TURBO PASCAL 7.0.


Цель: дать представление об арифметических операциях и о порядке их выполнения; познакомить с операторами присваивания и вывода.


ПЛАН

I. Повторение.

II. Изучение нового материала.

1. Арифметические операции.

2. Оператор присваивания.

3. Оператор вывода информации.

III. Решение задач.

VI. Итог урока.

Домашнее задание.


Ход урока


I. Повторение.

Тестирование по теме: «Переменные, константы, описание типов».


Задание: выбрать из предложенных вопросов правильные ответы (может иметь несколько вариантов).


1. Какая строка из раздела описания переменных соответствует правилам Turbo Pascal?

a) variable: real;

б)variable=real;

в)variable:=real;


2. Какая строка из раздела описания констант корректна?

а) а=10;

б) а:=10;

в) а: 10;

3. Какой из следующих операторов присваивания представлен без ошибок?

а) а=b+с;

б) а:=b+с;

в) а:=b+с

4. Какие из представленных ниже комментариев соответствуют правилам Turbo Pascal?

а) {Это комментарий}

б) (*Это также комментарий*)

в)*(Еще один комментарий)*

5. Какая из следующих групп символов принадлежит алфавиту Turbo Pascal?

а) А И Л Д Т А о в ч п № ! % &

6) F G H I J K u v w x [ $ ( )

в) В Ж И М Л г в и п о ^ « | »

6. Где здесь группа зарезервированных слов?

а) Write, Read, WriteLn, Sqr, Sqrt

б) PROGRAM, VAR, CONST, BEGIN, END

в) Real, Integer, Boolean, Char


Ответы:

1-а; 2-а; 3-б; 4-а, б; 5-б; 6-б


II. Изучение нового материала.


1. Арифметические операции.

Арифметическое выражение — это выражение, состоящее из целочисленных или вещественных переменных и числовых значений, соединенных между собой арифметическими операторами сложения (+), вычитания (-), умножения (*) и деления (/). Также допустимо использование скобок. Приоритет одних арифметических операций над другими и изменение приоритетов при использовании скобок в арифметических выражениях соответствуют обычным математическим правилам.

При использовании арифметических выражений в качестве значений, присваиваемых переменным, необходимо следить за типом результата этих выражений. Например, при сложении двух переменных типа Integer, результирующее значение может выходить за пределы множества значений типа Integer:


Program PrimerPries2;

Var {начало раздела описания переменных}

I1. I2, I3: Integer; {описание трех переменных типа Integer с

именами I1, I2 и I3}

Begin {начало раздела описания логики программы}

I1: = 11111; {присвоение переменной I1 значения 11111}

I2: = 30000; {присвоение переменной I2 значения 30000}

I3: = I1 + I2; {попытка некорректного присвоения переменной I3

значения I1+ I2 = 11111 + 30000 = 411111,

выходящего за пределы множества типа Integer}

End. {конец раздела описания логики программы}


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

Допустим, имеются три переменный Al, A2 и A3 целочисленного типа Integer. Тогда:

Al: = 50;

A2: = 7;

A3:= A1/A2; {ошибка, так как 50/7 = 7,142857142857143,

а это вещественное число (Real)}


Помимо стандартных арифметических операций сложения, вы­читания, умножения и деления, в Turbo Pascal предусмотрены еще два:

div -целочисленное деление;

mod - остаток от деления.

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

Таким образом, результатом такого деления всегда является целое число, тогда как результатом обычного деления всегда является вещественное число (даже если деление было выполнено без остатка и получилось, например, частное 2, но это будет не 2, а 2.0).

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

Примеры:

11 div 5=2

10 div 3=3

2 div 3 = 0

Деление по модулю восстанавливает остаток от целочисленного деления.

Например:

11 mod 5=1

10 mod 13=1

14 mod 5 = 4


Выполнение каждой операции происходит с учетом ее приорите­та:


Операция

Приоритет

not

Первый (высший)

*, /, div, mod, and

Второй

+, -, or, xor

Третий

=, >, <, <>, >=, <=

Четвертый (низший)


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


2. Оператор присваивания.

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


<Имя изменяемой переменной>: = <Значение переменной>;


В качестве Имени переменной должно использоваться имя одной из переменных, описанных в разделе Var, а в качестве Значения переменной одно из следующих выражений:

значение, соответствующее типу изменяемой переменной;

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

переменная, тип которой соответствует типу данной переменной.

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

Работа оператора присваивания состоит из двух последовательных этапов:

  1. Вычисление выражения, стоящего в правой части.

  2. Присвоение переменной стоящей в левой части значения, полученного в пункте 1.

Вне зависимости от того используется ли оператор присваивания для занесения значения в переменную, или нет, переменная все равно будет иметь какое-либо значение. Это связано с тем, что физически переменная представляет собой совокупность ячеек памяти, в которых не может ничего не храниться. Обычно в качестве начальных значений для числовых переменных используется значение 0, а для строковых – пустая строка:’’.


3. Оператор вывода информации.

Вывод информации на экран в текстовом режиме осуществляет­ся процедурой Write (от англ. Write — писать), имеющей следу­ющий вид:


Write(<Выводимая информация>);


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

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


WriteLn(<Выводимая информация>);


В отличие от процедуры Write, процедура WriteLn, после вывода информации, перемещает курсор в начало следующей строки. При этом информация выводится не с новой строки, а также как и в случае Write, из положения курсора. Рассмотрим пример использования процедуры WriteLn для вывода информации с новой строки.


Program Vivod;

Begin

Write (`Первая строка`);

WriteLn (`Вторая строка`);

End.


В результате выполнения данной программы, надпись «Первая строка» выводится из положения курсора, а «Вторая строка» - с новой строки.

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


Задание.

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


Ответ:

Program Vivod;

Begin

WriteLn;

WriteLn (`Первая строка`);

WriteLn (`Вторая строка`);

End.

В случае необходимости, в процедурах Write и WriteLn можно указывать несколько параметров, разделённых запятыми:


Write(<Выводимая информация>, …, <Выводимая информация>);

WriteLn(<Выводимая информация>, …, <Выводимая информация>);


Пример:

Program VivodSlogn;

Const

Name=`Владимир`;

Begin

WriteLn;

WriteLn (`Меня зовут`, Name);

End.


III. Решение задач.

Задание 1.

Вывести на экран приветствие: «Добрый день».


Задание 2.

Вычислить периметр прямоугольника со сторонами А=8, В=21.


Задание 3.

Вычислите выражение:

7

*76.2833

.478937-89.2456

8hello_html_249bbe2.gif83.5995+618.332


Задание 4.

Н


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


VI. Итог урока.

Вопросы:

  1. Какие арифметические операции можно выполнять в TURBO PASCAL 7.0?

  2. В чем отличие между операциями mod, div и / ?

  3. Перечислите приоритеты в выполнении арифметических операций?

  4. Что такое оператор присваивания и за чем он нужен?

  5. Какие действия совершают операторы Write и WriteLn? В чём состоит разница между ними?


Домашнее задание.

Подготовить ответы на вопросы.

Выбранный для просмотра документ плакат_урок3.doc

библиотека
материалов

div -целочисленное деление

mod - остаток от деления

Выбранный для просмотра документ Урок 4_учитель.doc

библиотека
материалов

ЯЗЫК ПРОГРАММИРОВАНИЯ TURBO PASCAL 7.0


Тема: СТАНДАРТНЫЕ МАТЕМАТИЧЕСКИЕ ФУНКЦИИ В TURBO PASCAL 7.0. ОПЕРАТОР ВВОДА ИНФОРМАЦИИ.


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


План.

I. Изучение нового материала.

1. Встроенные функции в языке программирования Turbo Pascal.

2. Форматированный вывод информации.

3. Оператор ввода информации с клавиатуры.

II. Решение задач.

III. Итог урока.


Ход урока.


I. Изучение нового материала.


1. Встроенные функции в языке программирования Turbo Pascal.


В Турбо Паскале определены стандартные функции над арифметическими операциями.

Каждая функция имеет одну форму записи:

имя-функции (аргумент)

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


Обозначение

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

Тип результата

Действие

ABS (x)

Целый, вещественный

Целый, вещественный

Модуль числа

SIN (x)

Вещественный

Вещественный

Функция синус

COS (x)

Вещественный

Вещественный

Функция косинус

ARCTAN (x)

Вещественный

Вещественный

Арктангенс

PI


Вещественный

Пи

EXP (x)

Вещественный

Вещественный

ех

LN (x)

Вещественный

Вещественный

Функция натурального логарифма

SQR (x)

Вещественный

Вещественный

Х2

SQRT (x)

Вещественный

Вещественный

hello_html_45443a93.gif

INT (x)

Вещественный

Вещественный

Целая часть числа

FRAC (x)

Вещественный

Вещественный

Дробная часть числа

ROUND (x)

Вещественный

Целый

Округление числа х

TRUNC (x)

Вещественный

Целый

Отсекание дробной части числа х

RANDOM


Вещественный

Случайное число от 0 до 1

RANDOM (n)

Целый

Целый

Случайное число от 0 до n


2. Форматированный вывод информации.


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

Writeln (а:18);

Writeln (с:6, b:5, d:7)


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


Write (a:m:n)

m – ширина поля вывода;

n – количество знаков в дробной части числа.


Если число а не помещается в m позиций, то поле вывода расширяется до минимально необходимого. В связи с этим допустимыми являются следующие форматы: а:2:2, а:1:2, а:0:2, а:-1:2. В этом случае указывается только количество разрядов в дробной части числа, а ширина поля определяется в момент вывода вещественного числа на экран.


3. Оператор ввода информации с клавиатуры.


Для ввода информации с клавиатуры в Turbo Pascal предусмотрены две процедуры: Read и Readln.


Read (x1, x2, ... , xn);

или

Readln (x1, x2, ... , xn);

где x1, x2, ... , xn – список вводимых данных.


Когда в программе встречается оператор Read, её действие приостанавливается до тех пор, пока не будут введены исходные данные. При вводе числовых значений два числа считаются разделёнными, если между ними есть хотя бы один пробел, символ табуляции или конца строки (Enter). После ввода последнего значения следует нажать клавишу Enter.

Оператор Readln аналогичен оператору Read. Разница заключается в том, что после считывания последнего в списке значения для одного оператора Readln данные для следующего оператора Readln будут считываться сначала новой строки. Но следует помнить, что Enter переводит курсор на новую строку независимо от того, как именно происходит считывание данных.


II. Решение задач.

Задание 1.

Заданы радиус основания и высота цилиндра. Вычислить площадь основания и объём. Площадь основания вычисляется по формуле S=pi*r2, объём цилиндра равен V­=Sh. Выведите ответ в формате: 3 позиции для целой части и 2 - для дробной.

Этапы решения задачи:

  1. Ввод значений r, h.

  2. Вычисление площади основания S=pi*r2.

  3. Вычисление объёма цилиндра V­=Sh.

  4. Вывод площади основания и объёма цилиндра.


Ответ:


Program primer1;

Var

s,v, r, h: real;

begin

writeln(`Введите r и h`);

readln (r, h);

s:=pi*sqr(r);

v:=s*h;

writeln (`v=`,v:6:2);

writeln (`s=`,s:6:2);

end.


Задание 2.

Заданы длины трёх сторон треугольника а, b, c. Вычислить периметр и площадь треугольника. Значения а,b, c ввести с клавиатуры.


Этапы решения задачи:

  1. Ввод значений а,b, c.

  2. Вычисление полупериметра по формуле: hello_html_377e37c1.gif

  3. Вычисление площади треугольника по формуле Герона:

hello_html_m16288f19.gif

  1. Вывод площади треугольника S и периметра 2P.


Program primer2;

Var

a, b, c, s, p: real;

begin

write(`a=`); readln (a);

write(`b=`); readln (b);

write(`c=`); readln (c);

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln (`P=`,p*2);

writeln (`s=`,s);

end.


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

библиотека
материалов

Стандартные математические функции. Оператор вывода информации.

Задание 1.

Заданы радиус основания и высота цилиндра. Вычислить площадь основания и объём. Площадь основания вычисляется по формуле S=pi*r2, объём цилиндра равен V­=Sh. Выведите ответ в формате: 3 позиции для целой части и 2 - для дробной.

Этапы решения задачи:

  1. Ввод значений r, h.

  2. Вычисление площади основания S=pi*r2.

  3. Вычисление объёма цилиндра V­=Sh.

  4. Вывод площади основания и объёма цилиндра.


Задание 2.

Заданы длины трёх сторон треугольника а, b, c. Вычислить периметр и площадь треугольника. Значения а,b, c ввести с клавиатуры.

Этапы решения задачи:

  1. Ввод значений а,b, c.

  2. Вычисление полупериметра по формуле: hello_html_377e37c1.gif

  3. Вычисление площади треугольника по формуле Герона: hello_html_m16288f19.gif

  4. Вывод площади треугольника S и периметра 2P.



Стандартные математические функции. Оператор вывода информации.

Задание 1.

Заданы радиус основания и высота цилиндра. Вычислить площадь основания и объём. Площадь основания вычисляется по формуле S=pi*r2, объём цилиндра равен V­=Sh. Выведите ответ в формате: 3 позиции для целой части и 2 - для дробной.

Этапы решения задачи:

  1. Ввод значений r, h.

  2. Вычисление площади основания S=pi*r2.

  3. Вычисление объёма цилиндра V­=Sh.

  4. Вывод площади основания и объёма цилиндра.


Задание 2.

Заданы длины трёх сторон треугольника а, b, c. Вычислить периметр и площадь треугольника. Значения а,b, c ввести с клавиатуры.

Этапы решения задачи:

  1. Ввод значений а,b, c.

  2. Вычисление полупериметра по формуле: hello_html_377e37c1.gif

  3. Вычисление площади треугольника по формуле Герона: hello_html_m16288f19.gif

  4. Вывод площади треугольника S и периметра 2P.


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

библиотека
материалов

Обозначение

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

Тип результата

Действие

ABS (x)

Целый, вещественный

Целый, вещественный

Модуль числа

SIN (x)

Вещественный

Вещественный

Функция синус

COS (x)

Вещественный

Вещественный

Функция косинус

ARCTAN (x)

Вещественный

Вещественный

Арктангенс

PI


Вещественный

Пи

EXP (x)

Вещественный

Вещественный

ех

LN (x)

Вещественный

Вещественный

Функция натурального логарифма

SQR (x)

Вещественный

Вещественный

Х2

SQRT (x)

Вещественный

Вещественный

hello_html_45443a93.gif

INT (x)

Вещественный

Вещественный

Целая часть числа

FRAC (x)

Вещественный

Вещественный

Дробная часть числа

ROUND (x)

Вещественный

Целый

Округление числа х

TRUNC (x)

Вещественный

Целый

Отсекание дробной части числа х

RANDOM


Вещественный

Случайное число от 0 до 1

RANDOM (n)

Целый

Целый

Случайное число от 0 до n


Обозначение

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

Тип результата

Действие

ABS (x)

Целый, вещественный

Целый, вещественный

Модуль числа

SIN (x)

Вещественный

Вещественный

Функция синус

COS (x)

Вещественный

Вещественный

Функция косинус

ARCTAN (x)

Вещественный

Вещественный

Арктангенс

PI


Вещественный

Пи

EXP (x)

Вещественный

Вещественный

ех

LN (x)

Вещественный

Вещественный

Функция натурального логарифма

SQR (x)

Вещественный

Вещественный

Х2

SQRT (x)

Вещественный

Вещественный

hello_html_45443a93.gif

INT (x)

Вещественный

Вещественный

Целая часть числа

FRAC (x)

Вещественный

Вещественный

Дробная часть числа

ROUND (x)

Вещественный

Целый

Округление числа х

TRUNC (x)

Вещественный

Целый

Отсекание дробной части числа х

RANDOM


Вещественный

Случайное число от 0 до 1

RANDOM (n)

Целый

Целый

Случайное число от 0 до n


Обозначение

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

Тип результата

Действие

ABS (x)

Целый, вещественный

Целый, вещественный

Модуль числа

SIN (x)

Вещественный

Вещественный

Функция синус

COS (x)

Вещественный

Вещественный

Функция косинус

ARCTAN (x)

Вещественный

Вещественный

Арктангенс

PI


Вещественный

Пи

EXP (x)

Вещественный

Вещественный

ех

LN (x)

Вещественный

Вещественный

Функция натурального логарифма

SQR (x)

Вещественный

Вещественный

Х2

SQRT (x)

Вещественный

Вещественный

hello_html_45443a93.gif

INT (x)

Вещественный

Вещественный

Целая часть числа

FRAC (x)

Вещественный

Вещественный

Дробная часть числа

ROUND (x)

Вещественный

Целый

Округление числа х

TRUNC (x)

Вещественный

Целый

Отсекание дробной части числа х

RANDOM


Вещественный

Случайное число от 0 до 1

RANDOM (n)

Целый

Целый

Случайное число от 0 до n


Обозначение

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

Тип результата

Действие

ABS (x)

Целый, вещественный

Целый, вещественный

Модуль числа

SIN (x)

Вещественный

Вещественный

Функция синус

COS (x)

Вещественный

Вещественный

Функция косинус

ARCTAN (x)

Вещественный

Вещественный

Арктангенс

PI


Вещественный

Пи

EXP (x)

Вещественный

Вещественный

ех

LN (x)

Вещественный

Вещественный

Функция натурального логарифма

SQR (x)

Вещественный

Вещественный

Х2

SQRT (x)

Вещественный

Вещественный

hello_html_45443a93.gif

INT (x)

Вещественный

Вещественный

Целая часть числа

FRAC (x)

Вещественный

Вещественный

Дробная часть числа

ROUND (x)

Вещественный

Целый

Округление числа х

TRUNC (x)

Вещественный

Целый

Отсекание дробной части числа х

RANDOM


Вещественный

Случайное число от 0 до 1

RANDOM (n)

Целый

Целый

Случайное число от 0 до n


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

библиотека
материалов

Ввод и вывод числовых данных. Оператор присваивания.


Практическая работа.


1 вариант


  1. Вывести на экран с точностью два знака число пи.

  2. Составить программу вывода на экран числа, вводимого с клавиатуры. Выводимому числу должно предшествовать сообщение «Вы ввели число».

  3. Вывести на одной строке числа 1, 13, 49 с одним пробелом между ними.

  4. Составить программу вывода на экран в одну строку трёх любых чисел с двумя пробелами между ними.

  5. Вывести на экран числа 50 и 10 одно под другим.

  6. Составить программу вывода на экран «столбиком» пяти любых чисел.



Ввод и вывод числовых данных. Оператор присваивания.


Практическая работа.


2 вариант


  1. Вывести на экран с точностью два знака число пи.

  2. Составить программу вывода на экран числа, вводимого с клавиатуры. После выводимого числа должно следовать сообщение «.- вот какое число Вы ввели».

  3. Вывести на одной строке числа 7, 15, 100 с двумя пробелами между ними.

  4. Составить вывода на экран в одну строку четырёх любых чисел с одним пробелом между ними.

  5. Вывести на экран числа 5, 10 и 21 одно под другим.

  6. Составить программу вывода на экран «столбиком» четырёх любых чисел.


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

библиотека
материалов

Ввод и вывод числовых данных. Оператор присваивания.

1 вариант


  1. Указать значение величины S после выполнения следующих операторов присваивания:

    1. S:=5

S:=57

    1. S:=6

S:=-5.2*s

S:=0

    1. S:=-7.5

S:=2*S

    1. S:=45

K:=-25

S:=S+K

  1. Указать значения S и K после выполнения следующих операторов присваивания:

    1. S:=14

K:=-3

D:=S+1

S:=D

K:=2*S

    1. S:=0

K:=-9.99

K:= S

S:= K


Ввод и вывод числовых данных. Оператор присваивания.

2 вариант


  1. Указать значение величины X после выполнения следующих операторов присваивания:

  1. Х:=10

Х:=-10

  1. Х:=17.5

Х:=-2*Х

  1. Х:=60

Х:=Х-1

Х:=0

  1. Х:=-50

К:=-25

Х:=Х+К

  1. Указать значения величин A и B после выполнения следующих операторов присваивания:

    1. A:=5.8

B:=-7.9

B:= A

A:= B

    1. A:=0

B:=30

C:=B-5

B:=2*C

A:=B-100


Выбранный для просмотра документ Урок5_учитель.doc

библиотека
материалов

ЯЗЫК ПРОГРАММИРОВАНИЯ TURBO PASCAL 7.0


Тема: РЕШЕНИЕ ЗАДАЧ В TURBO PASCAL 7.0.


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


План.

I. Проверочная работа.

II. Решение задач.

III. Итог урока.


Ход урока.


I. Проверочная работа.


Ввод и вывод числовых данных. Оператор присваивания.

1 вариант


  1. Указать значение величины S после выполнения следующих операторов присваивания:


    1. S:=5

S:=57

    1. S:=6

S:=-5.2*s

S:=0

    1. S:=-7.5

S:=2*S

    1. S:=45

K:=-25

S:=S+K


  1. Указать значения S и K после выполнения следующих операторов присваивания:


    1. S:=14

K:=-3

D:=S+1

S:=D

K:=2*S

    1. S:=0

K:=-9.99

K:= S

S:= K


2 вариант


  1. Указать значение величины X после выполнения следующих операторов присваивания:


  1. Х:=10

Х:=-10

  1. Х:=17.5

Х:=-2*Х

  1. Х:=60

Х:=Х-1

Х:=0

  1. Х:=-50

К:=-25

Х:=Х+К


  1. Указать значения величин A и B после выполнения следующих операторов присваивания:


    1. A:=5.8

B:=-7.9

B:= A

A:= B

    1. A:=0

B:=30

C:=B-5

B:=2*C

A:=B-100


Ответы:


Вариант 1

Вариант 2

Задание 1

а

57

а

-10

b

0

b

-35

c

-15

c

0

d

20

d

-75

Задание 2

а

15, 30

а

5.8, 5.8

b

0, 0

b

50, -50



II. Решение задач.


Практическая работа.

1 вариант

  1. Вывести на экран с точностью два знака число пи.

  2. Составить программу вывода на экран числа, вводимого с клавиатуры. Выводимому числу должно предшествовать сообщение «Вы ввели число».

  3. Вывести на одной строке числа 1, 13, 49 с одним пробелом между ними.

  4. Составить программу вывода на экран в одну строку трёх любых чисел с двумя пробелами между ними.

  5. Вывести на экран числа 50 и 10 одно под другим.

  6. Составить программу вывода на экран «столбиком» пяти любых чисел.



2 вариант

  1. Вывести на экран с точностью два знака число пи.

  2. Составить программу вывода на экран числа, вводимого с клавиатуры. После выводимого числа должно следовать сообщение «- вот какое число Вы ввели».

  3. Вывести на одной строке числа 7, 15, 100 с двумя пробелами между ними.

  4. Составить вывода на экран в одну строку четырёх любых чисел с одним пробелом между ними.

  5. Вывести на экран числа 5, 10 и 21 одно под другим.

  6. Составить программу вывода на экран «столбиком» четырёх любых чисел.


III. Итог урока.


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

Выбранный для просмотра документ Плакат1_6.doc

библиотека
материалов

Program RedText;

Uses

CRT;

Begin

ClrScr;

TextColor (4);

Write (`Январь`);

ReadKey;

ClrScr;

End.

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

библиотека
материалов

Управление режимами вывода информации.

Практическая работа.


Задание 1.


Написать программу, которая выводит на синем фоне серыми буквами четверостишие:


Буря мглою небо кроет,

Вихри снежные крутя.

То как зверь она завоет,

То заплачет, как дитя.

А.С. Пушкин.


Задание 2.


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






Управление режимами вывода информации.

Практическая работа.


Задание 1.


Написать программу, которая выводит на синем фоне серыми буквами четверостишие:


Буря мглою небо кроет,

Вихри снежные крутя.

То как зверь она завоет,

То заплачет, как дитя.

А.С. Пушкин.


Задание 2.


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



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

библиотека
материалов

Цвет

Номер

Константы модуля CRT

Чёрный

0

Black

Синий

1

Blue

Зелёный

2

Green

Бирюзовый

3

Cyan

Красный

4

Red

Сиреневый

5

Magenta

Коричневый

6

Brown

Светло-серый

7

LightGray

Серый

8

DarkGray

Голубой

9

LightBlue

Светло-зелёный

10

LightGreen

Светло-бирюзовый

11

LightCyan

Светло-красный (алый)

12

LightRed

Светло-сиреневый

13

LightMagenta

Жёлтый

14

Yellow

Белый, яркий

15

White




Цвет

Номер

Константы модуля CRT

Чёрный

0

Black

Синий

1

Blue

Зелёный

2

Green

Бирюзовый

3

Cyan

Красный

4

Red

Сиреневый

5

Magenta

Коричневый

6

Brown

Светло-серый

7

LightGray

Серый

8

DarkGray

Голубой

9

LightBlue

Светло-зелёный

10

LightGreen

Светло-бирюзовый

11

LightCyan

Светло-красный (алый)

12

LightRed

Светло-сиреневый

13

LightMagenta

Жёлтый

14

Yellow

Белый, яркий

15

White


Цвет

Номер

Константы модуля CRT

Чёрный

0

Black

Синий

1

Blue

Зелёный

2

Green

Бирюзовый

3

Cyan

Красный

4

Red

Сиреневый

5

Magenta

Коричневый

6

Brown

Светло-серый

7

LightGray

Серый

8

DarkGray

Голубой

9

LightBlue

Светло-зелёный

10

LightGreen

Светло-бирюзовый

11

LightCyan

Светло-красный (алый)

12

LightRed

Светло-сиреневый

13

LightMagenta

Жёлтый

14

Yellow

Белый, яркий

15

White




Цвет

Номер

Константы модуля CRT

Чёрный

0

Black

Синий

1

Blue

Зелёный

2

Green

Бирюзовый

3

Cyan

Красный

4

Red

Сиреневый

5

Magenta

Коричневый

6

Brown

Светло-серый

7

LightGray

Серый

8

DarkGray

Голубой

9

LightBlue

Светло-зелёный

10

LightGreen

Светло-бирюзовый

11

LightCyan

Светло-красный (алый)

12

LightRed

Светло-сиреневый

13

LightMagenta

Жёлтый

14

Yellow

Белый, яркий

15

White


Выбранный для просмотра документ Урок6_учитель.doc

библиотека
материалов

ЯЗЫК ПРОГРАММИРОВАНИЯ TURBO PASCAL 7.0


Тема: УПРАВЛЕНИЕ РЕЖИМАМИ ВЫВОДА ИНФОРМАЦИИ В TURBO PASCAL 7.0.


Цели: дать представление о процедурах управления режимами вывода информации (модуль CRT: процедура ClrScr, процедуры работы с цветом).


План.

I. Знакомство с новым материалом.

  1. Модуль CRT;

  2. Процедура очистки экрана;

  3. Процедуры работы с цветом;

II. Практическая работа.

III. Итог урока.


Ход урока.


I. Знакомство с новым материалом.


  1. Модуль CRT.


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

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


Uses {начало раздела подключения модулей}

CRT; {подключение модуля CRT}

Begin {начало раздела описания логики программы}

…………….

End. {конец раздела описания логики программы}


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

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



  1. Процедура очистки экрана.


Название процедуры ClrScr является сокращением Clear Screen (англ.) – очистить экран. Результатом выполнения данной процедуры является удаление всех символов, присутствующих на экране, и перемещение каретки в верхний левый угол экрана. Процедура ClrScr рекомендуется вызывать в начале программы, чтобы информация, оставшаяся от других программ, не мешала пользователю, а также в конце программы, чтобы выведенная нашей программой, не мешала работе с другими.


Пример:

Program ClearScreen;

Uses

CRT;

Begin

ClrScr;

Writeln (`Да здравствует чистый экран!`);

Write (`Вся предыдущая информация была стерта.`)

End.


  1. Процедуры работы с цветом.


В любой момент времени выполнения программы, экран в текстовом режиме имеет две цветовых характеристики: текущий цвет выводимого текста и текущий фон выводимого текста. Эти характеристики показывают, какой цвет буду иметь символы, выводимые на экран процедурами Write и Writeln, и на каком фоне они будут отображены.

Для изменения текущего цвета отображаемого текста используется процедура TextColor (от англ. Text color – цвет текста), имеющая следующий вид:

TextColor (<Номер цвета>);


В качестве Номера цвета используются числа от 0 до 15, заданное переменной или константой (по имени или по значению). Для всех возможных цветов в модуле CRT описаны константы.


Цвет

Номер

Константы модуля CRT

Чёрный

0

Black

Синий

1

Blue

Зелёный

2

Green

Бирюзовый

3

Cyan

Красный

4

Red

Сиреневый

5

Magenta

Коричневый

6

Brown

Светло-серый

7

LightGray

Серый

8

DarkGray

Голубой

9

LightBlue

Светло-зелёный

10

LightGreen

Светло-бирюзовый

11

LightCyan

Светло-красный (алый)

12

LightRed

Светло-сиреневый

13

LightMagenta

Жёлтый

14

Yellow

Белый, яркий

15

White


Процедура TextColor устанавливает цвет только тех символов, которые будут выводиться после ее выполнения. Символы, уже находящиеся на экране, сохранят свой цвет.


Задание 1.

Составить программу вывода слова «Информатика» красным цветом, предварительно очистив экран.


Ответ:


Program RedText;

Uses

CRT; {подключение модуля CRT}

Begin {начало раздела описания логики программы}

ClrScr; {очистка экрана}

TextColor (4); {установка текущего цвета с номером 4 (красный),

начиная с этого места}

Write (`Информатика`); {вывод текстовой информации}

ReadKey; {программа приостанавливается до нажатия

пользователем клавиши. При этом

вся информация, выведенная на экран видна}

ClrScr; {очистка экрана}

End.


Рекомендуется вместо номера текущего цвета использовать соответствующие им константы. Например, красному цвету соответствует константа Red.

Вторая цветовая характеристика выводимого на экран текста – текущий цвет фона. Для изменения текущего цвета фона используется процедура TextBackGround.

TextBackGround (<Номер цвета>);


Для цвета фона могут использоваться первые восемь цветов из шестнадцати доступных в текстовом режиме. Цвет фона является текущей характеристикой, поэтому процедура TextBackGround влияет на цвет фона только тех символов, которые выводятся после её вызова.


Задание 2.

Измените программу так, чтобы слово «Информатика» выводилось на чёрном фоне.

Ответ:

Program RedText;

Uses

CRT; {подключение модуля CRT}

Begin {начало раздела описания логики программы}

ClrScr; {очистка экрана}

TextColor (Red); {установка текущего цвета с номером 4 (красный),

начиная с этого места}

TextBackGround (Black); {чёрного цвета в качестве текущего для фона}

Write (`Информатика`); {вывод текстовой информации}

ReadKey; {программа приостанавливается до нажатия

пользователем клавиши. При этом

вся информация, выведенная на экран видна}

ClrScr; {очистка экрана}

End.


II. Практическая работа.


Задание 1.

Написать программу, которая выводит на синем фоне серыми буквами четверостишие:


Буря мглою небо кроет,

Вихри снежные крутя.

То как зверь она завоет,

То заплачет, как дитя.

А.С. Пушкин.


Задание 2.

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


III. Итог урока.

Вопросы:

  1. С помощью какого модуля можно управлять представлением информации на экране?

  2. Какая процедура позволяет очищать экран?

  3. С помощью, каких процедур можно задавать цветовое оформление вывода? В чём их различие?

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

библиотека
материалов

Ввод одиночного символа


Ввод одиночного символа производится уже знакомой функцией ReadKey модуля CRT:


ReadKey;


Функция ReadKey вызывается без параметров, ждёт нажатия клавиши пользователем, и возвращает значение типа Char, соответствующей нажатой клавиши. Рассмотрим пример работы с данной функцией.


Program ChtenieSimvola;

Подключение модуля CRT:

Uses

CRT;

Описание переменной для хранения символа, введённого пользователем:

Var

Ch: Char;

Begin

Очистка экрана:

Clrscr;

Сообщение пользователю о необходимости нажать клавишу:

Writeln (‘Нажмите клавишу’);

Ожидание нажатия пользователем клавиши и занесение символа, соответствующего нажатой клавиши в переменную Ch:

Ch:= ReadKey;

Write (‘Вы нажали клавишу‘,Ch);

Ожидание нажатия пользователем клавиши:

readKey;

End.

Выбранный для просмотра документ Плакат.doc

библиотека
материалов

Program ChtenieSimvola;

Uses CRT;

Var

Ch: Char;

Begin

Clrscr;

Writeln (‘Нажмите клавишу’);

Ch:= ReadKey;

Write (‘Вы нажали клавишу‘,Ch);

ReadKey;

End.

Выбранный для просмотра документ Урок 7_учитель.doc

библиотека
материалов

ЯЗЫК ПРОГРАММИРОВАНИЯ TURBO PASCAL 7.0


Тема: УПРАВЛЕНИЕ РЕЖИМАМИ ВЫВОДА ИНФОРМАЦИИ В TURBO PASCAL 7.0.


Цели: дать представление о процедурах управления режимами вывода информации (модуль CRT: процедура управления расположением информации, функцией ReadKey).


План.

I. Знакомство с новым материалом.

  1. Процедура управления расположением информации;

  2. Функцией ReadKey;

II. Практическая работа.

III. Итог урока.


Ход урока.


I. Знакомство с новым материалом.


  1. Процедура управления расположением информации.


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

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


GotoXY (<Горизонтальная координата>,<Вертикальная координата>);


В

0, 0

hello_html_98608df.gifhello_html_m1586c114.gif

23

ертикальная координата определяет номер экранной строки, в которую должен переместиться курсор и может принимать значения от 0 до 23. Горизонтальная координата определяет положение курсора в новой строке от левого края экрана и может изменяться от 0 до 79.

79


Процедура GotoXY описана в модуле CRT, поэтому перед использованием данный модуль должен быть подключён. Работает GotoXY только в текстовом режиме.


Задание 1.

Вывести на экран своё имя, и фамилию синим цветом на белом фоне в центре экрана.


Ответ:

Program Name;

Uses

CRT;

Begin

ClrScr;

TextColor (LightGray);

TextBackGround (Black);

GotoXY(24,11)

Write (`Иванова Катя`);

ReadKey;

ClrScr;

End.


  1. Функцией ReadKey.


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

Эта функция позволяет организовать паузу в программе. После передачи управления данной функции, программа приостанавливается до нажатия пользователем какой-либо символьной или управляющей клавиши (в список таких клавиш не входят клавиши Shift, Alt, Ctrl, CapsLock, NumLock, PrintScreen и все специализированные клавиши, предназначенные для работы в Windows).

ReadKey;

Функция ReadKey вызывается без параметров, ждёт нажатия клавиши пользователем, и возвращает значение типа Char, соответствующее нажатой клавиши.


Пример:

Program ChtenieSimvola;

Uses

CRT; {подключение модуля }

Var

Ch: Char; {описание переменной для хранения

символов, введенного пользователем}

Begin

ClsScr; {очистка экрана}

Writeln (`Нажмите клавишу!`); {сообщение пользователю о необходимости

нажать клавишу}

Ch: = ReadKey; {ожидание нажатия пользователем клавиши и

занесение символа, соответствующего

нажатой клавише в переменную Ch}

Write (`Вы нажали клавишу`,Ch);

ReadKey; {ожидание нажатия пользователем клавиши}

End.


II. Практическая работа.

Задание 1.

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


Задание 2.

Написать программу, которая очищает экран и выводит слова red, green, blue, yellow каждое своим цветом в центре четвертей экрана (если экран условно разбить на четыре части, как показано на рисунке):



red



green


blue



yellow


Задание 3.

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


Очистка экрана

Crt

Позицирование курсора в левый нижний угол

TextBackGround (Red); ClrScr;

Заказ красного цвета фона экрана

Write (‘Heppy New Year’);

Заливка экрана красным цветом

GoToXY (78,1);

Вывод в текущую позицию экрана “Heppy New Year” с переходом курсора на новую строку

TextColor(Red);

Позицирование курсора в правый верхний угол экрана

TextColor (12); Write(‘Hello’);

Установка красного цвета текста

GoToXY (1,23);

Вывод в текущую позицию экрана “Heppy New Year” без перехода курсора на новую строку

Writeln (‘Heppy New Year’);

Библиотека среды Паскаль для работы в текстовом режиме

Begin end

Начало и конец тела программы

TextBackGround (Red);

Вывод в центр экрана “Hello

ClrScr;

Вывод текста “Hello” цветом № 12

GoToXY (35,12); Write(‘Hello’);


Ответы:

1-л

2-ж

3-к

4-б

5-з

6-г

7-д

8-в

9-а

10-и

11-м

12-е



III. Итог урока.


Вопросы:

  1. Какими словами начинается и заканчивается тело любой программы на Паскале.

  2. Из каких этапов состоит процесс создания компьютерной программы?

  3. Как запустить Паскаль? Как выйти из среды Паскаль? Как запустить программу в среде Паскаль?

  4. Какие действия совершают операторы Write и Writeln? В чём состоит разница между ними?

  5. Как просмотреть результат работы программы?

  6. Что такое текстовый режим работы? Опишите правила задания координат определённой точки экрана.

  7. Какой модуль позволяет выводить информацию на экран красиво и в цвете? Как установить курсор в нужную позицию экрана?

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

библиотека
материалов

УПРАВЛЕНИЕ РЕЖИМАМИ ВЫВОДА ИНФОРМАЦИИ


Практическая работа.


Задание 1.


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


Задание 2.


Написать программу, которая очищает экран и выводит слова red, green, blue, yellow каждое своим цветом в центре четвертей экрана (если экран условно разбить на четыре части, как показано на рисунке):




red



green


blue



yellow





УПРАВЛЕНИЕ РЕЖИМАМИ ВЫВОДА ИНФОРМАЦИИ


Практическая работа.


Задание 1.


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


Задание 2.


Написать программу, которая очищает экран и выводит слова red, green, blue, yellow каждое своим цветом в центре четвертей экрана (если экран условно разбить на четыре части, как показано на рисунке):




red



green


blue



yellow


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

библиотека
материалов

УПРАВЛЕНИЕ РЕЖИМАМИ ВЫВОДА ИНФОРМАЦИИ.

Задание.

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


Очистка экрана

Crt

Позицирование курсора в левый нижний угол

TextBackGround (Red); ClrScr;

Заказ красного цвета фона экрана

Write (‘Heppy New Year’);

Заливка экрана красным цветом

GoToXY (78,1);

Вывод в текущую позицию экрана “Heppy New Year” с переходом курсора на новую строку

TextColor(Red);

Позицирование курсора в правый верхний угол экрана

TextColor (12); Write(‘Hello’);

Установка красного цвета текста

GoToXY (1,23);

Вывод в текущую позицию экрана “Heppy New Year” без перехода курсора на новую строку

Writeln (‘Heppy New Year’);

Библиотека среды Паскаль для работы в текстовом режиме

Begin end

Начало и конец тела программы

TextBackGround (Red);

Вывод в центр экрана “Hello

ClrScr;

Вывод текста “Hello” цветом № 12

GoToXY (35,12); Write(‘Hello’);





УПРАВЛЕНИЕ РЕЖИМАМИ ВЫВОДА ИНФОРМАЦИИ.

Задание.

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


Очистка экрана

Crt

Позицирование курсора в левый нижний угол

TextBackGround (Red); ClrScr;

Заказ красного цвета фона экрана

Write (‘Heppy New Year’);

Заливка экрана красным цветом

GoToXY (78,1);

Вывод в текущую позицию экрана “Heppy New Year” с переходом курсора на новую строку

TextColor(Red);

Позицирование курсора в правый верхний угол экрана

TextColor (12); Write(‘Hello’);

Установка красного цвета текста

GoToXY (1,23);

Вывод в текущую позицию экрана “Heppy New Year” без перехода курсора на новую строку

Writeln (‘Heppy New Year’);

Библиотека среды Паскаль для работы в текстовом режиме

Begin end

Начало и конец тела программы

TextBackGround (Red);

Вывод в центр экрана “Hello

ClrScr;

Вывод текста “Hello” цветом № 12

GoToXY (35,12); Write(‘Hello’);


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

библиотека
материалов

Практическая работа.

Задание 1.

Вычислить расстояние между двумя точками с данными координатами х1, y1 и х2, у2.

Задание 2.

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

Задание 3.

Дана длина ребра куба. Найти площадь грани, площадь полной поверхности и объём куба.

Задание 4.

Дано а. Не используя никаких функций и никаких операций кроме умножения, получить:

  • а8 за три операции;

  • а10 за четыре операции;

  • а7 за четыре операции;

  • а15 за пять операций.




Практическая работа.

Задание 1.

Вычислить расстояние между двумя точками с данными координатами х1, y1 и х2, у2.

Задание 2.

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

Задание 3.

Дана длина ребра куба. Найти площадь грани, площадь полной поверхности и объём куба.

Задание 4.

Дано а. Не используя никаких функций и никаких операций кроме умножения, получить:

  • а8 за три операции;

  • а10 за четыре операции;

  • а7 за четыре операции;

  • а15 за пять операций.


Практическая работа.

Задание 1.

Вычислить расстояние между двумя точками с данными координатами х1, y1 и х2, у2.

Задание 2.

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

Задание 3.

Дана длина ребра куба. Найти площадь грани, площадь полной поверхности и объём куба.

Задание 4.

Дано а. Не используя никаких функций и никаких операций кроме умножения, получить:

  • а8 за три операции;

  • а10 за четыре операции;

  • а7 за четыре операции;

  • а15 за пять операций.




Практическая работа.

Задание 1.

Вычислить расстояние между двумя точками с данными координатами х1, y1 и х2, у2.

Задание 2.

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

Задание 3.

Дана длина ребра куба. Найти площадь грани, площадь полной поверхности и объём куба.

Задание 4.

Дано а. Не используя никаких функций и никаких операций кроме умножения, получить:

  • а8 за три операции;

  • а10 за четыре операции;

  • а7 за четыре операции;

  • а15 за пять операций.


Выбранный для просмотра документ Урок 8_учитель.doc

библиотека
материалов

ЯЗЫК ПРОГРАММИРОВАНИЯ TURBO PASCAL 7.0


Тема: РЕШЕНИЕ ЗАДАЧ В TURBO PASCAL 7.0.


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


План.

I. Решение задач.

II. Итог урока.


Ход урока.


I. Решение задач.


Задача 1.

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


Вычисление стоимости покупки.

Введите исходные данные:

Цена тетради (руб.) - 2.75

Количество тетрадей – 5

Цена карандаша – 0.85

Количество карандашей – 2


Стоимость покупки: 15.45 руб.


Задание 2.

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


Вычисление стоимости покупки.

Введите исходные данные:

Цена одного килограмма яблок (руб.) – 8.5

Вес яблок (кг) – 2.3


Стоимость покупки: 19.55 руб.


Задание 3.

Написать программу пересчёта веса из фунтов в килограммы (1 фунт равняется 409,5 г). Данные должны быть ведены пользователем. Ниже представлен рекомендуемый вид экрана во время работы.


Пересчёт веса из фунтов в килограммы.

Введите вес в фунтах и нажмите Enter.

- 3.5

3.5 фунт(а/ов) – это 1.42 кг.


Задание 4.

Даны числа x, y. Вычислить сумму, разность и произведение.


Задание 5.

В переменные А и В записаны целые числа (оператором присваивания, например, А:=20, В:=13). Поменяйте числа в этих переменных местами.


Задание 6.

Выполните задание 5 без использования третей переменной. Используйте действия сложения и вычитания.


Задание 7.

Вычислите длину окружности и площадь круга. Радиус должен вводиться с клавиатуры.


Задание 8.

Известно количество жителей в государстве и площадь территории. Определить плотность населения в этом государстве.


II. Итог урока.


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


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

библиотека
материалов

ПРАКТИЧЕСКАЯ РАБОТА

Задача 1.

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


Вычисление стоимости покупки.

Введите исходные данные:

Цена тетради (руб.) - 2.75

Количество тетрадей – 5

Цена карандаша – 0.85

Количество карандашей – 2

Стоимость покупки: 15.45 руб.


Задание 2.

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


Вычисление стоимости покупки.

Введите исходные данные:

Цена одного килограмма яблок (руб.) – 8.5

Вес яблок (кг) – 2.3

Стоимость покупки: 19.55 руб.


Задание 3.

Написать программу пересчёта веса из фунтов в килограммы (1 фунт равняется 409,5 г). Данные должны быть ведены пользователем. Ниже представлен рекомендуемый вид экрана во время работы.


Пересчёт веса из фунтов в килограммы.

Введите вес в фунтах и нажмите Enter.

- 3.5

3.5 фунт(а/ов) – это 1.42 кг.


Задание 4.

Даны числа x, y. Вычислить сумму, разность и произведение.


Задание 5.

В переменные А и В записаны целые числа (оператором присваивания, например, А:=20, В:=13). Поменяйте числа в этих переменных местами.


Задание 6.

Выполните задание 5 без использования третей переменной. Используйте действия сложения и вычитания.


Задание 7.

Вычислите длину окружности и площадь круга. Радиус должен вводиться с клавиатуры.


Задание 8.

Известно количество жителей в государстве и площадь территории. Определить плотность населения в этом государстве.


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

библиотека
материалов

Задание:

Выпишите правильно использованные операторы присваивания.

Program pris;

Var

A1, A2: real;

B1, B2: integer;

S: string;

Ch: char;

Begin

A1:= 1.25;

A2:= 2.33;

A2:= 7;

A2:=A1;

B1:= 4;

B1:= 4.38;

B2:= 10;

B1:= B2;

B1:=A2;

S:=’НАУКА’;

Ch:=’Z’;

Ch:=’РОССИЯ’;

Ch:= S;

S:= 10;

End.


Задание:

Выпишите правильно использованные операторы присваивания.

Program pris;

Var

A1, A2: real;

B1, B2: integer;

S: string;

Ch: char;

Begin

A1:= 1.25;

A2:= 2.33;

A2:= 7;

A2:=A1;

B1:= 4;

B1:= 4.38;

B2:= 10;

B1:= B2;

B1:=A2;

S:=’НАУКА’;

Ch:=’Z’;

Ch:=’РОССИЯ’;

Ch:= S;

S:= 10;

End.


Задание:

Выпишите правильно использованные операторы присваивания.

Program pris;

Var

A1, A2: real;

B1, B2: integer;

S: string;

Ch: char;

Begin

A1:= 1.25;

A2:= 2.33;

A2:= 7;

A2:=A1;

B1:= 4;

B1:= 4.38;

B2:= 10;

B1:= B2;

B1:=A2;

S:=’НАУКА’;

Ch:=’Z’;

Ch:=’РОССИЯ’;

Ch:= S;

S:= 10;

End.


Задание:

Выпишите правильно использованные операторы присваивания.

Program pris;

Var

A1, A2: real;

B1, B2: integer;

S: string;

Ch: char;

Begin

A1:= 1.25;

A2:= 2.33;

A2:= 7;

A2:=A1;

B1:= 4;

B1:= 4.38;

B2:= 10;

B1:= B2;

B1:=A2;

S:=’НАУКА’;

Ch:=’Z’;

Ch:=’РОССИЯ’;

Ch:= S;

S:= 10;

End.



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

библиотека
материалов

ПРЕОБРАЗОВАНИЕ ТИПОВ.


Практическая работа.


Задание 1.

Написать программу, которая преобразует введенное с клавиатуры дробное число в денежный формат. Например, число 125 должно быть преобразовано к виду 12 руб. 50 коп.


Преобразование числа в денежный формат.

Введите дробное число – 23.6


23.6 руб. – это 23 руб. 60 коп.


Задание 2.

Дано действительное число Х. Напишите программу для вычисления:

  • Целой части числа Х;

  • Числа Х, округлённого до ближайшего целого;

  • Числа Х без дробных цифр.




ПРЕОБРАЗОВАНИЕ ТИПОВ.


Практическая работа.


Задание 1.

Написать программу, которая преобразует введенное с клавиатуры дробное число в денежный формат. Например, число 125 должно быть преобразовано к виду 12 руб. 50 коп.


Преобразование числа в денежный формат.

Введите дробное число – 23.6


23.6 руб. – это 23 руб. 60 коп.


Задание 2.

Дано действительное число Х. Напишите программу для вычисления:

  • Целой части числа Х;

  • Числа Х, округлённого до ближайшего целого;

  • Числа Х без дробных цифр.


Выбранный для просмотра документ Урок 9_учитель.doc

библиотека
материалов

ЯЗЫК ПРОГРАММИРОВАНИЯ TURBO PASCAL 7.0


Тема: ОПЕРАТОР ПРИСВАИВАНИЯ. СОВМЕСТИМОСТЬ ТИПОВ ДАННЫХ. ПРЕОБРАЗОВАНИЕ ТИПОВ.


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


План.

I. Знакомство с новым материалом.

  1. Совместимость типов данных.

  2. Преобразование типов данных.

II. Практическая работа.

III. Итог урока.


Ход урока.


I. Знакомство с новым материалом.


  1. Совместимость типов данных.


В программе могут одновременно встречаться переменные разных типов. Как их совместить?

В Turbo Pascal существуют специальные средства (процедуры), позволяющие преобразовывать одни типы данных в другие:


chr – преобразует символьное значение в числовое;

ord – преобразует числовое значение в символьное;

trunc – преобразует вещественное число в целое путём отсечения дробной части;

round – преобразует вещественное число в целое путём округления.


Для хранения данных типа integer используется 2 бита, а для real необходимо 6 байт. Это значит, что число типа integer можно поместить в ячейку типа real (целая часть будет равна этому числу, а дробная будет равна нулю). А вот число типа real в ячейку типа integer никак не поместится. Чтобы всё-таки поместить его туда, нужно явно указать, что делать с дробной частью числа. Для этого предусмотрены функции trunk и round. Обе они возвращают результат типа integer.


  1. Преобразование типов данных.


Пример.

Одновременное использование вещественных и целых типов.


Program Mix;

Var

N, K: integer;

A, B: real;

Begin

N:=4;

A:=3.6;

B:=N; {В переменную типа real можно записать целое число}

Writeln (‘B=’, B);

{В переменную типа integer нельзя записать вещественное число! Чтобы всё-таки поместить число типа real в переменную типа integer, нужно указать, что делать с дробной частью числа.}

1 способ:

N:=trunc(A);

Writeln (‘TRUNC(3.6)=’,N);

{Функция trunс(Х) возвращает целую часть числа Х, то есть отбрасывает дробную часть.}

2 способ:

K:=round(A);

Writeln (‘ROUND(3.6)=’,K);

{Функция round(Х) округляет до ближайшего целого.}

End.


При запуске программа выведет на экран следующее:

B:=4.0000000000E+00

TRUNC(3.6)=3

ROUND(3.6)=4


II. Практическая работа.


Задание 1.

Написать программу, которая преобразует введенное с клавиатуры дробное число в денежный формат. Например, число 125 должно быть преобразовано к виду 12 руб. 50 коп.


Преобразование числа в денежный формат.

Введите дробное число – 23.6


23.6 руб. – это 23 руб. 60 коп.


Задание 2.

Дано действительное число Х. Напишите программу для вычисления:

  • Целой части числа Х;

  • Числа Х, округлённого до ближайшего целого;

  • Числа Х без дробных цифр.


Ответ на задание 1.

N – дробное число;

R – целая часть числа (руб.);

K – дробная часть числа (коп.).


Program dengi;

Uses

CRT;

Var

N: real;

R, K: integer;

Begin

Writeln (‘Преобразование числа в денежный формат.‘);

Write (‘Введите дробное число -‘);

Readln (N);

R:=round (N*100) div 100;

K:=round (N*100) mod 100;

Writeln;

Writeln (N:6:2,’руб. - это‘,R,’руб.’,K,’коп.’);

ReadKey;


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

библиотека
материалов

Практическая работа.

Рекуррентные соотношения.

Задача 1.

Одноклеточная амеба каждые 3 часа делиться на 2 клетки. Определите, сколько клеток будет через 3, 6, 9, …, 24 часа, если первоначально бала одна амеба.

Задача 2.

Гражданин 1 марта открыл счет в банке, вложив 1000 руб. Через каждый месяц размер вклада увеличивается на 2% от имеющейся суммы. Определить:

  • прирост суммы вклада за первый, второй, …, десятый месяц;

  • сумму вклада через три, четыре, …, двенадцать месяцев.

Задача 3.

Начав тренировки, лыжник в первый день пробежал 10 км. Каждый следующий день он увеличивал пробег на 10% от пробега предыдущего дня. Определить:

  • пробег лыжника за второй, третий, …, десятый день тренировок;

  • какой суммарный путь он пробежал за первые 7 дней тренировок.

Задача 4.

В некотором году (назовем его условно первым) на участке в 100 гектар средняя урожайность ячменя составила 20 центнеров с гектара. После этого каждый год площадь участка увеличивалась на 5%, а средняя урожайность на 2%. Определить:

  • урожайность за второй, третий, …, восьмой год;

  • площадь участка в четвертый, пятый, …, седьмой год;

  • какой урожай будет собран за первые шесть лет.

Задача 5.

Определить суммарный объем в литрах двенадцать вложенных друг в друга шаров со стенками толщиной 5 мм. Внутренний диаметр внутреннего шара 10 см. Принять, что шары вкладываются друг в друга без зазоров.


Практическая работа.

Рекуррентные соотношения.

Задача 1.

Одноклеточная амеба каждые 3 часа делиться на 2 клетки. Определите, сколько клеток будет через 3, 6, 9, …, 24 часа, если первоначально бала одна амеба.

Задача 2.

Гражданин 1 марта открыл счет в банке, вложив 1000 руб. Через каждый месяц размер вклада увеличивается на 2% от имеющейся суммы. Определить:

  • прирост суммы вклада за первый, второй, …, десятый месяц;

  • сумму вклада через три, четыре, …, двенадцать месяцев.

Задача 3.

Начав тренировки, лыжник в первый день пробежал 10 км. Каждый следующий день он увеличивал пробег на 10% от пробега предыдущего дня. Определить:

  • пробег лыжника за второй, третий, …, десятый день тренировок;

  • какой суммарный путь он пробежал за первые 7 дней тренировок.

Задача 4.

В некотором году (назовем его условно первым) на участке в 100 гектар средняя урожайность ячменя составила 20 центнеров с гектара. После этого каждый год площадь участка увеличивалась на 5%, а средняя урожайность на 2%. Определить:

  • урожайность за второй, третий, …, восьмой год;

  • площадь участка в четвертый, пятый, …, седьмой год;

  • какой урожай будет собран за первые шесть лет.

Задача 5.

Определить суммарный объем в литрах двенадцать вложенных друг в друга шаров со стенками толщиной 5 мм. Внутренний диаметр внутреннего шара 10 см. Принять, что шары вкладываются друг в друга без зазоров.


Выбранный для просмотра документ Урок_1.doc

библиотека
материалов

ЯЗЫК ПРОГРАММИРОВАНИЯ TURBO PASCAL 7.0


Тема: РЕКУРРЕНТНЫЕ СООТНОШЕНИЯ. РЕШЕНИЕ ЗАДАЧ.


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


План.

I. Решение задач.

II. Итог урока.


Ход урока.


I. Решение задач.


Задача 1.

Одноклеточная амеба каждые 3 часа делиться на 2 клетки. Определите, сколько клеток будет через 3, 6, 9, …, 24 часа, если первоначально бала одна амеба.


Задача 2.

Гражданин 1 марта открыл счет в банке, вложив 1000 руб. Через каждый месяц размер вклада увеличивается на 2% от имеющейся суммы. Определить:

  • прирост суммы вклада за первый, второй, …, десятый месяц;

  • сумму вклада через три, четыре, …, двенадцать месяцев.


Задача 3.

Начав тренировки, лыжник в первый день пробежал 10 км. Каждый следующий день он увеличивал пробег на 10% от пробега предыдущего дня. Определить:

  • пробег лыжника за второй, третий, …, десятый день тренировок;

  • какой суммарный путь он пробежал за первые 7 дней тренировок.


Задача 4.

В некотором году (назовем его условно первым) на участке в 100 гектар средняя урожайность ячменя составила 20 центнеров с гектара. После этого каждый год площадь участка увеличивалась на 5%, а средняя урожайность на 2%. Определить:

  • урожайность за второй, третий, …, восьмой год;

  • площадь участка в четвертый, пятый, …, седьмой год;

  • какой урожай будет собран за первые шесть лет.


Задача 5.

Определить суммарный объем в литрах двенадцать вложенных друг в друга шаров со стенками толщиной 5 мм. Внутренний диаметр внутреннего шара 10 см. Принять, что шары вкладываются друг в друга без зазоров.


II. Итог урока.


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


Выбранный для просмотра документ Плакат.doc

библиотека
материалов

Program prim1;

Var

n: integer;

y: real;

begin

y:=0;

for n:=1 to 20 do

begin

y:=y+1/n;

writeln (‘y=’,y);

end;

end.


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

библиотека
материалов

Цикл с параметром

Практическая работа № 1.

Задание 1.

Напечатать ряд чисел 20 в виде:

20 20 20 20 20 20 20 20 20 20

Задание 2.

Одна штука некоторого товара стоит 20,4 руб. Напечатать таблицу стоимости 2, 3, …, 20 штук этого товара.

Задание 3.

Напечатать таблицу перевода 1, 2, …20 долларов США в рубли по текущему курсу (значение курса вводить с клавиатуры).

Задание 4.

Напечатать таблицу умножения на 7, используя цикл.



Цикл с параметром

Практическая работа № 1.

Задание 1.

Напечатать ряд чисел 20 в виде:

20 20 20 20 20 20 20 20 20 20

Задание 2.

Одна штука некоторого товара стоит 20,4 руб. Напечатать таблицу стоимости 2, 3, …, 20 штук этого товара.

Задание 3.

Напечатать таблицу перевода 1, 2, …20 долларов США в рубли по текущему курсу (значение курса вводить с клавиатуры).

Задание 4.

Напечатать таблицу умножения на 7, используя цикл.


Цикл с параметром

Практическая работа № 1.

Задание 1.

Напечатать ряд чисел 20 в виде:

20 20 20 20 20 20 20 20 20 20

Задание 2.

Одна штука некоторого товара стоит 20,4 руб. Напечатать таблицу стоимости 2, 3, …, 20 штук этого товара.

Задание 3.

Напечатать таблицу перевода 1, 2, …20 долларов США в рубли по текущему курсу (значение курса вводить с клавиатуры).

Задание 4.

Напечатать таблицу умножения на 7, используя цикл.



Цикл с параметром

Практическая работа № 1.

Задание 1.

Напечатать ряд чисел 20 в виде:

20 20 20 20 20 20 20 20 20 20

Задание 2.

Одна штука некоторого товара стоит 20,4 руб. Напечатать таблицу стоимости 2, 3, …, 20 штук этого товара.

Задание 3.

Напечатать таблицу перевода 1, 2, …20 долларов США в рубли по текущему курсу (значение курса вводить с клавиатуры).

Задание 4.

Напечатать таблицу умножения на 7, используя цикл.

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

библиотека
материалов

Цикл с параметром.

Задание 1.

Написать программу, которая 10 раз выводит на экран имя и фамилию.


Задание 2.

Напечатать «столбиком»:

  • все целые числа от 20 до 35;

  • квадраты всех целых чисел от 10 до b (значение b вводится с клавиатуры; b>=10);

  • третьи степени всех целых чисел от а до 50 (значение а вводится с клавиатуры; а<=50);

  • все целые числа от а до b (значение а и b вводятся с клавиатуры; b>=а).


Задание 3.

Напечатать таблицу соответствия между весом в фунтах и весом в килограммах для значений 1, 2,…, 10 фунтов (1 фунт = 453 г).


Задание 4.

Используя возможности модуля Crt для работы с экраном в текстовом режиме, написать программу, которая 16 раз меняет цвет экрана и выводит любой текст на новом фоне в центр экрана.

Пояснение: разумно, если цвет фона и параметр цикла будут одной переменной (палитра цветов изменяется в диапазоне 0-15).

Цикл с параметром.

Задание 1.

Написать программу, которая 10 раз выводит на экран имя и фамилию.


Задание 2.

Напечатать «столбиком»:

  • все целые числа от 20 до 35;

  • квадраты всех целых чисел от 10 до b (значение b вводится с клавиатуры; b>=10);

  • третьи степени всех целых чисел от а до 50 (значение а вводится с клавиатуры; а<=50);

  • все целые числа от а до b (значение а и b вводятся с клавиатуры; b>=а).


Задание 3.

Напечатать таблицу соответствия между весом в фунтах и весом в килограммах для значений 1, 2,…, 10 фунтов (1 фунт = 453 г).


Задание 4.

Используя возможности модуля Crt для работы с экраном в текстовом режиме, написать программу, которая 16 раз меняет цвет экрана и выводит любой текст на новом фоне в центр экрана.

Пояснение: разумно, если цвет фона и параметр цикла будут одной переменной (палитра цветов изменяется в диапазоне 0-15).

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

библиотека
материалов

Проверочная работа по теме:

«Цикл с параметром»


Вопросы:

  1. Какой оператор нужно использовать, чтобы вывести в каждой строке слово «Привет»?


  1. Чем отличаются формы «to» и «downto» оператора FOR?

  2. Переменные какого типа должны использоваться в качестве параметра цикла в операторе FOR?


  1. Сколько раз выполнится тело цикла:

FOR j:=25 DOWNTO 3 DO

writeln (‘*’);


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

s:=0;

n:=5;

for i:=2 to n do s:=s+100 div i;


  1. Какие из приведённых операторов правильные и почему?

for i:=12 to 15 do s:=s+i;

for a:=30 to 20 do

if a mod 3=0 then d:=d+1;


Проверочная работа по теме:

«Цикл с параметром»


Вопросы:

  1. Какой оператор нужно использовать, чтобы вывести в каждой строке слово «Привет»?


  1. Чем отличаются формы «to» и «downto» оператора FOR?

  2. Переменные какого типа должны использоваться в качестве параметра цикла в операторе FOR?


  1. Сколько раз выполнится тело цикла:

FOR j:=25 DOWNTO 3 DO

writeln (‘*’);


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

s:=0;

n:=5;

for i:=2 to n do s:=s+100 div i;


  1. Какие из приведённых операторов правильные и почему?

for i:=12 to 15 do s:=s+i;

for a:=30 to 20 do

if a mod 3=0 then d:=d+1;


Выбранный для просмотра документ Урок 1_учитель.doc

библиотека
материалов

ЯЗЫК ПРОГРАММИРОВАНИЯ TURBO PASCAL 7.0


Тема: ЦИКЛ С ПАРАМЕТРОМ.


Цели: познакомить учащихся с циклической структурой алгоритмов, с оператором цикла FORTODO.


План.

I. Знакомство с новым материалом.

  1. Оператор FORTODO.

  2. Самостоятельная работа.

II. Практическая работа.

III. Закрепление.

IV. Итог урока.


Ход урока.


I. Знакомство с новым материалом.


  1. Оператор FORTODO.

Иногда необходимо повторять определённые действия в программе. Повторение некоторой последовательности действий называется циклом. Саму последовательность повторяющихся действий называют телом цикла.

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

Оператор цикла с параметром FORTODO (От…До…Выполнить) выполняет команду некоторое количество раз:


FOR <параметр>:=А TO В DO <тело цикла>;


А – начальное значение;

В – конечное значение.


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

В качестве тела цикла может использоваться ОДИН оператор – процедура, функция и другие операторы Turbo Pascal. Если же тело цикло содержит не один оператор, тогда необходимо использовать составной оператор используя операторные скобки BeginEnd.


FOR <параметр>:=А TO В DO

Begin

<тело цикла>;

End;


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

  1. Повторяется условие

Параметр цикла <= Конечное значение

Если это условие не выполняется – оператор FOR заканчивает свою работу.

  1. Выполняется тело цикла.

  2. Производится увеличение значение параметра цикла на единицу и переход к п.1.

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

Кроме того, следует помнить, что приращение параметра цикла всегда производится на одну и ту же величину (на +1).


Пример.

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

y=1+1/2+1/3+…+1/20.


Решение.

В данном случае целесообразно организовать цикл с параметром, изменяющимся от 1 до 20, то есть шаг изменения параметра равен +1.

Обозначим: у – очередное значение суммы дробей;

n – параметр цикла.

Program prim1;

Uses crt;

Var

n: integer;

y: real;

begin

clrscr;

Задаём начальное значение, равное нулю’

y:=0;

Организовываем цикл с параметром от 1 до 20.’

for n:=1 to 20 do begin

Находим очередную сумму.’

y:=y+1/n;

Выводим на экран очередную сумму.’

writeln (‘y=’,y);

end;

end.


Существует и другая форма оператора FOR:

FOR <параметр>:=А DOWNTO В DO <тело цикла>;


А – начальное значение;

В – конечное значение.


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

Такая разновидность цикла FOR получила название цикла с обратным отсчётом.


2. Самостоятельная работа.

Самостоятельное задание.

  • Переставьте строки вывода результата за end.

  • Измените цикл с 20 до 1.


II. Практическая работа.


Задание 1.

Напечатать ряд чисел 20 в виде:

20 20 20 20 20 20 20 20 20 20


Задание 2.

Одна штука некоторого товара стоит 20,4 руб. Напечатать таблицу стоимости 2, 3, …, 20 штук этого товара.


Задание 3.

Напечатать таблицу перевода 1, 2, …20 долларов США в рубли по текущему курсу (значение курса вводить с клавиатуры).


Задание 4.

Напечатать таблицу умножения на 7, используя цикл.


III. Закрепление.

  1. В каких случаях используется оператор цикла с параметром? Как он оформляется?

  2. Что такое «тело оператора цикла»?

  3. Может ли тело оператора цикла с параметром не выполниться ни разу?

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

3


Выбранный для просмотра документ Урок 2_учитель.doc

библиотека
материалов

ЯЗЫК ПРОГРАММИРОВАНИЯ TURBO PASCAL 7.0


Тема: РЕШЕНИЕ ЗАДАЧ В TURBO PASCAL 7.0.


Цели: продолжить отработку умений решать задачи, с циклической структурой алгоритмов, с оператором цикла FORTODO.


План.

I. Решение задач.

II. Контрольные вопросы по теме «Цикл с параметром».

III. Итог урока.


Ход урока.


I. Решение задач.

Задание 1.

Написать программу, которая 10 раз выводит на экран имя и фамилию.


Задание 2.

Напечатать «столбиком»:

  • все целые числа от 20 до 35;

  • квадраты всех целых чисел от 10 до b (значение b вводится с клавиатуры; b>=10);

  • третьи степени всех целых чисел от а до 50 (значение а вводится с клавиатуры; а<=50);

  • все целые числа от а до b (значение а и b вводятся с клавиатуры; b>=а).


Задание 3.

Напечатать таблицу соответствия между весом в фунтах и весом в килограммах для значений 1, 2,…, 10 фунтов (1 фунт = 453 г).


Задание 4.

Используя возможности модуля Crt для работы с экраном в текстовом режиме, написать программу, которая 16 раз меняет цвет экрана и выводит любой текст на новом фоне в центр экрана.

Пояснение: разумно, если цвет фона и параметр цикла будут одной переменной (палитра цветов изменяется в диапазоне 0-15).


II. Контрольные вопросы по теме «Цикл с параметром».


Вопросы:

  1. Какой оператор нужно использовать, чтобы вывести в каждой строке слово «Привет»?


  1. Чем отличаются формы «to» и «downto» оператора FOR?

  2. Переменные какого типа должны использоваться в качестве параметра цикла в операторе FOR?


  1. Сколько раз выполнится тело цикла:

FOR j:=25 DOWNTO 3 DO

writeln (‘*’);


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

s:=0;

n:=5;

for i:=2 to n do s:=s+100 div i;


III. Итог урока.

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



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

библиотека
материалов


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

Практическая работа.

Задание 1.

Написать программу, вычисляющую сумму и среднее арифметическое последовательности положительных чисел, которые вводятся с клавиатуры. (Завершить ввод последовательности 0).

Задание 2.

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

Задание 3.

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

Задание 4. (*)

Написать программу, которая «задумывает» число в диапазоне от 1 до 10 и предлагает пользователю угадать число за 5 попыток.



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

Практическая работа.

Задание 1.

Написать программу, вычисляющую сумму и среднее арифметическое последовательности положительных чисел, которые вводятся с клавиатуры. (Завершить ввод последовательности 0).

Задание 2.

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

Задание 3.

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

Задание 4. (*)

Написать программу, которая «задумывает» число в диапазоне от 1 до 10 и предлагает пользователю угадать число за 5 попыток.



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

Практическая работа.

Задание 1.

Написать программу, вычисляющую сумму и среднее арифметическое последовательности положительных чисел, которые вводятся с клавиатуры. (Завершить ввод последовательности 0).

Задание 2.

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

Задание 3.

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

Задание 4. (*)

Написать программу, которая «задумывает» число в диапазоне от 1 до 10 и предлагает пользователю угадать число за 5 попыток.



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

Практическая работа.

Задание 1.

Написать программу, вычисляющую сумму и среднее арифметическое последовательности положительных чисел, которые вводятся с клавиатуры. (Завершить ввод последовательности 0).

Задание 2.

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

Задание 3.

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

Задание 4. (*)

Написать программу, которая «задумывает» число в диапазоне от 1 до 10 и предлагает пользователю угадать число за 5 попыток.



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

библиотека
материалов

Практическая работа по теме «Цикл с постусловием»


Задание 1.

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

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


Словесный алгоритм.

Начало алгоритма

  1. Задайте радиус окружности.

  2. Вычислите для него длину окружности.

  3. Последовательно удвойте число сторон n-угольника, рассчитывайте его периметр и сравните с длиной окружности, пока не добьётесь требуемой точности.

  4. Сообщите результат.

Конец алгоритма


hello_html_m1549f181.png

Задание 2. (*)

Сhello_html_6b28a7e3.pngлышали ли вы о «золотом» прямоугольнике? Если от него отсечь квадрат, то остаётся прямоугольник с такими же пропорциями (отношением сторон), то есть полученный прямоугольник тоже будет «золотым». Этот процесс можно продолжать до бесконечности. На этой же пропорции базируются все «золотые» геометрические фигуры. Отрезки «золотой» пропорции выражаются бесконечными дробями 1,618 или 0,618.

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

Требуется определить по введённым сторонам, является ли прямоугольник «золотым». Принять допущение: считать прямоугольник «золотым», если одно и то же соотношение к заданной точностью (абсолютная погрешность – 0,01) повторилось 5 раз. Вывести «золотое» соотношение.


Словесный алгоритм.

Начало алгоритма

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

  2. Определите, какая сторона является большей, какая – меньшей.

  3. Найдите и сообщите первое отношение большей стороны к меньшей.

  4. Пока не закончатся 5 экспериментов или не выявится неравенство последующих отношений, выполняйте следующие действия:

    1. определите стороны нового прямоугольника после отсечения квадрата и найдите их соотношение;

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

  5. Если все 5 попыток прошли успешно, то выведите сообщение «прямоугольник золотой», иначе – «прямоугольник не золотой».

Конец алгоритма


Выбранный для просмотра документ Урок_1.doc

библиотека
материалов

ЯЗЫК ПРОГРАММИРОВАНИЯ TURBO PASCAL 7.0


Тема: ОПЕРАТОР ЦИКЛА С ПОСТУСЛОВИЕМ.


Цели: познакомить учащихся с циклической структурой алгоритмов, с оператором цикла с постусловием REPEATUNTIL.


План.

I. Знакомство с новым материалом.

II. Решение задач.

III. Практическая работа.

IV. Закрепление.

V. Итог урока.


Ход урока.


I. Знакомство с новым материалом.


Вторая разновидность цикла проверяет условие после выполнения тела цикла. Поэтому правильно будет назвать это условие условием окончания цикла. Цикл такого вида называется циклом с постусловием.

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

Блок-схема в общем виде выглядит так:

hello_html_7daa2ceb.png

Выполнение цикла продолжается, если проверка логического условия даёт результат «ложь». Если логическое условие выполняется, то происходит выход из цикла. Иными словами, если в цикле while проверялось условие продолжения цикла, то в цикле repeatuntil – условие окончания.

На языке Паскаль этот тип цикла реализуется так:


repeat

<тело цикла>;

until <условие>;

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


II. Решение задач.


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


hello_html_317348bc.png



Программа

Пояснение

var


sum, a: real;

sum – для накопления суммы, a – для очередного числа

begin


sum:=0;

Обнуляем сумму

a:=0;

Число обнуляем

repeat


sum:=sum+a;

Добавляем введенное число к сумме

write (‘Введите число:‘);


readln (a);

Ввод очередного числа

until a<0;

Проверяем введенное число на отрицательность

writeln (‘Сумма чисел=’, sum:5:3);

При выходе из цикла выполняется этот оператор

readln;


end.



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


III. Практическая работа.


Задание 1.

Написать программу, вычисляющую сумму и среднее арифметическое последовательности положительных чисел, которые вводятся с клавиатуры. (Завершить ввод последовательности 0).


Задание 2.

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


Задание 3.

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


Задание 4. (*)

Написать программу, которая «задумывает» число в диапазоне от 1 до 10 и предлагает пользователю угадать число за 5 попыток.


Решение.

Задание 1.

Программа

Пояснение

var


a: integer;

Число, введённое с клавиатуры

n: integer;

Количество чисел

s: integer;

Сумма чисел

m: real;

Среднее арифметическое

begin


s:=0;


n:=0;


repeat


write (‘Введите число’);


readln (a);


s:=s+a;


n:=n+1;


until a<0;


n:=n-1;


writeln (‘Введено чисел:’, n);


writeln (‘Сумма чисел:’, s);


m:=s/n;


writeln (‘Среднее арифметическое:’, m:6:2);


readln;


end.



Задание 2.

Программа

Пояснение

var


a: integer;

очередное число

m: integer;

максимальное число

begin


m:=0;


repeat


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


readln (a);


if a>m then m:=a;


until a<=0;


writeln (m);


readln;


end.



Задание 3.

Программа

Пояснение

var


n: integer;


d: integer;


r: integer:


begin


write (‘Введите число’);


readln (n);


d:=2;

сначала будем делить на 2

repeat


r:=n mod d;


if r<>0 then d:=d+1;

n не разделилось нацело на d

until r=0;

пока не нашли число, на которое делится n

if d=n then writeln (n, ‘-простое число.‘)


else writeln (n, ‘-не простое число.);


end.


Задание 4. (*)

Программа

Пояснение

const


kp=5;


var


c: integer;

число, задуманное компьютером

i: integer;

вариант игрока

n: integer;

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

begin


randomize;

инициализация генератора случайных чисел

c:=random(9)+1;

компьютер задумал число

repeat


n:=n+1;


writeln (‘’);


readln (i);


until (n=kp) or (c=i);


if c=i then writeln (‘Вы выиграли!’)


else writeln (‘Вы проиграли! Компьютер задумал число’, c);


readln;


end.



IV. Закрепление.


  1. Число повторений инструкций цикла repeat определяется ходом выполнения программы.

  2. Инструкции цикла repeat выполняется до тех пор, пока условие, стоящее после слова until, ложно.

  3. После слова until надо записывать условие завершения цикла.

  4. Для завершения цикла repeat в теле цикла обязательно должны быть инструкции, выполнение которых влияет на условие завершения цикла.

  5. Цикл repeat – это цикл с постусловием, т.е. инструкции тела цикла будут выполнены хотя бы один раз.

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


V. Итог урока.


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


Выбранный для просмотра документ Урок_2.doc

библиотека
материалов

ЯЗЫК ПРОГРАММИРОВАНИЯ TURBO PASCAL 7.0


Тема: ЦИКЛ С ПОСТУСЛОВИЕМ. РЕШЕНИЕ ЗАДАЧ.


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


План.

I. Повторение.

II. Решение задач.

III. Итог урока.


Ход урока.


I. Повторение.


Цикл с постусловием относится к циклам с неизвестным числом повторений.

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


II. Решение задач.


Задание 1.

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

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


Словесный алгоритм.

Начало алгоритма

  1. Задайте радиус окружности.

  2. Вычислите для него длину окружности.

  3. Последовательно удвойте число сторон n-угольника, рассчитывайте его периметр и сравните с длиной окружности, пока не добьётесь требуемой точности.

  4. Сообщите результат.

Конец алгоритма


Алгоритм в виде блок-схемы


hello_html_m1549f181.png

Программа на Паскале.

n – количество сторон;

r – радиус;

st – длина стороны n-угольника;

l – длина окружности;

p – периметр n-угольника.


const

e=0.1;

var

n: byte;

r, st, l, p: real;

begin

write (‘r=’);

readln (r);

n:=3;

l:=2*pi*r;

repeat

n:=n*2;

st:=2*r*sin(pi/n);

p:=st*n;

until (l-p)

writeln (‘L=’, l:6:2, ‘P=’, p:6:2, ‘N=’, n);

end

.


Задание 2. (*)

Сhello_html_m64fc7eb5.pngлышали ли вы о «золотом» прямоугольнике? Если от него отсечь квадрат, то остаётся прямоугольник с такими же пропорциями (отношением сторон), то есть полученный прямоугольник тоже будет «золотым». Этот процесс можно продолжать до бесконечности. На этой же пропорции базируются все «золотые» геометрические фигуры. Отрезки «золотой» пропорции выражаются бесконечными дробями 1,618 или 0,618.

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

Требуется определить по введённым сторонам, является ли прямоугольник «золотым». Принять допущение: считать прямоугольник «золотым», если одно и то же соотношение к заданной точностью (абсолютная погрешность – 0,01) повторилось 5 раз. Вывести «золотое» соотношение.


Словесный алгоритм.

Начало алгоритма

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

  2. Определите, какая сторона является большей, какая – меньшей.

  3. Найдите и сообщите первое отношение большей стороны к меньшей.

  4. Пока не закончатся 5 экспериментов или не выявится неравенство последующих отношений, выполняйте следующие действия:

    1. определите стороны нового прямоугольника после отсечения квадрата и найдите их соотношение;

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

  5. Если все 5 попыток прошли успешно, то выведите сообщение «прямоугольник золотой», иначе – «прямоугольник не золотой».

Конец алгоритма


Алгоритм в виде блок-схемы

hello_html_m5c7c9cb0.png

hello_html_60335b6f.png

Программа на Паскале


var

a, b, ma, mi, kp, kt, razn: real;

ch: byte;

begin

writeln (‘Введите стороны’);

readln (a, b);

if a

begin

ma:=b;

mi:=a

end

else

begin

ma:=a;

mi:=b;

end;

kt:=mi/ma;

ch:=1;

writeln (mi:6:1, ma:6:1, kt:6:4);

repeat

ch:=ch+1;

kp:=kt;

if a=ma then

begin

a:=ma-mi;

b:=mi;

end

else

begin

b:=ma-mi;

a:=mi;

end;

if a

begin

ma:=b;

mi:=a;

end

else

begin

ma:=a;

mi:=b;

end;

kt:=mi/ma;

razn:=abs(kt-kp);

writeln (mi:6:1, ma:6:1, kt:6:3, razn:6:4);

until (razn>0.01) or (ch=5);

if razn<0.01 then

writeln (‘Золотой’)

else

writeln (‘Не золотой’);

end.


III. Итог урока.


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



6


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

библиотека
материалов

Дополнение к теме «Циклы с предусловием».


Задание.

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


Решение.

  1. Введём переменную n, в которую пользователь введёт число.

  2. Опишем цикл с предусловием, зацикливающий следующую последовательность действий:

    1. вывод на экран квадрата числа n;

    2. уменьшение значения числа n на единицу.

Условием необходимости очередного выполнения тела программы будет являться выражение n>0.


Программа

Пояснение

Program primer;

Заголовок программы.

Uses

Начало раздела подключения модулей.

CRT;

Подключение модуля CRT.

Var

Начало раздела описания переменных.

N: integer;

Описание целочисленных переменных для хранения значения, введённого пользователем.

Begin

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

Clrscr;

Очистка экрана.

Write (‘Введите число:‘);

Предложение ввести число.

Readln (N);

Занесение числа, введённого пользователем, в переменную N.

While N>0 Do

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

Begin

Начало составного оператора.

Writeln (N*N);

Вывод квадрата очередного значения переменной N.

N:=N-1;

Уменьшение значения переменной N на единицу.

End;

Окончание составного оператора.

ReadKey;

Приостановка программы.

End.

Конец раздела описания логики программы.


Рассмотрим последовательность действий, выполняемых программой:

  1. Очистка экрана.

  2. Приглашение пользователя к вводу числового значения.

  3. Занесение введённого пользователем числового значения в переменную N. Допустим, пользователь ввёл число 3.

  4. Проверка истинности условия N>0 в условном операторе цикла While. Так как значение переменной N=3, то данное условие истинно, поэтому управление передается составному оператору цикла. На экран выводится выражение N*N, то есть 9. Значение переменной N уменьшается на единицу (N:=N-1) и получает значение N=2.

  5. Проверка истинности условия N>0 в условном операторе цикла While. Так как значение переменной N=2, то данное условие истинно, поэтому управление передается составному оператору цикла. На экран выводится выражение N*N, то есть 4. Значение переменной N уменьшается на единицу (N:=N-1) и получает значение N=1.

  6. Проверка истинности условия N>0 в условном операторе цикла While. Так как значение переменной N=1, то данное условие истинно, поэтому управление передается составному оператору цикла. На экран выводится выражение N*N, то есть 1. Значение переменной N уменьшается на единицу (N:=N-1) и получает значение N=0.

  7. Проверка истинности условия N>0 в условном операторе цикла While. Так как значение переменной N=0, то данное условие ложно, и, соответственно, составной оператор цикла не выполняется, а осуществляется переход на оператор, после составного оператора.

  8. Выполнение команды ReadKey – ожидание нажатия на клавишу.

  9. Завершение программы.


Задание.

Изменить программу так, чтобы выводились квадраты не для всех чисел от введённого до 1, а только для тех, квадраты которых больше введённого пользователем значения.

Например, для введённого значения 5 получим последовательность чисел не 25, 16, 9, 4, 1, а только 25, 16, 9.


Решение.

Для этого необходимо изменить условие прохождения очередного цикла N>0 и N*N>N. Однако переменная N содержит введённое пользователем значение только до первого прохода тела цикла. В связи с этим, чтобы условие было корректным, необходимо сохранить начальное значение переменной N в другой переменной (назовём ее N1) и проводить сравнение квадрата текущего числа именно с ней: N*N>N1.


Программа

Пояснение

Program primer;

Заголовок программы.

Uses

Начало раздела подключения модулей.

CRT;

Подключение модуля CRT.

Var

Начало раздела описания переменных.

N, N1: integer;

Описание целочисленных переменных.

Begin

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

Clrscr;

Очистка экрана.

Write (‘Введите число:‘);

Предложение ввести число.

Readln (N);

Занесение числа, введённого пользователем, в переменную N.

N1:=N;

Сохранение значений, введённого пользователем, для использования в условии оператора While .

While N*N>N1 Do

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

Begin

Начало составного оператора.

Writeln (N*N);

Вывод квадрата очередного значения переменной N.

N:=N-1;

Уменьшение значения переменной N на единицу.

End;

Окончание составного оператора.

ReadKey;

Приостановка программы.

End.

Конец раздела описания логики программы.




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

библиотека
материалов

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

Практическая работа.


Задание 1.

Дана непустая последовательность целых чисел, оканчивающихся нулём. Найти:

  • сумму всех чисел последовательности;

  • количество всех чисел последовательности.

Задание 2.

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

Задание 3.

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

Задание 4.

Напишите программу, которая вычисляет pi с заданной пользователем точностью. Для этого воспользуйтесь тем, что значение частичной суммы ряда 1-1/3+1/5-1/7+1/9-… при суммировании достаточно большого количества членов приближается к pi/4. Рекомендуемый вид экрана во время работы программы приведён ниже (данные, введённые пользователем, выделены полужирным шрифтом).


Задайте точность вычисления pi0.001

Значение числа pi с точностью 0.001000 равно 3.143589.

Просуммировано 502 членов ряда.


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

Практическая работа.


Задание 1.

Дана непустая последовательность целых чисел, оканчивающихся нулём. Найти:

  • сумму всех чисел последовательности;

  • количество всех чисел последовательности.

Задание 2.

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

Задание 3.

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

Задание 4.

Напишите программу, которая вычисляет pi с заданной пользователем точностью. Для этого воспользуйтесь тем, что значение частичной суммы ряда 1-1/3+1/5-1/7+1/9-… при суммировании достаточно большого количества членов приближается к pi/4. Рекомендуемый вид экрана во время работы программы приведён ниже (данные, введённые пользователем, выделены полужирным шрифтом).


Задайте точность вычисления pi0.001

Значение числа pi с точностью 0.001000 равно 3.143589.

Просуммировано 502 членов ряда.


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

библиотека
материалов

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

Практическая работа.

Задание 1.

Существуют простые правила определения делимости чисел на числа 3, 4, 5:

  • на 3 без остатка делятся числа, сумма цифр которых делится на 3;

  • на 4 без остатка делятся числа, у которых две последние цифры составляют число, делящееся на 4;

  • на 5 без остатка делятся числа, заканчивающиеся на цифры 5 и 0.

Впервые эти правила были сформулированы в знаменитой «Книге Абака» итальянского математика Леонардо Фибоначчи (XII век). Требуется проверить делимость введенных чисел на 3 по первому из перечисленных правил.

Словесный алгоритм

Начало алгоритма

1. Введите число.

2. Пока цифры числа не закончатся:

а) выделите очередную цифру как остаток от деления на 10;

б) прибавьте эту цифру к общей сумме;

в) удалите обработанную цифру из числа, получив новое число в виде частного от деления на 10.

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

  • если делится, то сообщите, что исходное число делится на 3;

  • иначе сообщите, что исходное число не делится на 3.

Конец алгоритма

К заданию 1.

1. Для чего нужны начальные установки в алгоритме?

2. Пройдите алгоритм по блок-схеме для числа 521. Какое значение будет в переменных n1 и Sum перед выходом из цикла?

3. Добавьте в любую из программ оператор вывода переменных cifra и Sum. Какое значение и сколько раз будет выведено для числа 222?

4. Что произойдет, если пользователь введет число п равным нулю?

Задание 2.

Леонардо из Пизы, известный как Фибоначчи, был первым из великих математиков Европы позднего Средневековья. Число­вой ряд, носящий в наше время имя Фибоначчи, вырос из пробле­мы С кроликами, которую Фибоначчи изложил в своей «Книге Абака», написанной в 1202 году. Он выглядит так:

1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144,...

В этом ряду каждое следующее число, начиная с третьего, равно сумме двух предыдущих. Требуется составить алгоритм проверки принадлежности введенного числа ряду чи­сел Фибоначчи.

Словесный алгоритм

Начало алгоритма

1. Введите число.

2. Установите значение первых трех чисел Фибоначчи: 1,1,1 + 1 (сумма двух предыдущих чисел).

3. Пока введенное число больше очередного числа Фибоначчи, возьмите два последних числа и получите из них новое число Фибоначчи.

4. Если число Фибоначчи, полученное по выходу из цикла, равно введенному (n) или было введено число п=1, то сообщите «Да» (введено число Фибоначчи), в противном случае — сооб­щите «Нет» (введенное число не является числом Фибоначчи).

Конец алгоритма

К заданию 2.

1. Какие действия выполняются в блоке 6 и соот­ветствующем фрагменте программы?

2. Какое условие проверяется в данном алгоритме при входе в цикл с предусловием?

3. Запишите в тетради тело цикла с предусловием, используемое в данном алгоритме.

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

5. В блоке 3 алгоритма было введено число 5. Сколько раз выполнится тело цикла?

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

библиотека
материалов

Проверочная работа по теме:

«Циклы с предусловием».

1 вариант.

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

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

  3. Что такое «тело оператора цикла с предусловием»?

  4. Может ли тело оператора цикла с предусловием:

    1. не выполниться ни разу?

    2. выполняться бесконечное число раз (или до тех пор, когда пользователь прервет его выполнение)?

  5. Введите два числа (например, А=5 и В=8) и найдите их произведение, используя только операцию сложения. Заполните блок-схему алгоритма.

hello_html_m6f86a03c.png



Проверочная работа по теме:

«Циклы с предусловием».

2 вариант.

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

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

  3. Что такое «тело оператора цикла с предусловием»?

  4. Может ли тело оператора цикла с предусловием:

    1. не выполниться ни разу?

    2. выполняться бесконечное число раз (или до тех пор, когда пользователь прервет его выполнение)?

  1. Введите два числа (например, А=45 и В=8) и найдите частное от деления нацело первого числа на второе (А на В) (в переменной k) и остаток от деления нацело (в переменной А), используя только операцию вычитания. Заполните блок-схему алгоритма.

Пояснение: в переменной k подсчитайте, сколько раз сделана операция вычитания, то есть сколько раз число В содержится в числе А.

hello_html_m13ba53ac.png



Выбранный для просмотра документ Урок_1.doc

библиотека
материалов

ЯЗЫК ПРОГРАММИРОВАНИЯ TURBO PASCAL 7.0


Тема: ЦИКЛ С ПРЕДУСЛОВИЕМ.

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



План.

I. Знакомство с новым материалом.

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

  2. Решение задач.

II. Практическая работа.

III. Итог урока.


Ход урока.


I. Знакомство с новым материалом.


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


Цhello_html_3a61a013.gifикл с параметром отлично выполняет свои функции, когда число повторений тела цикла известно к моменту его начала (или известно начальное или конечное значение). Однако такие задачи в программировании встречаются далеко не всегда. Часто приходиться решать задачи, когда число повторений цикла неизвестно и определяется лишь постепенно, после некоторого количества повторений тела цикла. В этом случае применяют другую разновидность цикла – цикл с условием. В языке Паскаль циклов с условием предусмотрено два: условие цикла может проверяться перед телом цикла или после него.

Для тех случаев, когда необходимо организовать повторяющиеся действия до тех пор, пока выполняется какое-либо условие, в Turbo Pascal предусмотрен оператор цикла Whiledo (который так и называется «циклом пока» или циклом с предусловием). Этот оператор имеет следующий формат:


While <Условие> do <Тело цикла>;


Условие – выражение логического типа;

Тело цикла – произвольный оператор.


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

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

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


While <Условие> do

begin

оператор 1;

оператор 2;

оператор n;

end;


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


  1. Решение задач.


Пример 1.

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


Решение.

Подсчет количества цифр начнем с последней цифры числа. Увеличим счётчик цифр на единицу. Число уменьшим в 10 раз (тем самым мы избавляемся от последней цифры числа). Далее с получившимся числом проделываем ту же последовательность действий и т.д., пока число не станет равным нулю.

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


k – счётчик цифр


program prim1;

uses CRT;

var

m, n: longint;

k: integer;

begin

clrscr;

Вводим целое число.

writeln (‘Введите N=’);

readln (n);

Запоминаем его и счётчику цифр присваиваем начальное значение.

m:=n;

k:=0;

Пока m<>0 делать цикл.

while m<>0 do

«Уменьшаем» число на последнюю цифру, т.е. в 10 раз.

begin

k:=k+1;

m:=m div 10;

end;

Выводим количество цифр.

writeln (‘В числе’, n, ‘- ‘, k, ‘цифр!’);

readln;

end.


II. Практическая работа.


Задание 1.

Дана непустая последовательность целых чисел, оканчивающихся нулём. Найти:

  • сумму всех чисел последовательности;

  • количество всех чисел последовательности.


Задание 2.

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


Задание 3.

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


Задание 4.

Напишите программу, которая вычисляет pi с заданной пользователем точностью. Для этого воспользуйтесь тем, что значение частичной суммы ряда 1-1/3+1/5-1/7+1/9-… при суммировании достаточно большого количества членов приближается к pi/4. Рекомендуемый вид экрана во время работы программы приведён ниже (данные, введённые пользователем, выделены полужирным шрифтом).


Задайте точность вычисления pi0.001

Значение числа pi с точностью 0.001000 равно 3.143589.

Просуммировано 502 членов ряда.


III. Итог урока.


  1. Число повторений оператора цикла While определяется ходом выполнения программы.

  2. Тело цикла While выполняется до тех пор, пока условие истинно.

  3. Для завершения цикла While в теле цикла обязательно должны присутствовать действия, влияющие на условие выполнения оператора цикла.

  4. Цикл While – это цикл с предусловием, т.е. операторы тела цикла вообще могут быть не выполнены.

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

Выбранный для просмотра документ Урок_2.doc

библиотека
материалов

ЯЗЫК ПРОГРАММИРОВАНИЯ TURBO PASCAL 7.0


Тема: ЦИКЛ С ПРЕДУСЛОВИЕМ. РЕШЕНИЕ ЗАДАЧ.


Цели: продолжить работу с учащимися с циклической структурой алгоритмов, с оператором цикла с предусловием WHILEDO.



План.

I. Повторение по теме: «Цикл с предусловием».

II. Разбор решения задач.

III. Самостоятельная работа.

IV. Итог урока.




Ход урока.


I. Повторение по теме: «Цикл с предусловием».


Вопросы.

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

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

  3. Что такое «тело оператора цикла с предусловием»?

  4. Может ли тело оператора цикла с предусловием:

    1. не выполниться ни разу?

    2. выполняться бесконечное число раз (или до тех пор, когда пользователь прервет его выполнение)?


II. Разбор решения задач.


Задание 1.

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


Решение.

  1. Введём переменную n, в которую пользователь введёт число.

  2. Опишем цикл с предусловием, зацикливающий следующую последовательность действий:

    1. вывод на экран квадрата числа n;

    2. уменьшение значения числа n на единицу.

Условием необходимости очередного выполнения тела программы будет являться выражение n>0.


Программа

Пояснение

Program primer;

Заголовок программы.

Uses

Начало раздела подключения модулей.

CRT;

Подключение модуля CRT.

Var

Начало раздела описания переменных.

N: integer;

Описание целочисленных переменных для хранения значения, введённого пользователем.

Begin

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

Clrscr;

Очистка экрана.

Write (‘Введите число:‘);

Предложение ввести число.

Readln (N);

Занесение числа, введённого пользователем, в переменную N.

While N>0 Do

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

Begin

Начало составного оператора.

Writeln (N*N);

Вывод квадрата очередного значения переменной N.

N:=N-1;

Уменьшение значения переменной N на единицу.

End;

Окончание составного оператора.

ReadKey;

Приостановка программы.

End.

Конец раздела описания логики программы.


Рассмотрим последовательность действий, выполняемых программой:

  1. Очистка экрана.

  2. Приглашение пользователя к вводу числового значения.

  3. Занесение введённого пользователем числового значения в переменную N. Допустим, пользователь ввёл число 3.

  4. Проверка истинности условия N>0 в условном операторе цикла While. Так как значение переменной N=3, то данное условие истинно, поэтому управление передается составному оператору цикла. На экран выводится выражение N*N, то есть 9. Значение переменной N уменьшается на единицу (N:=N-1) и получает значение N=2.

  5. Проверка истинности условия N>0 в условном операторе цикла While. Так как значение переменной N=2, то данное условие истинно, поэтому управление передается составному оператору цикла. На экран выводится выражение N*N, то есть 4. Значение переменной N уменьшается на единицу (N:=N-1) и получает значение N=1.

  6. Проверка истинности условия N>0 в условном операторе цикла While. Так как значение переменной N=1, то данное условие истинно, поэтому управление передается составному оператору цикла. На экран выводится выражение N*N, то есть 1. Значение переменной N уменьшается на единицу (N:=N-1) и получает значение N=0.

  7. Проверка истинности условия N>0 в условном операторе цикла While. Так как значение переменной N=0, то данное условие ложно, и, соответственно, составной оператор цикла не выполняется, а осуществляется переход на оператор, после составного оператора.

  8. Выполнение команды ReadKey – ожидание нажатия на клавишу.

  9. Завершение программы.


Задание 2.

Изменить программу так, чтобы выводились квадраты не для всех чисел от введённого до 1, а только для тех, квадраты которых больше введённого пользователем значения.

Например, для введённого значения 5 получим последовательность чисел не 25, 16, 9, 4, 1, а только 25, 16, 9.


Решение.

Для этого необходимо изменить условие прохождения очередного цикла N>0 и N*N>N. Однако переменная N содержит введённое пользователем значение только до первого прохода тела цикла. В связи с этим, чтобы условие было корректным, необходимо сохранить начальное значение переменной N в другой переменной (назовём ее N1) и проводить сравнение квадрата текущего числа именно с ней: N*N>N1.


Программа

Пояснение

Program primer;

Заголовок программы.

Uses

Начало раздела подключения модулей.

CRT;

Подключение модуля CRT.

Var

Начало раздела описания переменных.

N, N1: integer;

Описание целочисленных переменных.

Begin

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

Clrscr;

Очистка экрана.

Write (‘Введите число:‘);

Предложение ввести число.

Readln (N);

Занесение числа, введённого пользователем, в переменную N.

N1:=N;

Сохранение значений, введённого пользователем, для использования в условии оператора While .

While N*N>N1 Do

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

Begin

Начало составного оператора.

Writeln (N*N);

Вывод квадрата очередного значения переменной N.

N:=N-1;

Уменьшение значения переменной N на единицу.

End;

Окончание составного оператора.

ReadKey;

Приостановка программы.

End.

Конец раздела описания логики программы.



III. Самостоятельная работа.

Задание 3.

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


Задание 4.

Напишите программу, которая вычисляет pi с заданной пользователем точностью. Для этого воспользуйтесь тем, что значение частичной суммы ряда 1-1/3+1/5-1/7+1/9-… при суммировании достаточно большого количества членов приближается к pi/4. Рекомендуемый вид экрана во время работы программы приведён ниже (данные, введённые пользователем, выделены полужирным шрифтом).


Задайте точность вычисления pi0.001

Значение числа pi с точностью 0.001000 равно 3.143589.

Просуммировано 502 членов ряда.


Ответы:


Задание 3.


Вычисление наибольшего общего делителя двух целых чисел.


Решение

Пояснения

Var


n1, n2: integer;

числа, НОД которых надо найти

nod: integer;

наибольший общий делитель

r: integer;

остаток от деления n1 и n2

begin


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


readln (n1, n2);


while (n1 mod n2)<>0 do


begin


r:=n1 mod n2;

остаток от деления

n1:=n2;


n2:=r;


end;


nod:=n2;


writeln (nod);


readln;


end.



Задание 4.


Вычисление числа ПИ


Решение

Пояснения

var


p: real;

вычисляемое значение ПИ

t: real;

точность вычисления

n: integer;

номер члена ряда

elem: real;

значение члена ряда

begin


p:=0;


n:=1;


elem:=1;

начальное значение

write (‘Задайте точность вычисления ПИ-‘);


readln (t);


writeln (‘Вычисление ПИ с точностью‘, t:9:6);


while elem>=t do


begin


elem:=1/(2*n-1);


if (n mod 2)=0


then p:=p-elem


else p:=p+elem;


n:=n+1;


end;


p:=p*4;


writeln (‘Значение ПИ с точностью’, t:9:6, ‘равно’, p:9:6);


writeln (‘Просуммировано’, n, ‘членов ряда.’);


readln;


end.




IV. Итог урока.

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


Выбранный для просмотра документ Урок_3.doc

библиотека
материалов

ЯЗЫК ПРОГРАММИРОВАНИЯ TURBO PASCAL 7.0


Тема: ЦИКЛИЧЕСКИЙ АЛГОРИТМ. ЦИКЛ С ПРЕДУСЛОВИЕМ. РЕШЕНИЕ ЗАДАЧ.


Цели: научить использовать цикл с предусловием для организации повторяющихся действий; тестировать циклические алгоритмы; использовать цикл Пока как универсальный для решения разного вида задач;

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


План.

I. Повторение.

II. Разбор и решение задач.

III. Итог урока.


Ход урока.


I. Повторение.


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

В цикле с предусловием сначала проверяется выполнение ус­ловия продолжения цикла. Если условие истинно (да, true), то выполняется тело цикла, а иначе (нет, False) цикл завершается. Особенностью этого цикла является то, что если при 1-й провер­ке условие ложно, то тело цикла не выполнится ни разу.

Специального блока для реализации цикла с предусловием в блок-схемах нет.

Блок-схема алгоритма реализуется при помощи блока приня­тия решения, выполнения действий и др.

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


II. Разбор и решение задач.


Задание 1.

Существуют простые правила определения делимости чисел на числа 3, 4, 5:

  • на 3 без остатка делятся числа, сумма цифр которых делится на 3;

  • на 4 без остатка делятся числа, у которых две последние цифры составляют число, делящееся на 4;

  • на 5 без остатка делятся числа, заканчивающиеся на цифры 5 и 0.

Впервые эти правила были сформулированы в знаменитой «Книге Абака» итальянского математика Леонардо Фибоначчи (XII век). Требуется проверить делимость введенных чисел на 3 по первому из перечисленных правил.


Словесный алгоритм

Начало алгоритма

1. Введите число.

2. Пока цифры числа не закончатся:

а) выделите очередную цифру как остаток от деления на 10;

б) прибавьте эту цифру к общей сумме;

в) удалите обработанную цифру из числа, получив новое число в виде частного от деления на 10.

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

  • если делится, то сообщите, что исходное число делится на 3;

  • иначе сообщите, что исходное число не делится на 3.

Конец алгоритма

hello_html_m1e604adf.png


Программа на Паскале

1

program Delimost;


var n, nl, sum: word; cifra: 0..9;


begin

2

write(*Введите число: ');


readln(n);

4

nl := n;


sum := 0;

5

while nl <> 0 do


begin

6

cifra := nl mod 10;


sum := sum + cifra;


nl := nl div 10;


end;

7

if sum mod 3 = 0 then

8

writeln('Число ', n, делится на З' )


else

9

writeln('Число ', n, ' не делится на 3' );

10

end.


К заданию 1.

1. Для чего нужны начальные установки в алгоритме?

2. Пройдите алгоритм по блок-схеме для числа 521. Какое значение будет в переменных nl и Sum перед выходом из цикла?

3. Добавьте в любую из программ оператор вывода переменных cifra и Sum. Какое значение и сколько раз будет выведено для числа 222?

4. Что произойдет, если пользователь введет число п равным нулю?


Задание 2.

Леонардо из Пизы, известный как Фибоначчи, был первым из великих математиков Европы позднего Средневековья. Число­вой ряд, носящий в наше время имя Фибоначчи, вырос из пробле­мы С кроликами, которую Фибоначчи изложил в своей «Книге Абака», написанной в 1202 году. Он выглядит так:

1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144,...

В этом ряду каждое следующее число, начиная с третьего, равно сумме двух предыдущих (рис. 8.10). Требуется составить алгоритм проверки принадлежности введенного числа ряду чи­сел Фибоначчи.

hello_html_m4084a643.png


Словесный алгоритм

Начало алгоритма

1. Введите число.

2. Установите значение первых трех чисел Фибоначчи: 1,1,1 + 1 (сумма двух предыдущих чисел).

3. Пока введенное число больше очередного числа Фибоначчи, возьмите два последних числа и получите из них новое число Фибоначчи.

4. Если число Фибоначчи, полученное по выходу из цикла, равно введенному (n) или было введено число п=1, то сообщите «Да» (введено число Фибоначчи), в противном случае — сооб­щите «Нет» (введенное число не является числом Фибоначчи).

Конец алгоритма

hello_html_1c4463ef.png

Программа на Паскале

1

program Fib;



var fl, f2, f3, N: word;



begin

2

write('Введите проверяемое число: ');

3

readln(n);

4

f1:=1; f2:= 1; f3:= fl + f2;

5

while f 3 < n do

6

begin

fl := f2;

f2 := f3;

f3 := fl + f2;

end;

7

if (n = f3) or (n = 1) then

8

writeln(‘Дa’)



else

9

writeln('HeT');

10

end.


К заданию 2.

1. Какие действия выполняются в блоке 6 и соот­ветствующем фрагменте программы?

2. Какое условие проверяется в данном алгоритме при входе в цикл с предусловием?

3. Запишите в тетради тело цикла с предусловием, используемое в данном алгоритме.

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

5. В блоке 3 алгоритма было введено число 5. Сколько раз выполнится тело цикла?


III. Итог урока.


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



Выбранный для просмотра документ Урок_4.doc

библиотека
материалов

ЯЗЫК ПРОГРАММИРОВАНИЯ TURBO PASCAL 7.0


Тема: ЦИКЛ С ПРЕДУСЛОВИЕМ. ПРОВЕРОЧНАЯ РАБОТА.


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



План.

I. Проверочная работа.

II. Практическая работа.

III. Итог урока.


Ход урока.


I. Проверочная работа.


Проверочная работа по теме:

«Циклы с предусловием».

1 вариант.

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

  2. Вhello_html_m6f86a03c.png каких случаях используется оператор цикла с предусловием? Как он оформляется? Как он работает, что происходит при его выполнении? Нарисовать графическую схему выполнения?

  3. Что такое «тело оператора цикла с предусловием»?

  4. Может ли тело оператора цикла с предусловием:

    1. не выполниться ни разу?

    2. выполняться бесконечное число раз (или до тех пор, когда пользователь прервет его выполнение)?

  5. Введите два числа (например, А=5 и В=8) и найдите их произведение, используя только операцию сложения. Заполните блок-схему алгоритма.




2 вариант.

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

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

  3. Чhello_html_m13ba53ac.pngто такое «тело оператора цикла с предусловием»?

  4. Может ли тело оператора цикла с предусловием:

    1. не выполниться ни разу?

    2. выполняться бесконечное число раз (или до тех пор, когда пользователь прервет его выполнение)?

  1. Введите два числа (например, А=45 и В=8) и найдите частное от деления нацело первого числа на второе (А на В) (в переменной k) и остаток от деления нацело (в переменной А), используя только операцию вычитания. Заполните блок-схему алгоритма.

Пояснение: в переменной k подсчитайте, сколько раз сделана операция вычитания, то есть сколько раз число В содержится в числе А.


II. Практическая работа.


Задание.

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


Словесный алгоритм.

Начало алгоритма

  1. Для каждого из учащихся проделайте следующие действия:

  1. введите его оценку;

  2. приплюсуйте её к сумме (для дальнейшего подсчёта средней оценки);

  3. сравните оценку с текущим максимумом: если они равны, то увеличьте счётчик максимальных оценок; иначе, если оценка больше текущего максимума, замените текущий максимум новой оценкой, а счёт лучших оценок начните заново.

2. Сообщите данные по накопленной статистике.

Конец алгоритма


Краткое описание документа:

Методические разработки уроков составлены для учителей информатики и ИКТ, работающие в основной общей школе. Данное методическое пособие уроков по разделу «Алгоритмизация и программирование. Язык программирования Паскаль» составлено для 8 классов с углубленным изучением предметов физико-математического профиля (1 год обучения). Для изучения данного курса из вариативной части школьного компонента Учебного плана  выделен 1 час  в неделю (34 часа в год) в рамках предмета «Технология (информационная)». Так же данные разработки уроков можно использовать и на уроках информатики при изучении данного раздела. В нем содержится конспекты уроков для учителя, практические задания для учащихся, проверочные работы, демонстрационный материал. Все уроки разбиты по темам и разделам. Основные алгоритмические структуры, которые рассматриваются в первый год обучения: линейные, ветвление и циклы. При составлении пособия использовалась следующая литература: Ушаков Д.М., Юркова Т.А. Паскаль для школьников. – СПб.: Питер, 2008; Вольский С.В., Дмитриев П.А. Turbo Pascal 7.0 для студентов и школьников. – СПб.: Наука и Техника, 2009 и др.
Автор
Дата добавления 09.09.2014
Раздел Информатика
Подраздел Конспекты
Просмотров2289
Номер материала 173240090904
Получить свидетельство о публикации

Выберите специальность, которую Вы хотите получить:

Обучение проходит дистанционно на сайте проекта "Инфоурок".
По итогам обучения слушателям выдаются печатные дипломы установленного образца.

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ

Похожие материалы

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