Форма работы: Проектная работа.

Тема: Создание базы данных.

Продолжительность – 2 урока.

Задание:

1.Создать в программе MAccessбазу данных «Моя семья», в которой должно быть не менее 7 записей и 5 разных типов полей.

2. Создать форму для данной БД.

3.Создать 3 за Все файлыодним письмом (названия файлов должны быть: Моя семья, Форма, За За За

program raf105;

const

 n = 9;

var

 a,b1,b2:array[1..n] of integer;

 k,i,j,c1,c2:integer;

begin

write('Введите число k: ');

readln(k);

writeln('Заполните массив:');

for i:=1 to n do

 readln(a[i]);

for i:=1 to n do

begin

 if a[i] > k

   then begin

     c1:= c1 + 1;

     b1[c1]:= a[i];

   end;

 if a[i] < k

   then begin

     c2:= c2 + 1;

     b2[c2]:= a[i];

   end;

end;

for i:=1 to c1 do

 a[i]:=b1[i];

for i:=c1+1 to c2+c1 do

 a[i]:=b2[i-c1];

write('Вывод: ');

for i:=1 to n do

 write(a[i],' ');

end.

Ну, площадь круга, допустим, вычисляется по формуле

S = pi*R^2.

Ну а кольца из большего круга вычитаем меньший, получим

Sk = pi*(R1^2 - R2^2)

Вот собственно и всё.

Программы тут и нет, так, пара операторов, например

Пи=3,141592653;

Ввод(R1,R2);

S = Пи*ABS(R1*R1-R2*R2);

Сообщить(R1,R2,S);

Замечание1. Модуль (ABS) обязателен, для снятия ограничений на порядок ввода радиусов. При таком подходе порядок(больший-меньший или наоборот) роли НЕ ИГРАЕТ!

Замечание2 Написано некоем псевдоязыке, с которого легко переведёшь на тот, которым владеешь.