Бақылау жұмысы №1

І-нұсқа

 

Сабақтың мақсаты: Оқушылардың алған білімдерін тексеру нәтижесінде, циклдік алгоритмдерге арналған есептерді Turbo Pascal тілінде шешу.

 

№1.  X саны берілген(1≤X≤2000000000)  While опреаторын пайдаланып осы санның цифрланың санын тап.

 

Шығарылуы:

program DigitCount;

var

  X, Y: LongInt;

begin

  ReadLn(X);

  Y:= 0;

  While X <> 0 do begin

    X:= X div 10;

    Y:= Y+1;

  end;

  WriteLn(Y);

end.

 

 

 

№2.  12-ден 100 аралығындағы  11 санына қалдықсыз бөлінетін сандарды тауып, экранға шығарыңдар. Сонымен қатар ол сандардың көбейтіндісін анықтаңдар.

Program Reshenie;
 Uses crt;
 Var i,j:integer;
 s:longint;
  begin
     clrscr;
     s:=1;
     writeln(' 12 men 100 sandarynyn arasynda 11 kaldyksyz bolinetin sandar :');
      for i:=12 to 100 do

           begin
              if i mod 11=0 then

                  begin
                    writeln(i);
                    s:=s*i;
                 end
           end;
        writeln(‘Kobeitindi: ',s);
       write('Enter pernesin bsynyz');
     readln;
   end.

3.  қосындыны есепте.

 

 

 

Бақылау жұмысы №1

ІІ-нұсқа

 

Сабақтың мақсаты: Оқушылардың алған білімдерін тексеру нәтижесінде, циклдік алгоритмдерге арналған есептерді Turbo Pascal тілінде шешу.

 

№1.  Берілген  N (1≤N≤1000)  санының  1 до N-гі квадраттарының қосындысын есептейтін программа құр.

 

Шығарылуы:

 Program SumSqr;

var

  N, S, i: LongInt;

  begin

    ReadLn(N);

    S:= 0;

    For i:= 1 to S do

    S:= S+Sqr(i);

    WriteLn(S);

  end.

 

 

 

 

№2.  17-ден 100 аралығындағы  11 санына қалдықсыз бөлінетін сандарды тауып, экранға  кері бағытта шығарыңдар. Сонымен қатар ол сандардың көбейтіндісін анықтаңдар.

Program Reshenie;
 Uses crt;
 Var i,j:integer;
 s:longint;
  begin
     clrscr;
     s:=1;
     writeln(' 17 men 100 sandarynyn arasynda 11 kaldyksyz bolinetin sandar :');
      for i:=100 downto 17 do

           begin
              if i mod 11=0 then

                  begin
                    writeln(i);
                    s:=s*i;
                 end
           end;
        writeln(‘Kobeitindi: ',s);
       write('Enter pernesin bsynyz');
     readln;
   end.

3.  қосындыны есепте.