Информатика пәнінен "Қайталау операторы" тақырыбына арналған презентация

• 1 слайд

  Сабақтың тақырыбы:
  Қайталау операторы. WHІLЕ операторы.
  
  Негізгі бет
  WHІLE
  WHІLE операторының
  жазылуы
  WHІLE операторының
  орындалуы
  Мысал
  Практикалық
  жұмыстар
  

• 2 слайд

  WHILE операторы. Алдын ала берілген шарт бойынша қайталауды жүзеге асыратын бұл
  оператор WHILE (оқылуы: уаил, аударылуы: әзірше) және DO (оқылуы: ду, орындау болып аударылады)
  түйінді сөздері қолданылып аударылады.
  

• 3 слайд

  Цикл -әзір операторы
  Шартын алдын ала тексеретін қайталану саны белгісіз операторы WHІLE шарт ақиқат болғанда орындалады.
  

• 4 слайд

  WHILЕ < шарт> DO <оператор >
  
  .
  
  Жазылу үлгісі
  
  Whіle < шарт > Do
  Begіn
  < 1 оператор >;
  < 2 оператор >;
  ...
  < n оператор >;
  End;
  цикл денесі
  шарт
  true
  false
  

• 5 слайд

  Whіle операторының орындалу тәртібі
  Цикл қайталанар алдында, логикалық өрнектің мәні тексеріледі, егер True (ақиқат) болса, онда цикл денесі қайталанып орындалып отырады. Керісінше False (жалған) болса, циклдің орындалуы аяқталып, Whіle операторынан кейінгі жолдар орындалады.
  Егер, ең басында, өрнектің мәні False (жалған) болса, онда цикл бір ретте орындалмайды.
  
  

• 6 слайд

  1. Қайталаушы опрераторлар қайталанып келетін процестерді программалау үшін қолданылады. Орындалу тәртібі қайталушы алгоритмдегідей.
  Жазылу түрі:
  

• 7 слайд

  Мысалы:
  Бүтін М санына дейінгі жұп сандардың
  қосындысын табатын программа жазыңыз.
  program sum01;
  var s,i,m:integer;
  begin
  s:=0; i:=2;
  write('bytin san engiz ');
  read(m);
  while i<=m do
  begin
  s:=s+i; i:=i+2;
  end;
  write('summa s=',s);
  end.
  

• 8 слайд

  
  
  
  Program eseptey;
  Var х, у : real;
  Begіn X:=-1;
  Whіle x <=2 Do
  Begіn Y:=3*x+1
  Wrіteln (‘x= ‘, x, ‘ , ’ , ‘y=‘,y);
  X:=x+0.5;
  end;
  End.
  
  2. у=3x+1, мұндағы х, -1 мен 2 аралығындағы сандарды қабылдайды, қадамы 0,5 тең.
  

• 9 слайд

  
  
  
  Program ЕҮОБ;
  var m,n : integer ;
  begin
  readln (m,n);
  WHILЕ m<>n DO
  If m>n then m:=m-n;
  write (‘m=’,m);
  end .
  3.Екі натурал санның ең үлкен ортақ бөлгішін табу. ЕҮОБ
  

• 10 слайд

  Есеп
  1
  3
  2
  

• 11 слайд

  №1.
  n! есептеуге программа құрыңыз.
  

• 12 слайд

  Program Esep1;
  Var
  n,p,i:integer;
  Begin
  Writeln(’n-ді енгіз-’);
  Readln(n);
  p:=1; i:=0;
  while i<n do
  Begin
  i:=i+1;
  p:=p *i;
  End;
  Writeln(‘n!=’,n);
  End.
  

• 13 слайд

  №2.
  Экранға
  n-ге дейінгі жұп сандарды шығар.
  

• 14 слайд

  Program Esep2;
  Var
  i,n:integer;
  Begin
  Write(‘n-санын енгіз:’);
  Readln(n);
  i:=0;
  while i<=n do
  Begin
  i:=i+1;
  if i mod 2=0 then
  end;
  Writeln(‘i=’,i);
  End.
  

• 15 слайд

  №3.
  Экранға
  n-ге дейінгі тақ
  сандарды шығар.
  

• 16 слайд

  Program Esep3;
  Var
  i,n:integer;
  Begin
  Write(‘n-санын енгіз:’);
  Readln(n);
  i:=0;
  while i<=n do
  Begin
  i:=i+1;
  if i mod 2=1 then
  end;
  Writeln(‘i=’,i);
  End.