07.12.2008, 19:26 | #1 (permalink) |
Member
Регистрация: 27.10.2008
Сообщений: 995
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 109
|
Помогите написать программу на Паскале
задание. Составить програму решения заданых задач. Даны действительные числа x,y. если х и у отрицательны, то каждое значение заменить его модулем; если отрицательно только одно из них, то оба значения увеличить на 0,5; если оба значения не отрицательны и ни одно из них не пренадлежит отрезку [0,5; 2], то оба значения уменьшить в 10 раз; в остальных случаях и оставить без изменения. |
07.12.2008, 19:26 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Участники форума когда то создавали аналогичные темы Написать программу в Паскале Помогите написать программу и блок схему в Паскале Помогите написать программу в Паскале Помогите написать программу в Паскале |
08.12.2008, 10:07 | #2 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
program calc;
var x,y:real; begin writeln('введите значения x, y); readln(x,y); if ((x<0) and (y>=0)) or ((x>=0) and (y<0)) {проверка если только одно число отрицательное} then begin x:=x+0.5; y:=y+0.5; end else if (x<0) and (y<0) {проверка 2-х отрицательных} then begin x:=abs(x); y:=abs(y); end else if ((x<0.5) and (x>=0) or (x>2)) and ((y<0.5) and (y>=0) or (y>2)) {проверка 2-х положительных не из отрезка} then begin x:=x/10; y:=y/10; end; writeln ('x=',x,'y=',y); readln; end.
__________________
Убить всех человеков! |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|