Язык программирования «Паскаль»
Программирование на Паскале
Основные типы переменных
- Целый тип - integer . Целые числа от -32768 до 32767.
- Действительный тип – 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
Типы всех переменных, используемых в программе, указываются в специальном разделе .
Структура программы
Программа состоит из следующих разделов:
- заголовок ( program имя; )
- подключение библиотеки подпрограмм ( uses crt; )
- объявление меток ( label 1,12,#1;)
- объявление констант ( const e=2.7; )
- определяемые пользователем типы данных ( type …;)
- объявление переменных ( var a: real; b,c : char; )
- раздел подпрограмм
- основной блок программы ( 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 = 24.637284512
Writeln(‘Summa = ’,s:6:2) Summa = 24.64 Writeln(‘Summa = ’,s:6:1) Summa = 24.6
Writeln(‘Summa = ’,s:6:0) Summa = 25
Writeln(‘Summa = ’,s:6:3) Summa = 24.637
Writeln(‘Summa = ’,s:6:5) Summa = 24.63728
Команда ввода информации с клавиатуры Readln
Write (‘ Введите два числа ‘);
Readln ( a , b );
Write (‘ Введите третье число ‘);
Readln ( c );
Фрагмент программы
Результат выполнения фрагмента программы
Введите два числа 7 4
Введите третье число 6
Числовые значения вводятся с клавиатуры и присваиваются переменным a , b , c
Команда присваивания
Имя переменой := выражение;
Примеры имён переменных: a, x1, summa, max1.
Примеры выражений:
1. Число: x:=24 , evro:=44.38
2. Имя переменной: 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
1
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.
2
3
4
Определить количество денег в долларах , если известно количество денег в рублях . (1 доллар = 36,38 руб.)
Uses crt;
Дано:
К – количество руб.
Найти:
D – количество долларов
Решение:
D = K / 36,38
1
Var d: real; k: integer;
Begin
Write (‘Введите кол-во рублей ‘); Readln (k);
d := k / 36.38;
Writeln (‘Кол-во долларов = ’,d);
End.
2
3
4