М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
mdasa7375
mdasa7375
06.09.2022 00:09 •  Информатика

Напишите два варианта программы, которая вводит координаты точки на плоскости и определяет, попала ли эта точка в заштрихованную область

👇
Ответ:
RILIR
RILIR
06.09.2022
На каком языке програмирования?
на Java
public class MyClass {
public static void main(String[] args) throws Exception{
BufferedReader reader = new BufferedReader(new InputStreamReader(System.in)));
System.out.println("введите координаты");
System.out.println("x:");
Integer x = Integer.valueOf(reader.println());
System.out.println("y:");
Integer y = Integer.valueOf(reader.println());
Заштрихованая область как определяется?
пусть она уже задана и имеет вид прямоугольника.
int lefiXofSpace = 5;
int rightXofSpace = 10;
int upYof Space = 7;
int downYof Space = 5;
if((x >= leftXofSpace && x <= rightXofSpace) && (y >= downYofSpace && y <= upYofSpace)) {
System.out.printl("Точка попала в заштрихованую область");
} else {
System.out.printl("Точка не попала в заштрихованую область");
}
}
}
4,6(9 оценок)
Открыть все ответы
Ответ:
Inna21032002
Inna21032002
06.09.2022

var

  a : array of integer;

  n, i, last : integer;

begin

  read (n);

  setlength (a, n);

  for i := 0 to n - 1 do

    read (a[i]);

  last := 0;

  for i := 0 to n - 1 do

    if a[i] <> 0 then

    begin

      a[last] := a[i];

      inc (last);

    end;

  setlength (a, last);

  for i := 0 to last - 1 do

    write (a[i], ' ');

end.

 

Суть такова. Имеем динамический массив. Считали массив, так как динамический, то от нуля все. Установили последнюю свободную ячейку 0. Идем по массиву и ищем ненулевое значение. Как только нашли, пишем его в свободную ячейку и увеличиваем занчение свободной ячейки на 1. При этом наши данные не затираются. После окончания всех операций в last лежит длина массива.

Статитечкий массив. 

var

  a : array [1..100] of integer;

  n, i, last : integer;

begin

  read (n);

  for i := 1 to n do

    read (a[i]);

  last := 1;

  for i := 1 to n do

    if a[i] <> 0 then

    begin

      a[last] := a[i];

      inc (last);

    end;

  dec (last);

  for i := 1 to last do

    write (a[i], ' ');

end.

 

4,4(79 оценок)
Ответ:
DragaoMad
DragaoMad
06.09.2022

var

  a : array [1..100] of integer;

  n, i : integer;

  flag : boolean;

begin

  write ('Введите количество чисел: ');

  readln (n);

  for i := 1 to n do

  begin

    write (i, '-ое число = ');

    readln (a[i]);

  end;

  for i := 1 to n do

  begin

     write (i, '-оечисло  ');

    if a[i] < 0 then

    begin

      write ('отрицательно');

      flag := true;

    end;  

   if a[i] mod 2 = 0 then

    begin

      write ('четно');

      flag := true;

    end;

    if not flag write ('никакое');

    flag := false;

    writeln;

end;

end.

4,6(57 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ