Типовые задачи на применение массивов ( Паскаль) Составила Томашева Г.А. учитель МОУ СОШ 2 г Нефтекумск

Задача 1 : Найти максимальный элемент массива А[1:8], заполненного с клавиатуры. Томашева Г.А

Var i:integer; max: real; A: array[1..8] of real; begin; {заполняем таблицу и печатаем } For i:=1 to 8 do read (A[i]); For i:=1 to 8 do writeln (A[,I,]=, A[i]); For i:=1 to 8 do begin read (A[i]); writeln (A[,I,]=, A[i]); end; {считаем первый элемент максимальным} mах:=a[1]; {сравниваем элементы с максимальным и заменяем} for i:=1 to 8 do if mах<A[i] then max:=A[i]; Writeln (max=, max); {печатаем результат} end. Томашева Г.А.

Задача 2: Дан одномерный массив. Найти сумму отрицательных элементов данного массива. Томашева Г.А

Program sum; Var i:integer;s: real; B:array[1..10]of real; Begin {заполняем таблицу и суммируем отрицательные} for i:=1 to 10 do begin B[i]:=15*random-5; If B[i]<0 then s:=s+B[i]; end; {печатаем сумму} Writeln (s=,s); end. Томашева Г.А

Задача 3: Дан одномерный массив х(10). Найти минимальный элемент в массиве и вывести на экран массив. Массив заполняется с клавиатуры. Дан одномерный массив х(10). Найти минимальный элемент в массиве и вывести на экран массив. Массив заполняется с клавиатуры. Томашева Г.А

Program MIN; Program MIN; Uses crt; var x: integer; M: array [1;10] of integer var x: integer; M: array [1;10] of integer begin begin for i:=1 to 10 do for i:=1 to 10 do begin begin Wrieln (Vvedite element,i); Wrieln (Vvedite element,i); readln(x(I)); readln(x(I)); end; end; M:=x[1]; M:=x[1]; for i:=2 to 20 for i:=2 to 20 begin begin writeln (element,i,raven,x[i]); writeln (element,i,raven,x[i]); if x[i]<M then M:=x[i]; if x[i]<M then M:=x[i]; end end Writeln (MIN=, M); Writeln (MIN=, M); end. end. Томашева Г.А

Program MIN; Uses crt; var M,I: integer; x: array [1..10] of integer; begin f for i:=1 to 10 do b begin W Writeln (Vvedite element,i); r readln(x[i]); end; M:=x[1]; for i:=2 to 10 do b begin writeln (element,i,raven,x[i]); i if x[i]<M then M:=x[i]; end; W Writeln (MIN=, M); end. Томашева Г.А

Задача 4. В массиве М[1:10] заменить отрицательные элементы нулями, если М[i][-5,10] Найдите ошибки: Program 1; Begin {заполняем таблицу} for i:=1 to 10 do M[i]:=15*random-5 for M:=-5 to 10 do If M[i]<0 then s:=s+M[i] {печатаем таблицу} For i:=1 to 10 do Writeln (M[I,], M[i]) end. Сравните: Program 1; Begin {заполняем таблицу} for i:=1 to 10 do begin M[i]:=15*random-5; writeln (M[i]); end; for i:=1 to 10 do If M[i]<0 then M[i]:=0; {печатаем таблицу} For i:=1 to 10 do Writeln (M[,I,], M[i]); end. Томашева Г.А

Задача 5: Hайти сумму элементов каждой строки целочисленного массива а[1:5,1:5], заполненного случайными числами. Томашева Г.А

uses crt; var i,j:integer; a:array[1..5,1..5] of integer; s: array[1..5] of integer; { заполняем и печатаем массив} begin clrscr; for i:=1 to 5 do begin for j:=1 to 5 do begin a[i,j]:=round(10*random+5); write(a[i,j]); end; writeln; end; write ('сумма по строкам '); writeln; for i:=1 to 5 do {просмотрим строки} begin s[i]:=0; {суммируем элементы i-той строки} for j:=1 to 5 do s[i]:=s[i]+a[i,j]; writeln ('s[',i,']=',s[i]); end; end. Томашева Г.А

Результаты работы: S[1]=45 S[2]=46 S[3]=59 S[4]=49 S[5]=55 Томашева Г.А

Программа «Попугай 1» Составить программу «Говорящий попугай». Словарь попугая включает слова: «Кеша хороший», «Свободу попугаям», «хи-хи», «ах» Томашева Г.А

uses crt; {попугай 1} const k=4; var b:string;i,x:integer; a:array[1..k] of string; begin clrscr; a[1]:='кеша хороший'; a[2]:='свободу попугаям'; a[3]:='хи-хи'; a[4]:='ах'; randomize; writeln ('выход в=0'); Repeat writeln ('ваш вопрос'); readln(b); if b='0' then break; x:=trunc(random(k))+1; writeln('ответ попугая=',a[x]); until b='0'; readln; end. Томашева Г.А

Программа - простейший справочник. Программа - простейший справочник. Простейший справочник по названию объекта сообщает информацию о нём: по фамилии- телефон, по наименованию товара - его цену Томашева Г.А

Program p2;(простейший справочник) Uses crt; const const n=3; a:array[1..n] of string=(Иванов,Петров,Сидоров); C: array [1..n] of string=( , , ); Var Var b :string; i: integer; Begin clrscr; Writeln(b=); read(b); For i:=1 to n do If a[i]=b then writeln(a[i],,c[i]); End. Томашева Г.А

Программа «Сортировка выбором» Сортировка выбором Томашева Г.А

Программа «Сортировка выбором» Сортировка выбором Program SortVybor; Const n = 20; Var Mas : array[1..n] of integer; k,m,min,i : integer; Begin for i:=1 to n do {Ввод исходного массива} readln(Mas[i]); m:=n; {значение константы n изменять нельзя, поэтому вводим рабочую переменную m} while m>1 do begin{Пока есть неотсортированные элементы} min:=Mas[1]; k:=1; for i:=1 to m do{Поиск минимального элемента из m} if min > Mas[i] then begin min := Mas[i]; k:=i end; Mas[k]:=Mas[m];{Обмен минимального и последнего элементов} Mas[m]:=min; m:=m-1 end; for i:=1 to n do write (Mas[i]:3); writeln End. Томашева Г.А

Сортировка обменом (метод «Пузырька») Томашева Г.А

Идея сортировки обменом в следующем: 1) по очереди от первого до последнего сравниваются два соседних элемента. 2) если элементы стоят в нужном порядке, то есть следующий меньше предыдущего, то ничего делать не надо, иначе они меняются местами; 3) когда закончена проверка и перестановка элементов всех пар, самый маленький элемент как бы «выталкивается» на последнюю позицию в массиве; 4) номер последней позиции уменьшается на 1; 5) если не все элементы отсортированы, повторить пункты 1-4.

Program SortObmen; Const n = 20; Var Mas : array[1..n]of integer; m,m1,i : integer; Begin for i:=1 to n do readln(Mas[i]); m:=n-1; {последняя пара – n-1 и n элементы} while m>1 do begin {пока есть, что сравнивать и переставлять, делаем} for i:=1 to m do if Mas[i] < Mas[i+1] then{сравниваем два соседних элемента} begin m1 := Mas[i]; Mas[i]:=Mas[i+1]; {меняем местами, если это надо} Mas[i+1]:=m1; end; m:=m-1; end; {количество неотсортированных элементов уменьшилось на 1 } for i:=1 to n do write (Mas[i]:3); writeln; End. Томашева Г.А