Презентация "Программирование на языке Turbo Pascal" (11 класс) по информатике – проект, доклад

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

Программирование на языке 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: integer; Begin writeln (A, B, C); if A

Program Primer2; var X, Y: integer Begin readln (X,Y); E = x + y; E = y; writeln (e) End.

Program Primer3; var X,Y: integer; Begin; Readln (X;Y); X:=3 X + ( Y - 4) : 5 writeln (x) End

Program Primer4; var X,Y: real; Begin while X0 begin x:=x div 10; Y:=Y+1; end Writeln (y) End

Program Primer1; var A, B, C, E: integer; Begin readln (A, B, C); if A

Program Primer2; var X,Y,E: integer; Begin readln (X,Y); E := x + y; E := y; writeln (e) End.

Program Primer3; var X,Y: real; Begin; Readln (X,Y); X:=3*X + ( Y - 4) /5; writeln (x) End.

Program Primer4; var X,Y: integer; Begin readln (X,Y); while X0 do begin x:= x div 10; Y:= Y+1; end; Writeln (y) End.

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

Задание: составить программу вычисления значений функции, заданной графиком. Решение: Необходимо определить заданные на графике функции. На графике заданы две функции: y=-x и y=x2 Выясним промежутки, на которых определены функции: y = -x на x 0.

Program grafik; var x,y:integer; begin writeln('введите значение x'); readln(x); if x

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

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

Начало

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

Ввод х x , y= Конец да нет

Program y_ot_x; var x, y: integer; begin writeln (‘Введите значение Х’); read (x); if x

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

read (x) if xwriteln (‘При х=’, х, ‘, у=’,у)

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

Задание: Дано целое двузначное А. Образовать новое двузначное число, поменяв цифры в числе А местами. 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.