Здравствуйте! В этом сочинении я расскажу, почему хочу поступить на факультет информатики.
Как нетрудно было догадаться, основной причиной такого выбора стало то, что мое будущее я планирую связать с программированием. Еще со школы я решил, что хочу работать в этой сфере.
Вот несколько фактов, которые практически окончательно убедили меня, что это профессия мне подходит.
Во-первых, программист никогда не останется без работы. Круг его деятельности невообразимо широк. Он нужен везде, на любом современном производстве.
Во-вторых, у программистов достойная заработная плата. Главная причина такого расклада - высокая востребованность представителей данной профессии на производстве. Также, причиной высокой оплаты труда программиста является то, что продукция, в которой он заинтересован, дает большую прибыль: она либо массово покупается, либо дорого стоит, либо и то и другое сразу.
Как видите, мой выбор основан не на каких то пустяках, а на реальной заинтересованности в ней. Ведь - главное, это чтобы работа была тебе по душе!
// PascalABC.Net 3.0, сборка 1064 // "Классическое" решение const nn=20;
type SqMatrix=array[1..nn,1..nn] of integer;
function AvgRow(row,cols:integer; a:SqMatrix):double; var j,s:integer; begin s:=0; for j:=1 to cols do s:=s+a[row,j]; AvgRow:=s/cols end;
var i,j,n,k:integer; cavg:double; M:SqMatrix;
begin Write('Количество строк (столбцов) в матрице: '); Read(n); Write('Ограничение для среднего арифметического: '); Read(cavg); Randomize; // Инициализация и вывод исходной матрицы Writeln('*** Сгенерированная матрица ***'); for i:=1 to n do begin for j:=1 to n do begin M[i,j]:=Random(51)-20; Write(M[i,j]:4) end; Writeln end; // Собственно, решение задачи k:=0; for i:=1 to n do if AvgRow(i,n,M)<cavg then Inc(k); Writeln('Количество отобранных строк равно ',k) end.
Второе решение дано для демонстрации возможностей современного Паскаля. Оно не подходит в качестве ответа в той части, что не использует отдельную функцию для нахождения среднего. По лаконичности записи оно вполне может соперничать с постепенно набирающим популярность языком, как Python
// PascalABC.Net 3.0, сборка 1064 // Решение, использующее возможности версии 3.0
var n: integer; cavg: double; M: array of array of integer;
begin Write('Количество строк (столбцов) в матрице: '); Read(n); Write('Ограничение для среднего арифметического: '); Read(cavg); // Инициализация и вывод исходной матрицы Writeln('*** Сгенерированная матрица ***'); SetLength(M, n); for var i := 0 to n - 1 do begin M[i] := ArrRandom(n, -25, 25); M[i].Println end; // Собственно, решение задачи var k:=M.Select(x->x.Average < cavg).Count(x->x=True); Writeln('Количество отобранных строк равно ', k) end.
Объяснение:
Примеров не было, так что под них сам доделай
for i in range(16):
if i:
print((i ** 0.5 - 2) / i ** 2)
else:
print("На ноль не делится")