|
Вопрос # 5 826/ вопрос открыт / |
|
Приветствую, уважаемые эксперты! Поможете?...Надеюсь на это...=)
Задача в дельфи. (составить программу)
Заданы три вещественных числа . Наибольшее из этих чисел заменить их по-лусуммой, а наименьшее - средним геометрическим этих чисел.
 |
Вопрос задала: dashenka (статус: Посетитель)
Вопрос отправлен: 19 декабря 2011, 01:28
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 3; последнее сообщение — 19 декабря 2011, 13:18; участников в обсуждении: 2.
|
min@y™ (статус: Доктор наук), 19 декабря 2011, 10:14 [#1]:
Ну, в первом приближении как-то так:
program p5826;
{$APPTYPE CONSOLE}
uses
SysUtils, Math;
var
Values: array[0..2] of Double;
SS, AG, vMin, vMax: Double;
Index, MinIndex, MaxIndex: Integer;
procedure WriteValues;
var
Index: Integer;
begin
for Index:= 0 to 2 do
WriteLn(Values[Index]: 3: 3);
WriteLn;
end;
begin
// заполнение массива случайными числами
for Index:= 0 to 2 do
Values[Index]:= Random * 10 + 1;
WriteValues();
SS:= (Values[0] + Values[1] + Values[2]) / 2; // полусумма
AG:= Power(Values[0] * Values[1] * Values[2], 1/3); // ср. геометрическое
WriteLn(' SS = ', SS: 3: 3, '; AG = ', AG: 3: 3, #13#10);
// поиск максимального и минимального числа
vMin:= Values[0];
vMax:= Values[0];
MinIndex:= 0;
MaxIndex:= 0;
for Index:= 1 to 2 do
begin
if Values[Index] < vMin
then begin
vMin:= Values[Index];
MinIndex:= Index;
end;
if Values[Index] > vMax
then begin
vMax:= Values[Index];
MaxIndex:= Index;
end;
end;
// замена наибольшего полусуммой, а наименьшего - средним геометрическим.
Values[MaxIndex]:= SS;
Values[MinIndex]:= AG;
WriteValues();
ReadLn;
end.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 19 декабря 2011, 13:04 [#2]:
Цитата (dashenka):
Безмерно благодарна ... вы спасли студенческую жизнь =))
А поцеловать? 
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
dashenka (статус: Посетитель), 19 декабря 2011, 13:18 [#3]:
=********
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
