Как нетрудно было догадаться, основной причиной такого выбора стало то, что эта профессия мне по душе. Программист, в определённом смысле, – очень творческий человек. Ему необходимо быстро находить правильное и кратчайшее решение, находить и исправлять допущенные ошибки. Кроме того, создатели программного обеспечения для персональных компьютеров, планшетов, сотовых телефонов и прочих устройств, без которых жизнь современного человека не имеет смысла, должны сделать свою продукцию не только правильно работающей, но и привлекательной для пользователя. Для этого нужно быть действительно заинтересованным в своей профессии.
Но не только мой интерес к программированию побудил меня сделать такой выбор. Вот несколько фактов, которые практически окончательно убедили меня, что мне подходит эта профессия.
Во-первых, программист никогда не останется без работы. Круг его деятельности невообразимо широк. Он нужен везде, на любом современном производстве. Это может быть производство ёлочных гирлянд, компьютерных игр и программ, станков, электронных приборов, автомобилей или даже космических кораблей. С таким выбором нельзя остаться не у дел.
Во-вторых, у программистов достойная заработная плата. Главная причина такого расклада – высокая востребованность представителей данной профессии на производстве, поэтому конкуренция работодателей в плане их привлечения весьма велика. Также причиной высокой оплаты труда программиста является то, что продукция, в производстве которой он задействован, даёт большую прибыль: она либо массово покупается, либо дорого стоит, либо и то и другое сразу.
Как видите, выбор моей будущей профессии основан не на каких-нибудь пустяках, а на реальной в ней заинтересованности. Но всё равно главное – это чтобы работа была тебе по душе. Ведь мы на работе проводим большую часть своего времени!:
1.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Spin;
const
n = 4;
type
TFormT = class(TForm)
Button1: TButton;
Memo1: TMemo;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
b: array[0..n-1, 0..n-1] of integer;
procedure FillArray;
public
end;
var
FormT: TFormT;
implementation
{$R *.dfm}
{ TForm2 }
procedure TFormT.Button1Click(Sender: TObject);
begin
memo1.Clear;
Label1.Caption := '';
FillArray;
end;
procedure TFormT.FillArray;
var
i, j, S : Integer;
P : Longint;
st : string;
begin
randomize;
P:=1;
S:=0;
for i:=0 to n-1 do begin
st:='';
for j:=0 to n-1 do begin
b[i, j]:= 1+ Random(10);
st := st + format('%2d ',[b[i, j]]);
if b[i, j] mod 2 <> 0 then begin
P := P * b[i, j];
S := S + b[i, j];
end;
end;
Memo1.Lines.Add(st);
end;
Label1.Caption :='Произведение=' + inttostr(p) +' Сумма=' + inttostr(s);
end;
end.
