Структура реляційної бази даних змінюється при:/ Структура реляционной базы данных изменяется при:
удалении любой
записи
удалении
любого поля
изменении любой
записи
удалении всех
записей
добавлени
и записи
Бази даних це: /Базы данных — это:
информационные модели,
позволяющие в
упорядоченном виде хранить
данные о группе объектов,
обладающих одинаковым
набором свойств
программные
средства,
позволяющие
организовывать
информацию в виде
таблиц
программны
е средства,
обрабатыва
ющие
табличные
данные
программные
средства,
осуществляющие
поиск информации
function gcd(a,b:integer):integer;
// Нахождение НОД
begin
while b<>0 do
begin
a:=a mod b;
var i:=b; b:=a; a:=i
end;
Result:=a
end;
procedure Shorter(var a,b:integer);
// "сокращатель" дроби
begin
var k:=gcd(a,b);
a:=a div k;
b:=b div k
end;
begin
var a,b:integer;
Writeln('Введите числитель и знаменатель дроби: ');
Read(a,b);
Write(a,'/',b,'='); Shorter(a,b); Writeln(a,'/',b)
end.
Тестовое решение:
Введите числитель и знаменатель дроби:
25 15
25/15=5/3
{ Нахождение НОД }
var
i: longint;
begin
while b <> 0 do
begin
a := a mod b;
i := b; b := a; a := i
end;
gcd := a
end;
procedure ShortFraction(var m,n:longint);
var
k:longint;
begin
k:=Gcd(m,n);
m:=m div k; n:=n div k
end;
var
a,b:longint;
begin
Write('Введите числитель и знаменатель дроби: '); Readln(a,b);
ShortFraction(a,b);
Writeln('Дробь после сокращения равна ',a,'/',b)
end.
Тестовое решение:
Введите числитель и знаменатель дроби: 25 15
Дробь после сокращения равна 5/3