3) Укажите правильную последовательность действий при работе с базами данных (составить последовательность из букв): c. Продумать структуру базы данных b. Дать имя каждому полю в базе данных a. Занести данные в таблицу d. Осуществить сортировку записей в базе данных
4) Сортировка – это: c) расположение записей в определённом порядке
5) Примером базы данных может служить: c) Телефонная книга
6) В каком из перечисленных типов полей, данные могут выглядеть таким образом: 01. 07. 85? d) В поле дата/время
7) Какая из перечисленных баз данных имеет представленный ниже вид: № фамилия имя класс физика история 1. Горин Петя 10 а 4 5 2. Петров Юра 10 б 3 4 3. Васильева Катя 11 а 5 5 4. Петрова Юля 11 а 4 4 d) Табличная
8) Сколько полей в представленной выше базе данных? d) 6
9) БД содержит информацию об учениках компью¬терной школы: имя; номер группы; за тест; за задание; общее количество . Какого типа должно быть поле «Общее количество бал¬лов»? c) числовое;
10) БД содержит информацию о каждой собаке из клуба соба¬ководства: кличка, порода, дата рождения, пол, количестве медалей. Какого типа должны быть поля? b) текстовое, текстовое, дата, текстовое, числовое;
11) Для отбора записей об учащихся, которые имеют по физике оценку «3» , а по истории не ниже «4» , нужно задать условие отбора по столбцам «физика» и «история» соответственно: c) = 3 и >=4
12) Для выбора текстовых значений, начинающихся на букву « К » и состоящих из 4 символов, нужно задать условие отбора: c) К???
begin readln(n); g:=n; while n<>0 do begin g:= g div 10; k +=1; end;
for i:=1 to k do begin g:= n mod 10; sum:= sum + g; n:=n div 10; end; if sum> 10 then writeln('верно') else ('неверно'); end.
2. var n,i,k,p,h,g:integer;
begin readln(n); g:=n; while n<>0 do begin g:= g div 10; k +=1; end; p:=n mod 10; n:=n div 10; for i:=1 to k-1do begin g:= n mod 10; if g = p then h += 1; n:=n div 10; end; writeln(h); end.
3. const n=10; var
a:array[1..n]of integer; i,sum:integer;
begin a[n]:=0; for i:=1 to 9 do readln(a[i]);
for i:=1 to n do sum:=sum+a[i]; writeln(sum); end.
4. var
n:integer;
begin
readln(n);
while n<>0 do begin n:=n div 10; k += 1; end; if k = 4 then writeln('число четырехзначное') else writeln('число не четырехзначное'); end.
5. var
a:array[1..10]of integer; i:byte;
begin
for i:=1 to 10 do readln(a[i]);
for i:=1 to 10 do begin if a[i] = 2 then writeln('да есть'); break; end; end.