Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.05.2012, 12:40   #1
max_scotch
Пользователь
 
Регистрация: 11.05.2012
Сообщений: 11
Радость алгоритм присвоения минимального значения

Помоготе пожалуйста в решении данной задачи на Паскале.

Даны значения действительных переменных x, y, z. Составить алгоритм присвоения переменным x и z минимального из исходных значе-ний x, y, z. Переменную y оставить без изменения.
max_scotch вне форума Ответить с цитированием
Старый 11.05.2012, 13:08   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Код:
var x,y,z,Min : real;
begin
  Readln(x,y,z);
  
  {поиск минимального значения}
  Min := x;
  if y<Min then Min := y;
  if z<Min then Min := z;

  {присвоение x и z минимального значения}
  x := Min;
  z := Min;

  WriteLn('x=',x:1:5,' y=',y:1:5,' z=',z:1:5);
  Readln
end.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 11.05.2012, 13:12   #3
max_scotch
Пользователь
 
Регистрация: 11.05.2012
Сообщений: 11
По умолчанию

Serge_Bliznykov спасибо Вам
max_scotch вне форума Ответить с цитированием
Старый 11.05.2012, 19:25   #4
s-andriano
Старожил
 
Аватар для s-andriano
 
Регистрация: 08.04.2012
Сообщений: 3,229
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
Код:
var x,y,z,Min : real;
...
А зачем лишние операции?
Код:
var x,y,z : real;
begin
  Readln(x,y,z);
  
  {поиск минимального значения и помещение его в x}
  if y<x then x := y;
  if z<x then x := z;

  {присвоение z минимального значения}
  z := x;

  WriteLn('x=',x:1:5,' y=',y:1:5,' z=',z:1:5);
  Readln
end.
s-andriano вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
функция для вычисления минимального значения Sweet-_-Orange Помощь студентам 3 13.02.2012 15:28
последовательность присвоения значения переменным Maincore Общие вопросы Delphi 2 06.02.2012 13:10
условие минимального значения у bigildar Помощь студентам 2 13.11.2011 17:47
строка минимального значения в столбце peq Microsoft Office Excel 2 19.08.2011 11:24
Pascal вывод минимального значения Biggie Smalls Помощь студентам 11 22.12.2010 00:48