Программирование на Pascal

Процедуры ввода-вывода данных

• Процедуры ввода информации - Read или Readln обеспечивают ввод данных для последующей их обработки программой.
• Процедуры вывода информации - Write или Writeln обеспечивают вывод данных на дисплей

Например,

1.  read (a) - то число, которое пользователь введет с клавиатуры после запуска программы, будет "пониматься" программой как значение переменной а, т.е. значение, введенное с клавиатуры "считается" в память и будет обозначено как а.
2. write (b) - на экране будет напечатано значение, которое имеет переменная b.
   Если переменная b имеет, скажем, значение 5, то процедура
   write ('Искомая сумма равна',b) выведет на экран следующее:
   "Искомая сумма равна 5".

Оператор присваивания

Оператор присваивания := предписывает выполнить выражение, заданное в его правой части, и присвоит результат переменной, имя которой указано в левой его части. Переменная и выражение должны быть совместимы по типу.
Например,

t:=5;

a:= (m+n)/2;

k:= sqrt(x)-7; 

Простейшие типы данных

• Тип данных Byte. Диапазон значений: 0...255.
  Допустимые операции: сравнения ( =, <> (не равно), <, <=, >, >=);
  + (сложение), - (вычитание), * (умножение), DIV (получение частного), MOD (получение остатка).
• Тип данных Integer. Диапазон значений: -32768...32767.
  Допустимые операции: такие же как и в типе Byte.
• Тип данных Word. Диапазон значений: 0...65535.
  Допустимые операции: такие же как и в типе Byte.
• Тип данных Real. Диапазон значений: 2.9E-39...1.7E+38.
  Допустимые операции: сравнения ( =, <> (не равно), <, <=, >, >=);
  + (сложение), - (вычитание), * (умножение), / (деление).
• Тип данных Char определяет множество символов с кодами ASCII.
  Допустимые операции: сравнения ( =, <> (не равно), <, <=, >, >=).
• Тип данных Boolean определяет два возможных значения TRUE (истина) и FALSE (ложь).
  Допустимые операции: сравнения ( =, <> (не равно), <, <=, >, >=);
  AND (логическое И); OR (логическое ИЛИ); XOR (логическое исключающее ИЛИ); NOT (логическое отрицание).

Пример программы, которая вычисляет значения суммы, произведения, неполного частного и остатка от деления одного вводимого с клавиатуры числа  на другое.

Программа записана синим цветом, комментарии - черным в фигурных скобках.

Program primer1;                                  {Заголовок программы}
var sum, pro, ch, ost: integer;               {Строка описания переменных}
Begin                                                     {Начало программы}
writeln('Введите два числа');             {Вывод на экран фразы "Введите два числа"}
readln(a,b);        {Считывание значений а и b, введенных с клавиатуры в память}
sum:=a + b;        {Переменной sum присваивается  значение суммы a и b}
pro:=a + b;         {Переменной pro присваивается  значение произведения a и b }
сh:=a DIV b;   {Переменной ch присваивается  значение неполного частного a на b} 
ost:=a MOD b; {Переменной ost присваивается  значение
                            остатка от деления a на b}
writeln('Сумма равна',sum); {Вывод на экран фразы "Сумма равна" и значения
                                                 суммы}
writeln('Произведение равно',pro); {Вывод на экран фразы "Произведение равно"
                                                          и значения произведения}
writeln('Неполное частное равно',ch); {Вывод на экран фразы "Неполное частное 
                                                               равно" и значения неполного частного}
writeln('Остаток от деления равен',ost); {Вывод на экран фразы "Остаток от 
                                                        деления равен"и значения остатка от деления}
End.                                     {Конец программы}

Некоторые встроенные функции

Abs (X: Real) - возвращает абсолютное значение аргумента.
Abs (X: Integer) - возвращает абсолютное значение аргумента.
Sqr  (X: Real) - возвращает квадрат аргумента.
Sqr (X: Integer) - возвращает квадрат аргумента.
Sqrt (X: Real) - возвращает квадратный корень аргумента.
Ln (X: Real) - возвращает натуральный логарифм аргумента.
Sin (X: Real) - возвращает синус аргумента.
Cos (X: Real) - возвращает косинус аргумента.

 

Оператор условного перехода  If.

If A then begin Операторы1 end
       else begin Операторы2 end;
где A - булевское выражение (возвращающее TRUE (истина) или FALSE (ложь).
Если значение выражения А принимает значение ИСТИНА, то выполняются Операторы1, в противном случае, когда  значение выражения А принимает значение ЛОЖЬ, выполняются Операторы2.
Затем, в обоих случаях управление передается следующему оператору программы.
Например,

If a=b then writeln ('Введенные вами два числа равны')

          else writeln ('Введенные вами два числа не равны');

Проверяется условие а=b. Если a=b, то на экран будет выведено:

Введенные вами два числа равны.

Если же окажется, что а не равно b, то будет выведено сообщение:
Введенные вами два числа не равны.

Задачи

1. Найти площадь треугольника по формуле Герона и вывести ее значение на экран. Значения сторон вводятся с клавиатуры.
2. Найти сумму цифр двузначного числа. Двузначное число вводится с клавиатуры.
3. Найти сумму цифр трехзначного числа. Трехзначное число вводится с клавиатуры.
4. С клавиатуры вводится число. Вывести на экран, положительное оно или неположительное.
5. Ввести с клавиатуры коэффициенты квадратного уравнения a, b, c и вывести на экран значения корней или сообщение, что корней нет.
6. С клавиатуры вводится число. Вывести на экран четное оно или нечетное.
7. С клавиатуры вводятся два числа. Вывести на экран большее из них. 
8. С клавиатуры вводится число А. Если число А делится на 3, вывести  значения выражений А / 3; А - 3. В противном случае вывести сообщение о том, что число не делится на 3.