Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Приветствую, уважаемые эксперты!Не могли бы вы помочь с написанием программы:
Составить программу для вычисления u=min(a,b) , v=min(ab,a+b),min(u+b^2,3.14)) , где a и b - действительные числа.Нахождения минимума оформить как функцию.
И если можно то дать какие-либо рекомендации по написанию блок-схемы.
Заранее спасибо.

Вопрос задал: Денис-1606 (статус: Посетитель) Вопрос отправлен: 25 декабря 2007, 22:13 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: min@y™

C наступающим всех.

Цитата:

function Min(a, b: Extended): Extended;
begin
  if a < b
    then Result:= a
    else Result:= b;
end;

{ Составить программу для вычисления u=min(a,b) , v=min(ab,a+b),min(u+b^2,3.14)),
  где a и b - действительные числа.Нахождения минимума оформить как функцию.
  И если можно то дать какие-либо рекомендации по написанию блок-схемы.}
 
program q1227;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
function Min(a, b: Extended): Extended;
begin
  if a < b
    then Result:= a
    else Result:= b;
end;
 
var
  a, b, u, v: Extended;
 
begin
  Write('  Enter the "a" value: ');
  ReadLn(a);
  Write('  Enter the "b" value: ');
  ReadLn(b);
 
  u:= Min(a, b);
  v:= Min(Min(a * b, a + b), Min(u + b * b, pi));
 
  WriteLn(#13#10'  Results: '#13#10'    u = ', u: 3: 6, #13#10'    v = ', v: 3: 6);
  ReadLn;
end.

  Enter the "a" value: 0.5

  Enter the "b" value: -1.2



  Results:

    u = -1.200000

    v = -0.700000

Цитата:

Ответ отправил: min@y™ (статус: Доктор наук) Время отправки: 26 декабря 2007, 08:42 Оценка за ответ: 5

Мини-форум вопроса

Денис-1606 (статус: Посетитель), 25 декабря 2007, 22:14 [#1]: Просто дело идет к сессии и есть большие проблемы с инорматикой...

Денис-1606 (статус: Посетитель), 28 декабря 2007, 22:17 [#2]: Спасибо большое...но есть одна проблема...я не мог использовать текст программы...не смог сделать программу...не могли бы вы приложить программу?Если ответ положителен то буду премного благодарен

min@y™ (статус: Доктор наук), 29 декабря 2007, 08:13 [#3]: Давай e-mail, скину. Ctrl+C/Ctrl+V уже отменили? Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

Денис-1606 (статус: Посетитель), 29 декабря 2007, 22:42 [#4]: pepsi-drink@mail.ru...да не отменили я так делал не работает)спасибо огромное)

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.