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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 04.04.2009, 00:09   #11
moto74
 
Регистрация: 03.04.2009
Сообщений: 7
По умолчанию

Как сделать???
moto74 вне форума Ответить с цитированием
Старый 04.04.2009, 00:10   #12
moto74
 
Регистрация: 03.04.2009
Сообщений: 7
По умолчанию

И как это сделать???
moto74 вне форума Ответить с цитированием
Старый 04.04.2009, 00:12   #13
alex_fcsm
Участник клуба
 
Аватар для alex_fcsm
 
Регистрация: 10.11.2008
Сообщений: 1,502
По умолчанию

Не плодите одинаковые посты.Кнопку Правка еще не отменили.
Цитата:
Как сделать???
В цикле заполнить массивы x y.
Нормальное состояние техники - нерабочее, все остальное частный случай.
alex_fcsm вне форума Ответить с цитированием
Старый 06.04.2009, 14:25   #14
Оксана_В
Пользователь
 
Аватар для Оксана_В
 
Регистрация: 06.04.2009
Сообщений: 12
По умолчанию Пожалуйста помогите решить задачу

пытаюсь разобраться, но не совсем понимаю, учусь на аочном. вот задача:
если сумма трех попарно дейсвительных чисел x,y,z меньше единицы, то наименьшее из трех этих чисел заменить полусуммой двух других; в противном случае заменить меньшее из x и y полусуммой двух оставшихся значений.
я нарисовала схему. только не знаю как ее здесь разместить. и вот мое решение , только тут чего то не хватает
S-сумма x,y,z
if s<1 then
if (z<x) and (z<y)
then z:=(x+y)/2
else y<x then
y:=(x+z)/2
else x:=(y+z)/2
Оксана_В вне форума Ответить с цитированием
Старый 06.04.2009, 14:35   #15
Sazary
В тени
Старожил
 
Аватар для Sazary
 
Регистрация: 19.12.2008
Сообщений: 5,788
По умолчанию

Оксана_В, не надо писать в чужие темы. Вам нужно было создать свою.

По задаче:
Код:
S := x+y+z;
if S<1 then
 begin
 if (x<y) and (x<z) then x := (y+z)/2
 else if (y<x) and (y<z) then y := (x+z)/2
 else if (z<x) and (z<y) then z := (x+y)/2;
 end;
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем.

___________________________________ ___________________________________ _______
[=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль]
Sazary вне форума Ответить с цитированием
Старый 06.04.2009, 16:41   #16
Оксана_В
Пользователь
 
Аватар для Оксана_В
 
Регистрация: 06.04.2009
Сообщений: 12
По умолчанию

большое спасибо за помощь, только я немного не поняла, когда S>1 этого решения достаточно чтобы выполнялось условие?
Оксана_В вне форума Ответить с цитированием
Старый 06.04.2009, 16:48   #17
Sazary
В тени
Старожил
 
Аватар для Sazary
 
Регистрация: 19.12.2008
Сообщений: 5,788
По умолчанию

Оксана_В, пардон.. Сейчас исправлю )

Вот так будет:
Код:
S := x+y+z;
if S<1 then
 begin
 if (x<y) and (x<z) then x := (y+z)/2
 else if (y<x) and (y<z) then y := (x+z)/2
 else if (z<x) and (z<y) then z := (x+y)/2;
 end
else
 begin
 if x<y then x:=(y+z)/2
 else y := (x+z)/2;
 end;
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем.

___________________________________ ___________________________________ _______
[=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль]
Sazary вне форума Ответить с цитированием
Старый 06.04.2009, 17:13   #18
Оксана_В
Пользователь
 
Аватар для Оксана_В
 
Регистрация: 06.04.2009
Сообщений: 12
По умолчанию

большое спасибо!
Оксана_В вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Типы аргументов при перегрузке функций Arkuz Общие вопросы C/C++ 4 24.02.2009 01:16
Две задачки на матрицы и одна на сумму бесконечного сходящегося ряда... Кто сможет помочь? GorNikSar Паскаль, Turbo Pascal, PascalABC.NET 10 13.01.2009 04:59
Занесение Данных в таблицу при помощи Query Avalonix БД в Delphi 9 29.05.2008 20:13
как разбить таблицу при копировании StasSv Microsoft Office Excel 3 11.02.2008 10:23