Методическое пособие по массивам Одномерные массивы Двухмерные массивы

Содержание

Слайд 2

Методическое пособие по одномерным массивам Задача №1 Задача №2 Задача №3

Методическое пособие по одномерным массивам

Задача №1
Задача №2
Задача №3
Задача № 4
Задача №

5
Слайд 3

Задача № 1 Дан одномерный целочисленный массив из 7 элементов. Найдите сумму отрицательных элементов.

Задача № 1

Дан одномерный целочисленный массив из 7 элементов. Найдите

сумму отрицательных элементов.
Слайд 4

Ответ Program massiv1; uses CRT; var a: array [1..7] of integer;

Ответ

Program massiv1;
uses CRT;
var a: array [1..7] of integer;
S,i: integer;
Begin
clrscr;
for i:=1

to 7 do
read( a[i]);
s:=0;
for i:=1 to 7 do
if a[i]<0 then
s:=s+a[i];
write(s);
end.
Слайд 5

Задача № 2 Дан одномерный целочисленный массив из 8 элементов. Найдите произведение положительных элементов

Задача № 2

Дан одномерный целочисленный массив
из 8 элементов.
Найдите

произведение положительных элементов
Слайд 6

Ответ Program massiv2; uses CRT; var a: array [1..8] of integer;

Ответ

Program massiv2;
uses CRT;
var a: array [1..8] of integer;
P,i: integer;
Begin
clrscr;
for i:=1 to

8 do
read( a[i]);
P:=1;
for i:=1 to 8 do
if a[i]>0 then
p:=p*a[i];
write(p);
end.
Слайд 7

Задача № 3 Дан одномерный целочисленный массив из 10 элементов. Посчитайте количество отрицательных элементов.

Задача № 3

Дан одномерный целочисленный массив из 10 элементов. Посчитайте

количество отрицательных элементов.
Слайд 8

Ответ Program massiv3; uses CRT; var a: array [1..10] of integer;

Ответ

Program massiv3;
uses CRT;
var a: array [1..10] of integer;
k,i: integer;
Begin
clrscr;
for i:=1 to

10 do
read( a[i]);
k:=0;
for i:=1 to 10 do
if a[i]<0 then
k:=k+1;
write(k);
end.
Слайд 9

Задача №4 Дан одномерный целочисленный массив из 10 элементов. Найдите их среднее арифметическое.

Задача №4

Дан одномерный целочисленный массив из 10 элементов. Найдите их

среднее арифметическое.
Слайд 10

Ответ Program Massiv; uses CRT; var a:array [1..10] of integer; i,k,s:integer;

Ответ

Program Massiv;
uses CRT;
var a:array [1..10] of integer;
i,k,s:integer;
c:Real;
Begin
clrscr;
for i:=1 to 10 do
read(a[i]);
s:=0;
k:=0;
for

i:=1 to 10 do
Begin
s:=s+a[i];
k:=k+1;
end;
c:=s/k;
write(c);
end.
Слайд 11

Задача № 5 Дан одномерный целочисленный массив из 10 элементов .Найдите максимальный элемент

Задача № 5

Дан одномерный целочисленный массив из 10 элементов .Найдите

максимальный элемент
Слайд 12

Ответ Program Massiv; uses CRT; var a:array [1..10] of integer; i,max,n:integer;

Ответ

Program Massiv;
uses CRT;
var a:array [1..10] of integer;
i,max,n:integer;
Begin
clrscr;
for i:=1 to 10 do
read(a[i]);
n:=1;
max:=a[i];
for

i:=1 to 10 do
If a[i]>max then
Begin
max:=a[i];
n:=i;
end;
write('n=',n);
write('max=',max);
end.
Слайд 13

Методическое пособие по двухмерным массивам Задача № 1 Задача № 2

Методическое пособие по двухмерным массивам

Задача № 1
Задача № 2
Задача № 3
Задача

№ 4
Задача № 5
Слайд 14

Задача № 1 Дан двухмерный целочисленный массив 5х6. Заполнить с клавиатуры.

Задача № 1

Дан двухмерный целочисленный массив 5х6. Заполнить с клавиатуры.

Вывести в стандартной форме
Найти произведение отрицательных элементов
Слайд 15

Ответ Program massiv1; uses CRT; var a: array [1..5,1..6] of integer;

Ответ

Program massiv1;
uses CRT;
var a: array [1..5,1..6] of integer;
I,j,p: integer;
Begin
clrscr;
for i:=1 to

5 do
for j:=1 to 6 do
read( a[i,j]);
clrscr;
for i:=1 to 5 do
Begin
For j:=1 to 6 do
write(a[i,j:5);
writeln;
end.
P:=1;
for i:=1 to 5 do
for j:=1 to 6 do
If a[I,j] < 0 then
P:=P*a[i,j];
write (‘p=’,p);
end.
Слайд 16

Задача № 2 Дан двухмерный целочисленный массив 3х3.Заполнить случайными числами из

Задача № 2

Дан двухмерный целочисленный массив 3х3.Заполнить случайными числами из промежутка

(-5,7). Найти максимальный элемент выше диагонали.
Слайд 17

Ответ Program massiv2; uses CRT; var a: array [1..3,1..3] of integer;

Ответ

Program massiv2;
uses CRT;
var a: array [1..3,1..3] of integer;
max,i,j: integer;
Begin
clrscr;
Randomize;
for i:=1 to

3 do
for i:=1 to 3 do
a[i,j]:=random(13)-5;
for i:=1 to 3 do
Begin
for j:=1 to 3 do
write(a[i,j]:5);
writeln;
end;
max:=a[1,2];
for i:=1 to 3 do
for j:=1 to 3 do
If (imax) then
max:=a[i,j];
write (‘max=’,max);
end.
Слайд 18

Задача № 3 Дан двухмерный целочисленный массив 4х5.Заполнить случайными числами промежутка

Задача № 3

Дан двухмерный целочисленный массив 4х5.Заполнить случайными числами промежутка (-5,7).

Найти сумму элементов на главной диагонали диагонали.
Слайд 19

Ответ Program massiv3; uses CRT; var a: array [1..4,1..5] of integer;

Ответ

Program massiv3;
uses CRT;
var a: array [1..4,1..5] of integer;
s,i,j: integer;
Begin
clrscr;
randomize;
for i:=1

to 4 do
for i:=1 to 5 do
a[i,j]:=random(13)-5;
for i:=1 to 4 do
Begin
for j:=1 to 5 do
write(a[i,j]:5);
writeln;
end;
S:=0;
for i:=1 to 3 do
for j:=1 to 3 do
If i=j then
s:=s+a[i,j];
write (‘s=’,s);
end.
Слайд 20

Задача № 4 Дан двухмерный целочисленный массив 4х6.Заполнить случайными числами промежутка

Задача № 4

Дан двухмерный целочисленный массив 4х6.Заполнить случайными числами промежутка (-5,7).

Найти среднее арифметическое элементов, стоящих ниже главной диагонали.
Слайд 21

Ответ Program massiv4; uses CRT; var a: array [1..4,1..6] of integer;

Ответ

Program massiv4;
uses CRT;
var a: array [1..4,1..6] of integer;
k,s,i,j: integer;
d: real;
Begin
clrscr;
randomize;
for i:=1

to 4 do
for i:=1 to 6 do
a[i,j]:=random(13)-5;
for i:=1 to 4 do
Begin
for j:=1 to 6 do
write(a[i,j]:5);
writeln;
end;
k:=0;s:=0;
for i:=1 to 4 do
for j:=1 to 6 do
If i>j then
Begin
S:=S+a[i];
K:=k+1;
End;
d:=s/k;
write (d);
end.
Слайд 22

Задача № 5 Дан двухмерный целочисленный массив 5х5.Заполнить случайными числами промежутка

Задача № 5

Дан двухмерный целочисленный массив 5х5.Заполнить случайными числами промежутка (-5,7).

Сосчитать количество элементов на побочной диагонали.
- Предыдущая
Владимир Биллиг профессор кафедры информатики Тверского госуниверситета Курс «Офисное программирование» и его роль в образован
Следующая -
Эффективная разработка отчётов на платформе .NET Александр Федяшов Fast Reports Inc.

Похожие презентации

Поиск научной информации
Разработка и эксплуатация клиентской части
Состав поисковых систем
Системы счисления. Математические основы информатики
Заместитель. Проблема&amp;Решение
Основы программирования в среде Robolab 2.9
Модели. Тема урока: Табличные модели.
Процесс проектирования и разработки ПО Введение
Дистанционное обучение через Интернет. Обзор ресурсов. Анализ и классификация. ФЭУТ III – 5 Смирнова Елена Алпатова Татьяна
DBMS data models. The relational data model. Technology development of Web-based applications
Презентация "Действия с фрагментом текста" - скачать презентации по Информатике
Презентация на тему Компьютер и здоровье
Маршрутизация и транспортировка данных
Онлайн сервис Право на пенсию 50 +
Линейные алгоритмы
Введение в информатику
ЛК Инструкция
Создание кроссворда в текстовом процессоре Word. 8 класс
Основы HTML
Условная функция и логические выражения в табличном процессоре Excel
Изображение
Структура HTML-документа
Web-технологии: HTML, CSS, JavaScript, JQuery
Массивы
Представление информации в компьютере
Оплата мероприятий
Презентация "Основные определения и критерии классификации угроз" - скачать презентации по Информатике
Выстраивание личного бренда
Вы можете прислать нам Вашу презентацию и мы опубликуем ее на сайте.
Обратная связь
Для правообладателей
Email: Нажмите что бы посмотреть