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

Uses robot; var i: integer; procedure zzz; begin up; up; up; up; up; left; left; left; left; left; left; left; end; procedure www; begin right; paint; down; down; paint; down; down; paint; down; down; paint; down; down; paint; right; right; paint; up; paint; up; paint; up; paint; up; paint; up; paint; up; paint; up; paint; up; paint; up; paint; end; begin field(15,10); for i: =1 to 3 do www; end. почему при написании этой программы выдает ошибку?

👇
Ответ:
Азиза4190
Азиза4190
15.11.2021
Проверено в PascalABC.NET

Всё хорошо работает(Скриншот):

Uses robot; var i: integer; procedure zzz; begin up; up; up; up; up; left; left; left; left; left; l
4,4(100 оценок)
Открыть все ответы
Ответ:
artemmishin7777777
artemmishin7777777
15.11.2021

Ориентирование по Солнцу.

Места восхода и захода Солнца по временам года различны: зимой Солнце восходит на юго-востоке, а заходит на юго-западе; летом Солнце восходит на северо-востоке, а заходит на северо-западе; весной и осенью Солнце восходит на востоке, а заходит на западе. В полдень Солнце всегда находится в направлении юга. Самая короткая тень от местных предметов бывает в 13 часов, и направление тени от вертикально расположенных местных предметов в это время будет указывать на север. Если солнце скрыто облаками, поставьте нож на ноготь пальца - хотя бы небольшая, но тень появится и станет ясно, где солнце.

По Солнцу и часам.

Надо направить часовую стрелку на Солнце, и угол, образуемый между направлением часовой стрелки и цифрой 1 (13 часов) циферблата, разделить воображаемой линией пополам. Линия, разделяющая этот угол, укажет направление: впереди - юг, сзади - север. При этом надо помнить, что до 13 часов нужно делить левый угол, а во вторую половину дня - правый угол.  

По Полярной звезде.

Полярная звезда всегда находится на севере.  

По Луне.

Для приблизительного ориентирования нужно знать, что летом в первую четверть Луна в 20 часов находится на юге, в 2 часа ночи - на западе, в последнюю четверть в 2 часа ночи - на востоке, в 8 часов утра - на юге. При полнолунии ночью стороны горизонта определяются так же, как по Солнцу и часам, причем Луна принимается за Солнце. Необходимо помнить, что полная Луна противостоит Солнцу, т. е. находится против него.

По тени.

В полдень направление тени (она будет самая короткая) указывает на север. Не дожидаясь самой короткой тени можно ориентироваться следующим Воткните в землю палку около 1 метра длиной. Отметьте конец тени. Подождите 10-15 минут и повторите процедуру. Проведите линию от первой позиции тени до второй и продлите на шаг дальше второй отметки. Станьте носком левой ноги напротив первой отметки, а правой — в конце линии, которую вы начертили. Сейчас вы стоите лицом на север.    

4,6(36 оценок)
Ответ:
Const
  a=5.1;
  x=3.29;
var
  Y,Z:double;
begin
  Y:=2*exp(4*x)+arctan(x/a);
  Z:=cos(x*sqr(x))+sqr(sin(x));
  Writeln('Y=',Y,', Z=',Z)
end.

Результат выполнения программы:
Y=1038354.42291114, Z=-0.472433980670957

const
  m=6;
  n=8;
var
  a:array[1..m,1..n] of double;
  b:array[1..m*n] of double;
  i,j,k,imax,imin:integer;
  t:double;
begin
  // Инициализация А и формирование В
  Randomize;
  Writeln('Исходный массив A');
  k:=0;
  for i:=1 to m do begin
    for j:=1 to n do begin
      a[i,j]:=10*Random-5; { случайное число на [-5;5] }
      Write(a[i,j]:8:4);
      t:=cos(a[i,j]);
      if (t>=0) and (t<0.5) then begin Inc(k); b[k]:=a[i,j] end
    end;
    Writeln
  end;
  // Вывод сформированного массива В
  Writeln('Исходный массив В');
  for i:=1 to k do Write(b[i]:8:4);
  Writeln;
  // Поиск максимума и минимума с последующим обменом их местами
  imax:=1; imin:=1;
  for i:=2 to k do
    if b[i]<b[imin] then imin:=i
    else
      if b[i]>b[imax] then imax:=i;
  t:=b[imax]; b[imax]:=b[imin]; b[imin]:=t;
  // Вывод результирующего массива В
  Writeln('Результирующий массив В');
  for i:=1 to k do Write(b[i]:8:4);
  Writeln
end.

Тестовое решение:
Исходный массив A
 -1.6788 -0.7273 -3.4919  2.9903 -4.3249 -2.2230 -2.1157  0.9685
  2.0515  4.6821  0.2794 -1.4624  4.9668 -3.5754 -3.4115 -0.5592
  3.0535  1.1339  0.0992 -0.5307 -0.6266  2.2623  1.9578 -1.3175
 -0.6154  3.6080  2.4223 -4.8354 -2.2978  3.8982 -2.2427  2.0410
 -1.1019 -3.4703 -2.0104 -1.3044  0.7744  0.6897  3.1747  1.3257
 -4.3942 -1.6707 -3.2494 -0.6551  3.4726 -0.2896  3.4154  1.9644
Исходный массив В
 -1.4624  4.9668  1.1339 -1.3175 -4.8354 -1.1019 -1.3044  1.3257
Результирующий массив В
 -1.4624 -4.8354  1.1339 -1.3175  4.9668 -1.1019 -1.3044  1.3257
4,8(28 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ