Помогите написать программу на Паскале
Выручайте!!!помогите написать прог. в ПАСКАЛЕ
задание. Составить програму решения заданых задач. Даны действительные числа x,y. если х и у отрицательны, то каждое значение заменить его модулем; если отрицательно только одно из них, то оба значения увеличить на 0,5; если оба значения не отрицательны и ни одно из них не пренадлежит отрезку [0,5; 2], то оба значения уменьшить в 10 раз; в остальных случаях и оставить без изменения. |
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. |
Часовой пояс GMT +4, время: 00:45. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.