Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Свидетельство о публикации

Автоматическая выдача свидетельства о публикации в официальном СМИ сразу после добавления материала на сайт - Бесплатно

Добавить свой материал

За каждый опубликованный материал Вы получите бесплатное свидетельство о публикации от проекта «Инфоурок»

(Свидетельство о регистрации СМИ: Эл №ФС77-60625 от 20.01.2015)

Инфоурок / Информатика / Конспекты / Циклдердің үш түрімен есептер шығару
ВНИМАНИЮ ВСЕХ УЧИТЕЛЕЙ: согласно Федеральному закону № 313-ФЗ все педагоги должны пройти обучение навыкам оказания первой помощи.

Дистанционный курс "Оказание первой помощи детям и взрослым" от проекта "Инфоурок" даёт Вам возможность привести свои знания в соответствие с требованиями закона и получить удостоверение о повышении квалификации установленного образца (180 часов). Начало обучения новой группы: 28 июня.

Подать заявку на курс
  • Информатика

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

библиотека
материалов

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.


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


Выберите специальность, которую Вы хотите получить:

Обучение проходит дистанционно на сайте проекта "Инфоурок".
По итогам обучения слушателям выдаются печатные дипломы установленного образца.

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ

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

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