MiSTiK338
15.10.2020 18:15

Кто сможет, ! все выполнять на языке с++ в программе code : : blocks. заранее . 1.даны координаты двух полей шахматной доски. координаты клетки - это два числа от 1 до 8: номер столбца и номер строки. одного ли цвета эти клетки на шахматной доске? формат входных данных в первой строке заданы: столбец первого поля, затем строка первого поля, затем столбец второго поля, затем строка второго поля. формат выходных данных вывести сообщение "yes если они одного цвета, и "no иначе. 2.даны координаты левого и правого концов отрезка, а также точка на целочисленной оси. опре- делить, лежит ли точка внутри отрезка или на его границе. формат входных данных в первой строке заданы числа a, b и c - координаты левого, правого концов отрезка и координата точки соответственно. формат выходных данных вывести сообщение "yes если точка лежит внутри отрезка или на его границе, и "no иначе. 3.даны координаты левого нижнего и правого верхнего вершин прямоугольника, а также точка на плоскости. определить, лежит ли точка внутри прямоугольника или на его границе. формат входных данных в первой строке заданы числа x1, y1, x2, y2, x3, y3 - координаты левого нижнего, правого верхнего вершин прямоугольника и точки соответственно. формат выходных данных вывести сообщение "yes если точка лежит внутри прямоугольника или на его границе, и "no- иначе.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
farkhundaibragimova
28.05.2020 10:09
//Pascal ABC.NET v3.0 сборка 1111

var
 i,a,b:integer;
 ar:array[1..10] of integer;

 procedure oddDec(var a,b:integer);  //подпрограмме переданы аргументы a и b
//процедура для вычитания в нечётном элементе
begin;
a:=a-b;
end;

procedure NotoddInc(var a,b:integer); //подпрограмме переданы аргументы a и b
//процедура для сложения в чётном элементе
begin;
a:=a+b;
end;

begin
randomize;
readln(a); //ввод a
readln(b); //ввод b
writeln('Array:');
for i:=1 to 10 do //весь массив
 begin;
  ar[i]:=random(-20,80); //случайные числа от -20 до 80 включительно
  write(ar[i]:4); //вывод
  if odd(i) then oddDec(ar[i],b) else NotoddInc(ar[i],a);
  {если нечётное, то первая процедура, иначе вторая. Обращаю внимания на то, что элементы меняются сразу после вывода}
 end;
writeln;
writeln('Final array:'); //вывод получившегося массива
for i:=1 to 10 do
write(ar[i]:4);
end.

Пример ввода:
20
10
Пример вывода:
Array:
  10  16   0  60  23   4  22 -20   4  55
Final array:
   0  36 -10  80  13  24  12   0  -6  75  
0,0(0 оценок)
Ответ:
привет8917
14.04.2021 07:39
#include "math.h"#include "iostream"
using namespace std;
int main(){int a, n, max, min;int max_i, max_k, min_i, min_k;//ввод размера массиваcin>>a;cin>>n;
//объявление массиваint** a = new int* [a]; for(int i = 0; i < n; i++) { a[i] = new int [a]; }
//ввод первого массива for(int i = 0; i < a; i++) { for(int k = 0; k < n; k++) { cin>>a[i][k]; } } //Инициализация max, min; max=a[0][0]; min=a[0][0]; //поиск максимума for(int i = 0; i < a; i++) { for(int k = 0; k < n; k++) { if(max<a[i][k]) { max=a[i][k]; max_i=i; max_k=k; } } } //поиск минимума for(int i = 0; i < a; i++) { for(int k = 0; k < n; k++) { if(min>a[i][k]) { min=a[i][k]; min_i=i; min_k=k; } } }
//Max and Min меняются местамиswap(a[max_i][max_k],a[min_i][min_k]);getch();return 0;}
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота