Информация


Programm.ws - это сайт, на котором вы можете почитать литературу по языкам программирования, а так-же посмотреть примеры работающих программ на С++, ассемблере, паскале и много другого..

Программирование — в обычном понимании, это процесс создания компьютерных программ.
В узком смысле (так называемое кодирование) под программированием понимается написание инструкций — программ — на конкретном языке программирования (часто по уже имеющемуся алгоритму — плану, методу решения поставленной задачи). Соответственно, люди, которые этим занимаются, называются программистами (на профессиональном жаргоне — кодерами), а те, кто разрабатывает алгоритмы — алгоритмистами, специалистами предметной области, математиками.
В более широком смысле под программированием понимают весь спектр деятельности, связанный с созданием и поддержанием в рабочем состоянии программ — программного обеспечения ЭВМ. Более точен современный термин — «программная инженерия» (также иначе «инженерия ПО»). Сюда входят анализ и постановка задачи, проектирование программы, построение алгоритмов, разработка структур данных, написание текстов программ, отладка и тестирование программы (испытания программы), документирование, настройка (конфигурирование), доработка и сопровождение.

Общие замечания

11. Напишите программу, которая вычисляет доход по вкладу. Программа должна обеспечивать расчет простых и сложных процентов.

Простые проценты начисляются в конце срока вклада, сложные — ежемесячно и прибавляются к первоначальной сумме вклада и в следующем месяце проценты начисляются на новую сумму. Рекомендуемый вид формы программы приведен на рис. 1.8.

Рис. 1.8. Форма программы Доход по вкладу

// щелчок на кнопке Вычислить
procedure TForml.ButtonlClick(Sender: TObject);
var
sum : real; // сумма вклада pr: real;
// процентная ставка srok: integer;
// срок вклада dohod: real;
// доход по вкладу
buf: real; i: integer; begin
// получить исходные данные sum := StrToFloat(Editl.Text); pr : = StrToFloat(Edit2.Text); srok := StrToInt(Edit3.Text);
if RadioButtonl.Checked then
// выбран переключатель Простые проценты dohod := sum * (pr/100) * (srok/360)
else
//т. к. в группе два переключателя, то если
// не выбран RadioButtonl, то выбран
/7 RadioButton2 — Сложные проценты begin
buf:= sum;
for i:=l to srok do
buf:= buf + buf * (pr/100);
// здесь buf — сумма в конце срока вклада
dohod := buf — sum; end;
sum := sum + dohod;
Label4.Caption := 'Доход: ' + Float-ToStrF(dohod,ffGeneral,9,2) + #13 +
1 Сумма в конце срока вклада: ' +
FloatToStrF(sum, ffGeneral,9,2),
end;
// выбор переключателя Простые проценты
procedure TForml.RadioButtonlClick(Sender: TObject);
begin
Label2.Caption := 'Срок (дней)';
Label4.Caption := ";
end;
// выбор переключателя Сложные проценты
procedure TForml.RadioButton2Click(Sender: TObject),
begin
Label2.Caption := 'Срок (мес.)';
Label4.Caption := ''; end;