Нужна с массивами по информатике:
!
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. Если надо преобразовать число без знака в число
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.
{ Треугольник задан координатами вершин (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.
Вот и все!! !
Удачи!