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

Решить в паскале! на шахматной доске стоят черный король и три белые ладьи (ладья бьет по горизонтали и вертикали) . проверить, не находится ли король под боем.

👇
Ответ:
tt5tt5291
tt5tt5291
13.05.2021
 const     
        n = 3; //Кол-во фигур       
var   
   i : integer;   
   xk,yk : integer;   
   xl,yl : array [1..n] of integer;   
   r : boolean;  
begin   

 //Задание координат 
//   
xk := 2; yk := 2; // Координаты короля       
 //Координаты ладьи    
xl[1] := 1; yl[1] := 2;    
xl[2] := 4; yl[2] := 6;   
xl[3] := 5; yl[3] := 8;   
//   

r := false; 
i := 1;   
While (i <= n) and (not r) do   
begin   
if (xk = xl[i]) or (yk = yl[i]) then //Лежат на одной  прямой    
r := true;   
i:= i +1;   
end;   

if r then   
writeln ('Король под ударом') 
else   
writeln ('Король живет)'); 
end.
4,6(90 оценок)
Открыть все ответы
Ответ:
Алексей28111
Алексей28111
13.05.2021
Program test;
var  a: array of integer;  b: array of integer;  c: array of integer;  aa, bb, cc: integer;
begin  writeln('Введите размер массива a');  readln(aa);  writeln('Введите размер массива b');  readln(bb);  a := new integer[aa];  b := new integer[bb];  c := new integer[aa + bb];  cc := 0;  aa := 0;  bb := 0;  writeln('Заполнение массива a');  while(aa < Length(a)) do   begin    readln(a[aa]);    aa := aa + 1;  end;  writeln('Заполнение массива b');  while(bb < Length(b)) do   begin    readln(b[bb]);    bb := bb + 1;  end;  while(cc < Length(c)) do   begin    if(cc < Length(a)) then begin      c[cc] := a[cc]    end else begin      c[cc] := b[cc - Length(a)];    end;    cc := cc + 1;  end;  writeln('Полученный массив');  cc:=0;  while(cc < Length(c)) do   begin    writeln(c[cc]);    cc:=cc+1;  end;end.
4,5(28 оценок)
Ответ:
Max010507
Max010507
13.05.2021

Слово «информатика» образовано из двух французских слов: information (информация) и automatique (автоматика). Первоначально в научный обиход оно вошло во Франции в 60-е годы для обозначения автоматической переработки информации в широкой области научной и производственной деятельности человека. Французская энциклопедия Ларусса поэтому и определяет информатику как «совокупность дисциплин и «техник автоматической и рациональной обработке информации».

Постепенно новый термин стал распространяться все шире и шире. у нас вначале им обозначали лишь технологические операции с научно-технической информацией, документалистику, библиотечное дело, хранение и обработку материалов научных исследований. И если мы заглянем в совсем еще не старые монографии и учебники по информатике, то увидим, ч го они посвящены весьма узкому кругу вопросов.

Но лавинообразное наступление информации на современного человека, быстрый рост ее потребления, хранения, насущная необходимость в ее переработке, преобразовании - все это заставило по-иному взглянуть на суть вопроса и переосмыслить само понятие «информатика». Стало ясно, что информатика обладает необыкновенной разносторонностью проникать во все отрасли, в многообразные сферы научной и общественной жизни, в деятельность каждого человека.

Информатика получила статус новой отрасли науки и заняла особое - свое - место в ряду научных дисциплин. Теперь не вызывает сомнения, что без информатики не может обойтись ни одна область нашей жизни: материальное производство и экономика, планирование и управление, образование, медицина и здравоохранение, сфера сбыта и услуг, охрана окружающей среды и культура.

Информатика вызвана к жизни потребностями общественной практики.

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