Решить в Python-е 1)В области 12 районов. Известны количество жителей (в тысячах человек) и площадь (в км2) каждого района. Определить среднюю плотность населения по области в целом. Решить задачу используя циклическую конструкцию for.
2) Мой богатый дедушка подарил мой первый день рождения. Каждый день рождения Анны воевал свой подарок столько долларов, сколько лет мне исполнилось. Написать программу, указывающие, какому дню рождения подарок превысит 100$.
Текстовые редакторы.
Microsoft Word многим обязан Bravo – текстовому редактору с оригинальным графическим интерфейсом, разработанному в исследовательском центре “Xerox PARC”. Создатель Bravo Чарльз Симони (Charles Simonyi) покинул PARC в 1981 году. Тем же летом Симони переманил Броди, с которым вместе работал над Bravo.
Первый выпуск Word для MS-DOS состоялся в конце 1983 года. Он был плохо принят рынком , продажи снижало наличие конкурирующего продукта – Word Perfect.
Однако версия для “макинтоша”, выпущенная в 1985 году, получила широкое распространение. Через два года “Word 3.01 для Macitnosh” усилил позиции (версия 3.0 изобиловала ошибками и быстро была заменена). Как и прочее программное обеспечение для “макинтоша”, Word был полностью WYSIWYG – редактором (принцип “What You See Is What You Get” – “получаешь то, что видишь”).
Хотя MS-DOS и являлась текстовой операционной системой, лишённой графической оболочки, Word для DOS был первым текстовым процессором для IBM PC, который был отражать разметку текста, например, полужирный или курсивный текст в процессе редактирования. Однако он всё же не является в полном смысле WYSIWYG – редактором. Другие же текстовые процессоры, такие как WordStar и WordPerfect, использовали простой текстовый экран с кодами разметки, иногда текст был цветным.
Объяснение:
это первое задание, я его сама только сделала, чем могла, тем
const
nn=30;
mm=30;
var
a:array[1..mm,1..nn] of integer;
m,n,i,j,imax,imin,jmax,jmin:integer;
begin
Writeln('Введите число строк и столбцов массива: '); Read(m,n);
Randomize;
Writeln('*** Исходный массив ***');
imin:=1; jmin:=1; imax:=1; jmax:=1;
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=Random(51)-25;
Write(a[i,j]:4);
if a[i,j] mod 2 = 0 then begin
if a[i,j]<a[imin,jmin] then
begin imin:=i; jmin:=j end
else
if a[i,j]>a[imax,jmax] then
begin imax:=i; jmax:=j end
end
end;
Writeln
end;
Writeln('*** Результирующий массив ***');
for i:=1 to m do begin
for j:=1 to n do begin
if (i=imin) and (j=jmin) or (i=imax) and (j=jmax) then a[i,j]:=2*a[i,j]
else a[i,j]:=3*a[i,j];
Write(a[i,j]:4)
end;
Writeln
end
end.
Тестовое решение:
Введите число строк и столбцов массива:
10 8
*** Исходный массив ***
-18 9 23 -18 -3 12 4 -22
16 -24 7 -1 11 5 21 -25
20 -11 14 -13 13 -21 13 -2
-20 2 10 -19 -4 5 -7 -21
16 17 -11 1 2 -18 21 0
-2 -10 -6 3 25 16 5 -9
-12 9 7 -21 22 -1 -25 -23
22 0 -24 21 -23 -3 7 -15
8 3 8 20 -10 -5 -2 13
-6 -12 15 -3 11 -16 -1 -10
*** Результирующий массив ***
-54 27 69 -54 -9 36 12 -66
48 -48 21 -3 33 15 63 -75
60 -33 42 -39 39 -63 39 -6
-60 6 30 -57 -12 15 -21 -63
48 51 -33 3 6 -54 63 0
-6 -30 -18 9 75 48 15 -27
-36 27 21 -63 44 -3 -75 -69
66 0 -72 63 -69 -9 21 -45
24 9 24 60 -30 -15 -6 39
-18 -36 45 -9 33 -48 -3 -30