Var maxi,maxj,i,j,max:integer; ma:array[1..n,1..m] of integer; begin randomize; max:=integer.MinValue; writeln('Matrix:'); for i:=1 to n do begin for j:=1 to m do begin ma[i,j]:=random(100); write(ma[i,j]:4); if (i=2) and (ma[i,j]>max) then begin max:=ma[i,j]; maxi:=i; maxj:=j; end; end; writeln; end; writeln('Max=',max); writeln('Строка:',maxi); writeln('Столбец:',maxj); end.
1. Как называется программа для создания и редактирования текста с расширенными возможностями? Смотря какие возможности вы считаете расширенными и по сравнению с чем а) MS WORD; б) WORD PAD;
2. Из каких основных элементов состоит окно программы текстового редактора MS WORD? А какая версия программы? а) строка заголовка и строка меню; б) панели инструментов; в) рабочее поле;
3. Какие используют для создания нового документа в текстовом редакторе MS WORD? б) команда главного меню ФАЙЛ – СОЗДАТЬ; в) кнопка на панели инструментов СОЗДАТЬ;
4. Какие используют для открытия документа в текстовом редакторе MS WORD? б) команда главного меню ФАЙЛ – ОТКРЫТЬ; в) кнопка на панели инструментов ОТКРЫТЬ;
5. Какие используют для сохранения документа в текстовом редакторе MS WORD? б) команда главного меню ФАЙЛ – СОХРАНИТЬ; в) кнопка на панели инструментов СОХРАНИТЬ;
6. Какие используют для удаления фрагмента текста в текстовом редакторе MS WORD? а) команда контекстного меню ВЫРЕЗАТЬ; б) команда главного меню ПРАВКА – ВЫРЕЗАТЬ; в) нажать кнопку DELETE на клавиатуре; д) кнопка на панели инструментов ВЫРЕЗАТЬ.
7. Какие используют для копирования фрагмента текста в текстовом редакторе MS WORD?: а) команда контекстного меню КОПИРОВАТЬ; б) команда главного меню ПРАВКА – КОПИРОВАТЬ; в) кнопка на панели инструментов КОПИРОВАТЬ;
8. Какие используют для вставки скопированного фрагмента текста в текстовом редакторе MS WORD? а) команда контекстного меню ВСТАВИТЬ; б) команда главного меню ПРАВКА – ВСТАВИТЬ; в) кнопка на панели инструментов ВСТАВИТЬ;
9. С каких вызвать окно диалога ШРИФТ в текстовом редакторе MS WORD? а) команда главного меню ФОРМАТ – ШРИФТ; в) кнопка на панели инструментов;
10. Какие параметры шрифта можно установить в окне ШРИФТ текстового редактора MS WORD? а) тип; ? б) размер; в) цвет; г) стиль (начертание);
11. Какое начертание текста можно установить в текстовом редакторе MS WORD. а) жирное; б) курсивное; в) подчеркнутое;
12. Какое выравнивание текста можно установить в текстовом редакторе MS WORD. а) по левому краю; б) по правому краю; в) по центру; г) по ширине страницы;
13. Какая есть ориентация у страницы в текстовом редакторе MS WORD? в) альбомная; г) книжная;
Квадратное алгебраическое уравнение имеет вид:ах^2 + bx + c = 0. (1)Здесь а, b и с – коэффициенты. Сначала надо вычислить дискриминант квадратного уравненияD = (b^2 – 4ac) (2)Если D > 0, то квадратное уравнение имеет два корня х1 и х2. Обозначим С = корень(D). То есть надо вычислить квадратный корень из D. Имеем такие решениях1 = (–b + C)/(2a) и x2 = (–b – C)/(2a). (3)Если дискриминант D = 0, то C = 0 и оба корня одинаковы Х1 = Х2 (хотя в школе обычно говорят, что имеется только одно решение) и вычисляются по формулеХ1 = Х2 = –b/(2a). (4). Эта формула следует из формулы (3) при С = D = 0.Если дискриминант D меньше нуля, то корень из D вычислить нельзя, С будет мнимым числом. Вообще говоря, корни есть (2 штуки), но они будут мнимыми числами. Хотя в школе учат, что в этом случае корней НЕТ. Так и будем считать, что корней нет.Алгоритм решения будет следующийНо только здесь дискриминант D обозначен малой буквой d
Const
n=3;
m=4;
Var
maxi,maxj,i,j,max:integer;
ma:array[1..n,1..m] of integer;
begin
randomize;
max:=integer.MinValue;
writeln('Matrix:');
for i:=1 to n do
begin
for j:=1 to m do
begin
ma[i,j]:=random(100);
write(ma[i,j]:4);
if (i=2) and (ma[i,j]>max) then
begin
max:=ma[i,j];
maxi:=i;
maxj:=j;
end;
end;
writeln;
end;
writeln('Max=',max);
writeln('Строка:',maxi);
writeln('Столбец:',maxj);
end.