Задание Переписать в тетради полную и неполную запись формы условного оператора в С++ с учебника (стр.123, выделенное красным). А так же переписать таблицу Логические выражения С++ на стр решите за спам бан
Sub abcd() Dim n As Integer, a(1 To 8) As Integer Dim r As Range n = 8 imax = 1 Set r = Range(Cells(1, 1), Cells(2, 8)) r.ClearContents 'Очистка области r.Interior.Color = RGB(255, 255, 255) 'Очистка цвета заливки For i = 1 To n a(i) = Int(30 * Rnd) If a(i) > a(imax) Then imax = i Cells(1, i) = a(i) Next t = a(imax) Cells(1, imax).Interior.Color = RGB(204, 255, 255) Range(Cells(1, 1), Cells(1, imax - 1)).Interior.Color = RGB(255, 255, 153) For i = imax - 1 To 1 Step -1 a(i + 1) = a(i) Next a(1) = t For i = 1 To n Cells(2, i) = a(i) Next Cells(2, 1).Interior.Color = RGB(204, 255, 255) Range(Cells(2, 2), Cells(2, imax)).Interior.Color = RGB(255, 255, 153) End Sub
Заданная уравнением прямая всегда будет гипотенузой прямоугольного треугольника, а его прямой угол всегда будет лежать в точке пересечения осей координат. Таким образом, размещение гипотенузы всегда будет определять четверть, в которой находится треугольник. Гипотенуза пересекает ось Х в точке с координатами (х1; 0), а ось Y - в точке с координатами (0;y2). Найдем эти координаты, считая коэффициенты a и b в уравнении прямой заданными. Теперь можно определить номера четвертей n, в которых располагается гипотенуза.
var a, b: integer; f: Text;
begin Assign(f, 'input.txt'); Reset(f); Readln(f, a, b); Close(f); Assign(f, 'output.txt'); Rewrite(f); if a < 0 then if b < 0 then Writeln(f, '3') else Writeln(f, '1') else if b < 0 then Writeln(f, '4') else Writeln(f, '2'); Close(f) end.
Объяснение:
НУ вот как-то так ну не вместилось и поэтому