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

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

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

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 04.01.2014, 09:47   #1
vladimir412
Пользователь
 
Регистрация: 04.01.2014
Сообщений: 18
По умолчанию помогите пожалйста.

по заданному значению x,y вычислить

Z= max(x+y,x*y/2),x≤0
min((x*y)1/2,x+y/2),x>0
vladimir412 вне форума
Старый 04.01.2014, 11:08   #2
CYBERISLAM
 
Регистрация: 03.01.2014
Сообщений: 9
По умолчанию

Код:
begin
writeln("X,Y=?");
readln (x,y);
if x<=0 then begin
s:=x+y;
p:=x*y/2;
if s>p then z:=s else z:=p;
end;
if x>0 then begin
p:=x*y/2;
s:=x+y/2;
if s<p then z:=s else z:=p;
end;
writeln ('z=',z);
end.
CYBERISLAM вне форума
Старый 04.01.2014, 11:09   #3
CYBERISLAM
 
Регистрация: 03.01.2014
Сообщений: 9
По умолчанию

перед begin пиши:
Код:
x,ys,p,z:real;
CYBERISLAM вне форума
Старый 04.01.2014, 13:50   #4
vladimir412
Пользователь
 
Регистрация: 04.01.2014
Сообщений: 18
По умолчанию

большое спасибо!
vladimir412 вне форума
Закрытая тема


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите пожалйста с заданием tomb Общие вопросы C/C++ 0 11.06.2009 14:53
не могу понять, помогите пожалйста! Nevis Паскаль, Turbo Pascal, PascalABC.NET 2 04.06.2009 14:36
Помогите пожалйста PoMaHkA Помощь студентам 1 26.05.2009 22:28