Презентация "Turbo Pascal" 9 класс

Turbo Pascal

• 1

• Содержание курса
• 5 часов

• Степаненко Татьяна Николаевна,
• учитель информатики МБОУ «Гимназии»

Данный учебник представляет собой пособие по программированию на языке Turbo Pascal. Текст построен в виде практического применения языка.

• 2

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

Структура курса

• 3

• Операторы

• оператор цикла
• For
• Занятие 1

• оператор цикла
• While
• Занятие 2

• оператор цикла
• Repeat
• Занятие 3

• оператор
• Case
• Занятие 5

• оператор
• If
• Занятие 4

Оператор цикла For

• 4

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

• For I:= N1 To N2 Do
• Begin
• <оператор цикличной части программы >;
• End.

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

где I – параметр цикла.

• 5

• Страничка справки

• N1, N2 – начальное и конечное значение цикла.

Оператор цикла While

• 6

• В While-циклах условие вычисляется заново каждый раз перед началом очередной итерации. Если условие истинно, то есть в результате его вычисление получается значение true, то тело цикла выполняется. Таким образом, если выражение в заголовке цикла равно false в самом начале выполнения, то цикл не выполняется ни разу.

• While {логическое выражение} Do
• Begin
• <оператор цикличной части программы >;
• End.

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

• 7

• Страничка справки

• Каждому Begin в программе должен соответствовать End.

• Операторы заключенные между зарезервированными словами Begin, End называют телом программы.

• Перейти на слайд структуры курса

Оператор цикла Repeat

• 8

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

• Repeat
• <оператор 1 >;
• <оператор … >;
• <оператор N >;
• Until <условие окончания цикла>;

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

• 9

• Страничка справки

• Цикл Repeat может содержать как один, так неограниченное количество операторов.

• Операторы цикла-Repeat не обязательно должны быть оформлены с помощью служебных слов Begin, End.

Оператор If

• 10

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

• If {логическое выражение} Then<оператор 1>
• Else<оператор 2>;

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

Обратите внимание, что перед словом Else точка с запятой не ставится.

• 11

• Else с оператором могут отсутствовать.

• Страничка справки

• Перейти на слайд структуры курса

Оператор Case

• 12

• Case {логическое выражение} Of
• список констант 1: <оператор 1>;
• список констант 2: <оператор 2>;
• End;

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

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

Значение выражения и констант должно быть одного и того же скалярного типа, т.е. Integer, Char и т.д.

• 13

• Страничка справки

• Тип Real в описании констант использоваться не может.

• Перейти на слайд структуры курса

Урок № 1 Задача № 1

• 14

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

Урок № 1 Задача № 1

• 15

• Начало

• Y

• Y:= ‘A’..’Z’

• Y

• Конец

Program z1-1; Uses Crt; Var Y: char; Begin ClrScr; For Y:=‘A’ to ‘Z’ do Write(Y:2); Readkey End.

• 16

• Урок № 1 Задача № 1

Урок № 1 Задача № 1

• 17

• A B C D E F G H I J K L M N O P Q R S T U V W X Y Z

• Результат выполнения программы:

• 18

• k n
• Найти сумму S=
• i=2 y=1
• i*j = 2*2 + 2*3 + 2*n + 3*3 + 3*4 +…+ k*n
• Просчитать все значения уравнения, через пробел вывести общий результат уравнения.

• Урок № 1 Задача № 2

• Перейти на слайд структуры курса

• 19

• Урок № 1 Задача № 2

• Начало

• K, N

• i:= 2..K
• j:=1..N

• So

• Конец

• S:=i*j

• S при i при j

• 20

• Program z1-2;
• Uses CRT;
• Var i,j,K,N: integer;
• S, So: real;
• Begin CLRSCR;
• So:=0;
• Write (‘Через пробел введите значения K, N ?');
• Read (K,N);
• For i:=2 to K do begin
• For j:=1 to N do begin
• S:=i*j;
• So:=So+S;
• Writeln ('S= ',S:4:0, ' при i= ',i, ' при j= ',j);
• End;
• End;
• Writeln; Writeln (‘So= ‘,So:4:0);
• Readkey;
• End.

• Урок № 1 Задача № 2

• 21

• Урок № 1 Задача № 2

• Результат выполнения программы:

• Через пробел введите значения K, N ?

• 4 3

• S= 2 при i= 2 при j= 1
• S= 4 при i= 2 при j= 2
• S= 6 при i= 2 при j= 3
• S= 3 при i= 3 при j= 1
• S= 6 при i= 3 при j= 2
• S= 9 при i= 3 при j= 3
• S= 4 при i= 4 при j= 1
• S= 8 при i= 4 при j= 2
• S= 12 при i= 4 при j= 3
• So= 54

• 22

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

• Урок № 1 Задача для самостоятельного решения

• Перейти на слайд структуры курса

• 23

• Урок № 2 Задача № 1

• Вычислить уравнение у=2х+t при всех значениях х от 1,5 до 3 с шагом 0,5 и t от 1 до 5 с шагом 2.
• Записать ответ в виде таблицы всех значений уравнения.

• 24

• Урок № 2 Задача № 1

• Начало

• t, x, y

• x<= 3

• Конец

• y:=2*x+t

• y при x при t

• t<= 5

• 25

• Урок № 2 Задача № 1

• Program z2-1;
• Uses Crt;
• Var t,x,y: Real;
• Begin ClrScr;
• x:=1.5;
• While x<=3 do begin
• t:=1;
• While t<=5 do begin
• y:=2*x+t;
• Writeln ('y=',y:5:0,' при x=',x:4:1,' при t=',t:4:1);
• t:=t+2;
• End;
• x:=x+0.5;
• Writeln;
• End;
• Readkey
• End.

• Урок № 2 Задача № 1

• Результат выполнения программы:

• y= 4 при x= 1.5 при t= 1
• y= 6 при x= 1.5 при t= 3
• y= 8 при x= 1.5 при t= 5
• y= 5 при x= 2.0 при t= 1
• y= 7 при x= 2.0 при t= 3
• y= 9 при x= 2.0 при t= 5
• y= 6 при x= 2.5 при t= 1
• y= 8 при x= 2.5 при t= 3
• y= 10 при x= 2.5 при t= 5
• y= 7 при x= 3.0 при t= 1
• y= 9 при x= 3.0 при t= 3
• y= 11 при x= 3.0 при t= 5

• 27

• Урок № 2 Задача № 2

• В банк вкладывается сумма, с которой выплачивается 1 %. Определить, до какой значения увеличится начальная сумма и через сколько лет сумма удесятерится?

• Перейти на слайд структуры курса

• 28

• Урок № 2 Задача № 2

• Начало

• Sv

• S<=Se

• Sv

• Конец

• S:=Sv*1.01
• l:=l+1 Sv:=S

• Se:=Sv*10

• 29

• Program z2-2;
• Uses Crt;
• Var Sv,S,Se: Real;
• l:Integer;
• Begin ClrScr;
• S:=0; l:=1;
• Write ('В банк внесли сумму Sv= ');
• Readln (Sv);
• Se:=Sv*10;
• While S<=Se do
• Begin
• S:=Sv*1.01;
• l:=l+1;
• Sv:=S;
• End;
• Writeln ('Сумма увеличится в 10 раз до ‘,Sv:7:1,’ рублей,’);
• Writeln (' через’,l div 12,' лет(года) и ',l mod 12,' месяц(ев)');
• Readkey
• End.

• Урок № 2 Задача № 2

• 30

• Урок № 2 Задача № 2

• Результат выполнения программы:

• В банк внесли сумму Sv = 500

• Сумма увеличится в 10 раз до 5029,5 рублей
• через 19 лет(года) и 5 месяц(ев)

• 31

• Найти все числа в интервале от 1 до 1000, которые совпадают с последними разрядами своих квадратов,
• например: 52 = 25, 252 = 625.

• Урок № 2 Задача для самостоятельного решения

• Перейти на слайд структуры курса

• 32

• Вычислить: M=X2+(2-A-A2)X-A2
• при A=-2 и X=[1;10], шаг 2.
• Просчитать все значения уравнения, через пробел вывести общий результат уравнения.

• Урок № 3 Задача № 1

• Урок № 3 Задача № 1

• Начало

• Mo

• Конец

• M при A при X

• M= SQR(X)+(2-A-SQR(A))*X-SQR(A)
• Mo=Mo+M X:=X+2

• A:=-2 X:=1

• X>10

• N

• Y

Program z3-1; Uses Crt; Var X: Integer; M, Mo: Real; Const A=-2 Begin ClrScr; X:=1; Mo:=0; Repeat M:= SQR(X)+(2-A-SQR(A))*X-SQR(A); Mo:=Mo+M; X:=X+2; Writeln(‘M= ‘, M:4:0, ‘ при A= ‘ ,A, ‘при X= ‘ , X); Until X>10; Writeln; Writeln(‘Mo= ‘, Mo:4:0); Readkey End.

• 34

• Урок № 3 Задача № 1

• 35

• Урок № 3 Задача № 1

• Результат выполнения программы:

• M= -3 при A= -2 при X=1
• M= 5 при A= -2 при X=3
• M= 21 при A= -2 при X=5
• M= 45 при A= -2 при X=7
• M= 77 при A= -2 при X=9
• Mo= 145

• 36

• Каждая бактерия делится на 2 в течение 1 минуты. В начальный момент имеется одна бактерия. Составить программу, которая рассчитывает количество бактерий на заданное вами целое число значение момента времени.

• Урок № 3 Задача № 2

• Перейти на слайд структуры курса

• Урок № 3 Задача № 2

• Начало

• t

• t до b

• Конец

• a:=0 b:=1

• a=t

• b:=b*2 a:=a+1

• N

• Y

• 38

• Program z3-2;
• Uses Crt;
• Var t,b:real; a:integer;
• Begin ClrScr;
• a:=0;
• b:=1;
• Write('Задайте количество времени: ');
• Readln(t);
• Repeat
• b:=b*2;
• a:=a+1;
• Until a=t;
• Writeln('За ',t:1:0,' мин. бактерия размножилась
• с 1 до ',b:3:0,' штук');
• Readkey
• End.

• Урок № 3 Задача № 2

• 39

• Урок № 3 Задача № 2

• Результат выполнения программы:

• Задайте количество времени:

• 30

• За 30 мин. бактерия размножилась
• с 1 до 1073741824 штук

• 40

• Составить программу, результатом выполнения которой является таблица значений температуры по шкалам Цельсия, Кельвина и Фаренгейта от 10 до 15 градусов через 0,4 градуса.

• Урок № 3 Задача для самостоятельного решения

• Перейти на слайд структуры курса

• 41

• Составьте программу, которая реализует эпизод применения компьютера в книжном магазине.

• Урок № 4 Задача № 1

• 42

• Урок № 4 Задача № 1

• «Добавить»

• Начало

• S, Kn

• «Возьмите сдачу»

• Конец

• S=Kn

• «Спасибо»

• S<Kn

• S>Kn

• Y

• Y

• N

• N

• 43

• Program z4-1;
• Uses Crt;
• Var s,kn:real;
• Begin ClrScr;
• Write('Стоимость книги ');
• Readln(kn);
• Write('Сумма денег ');
• Readln(s);
• If s = kn Then writeln('Спасибо');
• If s < kn Then writeln('Добавить ',kn-s:5:2);
• If s > kn Then writeln('Возьмите сдачу ',s-kn:5:2);
• Readkey
• End.

• Урок № 4 Задача № 1

• 44

• Стоимость книги

• 560

• Сумма денег

• 560

• Спасибо

• Урок № 4 Задача № 1

• Результат выполнения программы:

• 45

• Урок № 4 Задача № 2

• Написать программу которая выводит звездочки в форме прямоугольного треугольника, от 1 до 'a‘.

• Перейти на слайд структуры курса

• 46

• Урок № 4 Задача № 2

• Начало

• A

• i = 1, a

• ‘* ‘

• Конец

• j = 1, a

• 47

• Урок № 4 Задача № 2

• Program z4-2;
• Uses Crt;
• Var a,i,j:integer;
• Begin ClrScr;
• Write('Вводим значение a= ');
• Readln(a);
• For i:=1 to a do
• Begin
• For j:=1 to i do
• Write('* ');
• Writeln;
• End;
• Readkey;
• End.

• 48

• Урок № 4 Задача № 2

• Результат выполнения программы:

• Вводим значение a=

• 7

• *
• * *
• * * *
• * * * *
• * * * * *
• * * * * * *
• * * * * * * *

• 49

• Напишите программу, которая читает 5-ть чисел (каждая от 1 до 30) для каждого просчитанного числа ваша программа должна напечатать строку содержащую соответствующее число смежных звездочек.

• Урок № 4 Задача для самостоятельного решения

• Перейти на слайд структуры курса

• 50

• По номеру телефона выдать сообщение об учреждении и месте его расположения.

• Урок № 5 Задача № 1

• Перейти на слайд структуры курса

• Урок № 5 Задача № 1

• Начало

• N

• Скорая помощь

• Конец

• N=01

• Пожарная помощь

• N=02

• Милиция

• N=03

• Неправильно
• ввели номер

• N

• N

• N

• Y

• Y

• Y

• 52

• Program z5-1;
• Uses CRT;
• Var N: Integer;
• Begin CLRSCR;
• Write ('Введите интересующий вас номер: ');
• Readln (N);
• Case N of
• 01: Writeln ('Пожарная помощь, адрес: ул. Братская, 22');
• 02: Writeln ('Милиция, адрес: ул. Советская, 53');
• 03: Writeln ('Скорая помощь, адрес: ул. 40 лет ПОБЕДЫ, 7');
• Else Writeln (‘Неправильно ввели номер’);
• End;
• Readkey;
• End.

• Урок № 5 Задача № 1

• 53

• Введите интересующий вас номер:

• 03

• Скорая помощь, адрес: ул. 40 лет ПОБЕДЫ, 7

• Урок № 5 Задача № 1

• Результат выполнения программы:

• 54

• Составьте программу которая по в веденному вами числу k (число грибов) печатает фразу "Мы нашли в лесу k грибов".

• Урок № 5 Задача № 2

• Перейти на слайд структуры курса

• 55

• Урок № 5 Задача № 2

• K<0

• Конец

• Ничего

• K=2..4

• K=0,5..9

• Начало

• N

• K=0

• K1=11,12,
• 13,14

• K mod 10

• K=1

• K1=K mod 100

• Не бывает

• ‘K’ грибов

• ‘K’ гриб

• ‘K’ гриба

• ‘K’ грибов

• N

• N

• N

• N

• N

• Y

• Y

• Y

• Y

• Y

• 56

• Program z5-2;
• Uses Crt;
• Var k,k1:integer;
• Begin ClrScr;
• Write('k='); Readln(k);
• k1:=k mod 100;
• If k=0 then Writeln('Мы обошли весь лес, но грибов так и не нашли.')
• Else If k<0 then
• Writeln('Отрицательное количество грибов найти нельзя,
• введите другое число.')
• Else If (k1=11) or (k1=12) or (k1=13) or (k1=14) then
• Writeln('Мы нашли в лесу ',k,' грибов.')
• Else
• Case k mod 10 of
• 1: write('Мы нашли в лесу ',k,' гриб.');
• 2..4: write('Мы нашли в лесу ',k,' гриба.');
• 0,5..9: write('Мы нашли в лесу ',k,' грибов.');
• End; Readkey;
• End.

• Урок № 5 Задача № 2

• 57

• K=

• 53

• Мы нашли в лесу 53 гриба.

• Урок № 5 Задача № 2

• Результат выполнения программы:

• 58

• Составьте программу которая выводит на экран по номеру месяца в году его название и количество дней. При решении возьмите во внимание, что в високосный год в феврале месяце 29 дней, а в не високосный – 28.

• Урок № 5 Задача для самостоятельного решения

• Перейти на слайд структуры курса

• 1-58

• http://pers.narod.ru/study/pascal.html
• Turbo Pascal Эллиот Б.Коффман
• Pascal 7.0.Практическое программирование. Решение типовых задач Климова Л. М.
• Turbo Pascal 7.0. Начальный курс. Учебное пособие Фаронов В.В.
• Алгоритмизация и программирование на Turbo Pascal: от простых до олимпиадных задач. Учебное пособие Долинский М.С.

• Список использованных источников