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

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

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

DNK
I. DNK
Баллы: 5

Подробнее »



Вопрос # 1 227

/ вопрос открыт /

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

Денис-1606 Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Денис-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;

Проблема: не понятно условие v=min(ab,a+b),min(u+b^2,3.14)). Предположим, что на самом деле оноо выглядит так: v=min(min(ab,a+b),min(u+b^2,3.14)). Тогда программа будет такая:

{ Составить программу для вычисления 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


Цитата:

И если можно то дать какие-либо рекомендации по написанию блок-схемы.


Блок-схемы очень удобно рисовать в Visio.
Поскольку у меня с утра хорошее настроение, что и схему я тебе нарисовал и прицепил к ответу. :))

З.Ы. Удачи на сессии. Сам студентом был когда-то, помню, что это такое...
К ответу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки ответа)

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


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

Всего сообщений: 4; последнее сообщение — 29 декабря 2007, 22:42; участников в обсуждении: 2.
Денис-1606

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

Просто дело идет к сессии и есть большие проблемы с инорматикой...
Денис-1606

Денис-1606 (статус: Посетитель), 28 декабря 2007, 22:17 [#2]:

Спасибо большое...но есть одна проблема...я не мог использовать текст программы...не смог сделать программу...не могли бы вы приложить программу?Если ответ положителен то буду премного благодарен:)
min@y™

min@y™ (статус: Доктор наук), 29 декабря 2007, 08:13 [#3]:

Давай e-mail, скину.
Ctrl+C/Ctrl+V уже отменили?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
Денис-1606

Денис-1606 (статус: Посетитель), 29 декабря 2007, 22:42 [#4]:

pepsi-drink@mail.ru...да не отменили я так делал не работает)спасибо огромное)

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

Версия движка: 2.6+ (26.01.2011)
Текущее время: 21 августа 2017, 13:03
Выполнено за 0.05 сек.
Рейтинг@Mail.ru