1063709
столько раз учителя, ученики и родители
посетили сайт «Инфоурок»
за прошедшие 24 часа
+Добавить материал
и получить бесплатное
свидетельство о публикации
в СМИ №ФС77-60625 от 20.01.2015
Дистанционные курсы профессиональной переподготовки и повышения квалификации для педагогов

Дистанционные курсы для педагогов - курсы профессиональной переподготовки от 1.410 руб.;
- курсы повышения квалификации от 430 руб.
Московские документы для аттестации

ВЫБРАТЬ КУРС СО СКИДКОЙ ДО 90%

ВНИМАНИЕ: Скидка действует ТОЛЬКО до конца апреля!

(Лицензия на осуществление образовательной деятельности №038767 выдана ООО "Столичный учебный центр", г.Москва)

ИнфоурокИнформатикаКонспектыБір өлшемді,екі өлшемді массивтер.(жиымдар)

Бір өлшемді,екі өлшемді массивтер.(жиымдар)

библиотека
материалов
Скачать материал целиком можно бесплатно по ссылке внизу страницы.


Күні : Бекітемін ----------------------------------------------

Оқу ісінің меңгерушісі

Сабақтың тақырыбы: Бір өлшемді,екі өлшемді массивтер.(жиымдар)

Сабақтың  мақсаты:      

1.  Білімдік: Оқушыларға жиымдардың оқушыларды ілесу операторының  жазылу  тәртібімен таныстыру. Программа құруды үйрету.

2.  Дамытушылық:  әртүрлі есептерді  беру арқылы оқушылардың  түсініктерін арттыру  арқылы білімдерін  арттыру.

3.  Тәрбиелік:  оқушыларды есеп шығару кезінде есептің  шартына байланысты оператор  мен  қызметші  сөздерді  жазуға  тәрбиелеу.  

Сабақтың типі:  интегралды сабақ

Пән аралық байланыс: математика пәні

Көрнекіліктер:  тақта, компьютер,электронды оқулық.

Сабақтың әдісі: Теориялық білімді практикада пайдалану.түсіндіру, сұрақ – жауап, есеп шығару

Сабақтың тәсілі: жаппай жұмыс, жекелей жұмыс, ауызша сұрақтарға жауап.

Сабақтың  барысы:

1.     Ұйымдастыру

2.     Өткенді  қайталау

3.     практикалық жұмыс.компьютермен жұмыс жасау.

4.     Пысықтау

5.     Бағалау

6.     Үй  тапсырмасы

.     практикалық жұмыс


1.13 бүтін саннан тұратын тізбектің арифметикалық ортасын табатын программа құралық.


PROGRAM ORTA;

Var

X:array [1..13] of integer;{массивті сипаттау}

I:integer;

S:real;

Begin

S:=0;

Writeln(‘бос орын арқылы 13 сан енгізіңдер:’);

For i:=1 to 13 do

Begin

Read(x[i]);{массив элементтерін енгізу}

S:=s=x[i];{массив эл-нің қосындысын есептеу}

End;

S:=s/13;{арифметикалық ортасын есептеу}

Writeln(‘s=’,s:8:4);{нәтижені баспаға шығару}

End.

Мысал 2: n элементтен тұратын нақты сандар жиымының элементтерін өсуі бойынша реттеп орналастыру программасын құралық.

Program ret;

Var

A:array[1..50] of real;{А массивін сипаттау}

K,I,j: integer;

M:real;

Begin

Write (‘элементтер саны n-ді (n<50) енгізіңдер: ’ );

Readln(n);{массив өлшемін енгізу}

For k:=1 to n do {цикл ішінде массив элем-рін енгізу}

Begin

Write(k, ‘-элементті енгізіңдер:=’);

Readln(a[k]);

End;

For k:=1 to n do

begin

i:=k;{массивтің 1-ші индексін сақтап қою}

for j:=k+1 to n do{екінші цикл ашу}

if a[j]{ең үлкен элементті анықтау}

begin

i:=j; m:=a[k]; a[k]:=a[i];{элементтер орнын ауыстыру}

a[i]:=m;

end;

write(‘’, a[k]:6:2);{баспаға шығару}

end;end.

Екіөлшемді а және b матрицаларының қосындысы болып табылатын s матрицасын табу керек.

Program kosu;

Var

A,b,s:array[1..3, 1..3] of real;{a,b және s матрицаларын сипаттау}

i,j:integer;

begin

writeln(‘а жиымы элементтерін босорын арқылы енгізіңдер:’);

for i:=1 to 3 do

for j:=1 to 3 do read(a[i,j]);{а матрицасын енгізу}

writeln;

writeln(‘b жиымы элементтерін босорын арқылы енгізіңдер:’);

for i:=1 to 3 do

for j:=1 to 3 do begin

read(b[i,j]); {b матрицасын енгізу}

s[I,j]:=a[I,j] + b[I,j];{а және b матрицасына қосып, s матрицасына меншіктеу}

end;

writeln(‘қосынды жиымның элементтері:’);

for i:=1 to 3 do begin

for j:=1 to 3 do write(s[I,j]);{жаңа құрылған матрицасының элем-рін баспаға шығару}

writeln;

end;

end.

Мысал 2: Өлшемі 4 х 4 нақты сандардан тұратын матрица берілген. Матрицаның ең кіші элементін табатын программа құралық.

Program matrissa;

Const n=4;

Var

A:array [1..n, 1..n] of real;{а матрицасын сипаттау}

Min,res:real;

I,j,k1,k2:integer;

Begin

Writeln(‘Матрица элементтерін босорын арқылы енгізіңдер:’);

For i:=1 to n do

Begin

For j:=1 to n do read(a[I,j]);{А матрицасын енгізу}

Writeln;

End;

Min:=a[1,1];{1-ші элементті ең кіші деп сақтап қоямыз}

k1:=1; k2:=1;{1-ші элементтің индекстерін сақтап қою}

For i:=1 to n do

For j:=1 to n do begin

If min>a[I,j] then begin{ең кіші элементті анықтау шарты}

Min:=a[I,j];{егер ағымдық эл.кіші болса,min-ді ауыстырамыз }

K1:=I; k2:=j;{сәйкесінше, индекстеріде ауысады}

End;

End;

Writeln(‘ең кіші элемент=’,min:6:2,’бол’,k1:2,’-жолдажәне’,k2:2,’-бағанада орналасқан’);{минимальды эл.баспаға шығару}

End.





Общая информация

Номер материала: ДВ-436643

Вам будут интересны эти курсы:

Курс повышения квалификации «Современные информационные технологии и их использование в работе преподавателей. Системы автоматизированного проектирования одежды и организация технологического процесса»
Курс повышения квалификации «Основы создания интерактивного урока: от презентации до видеоурока»
Курс повышения квалификации «Внедрение системы компьютерной математики в процесс обучения математике в старших классах в рамках реализации ФГОС»
Курс повышения квалификации «Облачные технологии в образовании»
Курс «Оператор персонального компьютера»
Курс «WEB-ВЕРСТКА (HTML, CSS)»
Курс повышения квалификации «Сетевые и дистанционные (электронные) формы обучения в условиях реализации ФГОС по ТОП-50»
Курс профессиональной переподготовки «Информационные технологии в профессиональной деятельности: теория и методика преподавания в образовательной организации»
Курс повышения квалификации «Использование компьютерных технологий в процессе обучения в условиях реализации ФГОС»
Курс повышения квалификации «Специфика преподавания информатики в начальных классах с учетом ФГОС НОО»
Курс повышения квалификации «Введение в программирование на языке С (СИ)»
Курс профессиональной переподготовки «Управление в сфере информационных технологий в образовательной организации»
Курс профессиональной переподготовки «Теория и методика обучения информатике в начальной школе»
Курс повышения квалификации «Современные тенденции цифровизации образования»
Курс повышения квалификации «Современные языки программирования интегрированной оболочки Microsoft Visual Studio C# NET., C++. NET, VB.NET. с использованием структурного и объектно-ориентированного методов разработки корпоративных систем»

Благодарность за вклад в развитие крупнейшей онлайн-библиотеки методических разработок для учителей

Опубликуйте минимум 3 материала, чтобы БЕСПЛАТНО получить и скачать данную благодарность

Сертификат о создании сайта

Добавьте минимум пять материалов, чтобы получить сертификат о создании сайта

Грамота за использование ИКТ в работе педагога

Опубликуйте минимум 10 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Свидетельство о представлении обобщённого педагогического опыта на Всероссийском уровне

Опубликуйте минимум 15 материалов, чтобы БЕСПЛАТНО получить и скачать данное cвидетельство

Грамота за высокий профессионализм, проявленный в процессе создания и развития собственного учительского сайта в рамках проекта "Инфоурок"

Опубликуйте минимум 20 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Грамота за активное участие в работе над повышением качества образования совместно с проектом "Инфоурок"

Опубликуйте минимум 25 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Почётная грамота за научно-просветительскую и образовательную деятельность в рамках проекта "Инфоурок"

Опубликуйте минимум 40 материалов, чтобы БЕСПЛАТНО получить и скачать данную почётную грамоту

Включите уведомления прямо сейчас и мы сразу сообщим Вам о важных новостях. Не волнуйтесь, мы будем отправлять только самое главное.