1. реляциялық мәліметтер қорын не үшін excel-де құрады? 2. кесте тақырыбы мен арасында бос жол қалдыруға болады ма? excel-де бос жолды қалай өшіруге болады? 3. мәліметтер қорының өрісінде қандай мәлімет типтерін қолдануға болады? 4. кесте жазбасыз болуы мүмкін бе? 5. excel электрондық кестесінде ондық белгілер санын қалай үлкейтуге немесе кішірейтуге болады? 6. өріс атауын екі жолға қою үшін не істеу керек? 7. мәліметтер формасы не үшін қолданылады? 8. мәліметтер формасында қалай қосып, өзгертуге болады? 9. мәліметтер формасындағы қалай өшіруге болады?
Ответы
Const n = 5;
m = 5;
var a:array[1..n,1..m] of integer;
i,j,s:integer;
begin
//Для теста заполним массив сл.числами
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(21)-10; write(a[i,j]:4);
end;
writeln;writeln;
end;
//сумма всех элементов массива
for i:=1 to n do
for j:=1 to m do s:=s+a[i,j];
writeln('сумма всех элементов массива: ',s);
//сумма каждой строки
for i:=1 to n do begin
s:=0;
for j:=1 to m do begin
s:=s+a[i,j];
end;
writeln ('Строка: ',i,' сумма:',s);
end;
end.
m = 5;
var a:array[1..n,1..m] of integer;
i,j,s:integer;
begin
//Для теста заполним массив сл.числами
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(21)-10; write(a[i,j]:4);
end;
writeln;writeln;
end;
//сумма всех элементов массива
for i:=1 to n do
for j:=1 to m do s:=s+a[i,j];
writeln('сумма всех элементов массива: ',s);
//сумма каждой строки
for i:=1 to n do begin
s:=0;
for j:=1 to m do begin
s:=s+a[i,j];
end;
writeln ('Строка: ',i,' сумма:',s);
end;
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Три девочки роза маргарита и анюта представили на конкурс цветоводов
Автор: victoria-112296363
Решить две . python, програмирование.
Автор: magazintrofey
Желательно расписать все, т.к. нужно будет все объяснять
Автор: vetviptime
//c циклом for
var s,i:integer;
begin
for i:=100 to 999 do
if i mod 77 = 0 then s:=s+i;
writeln('Сумма трехзначных кратных 77: ',s);
end.
Тестовое решение:
Сумма трехзначных кратных 77: 5929
// с циклом while
var s,i:integer;
begin
i:=100;
while i<=999 do begin
if i mod 77 = 0 then s:=s+i;
i:=i+1;
end;
writeln('Сумма трехзначных кратных 77: ',s);
end.