Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Инфоурок / Информатика / Конспекты / Циклдердің үш түрімен есептер шығару

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

Самые низкие цены на курсы профессиональной переподготовки и повышения квалификации!

Предлагаем учителям воспользоваться 50% скидкой при обучении по программам профессиональной переподготовки.

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

Обучение проходит заочно прямо на сайте проекта "Инфоурок".

Начало обучения ближайших групп: 18 января и 25 января. Оплата возможна в беспроцентную рассрочку (20% в начале обучения и 80% в конце обучения)!

Подайте заявку на интересующий Вас курс сейчас: https://infourok.ru/kursy


СВИДЕТЕЛЬСТВО СРАЗУ ПОСЛЕ ПРОСМОТРА ВЕБИНАРА

Вебинар «Подростковая лень: причины, способы борьбы»

Просмотр и заказ свидетельств доступен только до 22 января! На свидетельстве будет указано 2 академических часа и данные о наличии образовательной лицензии у организатора, что поможет Вам качественно пополнить собственное портфолио для аттестации.

Получить свидетельство за вебинар - https://infourok.ru/webinar/65.html

  • Информатика

Поделитесь материалом с коллегами:

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.

Идёт приём заявок на самые массовые международные олимпиады проекта "Инфоурок"

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

1. Бесплатные наградные документы с указанием данных образовательной Лицензии и Свидeтельства СМИ;
2. Призовой фонд 1.500.000 рублей для самых активных учителей;
3. До 100 рублей за одного ученика остаётся у учителя (при орг.взносе 150 рублей);
4. Бесплатные путёвки в Турцию (на двоих, всё включено) - розыгрыш среди активных учителей;
5. Бесплатная подписка на месяц на видеоуроки от "Инфоурок" - активным учителям;
6. Благодарность учителю будет выслана на адрес руководителя школы.

Подайте заявку на олимпиаду сейчас - https://infourok.ru/konkurs

Автор
Дата добавления 10.11.2015
Раздел Информатика
Подраздел Конспекты
Просмотров214
Номер материала ДВ-141203
Получить свидетельство о публикации

УЖЕ ЧЕРЕЗ 10 МИНУТ ВЫ МОЖЕТЕ ПОЛУЧИТЬ ДИПЛОМ

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

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

Список всех тестов можно посмотреть тут - https://infourok.ru/tests

Похожие материалы

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