Белорусский Национальный Технический Университет
Механико-технологический факультет
Кафедра «Порошковая металлургия, сварка и технология материалов»
Отчет
по ABC Pascal
Выполнил студент группы: Шугай С.В
Гр.104812
Проверил: Мельниченко В.В.
Минск 2013
Введение
Есть несколько языков программирования ABC Pascal один из них. Программирование подразумевает под собой – создание вычислительных процессов (программ) .
Во время работы с программой нам понадобиться знать :
Окно редактора кода
Большую часть рабочей области, её верхнюю часть занимает окно редактора кода. В него вводится исходный текст программы.
Горячие клавиши
• F2, Ctrl-S - сохранить файл
• F3, Ctrl-O - загрузить файл
• F12 - сохранить файл под новым именем
• Ctrl-Shift-S - сохранить все открытые файлы
• Ctrl-Shift-0 ... Ctrl-Shift-9 - установить закладку с номером 0...9
• Ctrl-0 ... Ctrl-9 - перейти к закладке с номером 0...9
• Ctrl-Tab, Ctrl-Shift-Tab - перейти к следующему/предыдущему окну редактора
Окно вывода
Под окном редактора расположено окно вывода. Оно предназначено для вывода данных процедурами write и writeln, а также для вывода сообщений об ошибках и предупреждений во время работы программы.
Окно вывода может быть скрыто. Клавиша F5 показывают/скрывают окно вывода. Для скрытия окна вывода используется также клавиша Esc.
Окно вывода обязательно открывается при любом выводе в него.
Окно ввода
Окно ввода открывается при выполнении процедур read и readlnв ходе работы программы:
Ввод данных в в окно ввода сопровождается эхо-выводом в окно вывода (см. рис). После нажатия клавиши Enter данные из окна ввода попадают в соответствующие переменные, окно ввода закрывается, и программа продолжает работать дальше.
Запуск и остановка программы
• Для запуска программы в текущем окне редактора следует нажать клавишу F9 или кнопку панели
инструментов.
• Программа вначале компилируется во внутреннее представление, после чего, если не найдены ошибки,
программа начинает выполняться. При выполнении программы кнопка запуска программы становится
неактивной, кнопка останова программы, наоборот, активной и в строке статуса отображается
информация "Программа выполняется".
• Выполнение программы можно в любой момент прервать нажатием комбинации клавиш Ctrl-F2 или
кнопки . При этом в окне вывода появится сообщение Программа прервана пользователем.
• Если текущая программа не является модулем, то при ее запуске на вкладке перед именем появляется
жирная точка, что свидетельствует о том, что данную программу запускали последней. Если текущая
программа является модулем, то компилируется не она, а программа, чье имя на вкладке помечено
точкой.
• При выводе в графическое окно модуля GraphABC программу можно прервать нажатием клавиши Esc,
при этом графическое окно будет закрыто.__
Функция Описание
sqr(n) -Возвращает квадрат аргумента. Необходимо помнить о
диапазоне возвращаемого значения.
abs(n)- Возвращает модуль (абсолютное значение) числа.
pred(n)- Возвращает значение, на единицу меньшее аргумента.
succ(n)- Возвращает значение, на единицу большее аргумента.
odd(n)- Возвращает TRUE, если аргумент нечетный, иначе – FALSE
even(n)- Возвращает TRUE, если аргумент четный, иначе – FALSE
chr(n)- Возвращает символ (тип char) с кодом n.
random(n)- Возвращает случайное число в диапазоне от 0 до n-1.
Данные используемые в ABC Pascal делятся на типы :
Натуральные 0,1,2,,,,, и так далее
Тип Byte –обозначение целых занимающих одну ячейку памяти 0.. 255
Word 0..65565
Целые со знаком + или – (shortint -128..127 и integer -32768..32765)
Действительные числа имеют дробную часть : real (10-38..1038 с точность до 15 знаков после запятой)
Double-повышенная точность
К примеру разберем первое задание по abc Pascal :
Program S; {слово Program начало программы S ее название}
Var { Var ключевое слово после которого задают переменные}
a:real; { a и s переменные real тип переменных}
s:real;
begin {Begin начало вычисления}
write ('введите a '); { Выводит на экран монитора текст ‘введите а’}
Readln(a); { readln ввод этой переменой(a) в саму программу}
S:=SQR(a); {переменной s присваивается значение SQR(a) это вычислительная операция возводит переменную а в квадрат }
Writeln('результаты: '); {writeln выводит слово ‘результаты’}
Writeln(' площадь S=', S:6:2,' для a=','a:4:1'); {выводит на экран округленные значения}
END. {конец программы }
Программы которые мы выполняли на лабораторных занятиях :
Program z1;
Var
a,b,c,d:real;
S:real;
begin
write ('введите a ');
Readln(a);
write ('введите b ');
Readln(b);
write ('введите c ');
Readln(c);
write ('введите d ');
Readln(d);
S:=(a*b)/2+(d*c)/2;
Writeln('результаты: ');
Writeln(' площадь S=', S:6:2,' для a=','a:4:1');
End.
Program z2;
Var
a,b,c,e,d:real;
s1,s2,s3,p1,p2,p3,p,G:real;
begin
write ('введите a ');
Readln(a);
write ('введите b ');
Readln(b);
write ('введите c ');
Readln(c);
write ('введите d ');
Readln(d);
write ('введите e ');
Readln(e);
p1:=(a+ b+4)/2;
S1:=SQRT(p1*(p1-4)*(p1-a)*(p1-b));
Writeln('результаты: ');
Writeln(' площадь S1=', S1:6:2);
p2:=(c+5+4)/2;
S2:=SQRT(p2*(p2-4)*(p2-5)*(p2-c));
Writeln('результаты: ');
Writeln(' площадь S2=', S2:6:2);
p3:=(e+d+5)/2;
S3:=SQRT(p3*(p3-e)*(p3-d)*(p3-5));
Writeln('результаты: ');
Writeln(' площадь S3=', S3:6:2);
G:=s1+s2+s3;
Writeln('результаты: ');
Writeln(' площадь G=', G:6:2);
end.
Program z3;
Var
a,b,c,p:real;
S:real;
begin
write ('введите a ');
Readln(a);
write ('введите b ');
Readln(b);
write ('введите c ');
Readln(c);
p:=(a+ b+c)/2;
S:=SQRT(p*(p-c)*(p-a)*(p-b));
Writeln('результаты: ');
Writeln(' площадь S=', S:6:2);
End.
Program x1;
Var x,y :real;
Begin
read (x);
If (x<=2) and (1<=x) then y:=sqrt(exp(1/3 * ln(abs(x))))
else if((x>5) or (x<-2)) then y:=abs(exp(2/5*ln(abs(x)))) else y:=0 ;
Writeln (y);
End.
Program x2;
Var x,y: real;
Begin
read(x,y);
if (y<=0.5*x) and (y<=1)and (y<=x+4) and (y>=0) then Writeln(' prinadlegit ') else writeln (' ne prinadlegit');
Writeln ('x= ', x:4:1,' y= ', y:4:1);
End.
Program x3;
Var x,y: real;
Begin
read(x,y);
if (y<=x) and (y<=-x+2) and (y>=0) then Writeln(' prinadlegit ') else writeln (' ne prinadlegit');
Writeln ('x= ', x:4:1,' y= ', y:4:1);
End.
Program x4;
Var r,x,y : real;
Begin
r:=2;
writeln (r);
read(x,y);
if ((y<=1*x+2) and (y>=-1*x-2)and (SQR(x)+SQR(y)<=SQR(r))) then Writeln(' prinadlegit ') else writeln (' ne prinadlegit');
Writeln ('x= ', x:4:1,' y= ', y:4:1);
End.
Оператор ветвления (условная инструкция, условный оператор) — оператор, конструкция языка программирования, обеспечивающая выполнение определённой команды (набора команд) только при условии истинности некоторого логического выражения, либо выполнение одной из нескольких команд (наборов команд) в зависимости от значения некоторого выражения.