В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Sdhinkj
Sdhinkj
14.08.2020 14:42 •  Информатика

Дана программа на языке программирования Паскаль. Запиши данную программу и запусти.

program z1;
var
mas, A: array[1..10] of real;
begin
mas[1]:=14;
mas[5]:=30;
mas[9]:=82;
A[1]:=(mas[9]-mas[1])*mas[5];
write(A[1]:5:0);
read;
end.

Показать ответ
Ответ:
1980а1980
1980а1980
05.08.2021 00:20

program t;

var n, i, a, b, c, d, k, m: integer; x1, x2, x3, y1, y2, y3: array[1..10000] of integer; f1, f2: text;

function icl(x, y: integer): boolean;

var i: integer;

begin

icl:=false;

for i:=1 to n do

begin

 if (x>=x1[i]) and (y>=y1[i]) and (x<=x2[i]) and (y<=y2[i]) then

 begin

  icl:=true;

  break

 end

end

end;

procedure re(st, fn: integer);

var nst, nfn, i, j, jj, xx, yy: integer; eq, ff: boolean;

begin

m:=m+1;

nst:=k+1;

ff:=false;

for i:=st to fn do

begin

 for j:=0 to 11 do

 begin

  if j mod 3=0 then continue;

  xx:=x3[i]+trunc(cos(j*pi/6)*3);

  yy:=y3[i]+trunc(sin(j*pi/6)*3);

  if not icl(xx, yy) then continue;

  eq:=false;

  for jj:=1 to k do if (xx=x3[jj]) and (yy=y3[jj]) then

  begin

   eq:=true;

   break

  end;

  if eq then continue;

  if (xx=c) and (yy=d) then

  begin

   ff:=true;

   break

  end;

  k:=k+1;

  x3[k]:=xx;

  y3[k]:=yy;

 end;

 if ff then break;

end;

if ff then exit;

nfn:=k;

if nst>nfn then

begin

 m:=-1;

 exit

end;

re(nst, nfn)

end;

begin

assign(f1, 'horse.in');

reset(f1);

assign(f2, 'horse.out');

rewrite(f2);

readln(f1, n);

for i:=1 to n do readln(f1, x1[i], y1[i], x2[i], y2[i]);

readln(f1, a, b);

readln(f1, c, d);

k:=1;

x3[1]:=a;

y3[1]:=b;

m:=0;

re(1, 1);

writeln(f2, m);

close(f1);

close(f2)

end.

0,0(0 оценок)
Ответ:
Mашуня1111
Mашуня1111
16.03.2020 16:36

1) В информатике понятие "система" чаще используют относительно набора технических средств и программ. Системой также называют аппаратную часть компьютера. Когда мы дополняем понятие "система" словом "информационная", то хотим подчеркнуть цель ее создания и функционирования.

искуственная система:система телефонных связей ,энергосистема

естественная система:галактика,комета ,система звезд

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

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

3) Системный эффект (эмерджентность) - возникновение у сложной системы новых свойств за счет взаимодействия составляющих систему узлов. Свойства системы не совпадают со свойствами ее составных подсистем

пример: Например, ни одна часть тела человека по отдельности не сыграл на рояле музыку Шопена, а весь человек (при условии обученности, разумеется) может.

4)эмерджентность - в теории систем — появление у системы свойств, не присущих её элементам в отдельности; несводимость свойств системы к сумме свойств её компонентов.

5) Системный подход представляет собой универсальный метод исследования, основанный на восприятии исследуемого объекта как нечто целого, состоящего из взаимосвязанных частей и являющегося одновременно частью системы более высокого порядка.

6)например протяженность дорог в километрах

7) Коперник - совершил переворот в естествознании, раскрыл истинное строение солнечной системы. Линней - создал искусственную систему животного и растительного мира. Вернадский - создал науки: геохимию, биогеохимию, радиогеологию

10) Кибернетика — наука об оптимальном управлении сложными динамическими системами, изучающая общие принципы управления и связи, лежащие в основе работы самых разнообразных по природе систем — от самонаводящих ракет-снарядов и быстродействующих вычислительных машин до сложного живого организма.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота