информатика
Жеке жұмыс
1. Деректер қорын жасаудағы мақсат не?
2. Деректер қорының қандай түрлері бар?
3. Иерархиялық ДҚ дегеніміз не?
4. Желілік ДҚ-ның басқалардан қандай ерекшелігі бар?
5. Реляциялық ДҚ дегеніміз не?
6. Ол қандай мақсатта қолданылады?
7. MS Access 2010 ДҚ-ның Құру (Создать) терезесінде қандай объектілер бар?
8. Құру (Создать) терезесінде орналасқан объектілердің қызметтерін сипатта.
9. Деректер қорымен жұмыс жасауда SQL тілінің маңызын бағалаңдар.
10.SQL тілі қандай деректерді өңдеу құралы болып табылады?
11. SQL тілінің теориялық негізі не болып табылады?
12. SQL тілінің қай операторы ДҚ ға қол жеткізуді басқарады?
13. SELECT, INSERT, DELETE, UPDATE операторларының қызметі не?
14. BETWEEN қандай қызмет
атқарады?
15. WHERE таңдау шарты қалай жұмыс істейді?
16. ORDER BY операторының қызметі не?
Длина стороны может быть определена как расстояние между соответствующими сторонами треугольника:
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
type
Point=record
x,y:real
end;
procedure GetPoint(c:char;var M:Point);
begin
Write('Введите координаты точки ',c,': ');
Read(M.x,M.y)
end;
function Dist(a,b:Point):=sqrt(sqr(b.x-a.x)+sqr(b.y-a.y));
begin
var A,B,C:Point;
GetPoint('A',A); GetPoint('B',B); GetPoint('C',C);
var ab:=Dist(A,B);
var bc:=Dist(B,C);
var ac:=Dist(A,C);
if (ab<bc+ac) and (bc<ab+ac) and (ac<ab+bc) then
Writeln('Треугольник существует')
else Writeln('Треугольник не существует')
end.
Тестовое решение:
Введите координаты точки A: -6.9 -5.3
Введите координаты точки B: 0 11.4
Введите координаты точки C: 9 3
Треугольник существует
Const
s=5;
Var
ar:array[1..s] of integer;
n,m,i:integer;
begin
writeln('N');
readln(n);
writeln('M');
readln(m);
writeln('Array:');
for i:=1 to s do
readln(ar[i]);
writeln('First array:');
for i:=1 to s do
begin
write(ar[i]:4);
if ar[i] div n<>0 then ar[i]:=ar[i]+m;
end;
writeln;
writeln('Final array:');
for i:=1 to s do
write(ar[i]:4);
end.
Пример ввода:
3
3
1
2
3
4
5
Пример вывода:
First array:
1 2 3 4 5
Final array:
1 2 6 7 8
//Блок-схема во вложении