[Tochca]

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

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

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

[Aristarh Dark]

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

[Admin]

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

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

В мемориз!

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

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

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]

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

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 функции - ввод данных и вывод результата. Пусть тоже будет консольное приложение:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51

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й курс....