uses graphabc;
var x,y,i,n,k,x0,y0: integer;
begin
setwindowsize(640, 480);
setpenwidth(3);
line(10, 240, 630, 240);
line(320, 10, 320, 470);
line(620, 235, 630, 240);
line(620, 245, 630, 240);
line(315, 20, 320, 10);
line(325, 20, 320, 10);
n: =10;
for i: =1 to 61 do begin
line(o+i*n, 243, o+i*n, 237);
end;
for i: =1 to 46 da begin
line(317,20 +i*n, 323,20+i*n);
end;
x0: =320;
y0: =240;
k: =50;
for x: =-320 to 320 do
begin
y: =truns(k*sin(x/k);
putpixel(x0+x, y0-y, clred);
end;
textout (50,40; grafic y=sinx');
end.
ССоздание новой пустой базы данных
1.В этой области из раздела Создание (New) выбрать элемент Новая база данных (Blank Database) (см. рис. 1.4). Появится диалоговое окно Файл новой базы данных (File New Database) с содержимым папки Мои документы .
2.В раскрывающемся списке Папка (Save in) открыть папку, в которой будет храниться создаваемая база данных, или выбрать папку одним из методов, описанных в разд. "Запуск Access и открытие баз данных" данной главы .
3,В поле ввода Имя файла (File name) указать имя создаваемого файла и нажать кнопку Создать (Create). По умолчанию Access присваивает новой базе данных имя dbl, а если база с именем dbl уже существует, то db2 и т. д. После нажатия кнопки появится окно новой базы данных