[Tochca]

Уважаемые программеры! Я бедная студентка ни фига не втыкающая в программирование- результат,завал на парах...Помогите пожалуйста написать две проги...

1.Напишите программу,которая вычисляет доход по вкладу.Расчёт простых и сложных процентов.Простые проценты начисляются в конце вклада,сложные-ежемесячно и прибавляются и первоначальной сумме вклада и в следующем месяце проценты начисляются на новую сумму.
2.Анализ значений температуры большого за сутки:min и max значение,среднее арифметическое. замеры температуры проводятся 6 раз и результаты вводятся с клавы в массив X.

Заранее спасибо тем, кто хоть как-то мне поможет

[Aristarh Dark]

Тут два варианта, или в "Работа" или в бан.

[Admin]

Сообщение от Aristarh Dark

Тут два варианта, или в "Работа" или в бан.

В мемориз!

ПС. Перенес в раздел "Работа...".

[Страдалецъ]

С клавы вводить утомительно и неинтересно. Так интереснее:

Код:

program Exmple;
{$APPTYPE CONSOLE}
uses
  SysUtils;

Const
  LowBodyTemperature = 36;
  HighBodyTemperature = 42;
  ProbeFrequency = 6;

Var
  BodyTemperature,Min,Max,Avg: Real;
  Probe: Integer;
begin
 Randomize;
 Min := HighBodyTemperature;
 Max := LowBodyTemperature;
 Avg := 0;
 WriteLn('Start experiment...');
 for Probe := 0 to ProbeFrequency - 1
 do begin
    BodyTemperature := LowBodyTemperature + Random(HighBodyTemperature*10-LowBodyTemperature*10)/10;
    WriteLn(Format('+%4.2fh Body temperature: %3.1f',[Probe * (24 / ProbeFrequency),BodyTemperature]));
    if Min > BodyTemperature then Min := BodyTemperature;
    if Max < BodyTemperature then Max := BodyTemperature;
    Avg := Avg + BodyTemperature;
    end;
 WriteLn('Min:',Min:3:1,' Max:',Max:3:1,' Avg:',Avg/ProbeFrequency:3:1);
 ReadLn;
end.

[lmikle]

Тебе же написали - надо вводить в массив.
На самом деле все очень просто.

Первая задача:

Код:

function SimplePerCent(ASum, APerCent : Extendent; AMonths : Integer) : Extendent;
begin
  Result := ASum * (1 + APerCent * AMonths / 12);
end;

function ComplexPerCent(ASum, APerCent : Extendent; AMonths : Integer) : Extendent;
var
  I : Integer;
begin
  Result := ASum;
  For I := 1 To AMonths Do
    Result := SimplePerCent(Result,APerCent,1);
end;

где:
- ASum - начальная сумма
- PerCent - ставка в годовых %%, деленная на 100% (т.е. 1% = 0.01)
- AMonths - срок в месяцах.
Функции вычисляют сумму для простого и сложного %% соответсвенно.

Вторая задача.
Фактически нужны 2 функции - ввод данных и вывод результата. Пусть тоже будет консольное приложение:

Код:

program Temps;

{$APPTYPE CONSOLE}

uses
  Windows, SysUtils, Classes;

var
  T : Array [1..6] Of Extended;

procedure InputData;
var
  I : Integer;
begin
  WriteLn('Введите значения температур:');
  For I := 1 To 6 Do
    Begin
       Write('Замер ' + IntToStr(I) + ': ');
       ReadLn(T[i]);
    End;
end;

procedure ProcessData;
var
  I : Integer;
  tMin, tMax, tAvg : Extendent;
begin
  tMin := 100;
  tMax := -1;
  tAvg := 0;
  For I := 1 To 6 Do
    Begin
      If tMin > T[i] Then tMin := T[i];
      If tMax < T[i] Then tMax := T[i];
      tAvg := tAvg + T[i];
    End;
  tAvg := tAvg / 6;

  WriteLn('Минимальная температура: ' + FloatToStr(tMin));
  WriteLn('Максимальная температура: ' + FloatToStr(tMax));
  WriteLn('Средняя температура: ' + FloatToStr(tAvg));

  WriteLn;
  Write('Press Enter to close...');
  ReadLn;
end;

begin
  InputData;
  ProcessData;
end.

[Страдалецъ]

Тебе же написали - надо вводить в массив.

А я и не говорил, что будет сплошная халява - соображалку тоже надо включать.

[Tochca]

если честно, не поняла за что в бан Сори....
Спасибо всем, кто пытается помочь...для вас это скорее всего легко,но для меня...ну не шарю я в этом(((( А зачёт сдавать надо, тем более я 5й курс....