🗊Презентация Задачи с использованием циклов

Нажмите для полного просмотра!
Задачи с использованием циклов, слайд №1Задачи с использованием циклов, слайд №2Задачи с использованием циклов, слайд №3Задачи с использованием циклов, слайд №4Задачи с использованием циклов, слайд №5Задачи с использованием циклов, слайд №6Задачи с использованием циклов, слайд №7Задачи с использованием циклов, слайд №8Задачи с использованием циклов, слайд №9Задачи с использованием циклов, слайд №10Задачи с использованием циклов, слайд №11Задачи с использованием циклов, слайд №12Задачи с использованием циклов, слайд №13Задачи с использованием циклов, слайд №14Задачи с использованием циклов, слайд №15Задачи с использованием циклов, слайд №16Задачи с использованием циклов, слайд №17Задачи с использованием циклов, слайд №18

Вы можете ознакомиться и скачать презентацию на тему Задачи с использованием циклов. Доклад-сообщение содержит 18 слайдов. Презентации для любого класса можно скачать бесплатно. Если материал и наш сайт презентаций Mypresentation Вам понравились – поделитесь им с друзьями с помощью социальных кнопок и добавьте в закладки в своем браузере.

Слайды и текст этой презентации


Слайд 1





Задачи с использованием циклов
Октябрь 2017 год
Подготовка к ЕГЭ 
Презентация выполнена Ермошиной М.Ю., МОУ «СОШ № 4»
Описание слайда:
Задачи с использованием циклов Октябрь 2017 год Подготовка к ЕГЭ Презентация выполнена Ермошиной М.Ю., МОУ «СОШ № 4»

Слайд 2





Стандартные алгоритмы
Описание слайда:
Стандартные алгоритмы

Слайд 3





Найти произведение чисел А и В, используя только операцию сложения.
A*B=A+A+A+A… B раз
Описание слайда:
Найти произведение чисел А и В, используя только операцию сложения. A*B=A+A+A+A… B раз

Слайд 4





Заменить умножение сложением
A*B=A+A+A+A… B раз
PROGRAM Z1;
USES CRT;
VAR  A,B,P,I:INTEGER;
BEGIN
WRITE(' ВВЕДИТЕ МНОЖИТЕЛИ A и B');
READLN(A,B);
I:=0;   P:=0; 
WHILE  I<B  DO
BEGIN
P:=P+A;
I:=I+1;
END;
WRITE('P=',P);
END.
Описание слайда:
Заменить умножение сложением A*B=A+A+A+A… B раз PROGRAM Z1; USES CRT; VAR A,B,P,I:INTEGER; BEGIN WRITE(' ВВЕДИТЕ МНОЖИТЕЛИ A и B'); READLN(A,B); I:=0; P:=0; WHILE I<B DO BEGIN P:=P+A; I:=I+1; END; WRITE('P=',P); END.

Слайд 5





Деление через вычитание

PROGRAM Z1;
USES CRT;
VAR  A,B,P,I:INTEGER;
BEGIN
WRITE(' ВВЕДИТЕ ДЕЛИМОЕ И ДЕЛИТЕЛЬ A и B ');
READLN(A,B);
P:=A;
I:=0;
WHILE  A>=B  DO
BEGIN
A:=A-B;
I:=I+1;
END;
WRITE(‘При делении ',P,' на ',B,' целая часть=',I,' остаток=',A );
END.
Описание слайда:
Деление через вычитание PROGRAM Z1; USES CRT; VAR A,B,P,I:INTEGER; BEGIN WRITE(' ВВЕДИТЕ ДЕЛИМОЕ И ДЕЛИТЕЛЬ A и B '); READLN(A,B); P:=A; I:=0; WHILE A>=B DO BEGIN A:=A-B; I:=I+1; END; WRITE(‘При делении ',P,' на ',B,' целая часть=',I,' остаток=',A ); END.

Слайд 6





Задачи  ЕГЭ №8

Определите, что будет напечатано в результате работы следующего фрагмента программы:
var k, s: integer;
begin
  s:=0;
  k:=0;
  while s < 1024 do begin
    s:=s+10;
    k:=k+1;
  end;
  write(k);
end.
Описание слайда:
Задачи ЕГЭ №8 Определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s: integer; begin s:=0; k:=0; while s < 1024 do begin s:=s+10; k:=k+1; end; write(k); end.

Слайд 7





Примеры задач из 8-го задания
Описание слайда:
Примеры задач из 8-го задания

Слайд 8






Пример 8-го задания: 
При каком наименьшем введенном числе d после выполнения программы будет напечатано 63?

var n, s, d: integer;
begin
  readln(d);
  n := 3;
  s := 57;
  while s <= 1200 do begin
    s := s + d;
    n := n + 4
  end;
  write(n)
end.
Описание слайда:
Пример 8-го задания: При каком наименьшем введенном числе d после выполнения программы будет напечатано 63? var n, s, d: integer; begin readln(d); n := 3; s := 57; while s <= 1200 do begin s := s + d; n := n + 4 end; write(n) end.

Слайд 9





Пример 8-го задания:
При каком наибольшем введенном числе d после выполнения программы будет напечатано 150
var n, s, d: integer;
begin
  readln(d);
  n := 3;
  s := 38;
  while s <= 1200 do begin
    s := s + d;
    n := n + 7
  end;
  write(n)
end.
Описание слайда:
Пример 8-го задания: При каком наибольшем введенном числе d после выполнения программы будет напечатано 150 var n, s, d: integer; begin readln(d); n := 3; s := 38; while s <= 1200 do begin s := s + d; n := n + 7 end; write(n) end.

Слайд 10





Алгоритмы, которые надо знать наизусть при решении №20, 21 и 24:
Разбить число на отдельные цифры и разные операции с ними: сложение, найти количество, выбрать max или min, переставить цифры в обратном порядке (формула Горнера).
Описание слайда:
Алгоритмы, которые надо знать наизусть при решении №20, 21 и 24: Разбить число на отдельные цифры и разные операции с ними: сложение, найти количество, выбрать max или min, переставить цифры в обратном порядке (формула Горнера).

Слайд 11





          Сосчитать сколько цифр в числе N 
(при разборе задания обратить внимание на систему счисления!)
VAR  N,k:INTEGER;
BEGIN
WRITE(' ВВЕДИ ЧИСЛО  ');
READLN(N);
WHILE  N>0  DO
 BEGIN
  N:=N DIV 10;
  k:=k+1
 END;
 WRITELN(k)
END.
Описание слайда:
Сосчитать сколько цифр в числе N (при разборе задания обратить внимание на систему счисления!) VAR N,k:INTEGER; BEGIN WRITE(' ВВЕДИ ЧИСЛО '); READLN(N); WHILE N>0 DO BEGIN N:=N DIV 10; k:=k+1 END; WRITELN(k) END.

Слайд 12





Найти число делителей числа
VAR  N,D:INTEGER;
BEGIN
 WRITE(' ВВЕДИ ЧИСЛО  ');
 READLN(N);
  D:=2;
 WHILE  D<N DIV 2  DO
 BEGIN
  IF N MOD D=0 THEN WRITELN(D);
  D:=D+1;
 END;
END.
Описание слайда:
Найти число делителей числа VAR N,D:INTEGER; BEGIN WRITE(' ВВЕДИ ЧИСЛО '); READLN(N); D:=2; WHILE D<N DIV 2 DO BEGIN IF N MOD D=0 THEN WRITELN(D); D:=D+1; END; END.

Слайд 13





Алгоритм Евклида
(наибольший общий делитель)
program NOD;
uses crt;
var a,b:integer;
begin
 readln(a,b);
  while a<>b do
   if a>b
 then a:=a-b
 else b:=b-a;
 write(a);
end.
Описание слайда:
Алгоритм Евклида (наибольший общий делитель) program NOD; uses crt; var a,b:integer; begin readln(a,b); while a<>b do if a>b then a:=a-b else b:=b-a; write(a); end.

Слайд 14





Задачи №20 из ЕГЭ
Ниже записана программа. Получив на вход число , эта программа печатает два числа,  L и M. Укажите наибольшее из таких чисел  X, при вводе которых алгоритм печатает сначала 3, а потом 7.
var x, L, M: integer;
begin
  readln(x);
  L:=0; M:=0;
  while x > 0 do begin
    L:= L + 1;
    M:= M + x mod 10;
    x:= x div 10;
  end;
  writeln(L); write(M);
end.
Описание слайда:
Задачи №20 из ЕГЭ Ниже записана программа. Получив на вход число , эта программа печатает два числа, L и M. Укажите наибольшее из таких чисел X, при вводе которых алгоритм печатает сначала 3, а потом 7. var x, L, M: integer; begin readln(x); L:=0; M:=0; while x > 0 do begin L:= L + 1; M:= M + x mod 10; x:= x div 10; end; writeln(L); write(M); end.

Слайд 15





Ниже записана программа. Получив на вход число , эта программа печатает два числа, а и b. Укажите наименьшее  из чисел  Х, при вводе которых алгоритм печатает сначала 19, а потом 4.

var x, a, b, c: integer;
begin
  readln(x);
  a := 0; b := 10;
  while x>0 do begin
    с := x mod 10;
    a := a+c;
    if c<b then b := c;
    x := x div 10;
  end;
  writeln(a); write(b);
end.
Описание слайда:
Ниже записана программа. Получив на вход число , эта программа печатает два числа, а и b. Укажите наименьшее из чисел Х, при вводе которых алгоритм печатает сначала 19, а потом 4. var x, a, b, c: integer; begin readln(x); a := 0; b := 10; while x>0 do begin с := x mod 10; a := a+c; if c<b then b := c; x := x div 10; end; writeln(a); write(b); end.

Слайд 16





Открытый банк заданий ФИПИ
Определите число, которое будет напечатано в результате выполнения программы 
var n, s: integer;
begin
  n := 0;
  s := 301;
  while s > 0 do
  begin
    s := s - 10;
    n := n + 2
  end;
  write(n)
end.
301/10=30 и 1 в остатке, 1>0, т.о. N=2*30+2=62
Описание слайда:
Открытый банк заданий ФИПИ Определите число, которое будет напечатано в результате выполнения программы  var n, s: integer; begin   n := 0;   s := 301;   while s > 0 do   begin     s := s - 10;     n := n + 2   end;   write(n) end. 301/10=30 и 1 в остатке, 1>0, т.о. N=2*30+2=62

Слайд 17





Напишите в ответе число, которое будет напечатано в результате выполнения следующего алгоритма
var a,b,t,M,R :integer;
Function F(x:integer):integer;
 begin
  F := 2*(x*x-16)*(x*x-16)+5
  end;
 
begin
  a := -11;  b := 11;
  M := a; R := F(a);
  for t := a to b do begin
    if (F(t)<R) then begin
      M := t;
      R := F(t)
    end
  end;
  write(M+16)
end.
Описание слайда:
Напишите в ответе число, которое будет напечатано в результате выполнения следующего алгоритма var a,b,t,M,R :integer; Function F(x:integer):integer;  begin   F := 2*(x*x-16)*(x*x-16)+5   end;   begin   a := -11;  b := 11;   M := a; R := F(a);   for t := a to b do begin     if (F(t)<R) then begin       M := t;       R := F(t)     end   end;   write(M+16) end.

Слайд 18





Использованы материалы:
Описание слайда:
Использованы материалы:



Похожие презентации
Mypresentation.ru
Загрузить презентацию