ПРИМЕРЫ РЕШЕНИЯ ЗАДАЧ С ОДНОМЕРНЫМИ МАССИВАМИ. ЗАДАЧА: Вычислить сумму элементов массива program summa(input,output); var I:integer; T:array[1..5] of.

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



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.
Advertisements

Дан массив. Найти максимальный и минимальный элементы массива и поменять их местами. Выполнение программы Выполнение программы.
Одномерные массивы Введение. I.Описание Массив – это фиксированное кол - во элементов одного и того же типа, объединенных одним именем, каждый элемент.
Способы ввода значений в массив на Паскале 1) Заполнение массива с клавиатуры а) program massiv_1; const n=5; vari: integer; a: array[1..n] of integer;
PROGRAM example1; {сдвинуть циклически элементы массива вправо} const m=10; var a : ARRAY [1.. m] of INTEGER; i,k,n: INTEGER; BEGIN randomize; n:=m; WRITELN('Полученный.
5.Дана матрица А и вектор Х соответствующих размерностей. Нечетные строки матрицы заменить элементами вектора Х. Результаты работы: n=4 m=
9.Задана целочисленная матрица. Вывести N чисел - максимальные значения элементов для каждой строки, где N - количество строк матрицы
Решение задач с использованием массивов
Program Summa; {Суммирование элементов в 1м массиве} Uses Crt; Type Massiv = Array [1..100] of Real; Var A : Massiv; i, N : Integer; S : Real; Begin Write('Введите.
Тема: Нахождение минимального и максимального элемента в массиве.
3. Дана прямоугольная матрица, элементами которой являются целые числа. Поменять местами ее строки следующим образом: первую строку с последней, вторую.
Проверка пройденного материала. Исправьте ошибки в решении задачи: заполнить и вывести массив W(3) вещественных чисел Program Mass; Var b:Array[1..10]
Задача: определить является ли простым заданное число.
Тема: «Понятие квадратная матрица» :17:47.
Тема: « Вставка- удаление элементов массива » :18:06.
29. Дан массив целых чисел. Найти индексы элементов, значения которых больше значения предыдущего элемента (на­чиная со второго). Program a29; Var i,n:integer;
Линейные (одномерные) массивы. Линейным массивом можно назвать совокупность одинаковых компонент, имеющим один индекс. I12345 A[i]
const n=10; var a:array[1..n] of integer; i,j,c,b,k:integer; begin randomize; for i:=1 to n do begin a[i]:=random(11)-5;write(a[i]:5) end;writeln;
PROGRAM example1; const m=100; var a : ARRAY [1.. m] of INTEGER; i,k,n,q : INTEGER; BEGIN readln (n); randomize; WRITELN('Полученный массив:' ); FOR i.
Двумерные массивы ( матрицы ) на языке PASCAL Каждый элемент имеет свой номер, как у одномерных массивов, но сейчас номер уже состоит из двух чисел – номера.
Транксрипт:

ПРИМЕРЫ РЕШЕНИЯ ЗАДАЧ С ОДНОМЕРНЫМИ МАССИВАМИ

ЗАДАЧА: Вычислить сумму элементов массива program summa(input,output); var I:integer; T:array[1..5] of integer; s:real; begin s:=0; for I:=1 to 5 do read(T[I]); for I:=1 to 5 do s:=s+T[I]; write(s:2); end.

ЗАДАЧА: Вычислить произведение элементов массива program pr(input,output); var I,P:integer; N:array[1..4] of integer; begin P:=1; for I:=1 to 4 do read(N[I]); for I:=1 to 4 do P:=P*N[I]; writeln ('P=',P); end.

ЗАДАЧА: Подсчитать количество элементов массива, удовлетворяющее заданному условию program kol(output); var k:integer; N:array[1..10] of integer; i:integer; begin i:=0; for k:=1 to 10 do read(N[k]); for k:=1 to 10 do if N[k]=2 then i:=i+1; writeln( i); end.

ЗАДАЧА: Заменить одни элементы массива на другие program zamen(output); var k:integer; N:array[1..5] of integer; i:integer; begin i:=0; for k:=1 to 5 do read(N[k]); for k:=1 to 5 do if N[k]=5 then N[k]:=2; for k:=1 to 5 do write( N[k]:2); end.

ЗАДАЧА: Сменить порядок расположения элементов массива на обратный program smena(output); var k:integer; N:array[1..5] of integer; begin for k:=1 to 5 do read(N[k]); for k:=5 downto 1 do writeln(N[k]); end.

ЗАДАЧА: Поиск минимального элемента массива и его номер program minBB (input,output); var A:array[1..10] of integer; i, min, minN:integer; begin for i:=1 to 10 do read(A[i]); minN:=1; min:=A[1]; for i:=2 to 10 do if A[i]

ЗАДАЧА: Вычислить сумму квадратов элементов массива program kvadr(input,output); var I:integer; s:real; N:array[1..3] of real; begin for I:=1 to 3 do read(N[I]); S:=0; for I:=1 to 3 do S:=S+N[I]*N[I]; writeln ('s=',s:4); end.

ЗАДАЧА: Вывести на печать элементы массива, кратные трём. program kratn(input,output); var I:integer; N:array[1..10] of integer; begin for I:=1 to 10 do read(N[I]); for I:=1 to 10 do begin if N[I] mod 3=0 then writeln (N[I]); end; end.

ЗАДАЧА: Вычислить среднее арифметическое элементов массива program arif(input,output); var I:integer; s:real; N:array[1..4] of real; begin for I:=1 to 4 do read(N[I]); S:=0; for I:=1 to 4 do S:=S+N[I]/4; writeln ('s=',s:4); end.

ЗАДАЧА: Вывести на печать элементы массива умноженные на заданное число program viv(input,output); var I:integer; T:array[1..5] of integer; begin for I:=1 to 5 do begin read(T[I]); writeln(T[I]*2:2); end; end.

ЗАДАЧА: Ввод элементов массива с помощью функции (генератора случайных чисел) program sluch(input,output); var I:integer; T:array[1..10] of integer; begin for I:=1 to 10 do T[i]:=random(10); for I:=1 to 10 do write(T[I]:2); end.