Использование частных случаев в условиях. Флаг в задачах Задача. Определить место первого четного элемента в массиве.

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



Advertisements
Похожие презентации
Программирование на языке Паскаль. Часть II К. Поляков, Поиск в массиве 1 Задача – найти в массиве элемент, равный X, или установить, что его.
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.
1 Программирование на языке Паскаль Тема 2. Максимальный элемент массива.
К. Поляков, Программирование на языке Паскаль Часть II Тема: Поиск максимального элемента массива.
Pascal: Условный оператор. Условный оператор позволяет проверить некоторое условие и в зависимости от результатов проверки выполнить то или иное действие.
Program maxsimum; const n=10; var a:array [1..n] of integer; max,i:integer;begin ВВОД ЭЛЕМЕНТОВ МАССИВА; max:=a[1]; for i:=2 to n do if a[i]> max then.
Задача: определить является ли простым заданное число.
Классная работа. Работа с индексами элементов массива.
Решение задач с использованием массивов
5.Дана матрица А и вектор Х соответствующих размерностей. Нечетные строки матрицы заменить элементами вектора Х. Результаты работы: n=4 m=
Тема: Нахождение минимального и максимального элемента в массиве.
Ветвление Полное ветвление Если УСЛОВИЕ то КОМАНДА 1 иначе КОМАНДА 2; IF УСЛОВИЕ THEN КОМАНДА 1 ELSE КОМAНДА 2;
Проверка пройденного материала. Исправьте ошибки в решении задачи: заполнить и вывести массив W(3) вещественных чисел Program Mass; Var b:Array[1..10]
3. Дана прямоугольная матрица, элементами которой являются целые числа. Поменять местами ее строки следующим образом: первую строку с последней, вторую.
Доступ к элементам массива Изменение элементов массива.
1 Автор разработки: Розанова Татьяна Аркадьевна, учитель информатики МОУ СОШ 2 города Кинешмы Ивановской области 2011 – 2012 учебный год Автор разработки:
Поиск максимального и минимального элемента линейного массива на языке Turbo Pascal. Program poisk; Const n=10; Type mass=array[1..n] of integer; Var a:mass;
1 Программирование на языке Паскаль Максимальный элемент массива.
Задача: даны два числа, найти их наибольший общий делитель.
Задача: даны два числа, найти их наибольший общий делитель.
Транксрипт:

Использование частных случаев в условиях

Флаг в задачах Задача. Определить место первого четного элемента в массиве

Программа: const n=10; Var m:array[1..n]of integer ; f:integer; pch:integer; Begin { заполнить и вывести исходный массив } i:=1; f:=0; {значения элементов нечетные} while ( i<=n ) and (f=0) do if not odd(m[i]) then f:=1 {нашли четное значение} else i:=i+1; writeln; pch:=i; write(место первого четного -,pch) ; End.

Проверка на упорядоченность Задача. Проверить, упорядочен ли массив по возрастанию

Программа: const n=10; Var m:array[1..n]of integer ; f:integer; pch:integer; Begin { заполнить и вывести исходный массив } i:=1; f:=0; {упорядочен} while ( i<n ) and ( f=0) do if m[i]>m[i+1] then f:=1 {не упорядочен} else i:=i+1; writeln; if f=0 then write(упорядочен ) else write(нет) ; End.End.