Преподавателю
Информатика
Карточки по теме «Работа с одномерными массивами в программе Pascal ABC»

Карточки по теме «Работа с одномерными массивами в программе Pascal ABC»

Цели: Обобщить и закрепить знания по теме “Одномерные массивы”. Развитие творческого мышления, коммуникативных навыков умения работать в группе, паре. Воспитывать устойчивый интерес к предмету, положительное отношение к знаниям. Формирование операционного мышления направленного на выбор оптимальных решений. Знания, умения, навыки и качества, которые актуализируют/приобретут/закрепят/ ученики в ходе выполнения задания: Закрепление знаний по теме “Массивы”. Умение оценивать свой потенциал и выбира...

Раздел	Информатика
Класс	-
Тип	Другие методич. материалы
Автор	Власова О.А.
Дата	16.10.2014
Формат	doc
Изображения	Нет

Поделитесь с коллегами:

Карточки по теме «Работа с одномерными массивами в программе Pascal ABC»

Задача 1. Дан массив чисел. Найти, сколько в нем пар одинаковых соседних элементов.

Переменные:

mas - массив чисел;
n - размер массива;
i - переменная цикла;
k - количество одинаковых пар соседних элементов.

program zadacha1;

uses crt;

var mas : array [1..100] of integer;

i, k, n : integer;

begin

write('введи количество элементов n=');

readln(n);

k:=0;

for i:=1 to n do

begin

write('введи элемент массива');

readln(mas[i]);

end;

for i:=1 to n-1 do

if mas[i]=mas[i+1] then k:=k+1;

writeln('одинаковых пар соседних элементов ',k);

{вывод массива}

for i:=1 to n do

write(' ',mas[i]);

readln;

end.

Задача 2. Дан массив чисел. Вывести на экран количество трех соседних одинаковых элементов.

Задача 3. Дано 20 целых чисел. Распечатать их в обратном порядке по 6 чисел в строке.

program zadacha1;

uses crt;

const d=6; n=20;

var x : array [1..100] of integer;

i, k : integer;

begin {ввод массива:}

writeln('введи массив из ', n,' чисел');

for i:=1 to n do read(x[i]);

{вывод массива по d чисел в строке:}

k:=0; {номер числа в строке}

for i:=n downto 1 do

begin

k:=k+1;

write(x[i]:4);

if k=d then

begin

k:=0; writeln;

end; end;

if k <> 0 then writeln end.

Задача 3. Дано 10 целых чисел. Распечатать их в обратном порядке по 4 числа в строке.

Задача 1. Дан массив чисел. Найти, сколько в нем пар одинаковых соседних элементов.

Переменные:

mas - массив чисел;
n - размер массива;
i - переменная цикла;
k - количество одинаковых пар соседних элементов.

program zadacha1;

uses crt;

var mas : array [1..100] of integer;

i, k, n : integer;

begin

write('введи количество элементов n=');

readln(n);

k:=0;

for i:=1 to n do

begin

write('введи элемент массива');

readln(mas[i]);

end;

for i:=1 to n-1 do

if mas[i]=mas[i+1] then k:=k+1;

writeln('одинаковых пар соседних элементов ',k);

{вывод массива}

for i:=1 to n do

write(' ',mas[i]);

readln;

end.

Задача 2. Дан массив чисел. Вывести на экран количество трех соседних одинаковых элементов.

Задача 3. Дано 20 целых чисел. Распечатать их в обратном порядке по 6 чисел в строке.

program zadacha1;

uses crt;

const d=6; n=20;

var x : array [1..100] of integer;

i, k : integer;

begin {ввод массива:}

writeln('введи массив из ', n,' чисел');

for i:=1 to n do read(x[i]);

{вывод массива по d чисел в строке:}

k:=0; {номер числа в строке}

for i:=n downto 1 do

begin

k:=k+1;

write(x[i]:4);

if k=d then

begin

k:=0; writeln;

end; end;

if k <> 0 then writeln end.

Задача 3. Дано 10 целых чисел. Распечатать их в обратном порядке по 4 числа в строке.

загрузить