Program Summa; {Суммирование элементов в 1м массиве} Uses Crt; Type Massiv = Array [1..100] of Real; Var A : Massiv; i, N : Integer; S : Real; Begin Write('Введите.

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



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

Дан массив. Найти максимальный и минимальный элементы массива и поменять их местами. Выполнение программы Выполнение программы.
Способы ввода значений в массив на Паскале 1) Заполнение массива с клавиатуры а) program massiv_1; const n=5; vari: integer; a: array[1..n] of integer;
Чтобы найти максимальный элемент в массиве и потом производить с ним какие-либо действия, нужно узнать его номер (индекс - I).Чтобы найти максимальный.
Этапы решения задач на ЭВМ. Выделение цели задачи, определение исходных данных и конечных результатов, а также условий и ограничений. 1. Постановка задачи.
Тема: «Понятие массива. Назначение. Тип. Размер. Размерность. Одномерный массив» :56:36.
5.Дана матрица А и вектор Х соответствующих размерностей. Нечетные строки матрицы заменить элементами вектора Х. Результаты работы: n=4 m=
Шутилина Л.А., A[1,1]A[1,2]A[1,3]A[1,4]A[1,5] A[2,1]A[2,2]A[2,3]A[2,4]A[2,5] A[3,1]A[3,2]A[3,3]A[3,4]A[3,5] A[4,1]A[4,2]A[4,3]A[4,4]A[4,5]
PROGRAM example1; {сдвинуть циклически элементы массива вправо} const m=10; var a : ARRAY [1.. m] of INTEGER; i,k,n: INTEGER; BEGIN randomize; n:=m; WRITELN('Полученный.
Тема: «Понятие квадратная матрица» :17:47.
Одномерные массивы Введение. I.Описание Массив – это фиксированное кол - во элементов одного и того же типа, объединенных одним именем, каждый элемент.
PROGRAM example1; const m=100; var a : ARRAY [1.. m] of INTEGER; i,k,n,q : INTEGER; BEGIN readln (n); randomize; WRITELN('Полученный массив:' ); FOR i.
9.Задана целочисленная матрица. Вывести N чисел - максимальные значения элементов для каждой строки, где N - количество строк матрицы
A[1,1]A[1,2]A[1,3]A[1,4]A[1,5] A[2,1]A[2,2]A[2,3]A[2,4]A[2,5] A[3,1]A[3,2]A[3,3]A[3,4]A[3,5] A[4,1]A[4,2]A[4,3]A[4,4]A[4,5] Двумерный массив можно представить.
3. Дана прямоугольная матрица, элементами которой являются целые числа. Поменять местами ее строки следующим образом: первую строку с последней, вторую.
Работа с одномерными массивами Урок информатики 9 кл.
Одномерный массив Turbo Pascal 9 класс. Объясните каждый шаг в программе. Что делает программа? Сколько раз срабатывает цикл? Var A : array [1..10] of.
Решение задач с использованием массивов
Тема: Нахождение минимального и максимального элемента в массиве.
Чтобы найти максимальный элемент в массиве и потом производить с ним какие-либо действия, нужно узнать его номер (индекс - I). Для этого вначале будем.
Транксрипт:

Program Summa; {Суммирование элементов в 1м массиве} Uses Crt; Type Massiv = Array [1..100] of Real; Var A : Massiv; i, N : Integer; S : Real; Begin Write('Введите число элементов N = '); ReadLn(N); {ввод значения N} For i := 1 to N dо {цикл по элементам массива} begin Write('A [ ', i, ' ] = '); ReadLn(A[i]) {ввод элементов массива} end; S := 0; {присваивание начального значения} For i := 1 to N do S := S+A[i]; {суммирование} WriteLn; {пустая строка} WriteLn(S= ', S : 5 : 1); {Вывод результата} END.

For i := 1 to N do S := S+A[i]; 1.I=1 S:=0+2 2.I=2 S:=2+3=5 3.I=3 S:=2+3+1=6 4.I=4 S:= =10 S=10 N=4 A[1]=2 A[2]=3 A[3]=1 A[4]=4

Program Podcset; {Подсчёт элементов в 1м массиве} Uses Crt; Type Massiv = Array [1..100] of Real; Var A : Massiv; i, N : Integer; S : Real; BEGIN ClrScr; {очистка экрана } Write('Введите число элементов N = '); ReadLn(N); {ввод значения N} For i := 1 to N dо {цикл по элементам массива} begin Write('A [ ', i, ' ] = '); ReadLn(A[i]) {ввод элементов массива} end; S := 0; {присваивание начального значения} For i := 1 to N do S := S+1; {подсчёт числа элементов} WriteLn; WriteLn(S= ', S : 5 : 1); ReadLn END.

For i := 1 to N do S := S+1; 1.I=1 S:=0+1 2.I=2 S:=1+1=2 3.I=3 S:=1+1+1=3 4.I=4 S:= =4 S=4 N=4 A[1]=2 A[2]=3 A[3]=1 A[4]=4

Program Summa; {Подсчёт чётных элементов в 1м массиве} Uses Crt; Type Massiv = Array [1..100] of Real; Var A : Massiv; i, N : Integer; S : Real; BEGIN ClrScr; {очистка экрана } Write('Введите число элементов N = '); ReadLn(N); {ввод значения N} For i := 1 to N dо {цикл по элементам массива} begin Write('A [ ', i, ' ] = '); ReadLn(A[i]) {ввод элементов массива} end; S := 0; {присваивание начального значения} For i := 1 to N do If A[i] mod 2=0 then S := S+1; {подсчёт} WriteLn; WriteLn(S= ', S : 5 : 1); ReadLn END.

For i := 1 to N do If A[i] mod 2=0 then S := S+1; 1.I=1 2:2=0 (da) S:=0+1 2.I=2 3:2=0,5 (net) 3.I=3 1:2=0,5 (нет) 4.I=4 4:2=0 (da) S:=0+1+1=2 S=2 N=4 A[1]=2 A[2]=3 A[3]=1 A[4]=4

Program Summa; Uses Crt; Type Mas = Array [1..100] of Real; Var A : Mas; i, N,k : Integer; S : Real; BEGIN ClrScr; {очистка экрана } Write('Введите число элементов N = '); ReadLn(N); {ввод значения N} For i := 1 to N dо {цикл по элементам массива} begin Write('A [ ', i, ' ] = '); ReadLn(A[i]) {ввод элементов массива} end; S := 0; {присваивание начального значения} For i := 1 to N do begin k:=I; S := S+A[k]; k:=k+2; end; WriteLn; WriteLn(S= ', S : 5 : 1); ReadLn END. {Сумма элементов, стоящих на нечётных местах в 1m массиве}