ЯЗЫК ПРОГРАММИРОВАНИЯ « ПАСКАЛЬ » Программирование на Паскале

Основные типы переменных Целый Целый тип - integer. Целые числа от до Действительный Действительный тип – real. Символьный Символьный тип - char. Один любой символ. Строковый Строковый тип - string. Строка до 255 символов. Логический Логический тип - boolean. Одно из 2 значений : истина (TRUE ) или ложь (FALSE).

Основные типы переменных Пример : x: integer; y:real; a:char; b:string; c:boolean. Допустимые значения переменных : x:=28; x:=x-12;y:=7.8; y:= 2.1*x; a:= H ; a:= +; b:= лето ;c:= 5< 7 Типы всех переменных, используемых в программе, указываются в специальном разделе.

Структура программы Программа состоит из следующих разделов : 1. заголовок ( program имя ; ) 2. подключение библиотеки подпрограмм ( uses crt; ) 3. объявление меток ( label 1,12,#1;) 4. объявление констант ( const e=2.7; ) 5. определяемые пользователем типы данных ( type …;) 6. объявление переменных ( var a: real; b,c : char; ) 7. раздел подпрограмм 8. основной блок программы ( begin … end.)

Структура программы Все разделы кроме последнего могут отсутствовать. Как правило простые программы состоят из трех разделов : 2, 6, 8. Комментарии в тексте программы указываются в фигурных скобках.

Пример программы Uses crt; Var a,b,s: integer; h:real; Begin Write (Введите два числа ); Readln (a, b); s:= a+b; h:= a/b; Writeln (Сумма =,s); Writeln (Частное =,h); End Определить сумму и частное двух целых чисел Части программы 1. объявление переменных; 2. ввод исходных данных; 3. решение задачи; 4. вывод результатов.

Программа и результаты работы программы

Команда вывода информации на экран Write и Writeln x:=20; y:=2012; n:=43; Writeln (Сегодня ); Write (x, сентября ); Writeln (y, года); Writeln (Школа,n); Сегодня 20 сентября 2012 года Школа 43 Фрагмент программы Результат выполнения фрагмента программы

Вывод переменных действительного типа (Real) Примеры: (на вывод числа отводится 6 знакомест) Writeln(Summa =,s) Summa = Writeln(Summa =,s:6:2) Summa = Writeln(Summa =,s:6:1) Summa = 24.6 Writeln(Summa =,s:6:0) Summa = 25 Writeln(Summa =,s:6:3) Summa = Writeln(Summa =,s:6:5) Summa =

Команда ввода информации с клавиатуры Readln Write (Введите два числа ); Readln (a, b); Write (Введите третье число ); Readln (c); Введите два числа 7 4 Введите третье число 6 Фрагмент программы Результат выполнения фрагмента программы Числовые значения вводятся с клавиатуры и присваиваются переменным a, b, c

Команда присваивания Имя переменой := выражение ; Примеры имён переменных : a, x1, summa, max1. Примеры выражений : 1. Число: x:=24, evro:= Имя переменной: x:=y, x1:=a 3. Арифметическое выражение: p:=2*(a+b), x1:=(-b+sqrt(d))/(2*a) Тип переменной должен соответствовать типу выражения.

Арифметические операции 1. Сложение : +2. Вычитание : - 3. Умножение : *4. Деление : / Для целых чисел и переменных целого типа имеются ещё две операции 5. Целочисленное деление : div x:=27 div 5 ( результат x=5) 6. Остаток от деления : mod x:=27 mod 5 ( результат x=2)

Разработать программы для решения задач Даны длина и ширина прямоугольника. Определить площадь и периметр прямоугольника. Даны катеты прямоугольного треугольника. Определить площадь и периметр треугольника.sqrt(b*b) Дано двузначное ( трехзначное ) целое число. Определить сумму цифр. Определить стоимость покупки и размер сдачи. Цена товара, количество купленных килограмм и количество поданных кассиру денег вводятся с клавиатуры.

Определить стоимость покупки и размер сдачи. Цена товара, количество купленных килограмм и количество поданных кассиру денег вводятся с клавиатуры. Дано : С – цена товара К – количество кг. М – количество поданных денег Найти : S – стоимость покупки Р – размер сдачи Решение : S = C * K P = M – S var c, k, s, p, m: real; Begin write (Введите цену ); readln (с); write (Введите кол-во кг. ); readln (к); write (Введ. поданные деньги ); readln (m); s := c * k; p := m – s; writeln (Стоимость покупки =,s); writeln (Размер сдачи =,p); end

Определить количество денег в долларах, если известно количество денег в рублях. (1 доллар = 36,38 руб.) Дано : К – количество руб. Найти : D – количество долларов Решение : D = K / 36,38 Write (Введите кол-во рублей ); Readln (k); d := k / 36.38; Writeln (Кол-во долларов =,d); End. Var d: real; k: integer; Uses crt; Begin