Программирование линейных алгоритмов

Структура программы на Паскале
Program имя;
Label; - раздел меток
Const; - раздел констант
Type; - раздел типов
Var; - раздел переменных
Procedure – раздел процедур
Function – раздел функций
BEGIN
Операторы;
END.
Предопределенные типы языка Паскаль
Группа
Простой
Подгруппа
Порядковый
Название
Короткий целый
Байтовый
Слово
Целый
Длинный целый
Вещественный
Символьный
Char
Символы из
расширенного
набора символов
кодаASCII
Логический
Вещественный
Boolean
Real
False, True
-1,7х1038…
2,9х10-39,
2,9х10-39…
1,7х1038
С одинарной точностью
Single
-3,4х1038…
1,5х10-45
1,5х10-45…
3,4х1038
С двойной точностью
Double
-1,7х10308…
-5х10-324,
5х10-324…
1,7х10308
С повышенной
точностью
Extended -1,1х104932…
-1,9х10-4951,
1,9х10-4951…
1,1х104932
Comp
-263+1…263-1
Сложный
Строковый
Структурный
Идентификатор
Shortint -128…127
0…255
Byte
0…65535
Word
-32768…
Integer
32767
Longint -2147483648…
2147483647
String
Массив
Array
-
-
Множество
Set
Файл
File
Запись
Record
Ссылочный
Pointer
Процедурный
Процедура
Procedure
Функция
Function
Объектный
Object
Бинарные операции паскаля
Выражение
A+B
A–B
A*B
A/B
A div B
A mod B
Операция
Сложение
Вычитание
Умножение
Вещественное деление
Целочисленное деление
Остаток от целочисленного деления
Стандартные математические функции Паскаля
Выражение
Pi
abs(x)
arctan(x)
cos(x)
sin(x)
frac(x)
int(x)
ln(x)
ln⁡(𝑏)
ln⁡(𝑎)
exp(x)
exp(b*ln(a))
random
random(x)
round(x)
sqr(x)
sqrt(x)
trunc(x)
Операция
Число 𝜋 = 3,1415926536Е + 00
Модуль аргумента
Арктангенс (в радианах)
Косинус (в радианах)
Синус (в радианах)
Дробная часть x
Целая часть x
Натуральный логарифм
log 𝑎 𝑏
𝑒 𝑥 - экспонента
𝑎𝑏
Псевдослучайное число в интервале
[0, 1)
Псевдослучайное число в интервале
[0, x )
Округление до ближайшего целого
Квадрат x
Корень квадратный
Ближайшее целое, не превосходящее
x по модулю
Операторы ввода, вывода и присваивания информации
Оператор присваивания
Переменная := выражение
а:= 2+7;
с:= а – 4;
с:= с+3;
в результате получим значение а =9
с становится равным 5
значение с увеличивается на 3 и становится
равным 8
неверно, так как слева от знака
присваивания стоит не переменная, а
выражение!
с+1:= 2-а
Оператор
Вывод информации
Ввод информации
Запись на языке Паскаль
write(‘а’);
Пример выполнения
программы
а
writeln(‘а’);
а
а:=5;
writeln(а);
а:=5;
writeln(‘а= ’, а, ‘м’);
read(а);
5
readln(а);
readln(а, b);
а= 5м
Ввод значения одной
переменной. Выполнение
программы
приостанавливается до
введения значения. После
выполнения оператора
read курсор остаётся в
этой же строке
Ввод значения одной
переменной. Выполнение
программы
приостанавливается до
введения значения. После
выполнения оператора
readln курсор переходит в
следующую строку
Ввод значения двух
переменных.
Программа, выводящая на экран слово «МИР». Буквы этого слова состоят из
символов «*», высота каждой буквы – 6 символов.
Program mir;
Uses Crt;
Begin
Clrscr;
writeln(‘*
* *
* *******’);
writeln(‘* * * * *
** *
*’);
writeln(‘* ** * *
* * *
*’);
writeln(‘* * * * * * *******’);
writeln(‘*
* **
* *
’);
writeln(‘*
* *
* *
’);
readln;
End.
Программа, вычисляющая произведение трёх чисел.
Program umnogenie;
Uses Crt;
var a, b, c: real;
Begin
Clrscr;
writeln(‘Введите первое число ’);
readln(а);
writeln(‘Введите второе число ’);
readln(b);
writeln(‘Введите третье число ’);
readln(с);
writeln(‘Произведение чисел равно ’, a*b*c );
readln;
End.
Определение среднего арифметического двух чисел.
Program sredznach;
Uses Crt;
var a, b: real;
Begin
Clrscr;
writeln(‘Введите первое число ’);
readln(а);
writeln(‘Введите второе число ’);
readln(b);
writeln(‘Среднее значение чисел равно ’, (a+b)/2 );
readln;
End.
Вычисление третьего угла треугольника по двум известным углам.
Program treugolnik;
Uses Crt;
var a, b: real;
Begin
Clrscr;
writeln(‘Введите первый угол ’);
readln(а);
writeln(‘Введите второй угол ’);
readln(b);
writeln(‘Третий угол равен ’, 180-a-b );
readln;
End.
Вычисление значения арифметического выражения x y .
Program Uravnenie;
Uses Crt;
var x, y: real;
Begin
Clrscr;
write(‘Введите значение переменной х ’);
readln(x);
write(‘Введите значение переменной y ’);
readln(y);
writeln(‘Значение арифметического выражения равно’, exp(x*ln(y)):5:3);
readln;
End.
x
 x5
5
Вычисление значения арифметического выражения
5 x
Program Uravnenie;
Uses Crt;
var x, b: real;
Begin
Clrscr;
write(‘Введите значение переменной х ’);
readln(x);
b:= (exp(x*ln(5))+exp(5*ln(х)))/(5+х);
writeln(‘Значение арифметического выражения равно’, b:5:3);
readln;
End.
Программа записывающая введённое с клавиатуры трёхзначное число теми же
цифрами, но в обратном порядке (то есть, если дано число 149, то получить надо
941).
Program Naoborot;
Uses Crt;
var x, a, b, c: integer;
Begin
Clrscr;
write(‘Введите трёхзначное число ’);
readln(x);
a:= x mod 10;
b:= x div 10 mod 10;
c:= x div 100;
writeln(‘Число наоборот’, 100*а+10*b+а);
readln;
End.
Вычисление площади треугольника по двум сторонам и углу между ними.
Program st;
Uses Crt;
var a, b, c, s: real;
Begin
Clrscr;
writeln(‘Введите длину первой стороны ’);
readln(а);
writeln(‘Введите длину второй стороны ’);
readln(b);
writeln(‘Введите угол между ними ’);
readln(с);
s:=0.5*a*b*sin(c);
writeln(‘Площадь треугольника равна ’, s );
readln;
End.
Вычисление площади треугольника по 3 вершинам.
Program st;
Uses Crt;
var x1,y1,x2,y2,x3,y3,a,b,c,p,s:real;
Begin
Clrscr;
writeln('введите A(X1,Y1), B(X2,Y2) и C(X3,Y3)');
readln( x1,y1,x2,y2,x3,y3 );
c:=sqrt(sqr(y1-y2)+sqr(x1-x2));
a:=sqrt(sqr(y2-y3)+sqr(x2-x3));
b:=sqrt(sqr(y1-y3)+sqr(x1-x3));
p:=(a+b+c)/2;
s:=p*sqrt((p-a)*(p-b)*(p-c));
writeln('площадь треугольника = ',s);
readln;
End.
Вычисление суммы целых частей двух введённых с клавиатуры действительных
чисел.
Program summa;
Uses Crt;
var a, b, c: real;
Begin
Clrscr;
writeln(‘Введите первое число ’);
readln(а);
writeln(‘Введите второе число ’);
readln(b);
с:= trunc(a)+ trunc(b);
writeln(‘Произведение чисел равно ’, c );
readln;
End.
Программа, которая по правилам математики округляет введённое с клавиатуры
действительное число и возводит его в степень, введённую с клавиатуры.
Program okrugl;
Uses Crt;
var a, b, c: real;
Begin
Clrscr;
writeln(‘Введите действительное число ’);
readln(а);
writeln(‘Введите степень ’);
readln(b);
с:=round(a);
d:=exp(b*ln(c));
writeln(‘Округление числа ’, a, ‘=’c );
writeln(‘числа ’, с,’ в степени ’, ’ b’, ‘=’, d );
readln;
End.
Вычисление длины отрезка, зная координаты A и B.
Program size;
Uses Crt;
var x1,y1,x2,y2,d:real;
Begin
Clrscr;
writeln('введите A(X1,Y1) и B(X2,Y2)');
readln( x1,y1,x2,y2 );
d:=sqrt(sqr(y2-y1)+sqr(x2-x1));
writeln('длина отрезка |AB|=',d);
readln;
End.