Полезности

Горячие клавиши

F1 - вызов справки
Ctrl+F1 - справка по слову, на котором находится курсор
Alt+X - выход из программы Turbo Pascal
Ctrl+F9 - запуск программы
Alt+F5 - просмотр окна вывода (экрана)
F6 - перейти к следующему окну
F5 - текущее окно на весь экран

Правила хорошего тона

В начале программы вызывайте процедуру ClrScr, из модулю CRT, чтобы очистить экран от старых записей.

Всегда выводите "приглашение" на ввод, чтобы пользователь знал что вводит.

При выводе данных указывайте, что выводите.

В конце программы всегда ставьте ReadLn, чтобы окно вывода не закрывалось и пользователь знал, что программа вывела на экран в конце работы.

Program Good;
uses CRT;
var
 a:integer;
BEGIN
 ClrScr;
 Write('Введите значение a: ');
 ReadLn(a);
 Writeln('Значение переменной a = ',a);
 ReadLn;
END.


Как возвести число X в степень Y?

Function Power(X,Y:real):real;
Begin
 Power:=Exp(Ln(X)*Y);
End;

Как получить картинку работы вашей программы (Скриншот)?

Попробуйте нажать PrintScreen, вовремя работы вашей программы, а затем в каком-нибудь графическом редакторе, например, MS Paint, нажмите Ctr+V.
Если это не помогло, тогда: после слова VAR в Вашей программе вставьте:

TempF:Text;
TempStr:string;
TempI,TempJ,TempColor:integer;


И до CloseGraph, если вы работаете в графическом режиме, или до END. вставьте следующее:

Assign(TempF,'D:\Temp.tmp');
ReWrite(TempF);
TempI:=GetMaxX;
Str(TempI,TempStr);
Writeln(TempF,TempStr);
TempI:=GetMaxY;
Str(TempI,TempStr);
Writeln(TempF,TempStr);
for TempI:=0 to GetMaxX do
 begin
   for TempJ:=0 to GetMaxY do
    begin
     TempColor:=GetPixel(TempI,TempJ);
     Str(TempColor,TempStr);
     Writeln(TempF,TempStr);
    end;
   Writeln(TempF,'l');
 end;


После чего откройте полученный файл D:\Temp.tmp с помощью программы Read-Saver.