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

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

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

ВНИМАНИЕ: Скидка действует ТОЛЬКО сейчас!

(Лицензия на осуществление образовательной деятельности № 5201 выдана ООО "Инфоурок")

ИнфоурокИнформатикаКонспектыЦиклдердің үш түрімен есептер шығару

Циклдердің үш түрімен есептер шығару

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

hello_html_m6f4c2f48.png





Мұхан Ағырза

Информатика пәні мұғалімі

Ақтау қаласы, Маңғыстау облысы





Сабақтың тақырыбы: Цикл операторларының үш түрімен есептер шығару



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



Алдын –ала берілген шарт бойынша қайталау операторы While көмегімен:



program esep1;

var s,i,n:integer;

begin

s:=0; i:=1;

read(n);

i<=n do

begin

s:=s+i; i:=i+1;

end;

write('s=', s);

end.











Шартты соңында тексеру операторы repeat, until көмегімен:



program esep1;

var s,i,n:integer;

begin

s:=0; i:=1;

read(n);

repeat;

s:=s+i; i:=i+1;

until(i>n);

write('s=', s);

end.















Параметрлі for операторының көмегімен:





program esep1;

var s,i,n:integer;

begin

s:=0;

read(n);

for i:=1 to n do

begin

s:=s+i;

end;

writeln('s=', s);

readln;

end.









  1. Берілген санға дейінгі жұп сандардың қосындысын, тақ сандардың көбейтіндісін есептейтін бағдарлама құрыңдар.





program esep2;

var s,p,i,n:integer;

begin

p:=1; s:=0; i:=1;

read(n);

while i<=n do

begin

if i mod 2=0 then s:=s+i else p:=p*i;

i:=i+1;

end;

writeln('s=', s);

writeln('p=', p);

end.











program esep2;

var s,p,i,n:integer;

begin

p:=1; s:=0; i:=1;

read(n);

repeat

if i mod 2=0 then s:=s+i else p:=p*i;

i:=i+1;

until (i>n);

writeln('s=', s);

writeln('p=', p);

end.













program esep1;

var s,p,i,n:integer;

begin

p:=1; s:=0;

read(n);

for i:=1 to n do

begin

if i mod 2=0 then s:=s+i else p:=p*i;

end;

writeln('s=', s);

writeln('p=', p);

readln;

end.

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

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

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

Курс повышения квалификации «Информационные технологии в деятельности учителя физики»
Курс повышения квалификации «Методика преподавания информатики в начальных классах»
Курс повышения квалификации «Современные информационные технологии и их использование в работе преподавателей. Системы автоматизированного проектирования одежды и организация технологического процесса»
Курс повышения квалификации «Основы создания интерактивного урока: от презентации до видеоурока»
Курс повышения квалификации «Организация работы по формированию медиаграмотности и повышению уровня информационных компетенций всех участников образовательного процесса»
Курс «Фирменный стиль» (Corel Draw, Photoshop)
Курс «WEB-ВЕРСТКА (HTML, CSS)»
Курс повышения квалификации «Развитие информационно-коммуникационных компетенций учителя в процессе внедрения ФГОС: работа в Московской электронной школе»
Курс повышения квалификации «Использование компьютерных технологий в процессе обучения в условиях реализации ФГОС»
Курс повышения квалификации «Введение в программирование на языке С (СИ)»
Курс профессиональной переподготовки «Управление в сфере информационных технологий в образовательной организации»
Курс профессиональной переподготовки «Математика и информатика: теория и методика преподавания в образовательной организации»
Курс повышения квалификации «Современные тенденции цифровизации образования»
Курс повышения квалификации «Специфика преподавания дисциплины «Информационные технологии» в условиях реализации ФГОС СПО по ТОП-50»
Курс повышение квалификации «Применение интерактивных образовательных платформ на примере платформы Moodle»

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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