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

Нужна с массивами по информатике:
!
1) в программе описан одномерный целочисленный массив с индексами от 1 до 10. ниже представлен фрагмент программы, обрабатывающей данный массив:
n: =10;
for i: =1 to n do begin
s = a[n+1-i] + i;
a[n+1-i]: = a[i] + i;
a[i]: = s;
end;
перед началом выполнения фрагмента все элементы массива равны 1. укажите утверждение, которое будет верно после выполнения указанного фрагмента программы при изменении индекса от 1 до 10.
1) значения массива возрастают
2) значения массива сначала возрастают, а потом убывают
3) значения массива убывают
4) значения массива постоянны

2) в программе описан одномерный целочисленный массив с индексами от 1 до 10. ниже представлен фрагмент программы, обрабатывающей данный массив:
n: = 10;
for i: = 1 to n do begin
a[n+1-i]: = 2*a[i];
end;
в начале выполнения этого фрагмента в массиве находились числа 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, т. е. а[1]=1, а[2]=2 и т. д. укажите значение, которое после выполнения указанного фрагмента программы имеют два или более элемента массива. если таких чисел несколько, укажите наибольшее из них.

3) в программе описан одномерный целочисленный массив с индексами от 0 до 10. ниже представлен записанный на разных языках программирования фрагмент одной и той же программы, обрабатывающей данный массив:
s: =0;
n: =10;
for i: =0 to n-3 do begin
s: =s+a[i]-a[i+3]
end;
в начале выполнения этого фрагмента в массиве находились трѐхзначные натуральные числа. какое наибольшее значение может иметь переменная s после выполнения данной программы?

4) в программе используется одномерный целочисленный массив a с индексами от 0 до 9. значения элементов равны 4, 7, 3, 8, 5, 0, 1, 2, 9, 6 соответственно, т.е. a[0] = 4, a[1] = 7 и т.д. определите значение переменной c после выполнения следующего фрагмента этой программы:
c : = 0;
for i : = 1 to 9 do
if a[i] < a[0] then begin
c : = c + 1;
t : = a[i];
a[i] : = a[0];
a[0] : = t;
end;

5) в программе используется одномерный целочисленный массив с индексами от 0 до 9. значения элементов равны 20, 19, 17, 41, 15, 12, 24, 16, 4, 13 соответственно, т.е. a[0]=20, a[1]=19 и т.д. определить значение переменной s после выполнения следующего фрагмента этой программы:
s: =0;
n: =6;
for i: =0 to 9 do
if a[i]< =a[n] then begin
s: =s+i;
t: =a[i mod n];
a[i mod n]: =a[n];
a[n]: =t;
end;

Показать ответ
Ответ:
1КрУтАя1
1КрУтАя1
26.09.2022 01:43
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

1. Если надо преобразовать число без знака в число

begin
  var n:=ReadInteger; // исходное число
  n:=n.ToString.Inverse.ToInteger; // полученное число
  n.Println; // вывод результата
end.

2. Если нужно только вывести результат

begin
  var n:=ReadInteger; // исходное число
  n.ToString.Inverse.ToInteger.Println
end.

3. Если надо только поменять местами символы, введенные с клавиатуры (например, два символа, изображающие число)

begin
  ReadlnString.Inverse.Println
end.

4. Если заданное число может быть отрицательным

begin
  var n:=ReadInteger; // исходное число
  var s:=Sign(n); // знак числа
  n:=Abs(n); // модуль числа
  n:=n.ToString.Inverse.ToInteger*s; // полученное число
  n.Println; // вывод результата
end.
0,0(0 оценок)
Ответ:
vorobjevalesya
vorobjevalesya
26.09.2022 01:43

{ Треугольник задан координатами вершин (x1;y1),(x2;y2),(x3;y3).

Найти площадь треугольника (используя формулу Герона) }

uses crt;

var x1,x2,x3,y1,y2,y3,a,b,c,s,p : real;

begin

clrscr;

write('x1=');readln(x1);

write('y1=');readln(y1);

write('x2=');readln(x2);

write('y2=');readln(y2);

write('x3=');readln(x3);

write('y3=');readln(y3);

a:=sqrt(sqr(x1-x2)+sqr(y1-y2));

b:=sqrt(sqr(x2-x3)+sqr(y2-y3));

c:=sqrt(sqr(x3-x1)+sqr(y1-y3));

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

write('s=',s);

readln;

end.

формула герона!

А так я думаю эти задачки очень даже не сложные, только формулы надо знать!! !

периметр- это сумма всех сторон

например

begin

writteln( 'введите 3 стороны' ) ;

readln(a,b,c);

writeln(' периметр = ',a+b+c);

readln;

end.

Вот и все!! !

Удачи!

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