🗊Презентация Циклы. Решение задач

Нажмите для полного просмотра!
Циклы. Решение задач, слайд №1Циклы. Решение задач, слайд №2Циклы. Решение задач, слайд №3Циклы. Решение задач, слайд №4Циклы. Решение задач, слайд №5Циклы. Решение задач, слайд №6Циклы. Решение задач, слайд №7Циклы. Решение задач, слайд №8Циклы. Решение задач, слайд №9Циклы. Решение задач, слайд №10Циклы. Решение задач, слайд №11

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

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


Слайд 1


Циклы. Решение задач, слайд №1
Описание слайда:

Слайд 2





Задание 3в (страница 116)
Program Summa;
  Var  i, n : integer; S: real;
Begin
     writeln(‘введи n’); 
     readln(n);
     S:=0;
     i:=1;
     while i<=n do 
          begin
           S:=S+1/i; 
            i:=i+1; 
           end;
     writeln(S);
     readln;
end.
Описание слайда:
Задание 3в (страница 116) Program Summa; Var i, n : integer; S: real; Begin writeln(‘введи n’); readln(n); S:=0; i:=1; while i<=n do begin S:=S+1/i; i:=i+1; end; writeln(S); readln; end.

Слайд 3





Упражнение а)  (страница 120)
Program Kv;
  Var  i, S : integer;
Begin
              i:=1;
     while i<=50 do 
          begin
           S:=sqr(i); 
           writeln(S);
            i:=i+1; 
           end;
     readln;
end.
Описание слайда:
Упражнение а) (страница 120) Program Kv; Var i, S : integer; Begin i:=1; while i<=50 do begin S:=sqr(i); writeln(S); i:=i+1; end; readln; end.

Слайд 4





Задание 1.  Дано целое положительное число. Распечатать все цифры данного числа
Program tsifra;
	Var  …
Begin
	writeln(‘введи A’);
	readln(A);
	while A<>0  do
		begin
		   p:=A mod 10;
                      writeln(p);
                     A:=A div 10;
		end;
	readln;
end.
Описание слайда:
Задание 1. Дано целое положительное число. Распечатать все цифры данного числа Program tsifra; Var … Begin writeln(‘введи A’); readln(A); while A<>0 do begin p:=A mod 10; writeln(p); A:=A div 10; end; readln; end.

Слайд 5





Блоки для записи алгоритма вв виде блок-схемы
Описание слайда:
Блоки для записи алгоритма вв виде блок-схемы

Слайд 6





Блок-схема алгоритма
Program summa;
	Var  …
Begin
	writeln(‘введи A’);
	readln(A);
	while A<>0  do
		begin
		      p:=A mod 10;
                      writeln(p);
                     A:=A div 10;
		end;
	readln;
end.
Описание слайда:
Блок-схема алгоритма Program summa; Var … Begin writeln(‘введи A’); readln(A); while A<>0 do begin p:=A mod 10; writeln(p); A:=A div 10; end; readln; end.

Слайд 7





Задание 2.  Подсчитать количество цифр в введённом числе
Program kol;
	Var A,p,k …
Begin
	writeln(‘введи A’);
	readln(A);
       k:=0;
	while A<>0  do
		begin
		       p:=A mod 10;
                      k:=k+1;
                      A:=A div 10;
		end;
       writeln(k);
	readln;
end.
Описание слайда:
Задание 2. Подсчитать количество цифр в введённом числе Program kol; Var A,p,k … Begin writeln(‘введи A’); readln(A); k:=0; while A<>0 do begin p:=A mod 10; k:=k+1; A:=A div 10; end; writeln(k); readln; end.

Слайд 8





Задание 3.  Поменять порядок цифр в числе А на обратный и занести его в В.
Program chislo;
	Var  …
Begin
	writeln(‘введи A’);
	readln(A);
       B:=0;
	while A<>0  do
		begin
		   А:=А mod 10;
                     B:=B*10+p;
                     A:=A div 10;
		end;
       writeln(B);
	readln;
end.
Описание слайда:
Задание 3. Поменять порядок цифр в числе А на обратный и занести его в В. Program chislo; Var … Begin writeln(‘введи A’); readln(A); B:=0; while A<>0 do begin А:=А mod 10; B:=B*10+p; A:=A div 10; end; writeln(B); readln; end.

Слайд 9





Задание 4.  Найти количество чётных цифр числа
Program kol;
	Var  …
Begin
	writeln(‘введи A’);
	readln(A);
       К:=0;
	while A<>0  do
		begin
		   p:=A mod 10;
                     if p mod 2 =0
                           then К:=К+1;
                      A:=A div 10;
		end;
       writeln(К);
	readln;
end.
Описание слайда:
Задание 4. Найти количество чётных цифр числа Program kol; Var … Begin writeln(‘введи A’); readln(A); К:=0; while A<>0 do begin p:=A mod 10; if p mod 2 =0 then К:=К+1; A:=A div 10; end; writeln(К); readln; end.

Слайд 10





Домашнее задание
Параграф 18, п. 3 , 
Упражнения 1 (а,б), страница 126
Нарисовать блок-схему к задаче 1а
Повторить §10-13, 17, 18 (подготовиться к тесту и решению задач)
Профиль: Задания 3*- 6* страница 126 по выбору одну задачу
Описание слайда:
Домашнее задание Параграф 18, п. 3 , Упражнения 1 (а,б), страница 126 Нарисовать блок-схему к задаче 1а Повторить §10-13, 17, 18 (подготовиться к тесту и решению задач) Профиль: Задания 3*- 6* страница 126 по выбору одну задачу

Слайд 11


Циклы. Решение задач, слайд №11
Описание слайда:



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