Скачать презентацию
Идет загрузка презентации. Пожалуйста, подождите
4
Способы ввода значений в массив на Паскале 1) Заполнение массива с клавиатуры а) program massiv_1; const n=5; vari: integer; a: array[1..n] of integer; begin writeln('Введите массив из ', n, ' элементов'); for i:=1 to n do read(a[i]); writeln('Вывод элементов массива'); for i:=1 to n do write(a [i]:4); end.
![Способы ввода значений в массив на Паскале 1) Заполнение массива с клавиатуры а) program massiv_1; const n=5; vari: integer; a: array[1..n] of integer; begin writeln('Введите массив из ', n, ' элементов'); for i:=1 to n do read(a[i]); writeln('Вывод](http://images.myshared.ru/6/680863/slide_4.jpg "Способы ввода значений в массив на Паскале 1) Заполнение массива с клавиатуры а) program massiv_1; const n=5; vari: integer; a: array[1..n] of integer; begin writeln('Введите массив из ', n, ' элементов'); for i:=1 to n do read(a[i]); writeln('Вывод")
5
Способы ввода значений в массив на Паскале Заполнение массива случайными числами из диапазона [a,b]. program massiv_random; const n=5; var i,a,b:integer; t:array[1..n] of integer; begin randomize; writeln('Введите диапазон случайных чисел'); readln(a,b); for i:=1 to n do t[i]:=random(b-a)+a; writeln('Вывод элементов массива'); for i:=1 to n do write(t[i]:4); end.
![Способы ввода значений в массив на Паскале Заполнение массива случайными числами из диапазона [a,b]. program massiv_random; const n=5; var i,a,b:integer; t:array[1..n] of integer; begin randomize; writeln('Введите диапазон случайных чисел'); readln(a](http://images.myshared.ru/6/680863/slide_5.jpg "Способы ввода значений в массив на Паскале Заполнение массива случайными числами из диапазона [a,b]. program massiv_random; const n=5; var i,a,b:integer; t:array[1..n] of integer; begin randomize; writeln('Введите диапазон случайных чисел'); readln(a")
6
Вычисление среднегодовой температуры program Temperature; Var T: array[1..7] of real; i: integer; Tsred: real; begin for i:=1 to 7 do begin Write( 'T[, i : 2, ']= ); Readln(T[i]) end; Tsred:=0; for i:=1 to 7 do Tsred:=Tsred+T[i]; Tsred:=Tsred/7; Writeln('Средняя температура=', Tsred:6:2, ' градусов') end.
![Вычисление среднегодовой температуры program Temperature; Var T: array[1..7] of real; i: integer; Tsred: real; begin for i:=1 to 7 do begin Write( 'T[, i : 2, ']= ); Readln(T[i]) end; Tsred:=0; for i:=1 to 7 do Tsred:=Tsred+T[i]; Tsred:=Tsred/7; Writ](http://images.myshared.ru/6/680863/slide_6.jpg "Вычисление среднегодовой температуры program Temperature; Var T: array[1..7] of real; i: integer; Tsred: real; begin for i:=1 to 7 do begin Write( 'T[, i : 2, ']= ); Readln(T[i]) end; Tsred:=0; for i:=1 to 7 do Tsred:=Tsred+T[i]; Tsred:=Tsred/7; Writ")
Еще похожие презентации в нашем архиве:
![Массивы в Паскале. Создание массива: 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.](/thumbs/6/647881/big_thumb.jpg "Массивы в Паскале. Создание массива: 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.")
![Месяц 010203040506070809101112 Среднее T [ 1:12 ]T [1]T [2]T [3]T [4]T [5]T [6]T [7]T [8]T [9]T [10]T [11]T [12] Температура -21-18-7-610182324176-7-18.](/thumbs/19/1185211/big_thumb.jpg "Месяц 010203040506070809101112 Среднее T [ 1:12 ]T [1]T [2]T [3]T [4]T [5]T [6]T [7]T [8]T [9]T [10]T [11]T [12] Температура -21-18-7-610182324176-7-18.")
![PROGRAM example1; const m=100; var a : ARRAY [1.. m] of INTEGER; i,k,n,q : INTEGER; BEGIN readln (n); randomize; WRITELN('Полученный массив:' ); FOR i.](/thumbs/6/682838/big_thumb.jpg "PROGRAM example1; const m=100; var a : ARRAY [1.. m] of INTEGER; i,k,n,q : INTEGER; BEGIN readln (n); randomize; WRITELN('Полученный массив:' ); FOR i.")
![Program Summa; {Суммирование элементов в 1м массиве} Uses Crt; Type Massiv = Array [1..100] of Real; Var A : Massiv; i, N : Integer; S : Real; Begin Write('Введите.](/thumbs/6/550655/big_thumb.jpg "Program Summa; {Суммирование элементов в 1м массиве} Uses Crt; Type Massiv = Array [1..100] of Real; Var A : Massiv; i, N : Integer; S : Real; Begin Write('Введите.")
![Упорядоченный набор данных одного типа называется массивом. Каждый элемент массива описывается в общем виде как A[i], где A – имя массива, i – номер элемента.](/thumbs/5/524040/big_thumb.jpg "Упорядоченный набор данных одного типа называется массивом. Каждый элемент массива описывается в общем виде как A[i], где A – имя массива, i – номер элемента.")
![Одномерный массив Turbo Pascal 9 класс. Объясните каждый шаг в программе. Что делает программа? Сколько раз срабатывает цикл? Var A : array [1..10] of.](/thumbs/4/119844/big_thumb.jpg "Одномерный массив Turbo Pascal 9 класс. Объясните каждый шаг в программе. Что делает программа? Сколько раз срабатывает цикл? Var A : array [1..10] of.")
![ПРИМЕРЫ РЕШЕНИЯ ЗАДАЧ С ОДНОМЕРНЫМИ МАССИВАМИ. ЗАДАЧА: Вычислить сумму элементов массива program summa(input,output); var I:integer; T:array[1..5] of.](/thumbs/6/535895/big_thumb.jpg "ПРИМЕРЫ РЕШЕНИЯ ЗАДАЧ С ОДНОМЕРНЫМИ МАССИВАМИ. ЗАДАЧА: Вычислить сумму элементов массива program summa(input,output); var I:integer; T:array[1..5] of.")
![PROGRAM example1; {сдвинуть циклически элементы массива вправо} const m=10; var a : ARRAY [1.. m] of INTEGER; i,k,n: INTEGER; BEGIN randomize; n:=m; WRITELN('Полученный.](/thumbs/6/560384/big_thumb.jpg "PROGRAM example1; {сдвинуть циклически элементы массива вправо} const m=10; var a : ARRAY [1.. m] of INTEGER; i,k,n: INTEGER; BEGIN randomize; n:=m; WRITELN('Полученный.")
![Месяц 010203040506070809101112 T [ 1:12 ]T [1]T [2]T [3]T [4]T [5]T [6]T [7]T [8]T [9]T [10]T [11]T [12] Температура-21-18-7-610182324176-7-18 начало конец.](/thumbs/19/1192892/big_thumb.jpg "Месяц 010203040506070809101112 T [ 1:12 ]T [1]T [2]T [3]T [4]T [5]T [6]T [7]T [8]T [9]T [10]T [11]T [12] Температура-21-18-7-610182324176-7-18 начало конец.")
