Даны два числа х и у.если х и у отрицательны.то каждое знач заменить его модулем ; если отриц только 1 то оба знач увеличить на 0,5 ; если оба знач неотрицательны то оба знач уменьшить в 10 раз.написать на qbasic
CLS INPUT "x = ", x INPUT "y = ", y IF x < 0 AND y < 0 THEN x = -x y = -y ELSE IF x < 0 XOR y < 0 THEN x = x + .5 y = y + .5 ELSE x = x - 10 y = y - 10 END IF END IF PRINT "x = "; x PRINT "y = "; y
//PascalABC.NET 3.0 const n = 5; begin var a := ArrRandomReal(n); var b := ArrRandomReal(n); write('Длины первого катета: '); foreach var i in a do write(i : 5 : 2); write(NewLine, 'Длины второго катета: '); foreach var i in b do write(i : 5 : 2); var imax := 0; for var i := 1 to n - 1 do if a[imax] * b[imax] < a[i] * b[i] then imax := i; writeln(NewLine, 'Номер: ', imax + 1); writeln('Катеты: ', a[imax] : 0 : 2, ' ', b[imax] : 0 : 2); writeln('Площадь: ', a[imax] * b[imax] / 2 : 0 : 2); end.
Const n=10; var a,b:array[1..n] of integer; i,si,smax:integer; begin Writeln('Введите парами длины катетов ',n,' треугольников'); smax:=0; for i:=1 to n do begin Read(a[i],b[i]); si:=a[i]*b[i]; { пополам разделим потом максимальное } if si>smax then smax:=si end; Writeln('Треугольник(и) с максимальной площадью, равной ',smax/2,':'); for i:=1 to n do if a[i]*b[i]=smax then Writeln('№',i,': ',a[i],'x',b[i]); Writeln end.
Пример работы Введите парами длины катетов 10 треугольников 7 16 18 10 9 5 15 11 9 19 15 12 11 13 9 20 14 10 12 8 Треугольник(и) с максимальной площадью, равной 90: №2: 18x10 №6: 15x12 №8: 9x20
INPUT "x = ", x
INPUT "y = ", y
IF x < 0 AND y < 0 THEN
x = -x
y = -y
ELSE
IF x < 0 XOR y < 0 THEN
x = x + .5
y = y + .5
ELSE
x = x - 10
y = y - 10
END IF
END IF
PRINT "x = "; x
PRINT "y = "; y