Презентация на тему "Язык программирования pascal"

Содержание

• 
  Слайд 1
  

  Язык программирования Паскаль.

• 
  Слайд 2

  Язык программирования Pascal

  Язык программирования Паскаль был разработан профессором, директором Института информатики Швейцарской высшей политехнической школы Николаусом Виртом в 1968-1970 гг. как язык обучения студентов программированию.

• 
  Слайд 3

  Николаус Вирт

  Но думать, что Паскаль- язык исключительно для обучения, было бы неверно. Вот что говорил об этом Н. Вирт (1984 г.): «Утверждалось, что Паскаль был разработан в качестве языка для обучения. Хотя это утверждение справедливо, но его использование при обучении не являлось единственной целью. На самом деле я не верю в успешность применения во время обучения таких инструментов и методик, которые нельзя использовать при решении каких-то практических задач».* * http://pascal.sources.ru

• 
  Слайд 4

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

  Символы языка- это элементарные знаки, используемые при составлении текстов. Алфавит языка- набор таких символов. Алфавит языка TurboPascal 7.0 включает: все латинские прописные и строчные буквы арабские цифры (0 – 9) символы + - * / = , . ; : ‘ _ ( ) { } и др. служебные(зарезервированные) слова

• 
  Слайд 5
  

  Для записи команд, имен функций, поясняющих терминов TurboPascal 7.0 существует набор строго определенных слов, которые называются служебными. Служебные слова делятся на три группы: операторы (READ, WRITELN и др.) имена функций (SIN, COS и др.) ключевыеслова (VAR, BEGIN, END идр.)

• 
  Слайд 6

  Типы данных

• 
  Слайд 7

  Структура программы на языке Паскаль

  Общий вид программы: Program(имя программы) const (список постоянных значений) type (описания сложных типов данных) var(описания данных программы) begin(начало программного блока) (алгоритм) end. (конец программы)

• 
  Слайд 8

  Оператор вывода Write

  Примечание: Текст в отличие от чисел и выражений, нужно брать в одинарные кавычки

• 
  Слайд 9

  Формат вывода

  Формат вывода – это указываемое после двоеточия целое число, определяющее, сколько позиций на экране должна занимать выводимая величина

• 
  Слайд 10

  Первая программа на Паскале

  BEGIN Write (‘Начало’); Write (8+1); Write (5-2 , 3*8); Write (5-2, ‘’ , 3*8); Write (5-2, ‘ ,’ , 3*8); END. BEGINбудем ставить в начале программы, чтобы компьютеру было видно, откуда она начинается. ENDс точкой ставится в конце программы. Точкой с запятой необходимо отделять операторы друг от друга.

• 
  Слайд 11

  Оператор WriteLn

  При выполнении нового оператораwrite вывод продолжается в той же строке. Чтобы осуществить переход к новой строке, используется оператор writeln. Других различий между операторами writ и writeln нет.

• 
  Слайд 12

  Вторая программа на Паскале

  Напишите программу вычисляющую длину окружности и площадь круга радиуса 5,4 см. Program p_2; const pi=3.14; varr, c, s: real; begin r:=5.4; c:=2*pi*r; s:=pi*r*r; writeln(‘c=’, c:6:4); writeln(‘s=’, s:6:4) End. Площадь круга S = πr2 Длина круга C = 2πr

• 
  Слайд 13

  Задания

  В углу прямоугольного двора размером 50 на 30 м стоит прямоугольный дом размером 20 на 10 м. Подсчитать площадь дома, свободную площадь двора и длину забора. Автомобиль три часа ехал со скоростью 80 км/ч и 2 часа со скоростью 90 км/ч. Вычислить среднюю скорость автомобиля (она равна суммарному пути, деленному на суммарное время).

• 
  Слайд 14
  

  VARa, b, c, d, Sdoma, Sdvora, DLzabora: integer; BEGIN a:=50; b:=30; c:=20; d:=10; Sdoma:=c*d; Sdvora:=a*b-c*d; DLzabora:=2*(a+b)-(c+d); WriteLn (‘Площадь дома=',Sdoma,‘ ',‘Площадь двора=',Sdvora,' ',‘Длина забора=',DLzabora) END. Решение задачи №1

• 
  Слайд 15
  

  VAR t1, t2, v1, v2, S1, S2, Vsred: real; BEGIN t1:=3; t2:=2; v1:=80; v2:=90; S1:=t1*v1; S2:=t2*v2; Vsred:=(S1+S2)/(t1+t2); WriteLn ('Средняя скорость автомобиля=', Vsred, 'км/ч') END. Решение задачи №2

• 
  Слайд 16

  Операторы ввода данных

  Для ввода в оперативную память значений переменных используется read. READ(,,) список ввода Для ввода данных с клавиатуры можно также использовать оператор readln, который отличается от read только тем, что после его выполнения курсор переходит на новую строку.

• 
  Слайд 17
  

  Пример. Сложить два числа – 20 и 16.Сравните две программы решения этой задачи:

• 
  Слайд 18

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

  Общий вид: If then else Для записи неполных ветвлений используется сокращенная форма записи: If then Перед elseзнак « ; » не ставится

• 
  Слайд 19
  

  Пример Определить принадлежность точки Х отрезку [ a; b]. Если точка Х принадлежит данному отрезку, то выводится ответ ‘Да’, в противном случае - ‘Нет’ Program n_9; Varx, a, b:real; begin writeln (‘Введите a, b’); readln (a, b); writeln (‘Введите x’); readln (x); if (x>=a) and (x

• 
  Слайд 20
  

  Условный оператор Присвоить переменной Y значение большей из трех величин A, B, C Пример Program n_10; Vary, a, b, c:integer; begin writeln (‘Введите a, b, c’); readln (a, b, c); y:=a; if (b>y) then y:=b; if (c>y) then y:=c; writeln (‘y=’, y) End. Сокращенная форма ветвления

• 
  Слайд 21
  

  Составной оператор В условном операторе и после then,и после elseможно использовать только один оператор. Если требуется выполнить несколько операторов, то их объединяют в составной оператор. Составной оператор Begin end

• 
  Слайд 22
  

  Пример: Решить квадратное уравнение program n_11; var a, b, c, d: real; var x, x1, x2: real; begin write (‘Введите коэффициенты a, b, c’); readln (a, b, c); d:= b*b- 4*a*c; if d 0 then begin x1:= (-b+sqrt(d))/(2*a); x2:= (-b-sqrt(d))/(2*a); writeln(‘Корни уравнения’); writeln (‘x1=’, x1); writeln (‘x2=’, x2) end end.

• 
  Слайд 23
  

  Циклический оператор Цикл с предусловием Цикл повторяется до тех пор, пока проверка этого условия будет давать результат «истина» (true), т.е. пока условие выполняется. Если условие сразу оказывается ложным, цикл не будет выполнен ни разу. Условие Тело цикла да нет

• 
  Слайд 24
  

  Цикл с предусловием Оператор цикла с предусловием в Паскале имеет следующий формат: while do ; Служебное слово whileозначает «пока», do– «делать». Оператор стоящий после слова do, называется телом цикла. Тело цикла может быть простым или составным оператором, т.е. последовательностью операторов между служебными словамиbegin и end.

• 
  Слайд 25
  

  Задание Не пользуясь оператором деления, получить частное q и остаток r от деления целого числа х на целое число у. Program n_14; varx, y, q, r: integer; Begin writeln (‘Введите делимое х’); readln (x); write(‘Введите делитель у’); readln (у); r:=x; q:=0; while r>=y do begin r:=r-y; q:=q+1 end; writeln (‘Частное q=’, q); writeln (‘Остаток r=’, r) End.

• 
  Слайд 26
  

  Задание Вычислить факториал заданного числа N. Примечание Факториалом целого положительного числа N называется произведением всех целых чисел от 1 до Nвключительно. Например: 1!=1; 2!=1*2=2; 3!=1*2*3=6; 4!=1*2*3*4=24; 5!=1*2*3*4*5=120 и т.д. Program factorial; vara, n: integer; varfact: real; Begin writeln (‘Введите число'); readln (a); n:=1; fact:=1; while n

• 
  Слайд 27
  

  Напишите программу на Паскале вычисления суммы всех натуральных чисел, не превышающих заданного натурального числа N. Задание