29. Дан массив целых чисел. Найти индексы элементов, значения которых больше значения предыдущего элемента (на­чиная со второго). Program a29; Var i,n:integer;

Презентация:



Advertisements
Похожие презентации
9.Задана целочисленная матрица. Вывести N чисел - максимальные значения элементов для каждой строки, где N - количество строк матрицы
Advertisements

Массивы в Паскале. Создание массива: var a:array [1..5] of integer; i:integer; begin for i:=1 to 5 do begin write ('a[',i,']='); readln(a[i]); end; end.
Дан массив. Найти максимальный и минимальный элементы массива и поменять их местами. Выполнение программы Выполнение программы.
Одномерные массивы Введение. I.Описание Массив – это фиксированное кол - во элементов одного и того же типа, объединенных одним именем, каждый элемент.
5.Дана матрица А и вектор Х соответствующих размерностей. Нечетные строки матрицы заменить элементами вектора Х. Результаты работы: n=4 m=
3. Дана прямоугольная матрица, элементами которой являются целые числа. Поменять местами ее строки следующим образом: первую строку с последней, вторую.
Способы ввода значений в массив на Паскале 1) Заполнение массива с клавиатуры а) program massiv_1; const n=5; vari: integer; a: array[1..n] of integer;
Решение задач с использованием массивов
Тема: Нахождение минимального и максимального элемента в массиве.
PROGRAM example1; const m=100; var a : ARRAY [1.. m] of INTEGER; i,k,n,q : INTEGER; BEGIN readln (n); randomize; WRITELN('Полученный массив:' ); FOR i.
Внесите в таблицы значения переменной Х, которые она принимает на k-м шаге цикла в программе stepen _A_n при заданных значениях А и n: 1)A = 2, n = 6 2)
Program Summa; {Суммирование элементов в 1м массиве} Uses Crt; Type Massiv = Array [1..100] of Real; Var A : Massiv; i, N : Integer; S : Real; Begin Write('Введите.
Одномерный массив Turbo Pascal 9 класс. Объясните каждый шаг в программе. Что делает программа? Сколько раз срабатывает цикл? Var A : array [1..10] of.
ПРИМЕРЫ РЕШЕНИЯ ЗАДАЧ С ОДНОМЕРНЫМИ МАССИВАМИ. ЗАДАЧА: Вычислить сумму элементов массива program summa(input,output); var I:integer; T:array[1..5] of.
1 Программирование на языке Паскаль Тема 2. Максимальный элемент массива.
Проверка пройденного материала. Исправьте ошибки в решении задачи: заполнить и вывести массив W(3) вещественных чисел Program Mass; Var b:Array[1..10]
I := 1, 20 вывод В массиве нет числа X PROGRAM VAR, INTEGER Rand FORTO Example2 ; :=:= i 120DO BEGIN WRITE() : ARRAY [ ] OF i ; BEGIN ; : NumberX.
Pascal ГОУ СОШ 29 Кечек К.А.. Разминка Определить значение переменной у после выполнения следующих элементов программы: Varx,y:integer:………………………y:=0;
PROGRAM example1; {сдвинуть циклически элементы массива вправо} const m=10; var a : ARRAY [1.. m] of INTEGER; i,k,n: INTEGER; BEGIN randomize; n:=m; WRITELN('Полученный.
Program maxsimum; const n=10; var a:array [1..n] of integer; max,i:integer;begin ВВОД ЭЛЕМЕНТОВ МАССИВА; max:=a[1]; for i:=2 to n do if a[i]> max then.
Транксрипт:

29. Дан массив целых чисел. Найти индексы элементов, значения которых больше значения предыдущего элемента (на­чиная со второго). Program a29; Var i,n:integer; a:array[1..10] of integer; Begin read(n); For i:=1 to n do begin a[i]:=random(10); write(a[i]:3); end; For i:=1 to n-1 do If a[i+1]>a[i] then write (i+1:3); end. Результаты выполнения программы для n=9: a:{ } i:

32. Даны два различных выражения типа: у = а n · х n + а n-1 ·х n а 2 · х 2 + а 1 ·х 1 + а 0, z = b n · х n + b n-1 ·х n b 2 · х 2 + b 1 ·х 1 + b 0, где все данные целые числа. Коэффициенты выражений хра­нятся в массивах А и В. При заданном значении х найти макси­мальное значение (y, z).

A:{a 0,a 1,a 2, a n } {a[1],a[2],…a[n],a[n+1]} B:{b 0,b 1,b 2, b n } {b[1],b[2],…b[n],b[n+1]} Program a32; Var x,y,z,i,p,n:integer; a,b:array[1..10] of integer; Begin read(n); read(x); For i:=1 to n+1 do begin a[i]:=random(10); write(a[i]:3); b[i]:=random(10); writeln(b[i]:3); end;

Найдем у и z у = а n · х n а 2 · х 2 + а 1 ·х 1 + а 0 Y:=a[1]; z:=b[1]; p:=1; For i:=1 to n+1 do begin P:=P*x; Y:=y+P*a[i]; Z:=z+P*b[i]; end; writeln(y=,y, z=,z); If y>z then Writeln(наибольшее из у и z – это у=,y); If z>y then Writeln(наибольшее из у и z – это z=,z); If y=z then writeln (у и z равны) End.