В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История

За якою формулою обчислюється сума, яку вкладник отримає через рік, вклавши х гривень під/? відсотків річних без капіталізац

Показать ответ
Ответ:
МаминаГадость12
МаминаГадость12
17.04.2022 07:40

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.


сделать хотя бы одну задачку на delphi
0,0(0 оценок)
Ответ:
moroshan77
moroshan77
16.05.2020 18:54

Как нетрудно было догадаться, основной причиной такого выбора стало то, что эта профессия мне по душе. Программист, в определённом смысле, – очень творческий человек. Ему необходимо быстро находить правильное и кратчайшее решение, находить и исправлять допущенные ошибки. Кроме того, создатели программного обеспечения для персональных компьютеров, планшетов, сотовых телефонов и прочих устройств, без которых жизнь современного человека не имеет смысла, должны сделать свою продукцию не только правильно работающей, но и привлекательной для пользователя. Для этого нужно быть действительно заинтересованным в своей профессии.

Но не только мой интерес к программированию побудил меня сделать такой выбор. Вот несколько фактов, которые практически окончательно убедили меня, что мне подходит эта профессия.

Во-первых, программист никогда не останется без работы. Круг его деятельности невообразимо широк. Он нужен везде, на любом современном производстве. Это может быть производство ёлочных гирлянд, компьютерных игр и программ, станков, электронных приборов, автомобилей или даже космических кораблей. С таким выбором нельзя остаться не у дел.

Во-вторых, у программистов достойная заработная плата. Главная причина такого расклада – высокая востребованность представителей данной профессии на производстве, поэтому конкуренция работодателей в плане их привлечения весьма велика. Также причиной высокой оплаты труда программиста является то, что продукция, в производстве которой он задействован, даёт большую прибыль: она либо массово покупается, либо дорого стоит, либо и то и другое сразу.

Как видите, выбор моей будущей профессии основан не на каких-нибудь пустяках, а на реальной в ней заинтересованности. Но  всё  равно  главное – это чтобы работа была тебе по душе. Ведь мы на работе проводим большую часть своего времени!:

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота