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

Содержание

• 
  Слайд 1

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

  Составление и отладка программ Автор: Абдурзакова Тамара Хамзатовна учитель информатики МБОУ лицея №40 г. Орла

• 
  Слайд 2

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

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

• 
  Слайд 3

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

  program zifry; varn,n1,i,j,k:integer; begin write('Введите число: '); readln(n); for i:=0 to 9 dobegin k:=0; n1:=n; while n10 dobegin j:=n1 mod 10; if j=i then k:=k+1; n1:=n1 div 10; end; writeln('цифра ',i,' встречается ',k,' раз'); end; end.

• 
  Слайд 4
  

  program zifry; varn,n1,i,j,k:integer; begin write('Введите число: '); readln(n); for i:=0 to 9 dobegin{цикл для сравнивания цифр числа n с цифрами от 0 до 9} k:=0;{счетчик повторений} n1:=n;{сохранение числа n} while n10 dobegin{цикл для разбиения числа 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.

• 
  Слайд 5

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

  Program Primer1; varA; B; C: integer; Begin writeln (A, B, C); if A 0 begin x:=x div 10; Y:=Y+1; end Writeln (y) End Program Primer1; varA, B, C, E: integer; Begin readln (A, B, C); if A 0 dobegin x:= x div 10; Y:= Y+1; end; Writeln (y) End.

• 
  Слайд 6

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

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

• 
  Слайд 7
  

  Programgrafik; varx,y:integer; begin writeln('введите значение x'); readln(x); ifx

• 
  Слайд 8

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

  Задание:реализовать программу вычисления значения функции: Самостоятельно напишите программу на языке Turbo Pascal. Начало Введите значение х Ввод х x , y= Конец да нет

• 
  Слайд 9
  

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

• 
  Слайд 10

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

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

• 
  Слайд 11

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

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

• 
  Слайд 12

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

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