Одномерный массив Turbo Pascal 9 класс. Объясните каждый шаг в программе. Что делает программа? Сколько раз срабатывает цикл? Var A : array [1..10] 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

PROGRAM example1; const m=100; var a : ARRAY [1.. m] of INTEGER; i,k,n,q : INTEGER; BEGIN readln (n); randomize; WRITELN('Полученный массив:' ); FOR i.
5.Дана матрица А и вектор Х соответствующих размерностей. Нечетные строки матрицы заменить элементами вектора Х. Результаты работы: n=4 m=
Способы ввода значений в массив на Паскале 1) Заполнение массива с клавиатуры а) program massiv_1; const n=5; vari: integer; a: array[1..n] of integer;
Шутилина Л.А., 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]
Тема: Нахождение минимального и максимального элемента в массиве.
Работа с одномерными массивами Урок информатики 9 кл.
Решение задач с использованием массивов
3. Дана прямоугольная матрица, элементами которой являются целые числа. Поменять местами ее строки следующим образом: первую строку с последней, вторую.
Тема: «Понятие массива. Назначение. Тип. Размер. Размерность. Одномерный массив» :56:36.
Задачи ЕГЭ С2. Демо 2006 С2 Опишите на русском языке или на одном из языков программирования алгоритм поиска второго по величине (т.е. следующего по величине.
1 Программирование на языке Паскаль Тема 2. Максимальный элемент массива.
Одномерные массивы Введение. 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;
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] Двумерный массив можно представить.
Тема: «Понятие квадратная матрица» :17:47.
Дан массив. Найти максимальный и минимальный элементы массива и поменять их местами. Выполнение программы Выполнение программы.
Program Summa; {Суммирование элементов в 1м массиве} Uses Crt; Type Massiv = Array [1..100] of Real; Var A : Massiv; i, N : Integer; S : Real; Begin Write('Введите.
Оператор присваивания := Ввода Read(x1,x2,…) Readln(x1,x2,…) Вывода Writex(x1,x2,…) Writeln(x1,x2,…) Составной оператор begin …. End;
Проверка пройденного материала. Исправьте ошибки в решении задачи: заполнить и вывести массив W(3) вещественных чисел Program Mass; Var b:Array[1..10]
Транксрипт:

Одномерный массив Turbo Pascal 9 класс

Объясните каждый шаг в программе. Что делает программа? Сколько раз срабатывает цикл? Var A : array [1..10] of integer ; I : byte; Begin For i:=1 to 10 do Readln (a[i]); End;

Объясните каждый шаг в программе. Что делает программа? Сколько раз срабатывает цикл? Var A: array [1..10] of integer; I : byte Begin For i :=1 to 10 do A [ i ]:= random (10); End;

Что делает программа? Сколько раз срабатывает цикл? Что мы увидим при запуске программы? Var A: array [1..10] of integer; I : byte ; Begin For i :=1 to 10 do Write ( a [ i ], ); End;

Что делает программа? Сколько раз срабатывает цикл? Что мы увидим при запуске программы? Var A: array [1..10] of integer; I : byte ; Begin For i:=1 to 10 do Writeln (a[, i,]=, a[i]); End;

Что делает программа? Сколько раз срабатывает цикл? Что мы увидим при запуске программы? var a : array [1..100] of integer; I,n, s : integer; begin writeln('Вводите размер массива'); readln(n); for i:=1 to n do readln(a[i]); s:=0; for i:=1 to 10 do s:=s+a[i]; writeln('ответ'); writeln(s); readln; end.

Что делает программа, как работает? Var a:array[1..n] of integer; s,i:integer; Begin s:=0; for i:=1 to n do begin read(a[i]); if a[i]>0 then s:=s+a[i]; end; writeln('s=',s); readln; end.

var A: array[1..10] of integer; s: integer; i: integer; temp: integer; begin FOR I:=1 to 10 do begin WriteLn ('Введи число ', i); ReadLn(A[i]); end; FOR I:=1 to 10 do begin Write (A[i]); Write(' '); end; i:=1; While i

Var i: Byte; A: Array[1..5] Of Integer; M: Integer; Begin Randomize; For i:=1 To 5 Do A[i]:=Random(11); WriteLn('Исходный массив'); For i:=1 To 5 Do Write(A[i], ' '); M:=A[1]; For i:=2 To 5 Do If M > A[i] Then M:=A[i]; WriteLn( M); End.

const N=30; var a:array[1..N] of real; Max1, Max2, i: real; begin Max1:=a[1]; Max2:=a[1]; if a[2]>Max1 then Max1:=a[2] else Max2:=a[2]; for i:=3 to N do begin if a[i]>Max1 then begin Max2:=Max1; Max1:=a[i]; end else if a[i]>Max2 then Max2:=a[i]; end; writeln(Max2); end.

const N=30; var a:array[1..N] of integer; MaxSum, MaxNum, i: integer; begin MaxNum:=1; MaxSum:=a[1]+a[2]; for i:=2 to N-1 do begin if a[i]+a[i+1]>MaxSum then begin MaxNum:=i; MaxSum:=a[i]+a[i+1]; end end; writeln(MaxNum); end.