Если ткнуть мышкой на область графика, то можно увидеть выделенную область данных, по которым построен данный график.

Выделение блока: Shift + стрелки (клавиши управления курсором)

   F10 - выход в Menu
   Ctrl+F1 - помощь по текущей команде (Help - русский)
   Ctrl+F9 - запуск с компиляцией
   Ctrl+Break - прервать программу
   Alt+F5 - посмотреть окно вывода
   Редактирование такое же, как и в Бейсике.

13. Отличие языка Pascal от QBasic:

Операции	Pascal	QBasic
Присвоение значения к переменной	A:=15; X:='Hello!';	A=15: X$="Hello!"
Объявление массива	Var Arr:Array[0..99] of Real;	DIM ARR(100)
Присвоение значения к элементу массива	Arr[3]:=5;	ARR(3)=5
Вывод на экран	WriteLn('Hello!',X);	PRINT "Hello!",X
Ввод с клавиатуры	ReadLn(n);	INPUT N
Цикл For	For I:=1 To 10 Do оператор	FOR I:=1 TO 10 оператор NEXT I
Очистка экрана	ClrScr;	CLS
Вывод текста в указанную позицию	GotoXY(X,Y); Write('Hello!');	LOCATE Y,X: PRINT "Hello!"
Получить символ нажатой клавиши	If KeyPressed Then Ch:=ReadKey Else Ch:=''	CH=INKEY$

Примеры:

Program Ex3_WriteLn_ReadLn;
Uses Crt, Graph;
Type MAS=Array[1..100] Of Integer;
Const X=40; Y=14; St='Hello!';
Var A,I:Integer;
    R:Real;
    MS:MAS;
Begin
ClrScr;
WriteLn('Hello Student! ',St);
Write(Y,';');WriteLn(X);
ReadLn(A);
Write(A);
End.

Program Ex3_For;
Var I:Integer;
    MS:Array[1..100] Of Integer;
Begin
WriteLn('Vvedite chisla:');
For I:=1 To 5 Do ReadLn(MS[I]);
WriteLn('Chisla:');
For I:=1 To 5 Do WriteLn(MS[I]);
ReadLn
End.

   Меню Debug:
   Breakpoints - выдает список установленных точек останова
   Evaluate/Modify - Ctrl+F4 - вычислить/изменить значения (можно использовать переменные и изменять их значения)
   Add watch... - Ctrl+F7 - добавление переменных для наблюдения в отдельном окне наблюдений
   Add breakpoint... - добавить точку останова программы

   Горячие клавиши для трассировки:
   F7 - Trace - трассировка со входом в функции и процедуры
   F8 - Step - трассировка с пропуском функций и процедур
   Ctrl+F2 - сброс трассировки

1) Ссылки по правилам оформления отчетов:

Титульный лист
Содержание
Введение
1. Глава такая-то.
2. Глава вот такая.
2.1. Подглава вот такая.
...
Заключение
Список использованных источников
Приложение А
Приложение Б
...

GotoXY(X,Y); Write('Hello!'); - вывод текста в заданные координаты

Delay(1000); - задержка в ms {модуль CRT}

Program Ex6_Helix;
Uses Crt;
Const X=40;Y=14;
Var I:Integer;
Begin
ClrScr;
For I:=0 To 200 Do
 Begin
   GotoXY(X+Round(Cos(I/9)*I/9),Y-Round(Sin(I/9)*I/15));
   Write('*');
   Delay(1000);
 End;
ReadLn
End.

For...To, For...DownTo (зарезервированные слова)

Оператор For вызывает оператор, находящийся после слова Do, по одному разу для каждого значения в диапазоне от начального до конечного значений.

For переменная:=начальное To (или DownTo для уменьшения) конечное Do оператор

While условие выполнения цикла Do оператор

Оператор после Do будет выполняться до тех пор, пока булево выражением является истинным (True).

Repeat операторы Until условие выхода из цикла

Операторы между словами Repeat и Until повторяются до тех пор, пока булево выражение является Истинным (True).

ReadKey - функция, читает символ из буфера клавиатуры {модуль Crt}

KeyPressed - функция определяет, была ли нажата клавиша на клавиатуре {модуль Crt}

Program Ex7_While;
Uses Crt;
Var Ch:Char;
Begin
Ch:=Chr(0);
While Ch<>'j' Do
 Begin
   Ch:=ReadKey;
   Write(Ch);
 End
End.

Program Ex7_Repeat;
Uses Crt;
Var Ch:Char;
Begin
Repeat
  Ch:=ReadKey;
  Write(Ch);
Until Ch='j'
End.

Организовать движение фигуры из задания N6 по кругу с помощью циклов While или Repeat ... Until до нажатия клавиши, соответствующей номеру компьютера - при нажатии этой клавиши, должен происходить выход из программы.

Str(X[:Width[:Decimals]]; var S:string) - Преобразовывает числовое значение X (Real, Integer) в строковое представление этого числа. (Width - количество символов в результирующей строке, Decimals - количество знаков после запятой).

Val(S; Var V; Var Er:Integer) - Преобразовывает строковое значение в его числовое представление.

S - переменная строкового типа. Должна представлять последовательность символов, формирующих число. V - результат - переменная типа Real или Integer. Er - код ошибки - переменная типа Integer.

Pos(Substr:String; S:String) - Ищет подстроку в строке.

Параметры Substr и S - строковые выражения. Pos ищет первое вхождение строки Substr в строку S и возвращает целочисленное значение, которое является индексом первого символа Substr внутри S. Если строка Substr не найдена, то Pos возвращает нуль.

n:=Pos(SubStr,S); {если SubStr:='o', а S:='Hello!', то n=5}

Delete(Var S:String; Index:Integer; Count:Integer) - Удаляет подстроку из строки.

Параметр S - переменная со строковым типом. Index и Count - целочисленные выражения. Delete удаляет Count символов из строки S, начиная с позиции Index. Если значение Index больше, чем длина S, то никакие символы не удаляются. Если Count определяет большее количество символов, чем остается в строке с позиции Index до конца строки, то удаляется остаток строки.

Delete(S,3,2); {если S:='Hello!', то в результате выполнения этой команды S='Heo!'}

Insert(SubStr:String; Var S:String; Index:Integer) - Вставляет подстроку SubStr в строку S.

Параметр S - исходная строка, SubStr - подстрока, вставляемая в строку S. Insert - позиция, с которой подстрока SubStr вставляется в строку S. Если в результате строка длиннее 255-и символов, то она усекается до 255 символов.

Insert('Student',S,4); {если S:='Hello!', то в результате выполнения команды S='HelStudentlo!'}

Length(S : String) - Возвращает динамическую длину строки.

n:=Length(S); {если S:='Hello!', то в результате выполнения команды n='6'}

GetTime(Var Hour, Minute, Second, Sec100 : Word) - возвращает текущее время, установленное в операционной системе (Unit DOS)

GetTime(HH, MM, SS, S100); {параметры: HH, MM, SS, S100 - типа Word}

Используя процедуры работы со строками, преобразовать время, полученное с помощью процедуры GetTime (Unit DOS) в строковую переменную в формате: "Текущее время: HH-часов, MM-минут, SS-секунд" и вывести значение этой переменной в заданные координаты на экран.

Используя процедуры работы со строками и вывода на экран текста в заданные координаты с помощью GotoXY, написать программу "бегущая строка". Строка вводится с клавиатуры и должна двигаться справа налево.

Procedure идентификатор(параметры);
Var описание локальных переменных;
Begin

End;

Function идентификатор(параметры):тип;
Var описание локальных переменных;
Begin
  идентификатор:=результат;
End;

Program Ex6_Procedure_Function;
Uses Crt;
Var R:Real;
    n,X1,Y1:Integer;

Procedure WriteXY(Var X,Y:Integer;M:Real);
Begin
 GotoXY(X,Y); Write(M);
 X:=WhereX;
 Y:=WhereY;
End;

Function XStepN(X:Real;N:Integer):Real;
Var I:Integer;
      Y:Real;
Begin
Y:=1;
 For I:=1 To N Do Y:=Y*X;
 XStepN:=Y;
End;

Begin
 X1:=1; Y1:=5;
 R:=XStepN(3,4); WriteXY(X1,Y1,R);
 R:=XStepN(2,3); WriteXY(X1,Y1,R);
End.

Переделать задание N8 так, чтобы вращение "бегущей строки" (сдвиг на один символ) осуществлялось в подпрограмме. Пример вызова процедуры: ShiftStr(S) .

Организовать подпрограммы рисующие цифры от '0' до '9' в заданных координатах (левый верхний угол цифры), в текстовом режиме (подобно заданию N3) и выполнить их вызов в основной программе так, чтобы получилось какое-то число. Пример вызова процедуры: Number0(X,Y); Number9(X,Y); .

Оператор выбора Case состоит из выражения (селектора) и списка операторов, каждый из которых выполнится в определенном случае.

Case выражение Of
  вариант: оператор;
  ...
  вариант: оператор;
Else оператор
End

Часть "Else" является необязательной.

Case Ch Of
  'A'..'Z', 'a'..'z': WriteLn('Буква');
  '0'..'9'          : WriteLn('Цифра');
  '+', '-', '*', '/': WriteLn('Оператор');
Else WriteLn('Специальный символ')
End;


Program Ex7_Case;
Uses Crt;
Var Ch:Char;
Begin
Repeat
  Ch:=ReadKey;
  Case Ord(Ch) Of
    72:WriteLn('Ввверх');
    77:WriteLn('Вправо');
    80:WriteLn('Вниз');
    75:WriteLn('Влево');
  End;
Until Ch='q'
End.

Организовать подпрограмму, которой в качестве параметров подаются координаты вывода и строка, состоящая из цифр, которые нужно вывести. С помощью этой подпрограммы, используя оператор выбора Case, необходимо сделать вывод этой строки цифр, цифрами из задания N10. Пример вызова процедуры: BigNumb(X,Y,'60279431581'); .

Random(Range) - возвращает случайное число.

Если параметр Range не определен, то результатом будет случайное число типа Real в диапазоне 0 <= X < 1.

Если параметр Range определен, то результатом будет случайное число в диапазоне 0 <= X < Range.

Randomize - Инициализирует встроенный генератор случайных чисел с произвольным значением (полученным из системных часов).

Написать программу "Хранитель экрана". Организовать вывод текущего времени числами из задания N11, при этом необходимо добавить подпрограмму, выводящую разделитель часов и минут ":". Время должно периодически выводиться в произвольные координаты экрана. Выход из программы должен происходить при нажатии на любую клавишу.

Assign(Fil, FileName); - процедура, назначает файловой переменной имя внешнего файла.

Параметр Fil - файловая переменная любого файлового типа - File (например: File of Integer) или Text. Параметр FileName - тип String, состоит из пути и имени файла: Примеры: "FileName.txt" или "C:\BP\FileName.txt".

Append(Fil); - процедура, открывает существующий файл для продолжения записи в файл.

Close(Fil); - закрывает ранее открытый файл.

Procedure Reset(Var Fil :File [; Recsize :Word]); - открывает существующий файл.

Параметр Fil - файловая переменная любого файлового типа - File (например: File of Integer) или Text.

Параметр RecSize - необязательный параметр, который может быть определен только, если Fil - нетипизированный файл. В этом случае, RecSize определяет размер блока, который нужно использовать при передаче данных. Если RecSize опущен, принят заданный по умолчанию размер блока в 128 байт.

Procedure ReWrite(Var Fil :File [; Recsize :Word]); - создает и открывает новый файл.

В режиме {$I-} функция IOResult вернет 0, если операция была успешна, иначе, она возвращает отличный от нуля код ошибки.

Program Ex9_File_SortString;
Var Fil:Text;
Nam:String;
SA:Array [0..100] of String[60];
I,N:Integer;
Begin
N:=0;
ReadLn(Nam); Assign(Fil,Nam); Reset(Fil);
While Not EOF(Fil) Do
  Begin ReadLn(Fil,SA[N]); N:=N+1 End;
For I:=1 To N Do WriteLn(SA[I-1]);
Close(Fil);
Assign(Fil,'namesort.txt'); ReWrite(Fil);
For I:=N DownTo 1 Do WriteLn(Fil,SA[I-1]);
Close(Fil)
End.

Написать программу, считывающую файл и записывающую в другой файл, только те строки, в которых содержится ключевое слово, которое нужно ввести с клавиатуры.

Написать программу, считывающую текстовый файл и осуществляющую скроллинг его одержимого по экрану вперед и назад при нажатии определенных клавиш.

Модуль Graph:

Uses Graph - подключение графического модуля

InitGraph(GD,GM,Pat) - Инициализирует графическую систему и переводит видеокарту в графический режим, соответствующий параметрам GD-"графический драйвер" и GM-"графический режим", информация по этим параметрам - в разделе "Помощь" по модулю Graph - "Константы и типы GRAPH.TPU".

CloseGraph - Закрывает графическую систему.

SetColor(Color) - Устанавливает текущий цвет, используя палитру.

SetBkColor(Color) - Устанавливает текущий цвет фона.

Line(X1,Y1,X2,Y2) - Рисует линию из точки с координатами (X1, Y1) в точку с координатами (X2, Y2).

MoveTo(150,150) - Перемещает текущий указатель (CP) в точку с координатами (X, Y).

LineTo(X,Y) - Рисует линию от текущего указателя (CP) до (X,Y).

Rectangle(X1,Y1,X2,Y2) - Рисует прямоугольник, используя текущий тип и цвет линии.

Circle(X,Y,R) - Рисует окружность текущим цветом, используя точку (X, Y) как центр.

SetFillPattern(Pattern,10) - Устанавливает определяемый пользователем шаблон закраски.

SetFillStyle(Pattern,13) - Устанавливает цвет и стиль закраски.

Bar(110,80,150,95) - Рисует закрашенный прямоугольник, используя текущие стиль и цвет закраски.

Bar3D(80,30,120,60,10,TopOn) - Рисует параллелепипед, используя текущий стиль и цвет закраски.

OutTextXY(X,Y,TextString) - Отображает TextString в координатах (X, Y), текущим цветом.

PutPixel(X,Y,Color) - Ставит точку в координатах (X, Y), цветом Color.

GetMaxX и GetMaxY - Возвращают текущее разрешение по горизонтали: GetMaxX и вертикали: GetMaxY.

ClearDevice - Очищает графический экран, используя цвет фона, установленный SetBkColor.

Program Ex10_Graph;
Uses Crt, Dos, Graph;
Const Pat='C:\BP\BGI';
      Patt:FillPatternType=(128,64,32,16,8,4,2,1);
Var GD,GM:Integer;
Begin
GD:=VGA; GM:=VGALo; {For VGALo}
InitGraph(GD,GM,Pat);
SetColor(Green); Line(0,0,150,150);
MoveTo(150,150); LineTo(170,90);
SetColor(Red); Circle(50,50,20);
SetColor(Yellow); Rectangle(40,20,70,70);
SetFillPattern(Patt,10);	{SetFillStyle(1,13);}
Bar(110,80,150,95);
Bar3D(80,30,120,60,10,TopOn);	{TopOff}
ReadLn;
CloseGraph
End.

Написать процедуру рисования машинки в заданных координатах, с помощью линий, кружков и прямоугольников. Пример вызова процедуры: CarNissanPatrol(10,10) .

Заставить двигаться машинку из задания N15 от края, до края экрана. При достижении края экрана, заставить ее двигаться в обратном направлении, выход из программы по нажатию клавиши "q".

Закодировать в текстовом файле координаты произвольной фигуры, состоящей из линий и вывести ее на графический экран.

Program Ex11_Sound;
Uses Crt;
Var I:Integer;
Begin
For I:=0 To 80 Do
 Begin
   Sound(200);	{Звук с частотой 200 Гц}
   Delay(1000);	{На 200 миллисекунд}
   NoSound;	{Выключаем динамик}
 End;
End.

Заставить фигуру из задания N17 циклически двигаться от края до края экрана. При достижении краев экрана проигрывать мелодию или звуковой сигнал. Выход из программы по нажатию клавиши "Esc".

Отобразить график функции: y=a*x*x+b*x+c, где a, b, c, константы, заданные произвольно с клавиатуры. Перед рисованием графика отобразить и подписать оси X и Y, пересечение осей должно быть в центре экрана, в точке 0, 0.

Program Ex12_Record;
Uses Crt;
Type
  rec = record
         FirstName:String;
         LastName :String;
         Age      :Byte;
  end;
Var
  Baza: Array[0..100] Of rec;
  I: Integer;
begin
For I:=0 To 4 Do
Begin
  Write('FirstName='); ReadLn(Baza[I].FirstName);
  Write('LastName='); ReadLn(Baza[I].LastName);
  Write('Age='); ReadLn(Baza[I].Age);
End;
WriteLn('FirstName LastName Age');
For I:=0 To 4 Do
  WriteLn(Baza[I].FirstName,' ',Baza[I].LastName,' ',Baza[I].Age);
End.

Графическое изображение представляет собой набор графических примитивов: точек, отрезков, прямоугольников и эллипсов различных цветов. Прямоугольники и эллипсы могут иметь заливку. Изображение имеет 16 цветов (коды цветов 0-15).

Файл содержит записи, каждая из которых состоит из фиксированного набора полей, описывающих графический примитив. Все координаты указываются в пикселях относительно левого верхнего угла изображения, имеющего координаты (0,0). Оси направлены: 0X - вправо, 0Y - вниз. Графические примитивы отображаются относительно текущей позиции курсора, которая может быть изменена специальной командой.

Формат записи:

1. Поле Operation типа Byte. Содержит код операции в соответствии с Табл.1.
2. Поле X типа Integer. Содержит значение координаты по оси X.
3. Поле Y типа Integer. Содержит значение координаты по оси Y.
4. Поле Color типа Byte. Поле содержит цвет графического примитива. Это битовое поле, т.е. в нем имеют значение отдельные биты и группы битов. Обычно биты нумеруются с нуля (младший бит). Бит считается установленным, если содержит 1, и сброшенным (не установленным), если содержит 0. Для выделения нужной группы битов используют битовые маски и операцию логического умножения AND, а также операции логического сдвига вправо (SHR) и влево (SHL).

Таблица 1. Содержимое поля Operation.