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

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

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

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

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

Инфоурок / Информатика / Конспекты / Паскаль тілінің параметрлі қайталау операторы - For.

Паскаль тілінің параметрлі қайталау операторы - For.


Напоминаем, что в соответствии с профстандартом педагога (утверждён Приказом Минтруда России), если у Вас нет соответствующего преподаваемому предмету образования, то Вам необходимо пройти профессиональную переподготовку по профилю педагогической деятельности. Сделать это Вы можете дистанционно на сайте проекта "Инфоурок" и получить диплом с присвоением квалификации уже через 2 месяца!

Только сейчас действует СКИДКА 50% для всех педагогов на все 184 курса профессиональной переподготовки! Доступна рассрочка с первым взносом всего 10%, при этом цена курса не увеличивается из-за использования рассрочки!

ВЫБРАТЬ КУРС И ПОДАТЬ ЗАЯВКУ
библиотека
материалов
Скачать материал целиком можно бесплатно по ссылке внизу страницы.

Сыныбы : 9

Сабақтың тақырыбы: Паскаль тілінің параметрлі қайталау операторы - For.

Мақсаты:

1. FOR –DO операторы көмегімен программалауды үйренеді.

2. Программаны ықшам, сапалы жазу дағдысын қалыптастырады. Программаның математикалық моделі туралы түсініктерін тереңдетеді.

3. Программа мәтінін экранға және дәптерге жазудың эстетикасын сақтауды ескереді.

Көрнекілігі:

Сабақ жоспарын экранда проекциялау, презентация, компьютер.


Өтілу әдісі: Теориялық сабақ.

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

  1. Оқушыларды түгелдеу, журнал толтыру, оқушылардың дәптерлерін, оқулықтарын қарап шығу.

  2. Сынып, тақта, парта тазалығын қарап шығу, қажет болса ескертулер жасау.

Оқушылардың назарын сабаққа аудару.

Проблеманы айқындау кезеңі:

Қысқаша сұрақ-жауап. (1-2 ұп)

  • Әзір-қайталау операторы не үшін қолданылады?

  • Дейі- қайталау операторы қалай орындалады?

  • Қайталау параметрі деген не?

  • Repeat – Until –дің While – do –ден қандай айырмашылығы бар?

  • Бұл оперторларда циклдің қайталану саны белгілі ме? (жоқ)

  • Қайталанатын процес саны алдын ала белігі болған жағдайда не істеуге болады?

Журналдағы тізім бойынша әр оқушы бір сұраққа жауап береді. Сұрақтар бітіп қалғанда басынан бастап қайтадан қойыла береді. Әр қайталанған сайын сұрақтар күрделене береді. Бір дұрыс жауапқа бір ұпай.

Проблеманың шешімін табу:


1. Қайталау саны алдын-ала

белгілі болған жағдайда For – Do және For – Downto

операторларын қолданған

ыңғайлы. Жазылу түрі:

For <цикл

параметрі>=<алғашқы мән>

to <соңғы мән> do

begin;

<серия>;

end;

For <цикл

параметрі>=<соңғы мән > to

Серия;

ц.парам:=1;


шарт

Соңы

ц.парам:=ц.парам+1;

< алғашқы мән > downto



For <цикл параметрі>=<алғашқы мән> to <соңғы мән> do

begin;

<серия>;

end;

For <цикл параметрі>=<соңғы мән > to < алғашқы мән > downto

begin;

серия;

end;




ЕСЕП: Сөйлем сөздерден тұратыны белгілі. Клавиатурадан енгізілген сөйлемдегі ең ұзын сөзді және оның қанша таңбасы бар екенін анықтайтын программа жазыңыз:

МАТЕМАТИКАЛЫҚ модел:

Не белгілі?

Цикл параметрі і –типі бүтін сан, сөйлем– типі жолдық, ең ұзын сөз

mr - типі жолдық, – ең ұзын сөздегі әріптер (таңбалар) саны –типі бүтін сан.

Не істеу керек?

mr, шамаларының мәндерін анықтау;

Қалай есептейміз?

бастапқы мәліметтерді енгіземіз s, бастапқы мәндерді меншіктейміз m=0,

Қайталау парамтерi i 1-бастап сөйлем ұзындығына дейін өзгереді. Әр қайталау сайын кезекті таңбаны s[i] аралық шамаға жинақтаймыз, әрі оның бос орынға (пробелге) тең емес екенін тексереміз. Бос орын кездессе r –шамасына сөйлемнің бір сөзі жинақталғанын білеміз. Оның әріптер санын алдынғы сөздің әріптер санымен салыстырамыз да, қайсысында таңба көп болса сол сөзді mr және оның таңбалар санын m сақтап қаламыз.

program uzynsoz;

var i,m: integer;

mr,s,r: string;

begin

writeln('Бірнеше сөзден тұратын сөйлем енгізіңіз ');

read(s); m:=0;

for i:=1 to length(s) do

begin

r:=r+s[i];

if s[i]=' ' then r:='';

if m<length(r) then begin m:=length(r); mr:=r;end;

end;

writeln('Ең ұзын сөз: ',mr);

writeln('Оның ',m,' таңбасы бар');

end.

Тапсырмалар

30-дан 10-ға дейінгі барлық жұп сандарды экранға шығаратын программа құрыңдар.

Program jup;

Var i: integer;

Begin

Writeln (’30-dan 10-ga deingi jup san’);

For i:=30 downto 10 do

If I mod 2=0 then

Writeln (i);





Үйге тапсырма:

5- тен 1-ге дейінгі сандардың қосындысын есептеу керек.

Шешуі:Program kosindi;

Var I, s:integer;

Begin

S:=0;

For i:=5 downto 1 do

S:=S+I;

Writeln (‘s = ‘, s);

End.








Краткое описание документа:

Сыныбы : 9

Сабақтың тақырыбы: Паскаль тілінің параметрлі қайталау операторы - For.

Мақсаты:

1. FOR –DO операторы көмегімен программалауды үйренеді.

2. Программаны ықшам, сапалы жазу дағдысын қалыптастырады. Программаның математикалық моделі туралы түсініктерін тереңдетеді.

3. Программа мәтінін экранға және дәптерге жазудың эстетикасын сақтауды ескереді.

Көрнекілігі:

Сабақ жоспарын экранда проекциялау, презентация, компьютер.

Өтілу әдісі: Теориялық сабақ.

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

  1. Оқушыларды түгелдеу, журнал толтыру, оқушылардың дәптерлерін, оқулықтарын қарап шығу.
  2. Сынып, тақта, парта тазалығын қарап шығу, қажет болса ескертулер жасау.

Оқушылардың назарын сабаққа аудару.

Проблеманы айқындау кезеңі:

Қысқаша сұрақ-жауап. (1-2 ұп)

Әзір-қайталау операторы не үшін қолданылады?

Дейі- қайталау операторы қалай орындалады?

Қайталау параметрі деген не?

Repeat – Until –дің While – do –ден қандай айырмашылығы бар?

Бұл оперторларда циклдің қайталану саны белгілі ме? (жоқ)

Қайталанатын процес саны алдын ала белігі болған жағдайда не істеуге болады?

Журналдағы тізім бойынша әр оқушы бір сұраққа жауап береді. Сұрақтар бітіп қалғанда басынан бастап қайтадан қойыла береді. Әр қайталанған сайын сұрақтар күрделене береді. Бір дұрыс жауапқа бір ұпай.

Проблеманың шешімін табу:

1. Қайталау саны алдын-ала

белгілі болған жағдайда For – Do және For – Downto

операторларын қолданған

ыңғайлы. Жазылу түрі:

For <цикл

параметрі>=<алғашқы мән>

to <соңғы мән> do

begin;

<серия>;

end;

For <цикл

параметрі>=<соңғы мән > to

Серия;

ц.парам:=1;

шарт

Соңы

ц.парам:=ц.парам+1;

< алғашқы мән > downto

For <цикл параметрі>=<алғашқы мән> to <соңғы мән> do

begin;

<серия>;

end;

For <цикл параметрі>=<соңғы мән > to < алғашқы мән > downto

begin;

серия;

end;

ЕСЕП: Сөйлем сөздерден тұратыны белгілі. Клавиатурадан енгізілген сөйлемдегі ең ұзын сөзді және оның қанша таңбасы бар екенін анықтайтын программа жазыңыз:

МАТЕМАТИКАЛЫҚ модел:

Не белгілі?

Цикл параметрі і –типі бүтін сан, сөйлем– типі жолдық, ең ұзын сөз

mr - типі жолдық, – ең ұзын сөздегі әріптер (таңбалар) саны –типі бүтін сан.

Не істеу керек?

mr, шамаларының мәндерін анықтау;

Қалай есептейміз?

бастапқы мәліметтерді енгіземіз s, бастапқы мәндерді меншіктейміз m=0,

Қайталау парамтерi i 1-бастап сөйлем ұзындығына дейін өзгереді. Әр қайталау сайын кезекті таңбаны s[i] аралық шамаға жинақтаймыз, әрі оның бос орынға (пробелге) тең емес екенін тексереміз. Бос орын кездессе r –шамасына сөйлемнің бір сөзі жинақталғанын білеміз. Оның әріптер санын алдынғы сөздің әріптер санымен салыстырамыз да, қайсысында таңба көп болса сол сөзді mr және оның таңбалар санын m сақтап қаламыз.

program uzynsoz;

var i,m: integer;

mr,s,r: string;

begin

writeln('Бірнеше сөзден тұратын сөйлем енгізіңіз ');

read(s); m:=0;

for i:=1 to length(s) do

begin

r:=r+s[i];

if s[i]=' ' then r:='';

if m<length(r) then begin m:=length(r); mr:=r;end;

end;

writeln('Ең ұзын сөз: ',mr);

writeln('Оның ',m,' таңбасы бар');

end.

Тапсырмалар

30-дан 10-ға дейінгі барлық жұп сандарды экранға шығаратын программа құрыңдар.

Program jup;

Var i: integer;

Begin

Writeln (’30-dan 10-ga deingi jup san’);

For i:=30 downto 10 do

If I mod 2=0 then

Writeln (i);

Үйге тапсырма:

5- тен 1-ге дейінгі сандардың қосындысын есептеу керек.

Шешуі:Program kosindi;

Var I, s:integer;

Begin

S:=0;

For i:=5 downto 1 do

S:=S+I;

Writeln (‘s = ‘, s);

End.

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

Номер материала: 267304



Очень низкие цены на курсы переподготовки от Московского учебного центра для педагогов

Специально для учителей, воспитателей и других работников системы образования действуют 60% скидки (только до конца зимы) при обучении на курсах профессиональной переподготовки (124 курса на выбор).

После окончания обучения выдаётся диплом о профессиональной переподготовке установленного образца с присвоением квалификации (признаётся при прохождении аттестации по всей России).

Подайте заявку на интересующий Вас курс сейчас: KURSY.ORG

Только до конца зимы! Скидка 60% для педагогов на ДИПЛОМЫ от Столичного учебного центра!

Курсы профессиональной переподготовки и повышения квалификации от 1 400 руб.
Для выбора курса воспользуйтесь удобным поиском на сайте KURSY.ORG


Вы получите официальный Диплом или Удостоверение установленного образца в соответствии с требованиями государства (образовательная Лицензия № 038767 выдана ООО "Столичный учебный центр" Департаментом образования города МОСКВЫ).

Московские документы для аттестации: KURSY.ORG


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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