PASCAL
PascalABC "Меню" управления всеми ресурсами ИИО (Интегрированной инструментальной оболочки). Область текстового редактора. Строка подсказок.
Клавиши управления CTRL+S CTRL+S –сохранить файл или File Save CTRL+O CTRL+O– открыть файл или File Open F9 F9 – запустить программу
Структура программы в общем виде program (имя программы);заголовок программы label (список меток); const (список постоянных значений); type(описание сложных типов данных); var (описание данных программы);описание переменных begin (начало программы) (алгоритм) {инструкций основной программы} end. (конец программы)терминатор
Пример программы program summa; var x,y,k,z: integer; begin write(Введите три числа ); readln(x,y,k); z:=x+y+k; write(z); end.
Целые типы Тип Значение Формат shortint Знаковый integer Знаковый longint – Знаковый byte Беззнаковый word Беззнаковый тип ЗначениеЧисло значащих чиселreal 2.9* * single 1.5* * double 5.0* * extended 3.4* * comp -2* * Вещественные типы
Целые типы Вещественные типы WRITE(X:6:2,Y:8:3) WRITE(X:6,Y:8)
Арифметические операции + - * / Целочисленное деление DIV – деление нацело MOD – остаток от деления Примеры 5 div 2 20 div 4 27 div 6 7 mod 3 20 mod 4 27 mod 6 16 div mod mod 10
Функция НазначениеТип результата FRAC(X) Дробная част ХВещественный INT(X) Целая часть Х, обнуление дробной части Вещественный ROUND(X) Округление до ближайшего целого Целый TRUNC(X) Отбрасывание дробной части Целый Стандартные функции работающие с вещественными числами
X^Y записывается как exp(Y*ln(X)) b=X Y b:=exp(Y*ln(X)) b=X 2 b:=x*x b=X3 b:=x*x*x Вычисление степеней в Паскаль
Примеры программ program f10; uses crt; var n:integer; beginclrscr; {инструкций основной программы} end.
Написать программу, которая генерирует случайное число в диапазоне от 0 до x-1 Program f52; Var x,n:integer; Begin randomize; Write (x=); Readln(x);n:=random(x); writeln(n=,n); readln End. Примеры программ
Массив (Линейный, вектор) Объявление: Ввод с клавиатуры: Поэлементные операции: Вывод на экран: const N = 5; var a: array[1..N] of integer; i: integer; const N = 5; var a: array[1..N] of integer; i: integer; for i:=1 to N do begin write('a[', i, ']='); read ( a[i] ); end; for i:=1 to N do begin write('a[', i, ']='); read ( a[i] ); end; a[1] = a[2] = a[3] = a[4] = a[5] = for i:=1 to N do a[i]:=a[i]*2; writeln('Массив A:'); for i:=1 to N do write(a[i]:4); writeln('Массив A:'); for i:=1 to N do write(a[i]:4); Массив A:
Массив (Линейный, вектор) Объявление: Ввод с клавиатуры: Поэлементные операции: Вывод на экран: const N = 5; var a: array[1..N] of integer; i: integer; const N = 5; var a: array[1..N] of integer; i: integer; for i:=1 to N do A[i] := random(25) - 10; for i:=1 to N do A[i] := random(25) - 10; a[1] = a[2] = a[3] = a[4] = a[5] = for i:=1 to N do a[i]:=a[i]*2; writeln('Массив A:'); for i:=1 to N do write(a[i]:4); writeln('Массив A:'); for i:=1 to N do write(a[i]:4); Массив A:
Матрицы (Двумерный массив) Объявление: const N = 3; M = 4; var A: array[1..N,1..M] of integer; B: array[-3..0,-8..M] of integer; Q: array['a'..'d',False..True] of real; const N = 3; M = 4; var A: array[1..N,1..M] of integer; B: array[-3..0,-8..M] of integer; Q: array['a'..'d',False..True] of real; Ввод с клавиатуры: for i:=1 to N do for j:=1 to M do begin write('A[',i,',',j,']='); read ( A[i,j] ); end; for i:=1 to N do for j:=1 to M do begin write('A[',i,',',j,']='); read ( A[i,j] ); end; for j:=1 to M do for i:=1 to N do begin
Матрицы Заполнение случайными числами for i:=1 to N do for j:=1 to M do A[i,j] := random(25) - 10; for i:=1 to N do for j:=1 to M do A[i,j] := random(25) - 10; цикл по строкам цикл по столбцам Вывод на экран for i:=1 to N do begin writeln; end; for i:=1 to N do begin writeln; end; перейти на новую строку for j:=1 to M do write ( A[i,j]:5 ); for j:=1 to M do write ( A[i,j]:5 ); в той же строке