Презентация к уроку информатики "Программирование на языке Turbo Pascal"

Обучение осуществляется по УМК "Информатика и ИКТ" автора Семакин И. Г. и др.

Ответьте на вопросы

Что такое алгоритм?

На какие две группы разделяют исполнителей алгоритмов?

Как называется алгоритм который может выполнять компьютерный исполнитель?

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

Какие языки программирования вы знаете?

Перечислите основные разделы программы на языке Pascal.

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

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

Назовите операторы с разветвляющейся конструкцией.

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

По принципу действия, какие операторы цикла противоположны?

Тело какого цикла выполняется всегда хотя бы один раз?

Программирование на языке Turbo Pascal

Составление и отладка программ

Автор: Абдурзакова Тамара Хамзатовна

учитель информатики

МБОУ лицея №40 г. Орла

Ответьте на вопросы

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

Для чего предназначена эта программа?

program zifry;

var n,n1,i,j,k:integer;

begin

write('Введите число: ');

readln(n);

for i:=0 to 9 do begin

k:=0;

n1:=n;

while n10 do begin

j:=n1 mod 10;

if j=i then k:=k+1;

n1:=n1 div 10;

end;

writeln('цифра ',i,' встречается ',k,' раз');

end;

end.

Для чего предназначена эта программа?

program zifry;

var n,n1,i,j,k:integer;

begin

write('Введите число: ');

readln(n);

for i:=0 to 9 do begin {цикл для сравнивания цифр числа n с цифрами от 0 до 9}

k:=0; {счетчик повторений}

n1:=n; {сохранение числа n}

while n10 do begin {цикл для разбиения числа n на цифры}

j:=n1 mod 10; {берем последнюю цифру числа}

if j=i then k:=k+1; {сравниваем ее с цифрой i, увеличиваем счетчик

повторений на 1, если они равны}

n1:=n1 div 10; {уменьшаем число n на последнюю цифру}

end; {конец цикла while}

writeln('цифра ',i,' встречается ',k,' раз'); {выводим на экран сообщение о

количестве повторений каждой цифры}

end; {конец цикла for}

end.

Исправьте ошибки в записях

Program Primer1;

var A , B , C , E : integer;

Begin

readln (A, B, C);

if A then E := A + B ;

else E := A;

writeln ( E )

End.

Program Primer1;

var A; B; C: integer;

Begin

writeln (A, B, C);

if A then E := A + B;

else E := A;

readln (A)

End.

Program Primer2;

Program Primer2;

var X, Y: integer

var X,Y ,E : integer ;

Begin

Begin

readln (X,Y);

readln (X,Y);

E : = x + y;

E = x + y;

E : = y;

E = y;

writeln (e)

writeln (e)

End.

End.

Program Primer4;

Program Primer4;

var X,Y: integer ;

var X,Y: real;

Begin

Begin

while X0 begin

readln (X,Y);

while X0 do begin

x:=x div 10;

x:= x div 10;

Y:=Y+1; end

Y:= Y+1; end ;

Writeln (y)

Writeln (y)

End

End .

Program Primer3;

Program Primer3;

var X,Y: real ;

var X,Y: integer;

Begin ;

Begin;

Readln (X , Y);

Readln (X;Y);

X:=3 * X + ( Y - 4) / 5 ;

X:=3 X + ( Y - 4) : 5

writeln (x)

writeln (x)

End .

End

0. " width="640"

График функции

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

• Решение:

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

y=-x и y=x 2

• Выясним промежутки, на которых определены функции:

y = -x на x

y = x 2 на x 0.

График функции

Program grafik;

var x,y:integer;

begin

writeln('введите значение x');

readln(x);

if xthen y:=-x

else y:=-(x*x);

writeln('при x=',x,' y=',y);

end.

, y =y Конец " width="640"

Блок-схема программы

Начало

• Задание: реализовать программу вычисления значения функции:

• Самостоятельно напишите программу на языке Turbo Pascal.

Введите значение х

Ввод х

x

да

нет

у = х 2

у = х 3

При x =x , y =y

Конец

Блок-схема программы

Начало

Program y_ot_x;

var x, y: integer;

begin

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

read (x);

if xthen y:=x*x

else y:=x*x*x;

writeln (‘При х=’, х, ‘, у=’,у);

end.

writeln (‘Введите значение Х’)

read (x)

if x

да

нет

y:=x*x

y:=x*x*x

writeln (‘При х=’, х, ‘, у=’,у)

Конец

Напишите программу

• Задание: Дано целое двузначное А. Образовать новое двузначное число, поменяв цифры в числе А местами.

program chislo_a;

var a, x, y:integer;

begin

writeln (‘Введите целое двузначное число’);

read (a);

x:=a div 10;

y:=a mod 10;

a:= y*10+x;

writeln (‘Новое число: ’, a);

end.

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

Задачник 1 :

• читать: с . 245-248,
• выполнить: с . 250 № 19, № 20.

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

• Задачник 1 : с . 344 № 81.
• Даны два действительных положительных числа х и у . Арифметические действия над числами пронумерованы (1 – сложение, 2 – вычитание, 3 – умножение, 4 – деление). Составить программу, которая по введенному номеру выполняет то или иное действие над числами.
• Подсказка : при описании переменных символьный тип данных обозначается словом char.