нужны имя полей и тип их данных, например уникальный ID это id = PRIMARY KEY
текст = text , не пустой текст = TEXT NOT NULL ,
числа = REAL,INT время = DATE и т.д
6. SELECT, FROM, GROUP BY, WHERE, ORDER BY, HAVING
7. SELECT - указывает , что извлекать из таблицы, так же может содержать агрегирующие функции и функции времени такие как EXTRACT, DATE_TRUNC
8. FROM - указывает из какой таблицы извлекать, так же можно указать подзапрос
9. WHERE - указывает какие условия нужны для извлечения , которые указаны в SELECT, не может сравнивать агрегирующие функции , для этого есть HAVING, также может содержать подзапрос
10. GROUP BY - групирует по .., HAVING - то же самое , что WHERE , только для агрегирующих функций
11. ORDER BY - использует методы ASC(по возрастанию значений) пример - имя_поле ASC, или DESC(по убыванию значений) - имя_поля DESC
Var N1:array[1..10] of integer; N2:array[1..15] of integer; R1:array[1..10] of integer; R2:array[1..15] of integer; min1, min2, max1, max2, i:integer; R1min, R2min, R1max, R2max:integer; begin min1:=500; min2:=500; max1:=0; max2:=0; randomize; for i:=1 to 10 do N1[i]:=random(900)+100; for i:=1 to 15 do N2[i]:=random(900)+100; for i:=1 to 10 do R1[i]:=random(500); for i:=1 to 15 do R2[i]:=random(500); for i:=1 to 10 do if R1[i]<min1 then begin min1:=R1[i]; R1min:=i; end else begin if R1[i]>max1 then begin max1:=R1[i]; R1max:=i; end; end; for i:=1 to 15 do if R2[i]<min2 then begin min2:=R2[i]; R2min:=i; end else begin if R2[i]>max2 then begin max2:=R2[i]; R2max:=i; end; end; writeln('v 1 taxoparke min ', N1[R1min]); writeln('vo 2 taxoparke min ', N2[R2min]); writeln('v 1 taxoparke max ', N1[R1max]); writeln('vo 2 taxoparke max ', N2[R2max]); write('N1 '); for i:=1 to 10 do write(N1[i], ' '); writeln; write('R1 '); for i:=1 to 10 do write(R1[i]:3, ' '); writeln; write('N2 '); for i:=1 to 15 do write(N2[i], ' '); writeln; write('R1 '); for i:=1 to 15 do write(N1[i]:3, ' '); writeln; end.
3. CREATE TABLE
нужны имя полей и тип их данных, например уникальный ID это id = PRIMARY KEY
текст = text , не пустой текст = TEXT NOT NULL ,
числа = REAL,INT время = DATE и т.д
6. SELECT, FROM, GROUP BY, WHERE, ORDER BY, HAVING
7. SELECT - указывает , что извлекать из таблицы, так же может содержать агрегирующие функции и функции времени такие как EXTRACT, DATE_TRUNC
8. FROM - указывает из какой таблицы извлекать, так же можно указать подзапрос
9. WHERE - указывает какие условия нужны для извлечения , которые указаны в SELECT, не может сравнивать агрегирующие функции , для этого есть HAVING, также может содержать подзапрос
10. GROUP BY - групирует по .., HAVING - то же самое , что WHERE , только для агрегирующих функций
11. ORDER BY - использует методы ASC(по возрастанию значений) пример - имя_поле ASC, или DESC(по убыванию значений) - имя_поля DESC
Объяснение:
Будут вопросы напиши в коменты(
N2:array[1..15] of integer;
R1:array[1..10] of integer;
R2:array[1..15] of integer;
min1, min2, max1, max2, i:integer;
R1min, R2min, R1max, R2max:integer;
begin
min1:=500;
min2:=500;
max1:=0;
max2:=0;
randomize;
for i:=1 to 10 do
N1[i]:=random(900)+100;
for i:=1 to 15 do
N2[i]:=random(900)+100;
for i:=1 to 10 do
R1[i]:=random(500);
for i:=1 to 15 do
R2[i]:=random(500);
for i:=1 to 10 do
if R1[i]<min1 then
begin
min1:=R1[i];
R1min:=i;
end else
begin
if R1[i]>max1 then
begin
max1:=R1[i];
R1max:=i;
end;
end;
for i:=1 to 15 do
if R2[i]<min2 then
begin
min2:=R2[i];
R2min:=i;
end else
begin
if R2[i]>max2 then
begin
max2:=R2[i];
R2max:=i;
end;
end;
writeln('v 1 taxoparke min ', N1[R1min]);
writeln('vo 2 taxoparke min ', N2[R2min]);
writeln('v 1 taxoparke max ', N1[R1max]);
writeln('vo 2 taxoparke max ', N2[R2max]);
write('N1 ');
for i:=1 to 10 do
write(N1[i], ' ');
writeln;
write('R1 ');
for i:=1 to 10 do
write(R1[i]:3, ' ');
writeln;
write('N2 ');
for i:=1 to 15 do
write(N2[i], ' ');
writeln;
write('R1 ');
for i:=1 to 15 do
write(N1[i]:3, ' ');
writeln;
end.