*
7000р
работа «суб)» в-8
1.. (в субдсравниваются символьные величины по внутренним . используя это правило,
установите отношение между записямн на языке: athlete ? а
(вста) 13! » между этніми записями проrіущенный знак отношений > < > - < -- -
2. угажне сколько и какие поля будут исловыми в данной таблице:
«. иму разрул дата названне зарплата
рождення предмета
c11; 17рова мария 12 15.05.1950 . 1р
снмонов іван
| 14.07.1965 биология 7000р
петренко василий 1 і 23.04.1972
петренко виктор 11 23.04.1972 астрономия 7000р
bačн; 1ьев владимир 9 01.01.1982 физкультура 8000р.
3. укажите сколько записей в таблице из № 2.
4. у қ: жите в таблице из № 2, какое rіоле является ключевым и почему?
5. какие з (си в таблице из № 2 удовлетворяют запросу: разряд-11 и фамилия > п
записи в таблице из № 2 удовлетворянот запросу: фамилия: с* и зарплата = і-
7000р
7. kдкой нз двух запросов является сложным? объясните свой выбор.
1) фамилия - fa
2) разря: ll> : 1);
8. j: јбица бд содержит поля: код работника, фамилия, имя, фото, должность, зарплата, дата
прим: ін: 1 работу. (определить тип каждого поля.
тилия
Выполнить , связанные с turbo pascal: 1) какой оператор позволяет менять значения переменных и вычислять значения выражений? 2) выполнить алгоритм при x=345: начало ввод x a=x div 100 b=x div 10 mod 10 c=(a+b)/2 вывод a вывод b вывод c конец 3)
что появится на экране после выполнения фрагмента программы: a: =7; b: =5; a: =a-b; writeln(b-a*2); writeln('a=',a,'b=',b); 4) дана сторона квадрата, найти его периметр. 5) дано трёхзначное число. в нём зачеркнули последнюю справа цифру и
приписали её в начале. найти полученное число. * 4 и 5 решить на языке программирования, используя функции.
var x: array[1..nx, 1..nx] of integer;z:array[1..nx*2] of integer;
i, j, k,n,r,t: integer;
begin
Writeln('Введите размер матрицы n');Read(n);
for i := 1 to n do begin
for j := 1 to n do begin
Read(k);x[i, j] := k; end;end;
Writeln('Исходный массив');
for i := 1 to n do begin
for j := 1 to n do begin
Write(x[i, j]:4);
if x[i, j]>0 then begin t:=t+1; z[t]:=x[i, j];end;
end;
Writeln; end;
Writeln;Writeln('Одномерный массив');
for j := 1 to t do
Write(z[j]:4);
end.