kopilkaurokov.ru - сайт для учителей

Создайте Ваш сайт учителя Курсы ПК и ППК Видеоуроки Олимпиады Вебинары для учителей

Циклдік алгоритмдерге есептер шығару

Нажмите, чтобы узнать подробности

Задачи на цикл

Разлечить циклы

Применение циклов

Вы уже знаете о суперспособностях современного учителя?
Тратить минимум сил на подготовку и проведение уроков.
Быстро и объективно проверять знания учащихся.
Сделать изучение нового материала максимально понятным.
Избавить себя от подбора заданий и их проверки после уроков.
Наладить дисциплину на своих уроках.
Получить возможность работать творчески.

Просмотр содержимого документа
«Циклдік алгоритмдерге есептер шығару»

ЦИКЛДІК АЛГОРИТМДЕРГЕ ЕСЕПТЕР ШЫҒАРУ

Цикл-дейін

Program Цикл до;

var

i: integer;

begin

i:=1;

while i10 do

begin

i:=i+1;

write ('Циклдер');

end;

end.

Цикл-кейін

Program цикл после;

var

i: integer;

begin

i:=1;

repeat

i:=i+1;

write ('Циклдер');

until i10;

end.

Цикл-үшін

Program цикл для;

var

i: integer;

begin

for i:=1 to 10 do

begin

write('Циклдер');

end;

end.

Кері есепшоты бар цикл

Program обр счет;

var

i: integer;

begin

for i:=10 downto 1 do

begin

write('Циклдер');

end;

end.


Кері есепшоты бар цикл


Program обр счет2;

var

i: char;

begin

for i:='z' downto 'a' do

write (' ',i);

end.

Тура есепшоты бар цикл


Program прям счет;

var

i: char;

begin

for i:='a' to 'z' do

write (' ',i);

end.

Сандардың қосындысын есептеу


Program сумма чисел;

var i,s: integer;

begin

s:=0;

for i:=1 to 10 do

s:=s+i;

write ('s= ',s);

end.



program kobeit; 
var P, I, n: integer; 
begin 
P:=1; 
write ( ‘бүтін сан енгіз’ ); 
read ( n ); 
for i:=1 to n do 
if i mod 2 = 0 then 
begin 
P:= p * 1; 
end; 
write ( ‘ P = ‘, P ); 
end. 


PROGRAM ESEP1;

VAR A, B, Y:INTEGER;

BEGIN

READLN(A,B);

IF AB THEN Y:=A ELSE Y:=B;

WRITELN('Y=',Y);

END.


PROGRAM ESEP2;

VAR X, Y:REAL;

BEGIN

READLN(X);

IF X

WRITELN('Y=',Y);

END.


PROGRAM E1;

VAR X,Y:REAL;

BEGIN

READLN(X);

IF X

WRITELN(‘Y:=’,Y);

END



1-Мысал: 1- ден 100- ге дейінгі сандардың қосындысын табу керек. 
PROGRAM ESEP1;
VAR I, S: INTEGER;
BEGIN

S:=0;
FOR I:=1 TO 100 DO
S:=S+I;
WRITELN (‘S = ‘ , S);
END. 

2-Мысал. 10-нан 20-ға дейінгі барлық жұп сандардың көбейтіндісін шығаратынпрограмма құрыңдар. 
PROGRAM ESEP2;

VAR I, K: INTEGER;

BEGIN

K:=1;

FOR I:=10 TO 20 DO

IF I MOD 2=0 THEN

K:=K*I;

WRITELN ('K=',K);

END.

3-Мысал: 1, 3, 5, ... , 15 сандар тізбегі берілген. Осы тізбектің квадраттарының кестесін құру керек.

PROGRAM ESEP3;

VAR I, K: INTEGER;

BEGIN

FOR I:=1 TO 15 DO

IF I MOD 2=1 THEN

BEGIN

K:=SQR(I);

WRITELN ('K=',K);

END;

END.


 1-ден 9-ға дейінгі тақ сандардың қосындысын шығаратын программа құрыңдар.  PROGRAM ESEP1;

VAR I, S: INTEGER;

BEGIN

S:=0;

FOR I:=1 TO 9 DO

IF I MOD 2=1 THEN

S:= S +I;

WRITELN (' S =', S);

END.


 -10, -8, -6, ... , 10 сандар тізбегі берілген. Осы тізбектің кубтарының кестесін құру керек.

PROGRAM ESEP2;

VAR I, K: INTEGER;

BEGIN

FOR I:=-10 TO 10 DO

IF I MOD 2=0 THEN

BEGIN

K:=SQR(I)*I;

WRITELN ('K=',K);

END;

END.


10- нан 20- ға дейінгі сандардың қосындысын табу керек. 
PROGRAM ESEP1;

VAR I, S: INTEGER;

BEGIN

S:=0;

FOR I:=10 TO 20 DO

S:=S+I;

WRITELN ('S = ' , S);

END.



1-ден 8-ге дейінгі бүтін сандардың квадраттары мен кубтарын есептеп шығару

PROGRAM E1;

VAR I, N, M: INTEGER;

BEGIN

FOR I:=1 TO 8 DO BEGIN

N := I*I;

M := N*I;

WRITELN('N=',N, ' ', 'M=',M);

END;

END.




Получите в подарок сайт учителя

Предмет: Информатика

Категория: Прочее

Целевая аудитория: 8 класс

Скачать
Циклдік алгоритмдерге есептер шығару

Автор: Орал Диас

Дата: 29.01.2017

Номер свидетельства: 385260

Похожие файлы

object(ArrayObject)#851 (1) {
  ["storage":"ArrayObject":private] => array(6) {
    ["title"] => string(53) "Ашы? саба?  "Алгоритм типтері" "
    ["seo_title"] => string(30) "ashyk-sabak-alghoritm-tiptieri"
    ["file_id"] => string(6) "195679"
    ["category_seo"] => string(11) "informatika"
    ["subcategory_seo"] => string(5) "uroki"
    ["date"] => string(10) "1427954538"
  }
}


Получите в подарок сайт учителя

Видеоуроки для учителей

Курсы для учителей

ПОЛУЧИТЕ СВИДЕТЕЛЬСТВО МГНОВЕННО

Добавить свою работу

* Свидетельство о публикации выдается БЕСПЛАТНО, СРАЗУ же после добавления Вами Вашей работы на сайт

Удобный поиск материалов для учителей

Ваш личный кабинет
Проверка свидетельства