- Главная
- Разное
- Бизнес и предпринимательство
- Образование
- Развлечения
- Государство
- Спорт
- Графика
- Культурология
- Еда и кулинария
- Лингвистика
- Религиоведение
- Черчение
- Физкультура
- ИЗО
- Психология
- Социология
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Маркетинг
- Математика
- Медицина
- Менеджмент
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, картинки для презентаций
- Экология
- Экономика
- Юриспруденция
Что такое findslide.org?
FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.
Обратная связь
Email: Нажмите что бы посмотреть
Презентация на тему Язык Паскаль. Циклы
Содержание
- 2. 1.Назначение цикла-Повторять одно и то же действие,
- 3. 2.Виды цикловВ языке Паскаль имеются три вида
- 4. while (цикл-ПОКA)repeat (цикл-ДО)for (цикл с параметром).Число повторений цикла известно Число повторений цикла неизвестно
- 5. 3.Счетный цикл “FOR”Тело циклаДаНет =нач,кон,
- 6. Program primer;uses GraphABC;var t:integer;begin for t:=18 downto 1 do begin circle(290,210,t*10); end;End.
- 7. 4.Цикл «пока» While
- 8. Program primer;uses GraphABC;var a:integer;begin a:=18; while a>=1 do begin circle(290,210,a*10); a:=a-1; end; end.
- 9. Цикл « c послеусловием REPEAT UNTIL»УсловиеТело циклаДаНет
- 10. Program primer;uses GraphABC;vari:integer;begin i:=18; repeat; circle(290,210,i*10); i:=i-1; until i
- 11. ДЗСоставить программу подсчёта N! Факториала. N вводится с клавиатуры. Использовать цикл ФОР.Пояснение 1!=12!=1*23!=1*2*3N!=1*2*3*4*……..*N
- 12. «Датчик» случайных чисел s:= random(32); Генерируется случайное число в диапазоне от 0 до 31.
- 13. Program primer;uses GraphABC;vark,i,s:integer;begincls;writeln('ÏÊ çàãàäàëî ÷èñëî! Óãàäàéòå åãî');
- 14. Program primer;uses GraphABC;varx,i,y,s,t:integer;begincls; for t:=1
- 15. Скачать презентацию
- 16. Похожие презентации
1.Назначение цикла-Повторять одно и то же действие, до тех пор, пока условие ложно, либо истинноОшибки: зацикливание – это когда цикл «работает» «вечно»(зависание программы) :причина - неверно указано условие
Слайд 2
1.Назначение цикла-
Повторять одно и то же действие, до
тех пор, пока условие ложно, либо истинно
это когда цикл «работает» «вечно»(зависание программы) :причина - неверно указано условие
Слайд 3
2.Виды циклов
В языке Паскаль имеются три вида операторов
цикла:
while цикл-ПОКА)
repeat (цикл-ДО)
for (цикл с параметром).
Если число повторений
тела цикла известно, то лучше воспользоваться оператором for; в остальных случаях используются операторы while и repeat.
Слайд 4
while (цикл-ПОКA)
repeat (цикл-ДО)
for (цикл с параметром).
Число повторений
цикла
известно
Число повторений
цикла неизвестно
Слайд 6
Program primer;
uses GraphABC;
var
t:integer;
begin
for t:=18 downto 1
do
begin
circle(290,210,t*10);
end;
End.
Слайд 8
Program primer;
uses GraphABC;
var
a:integer;
begin
a:=18;
while a>=1
do
begin
circle(290,210,a*10);
a:=a-1;
end;
end.
Слайд 10
Program primer;
uses GraphABC;
var
i:integer;
begin
i:=18;
repeat;
circle(290,210,i*10);
i:=i-1;
until i
Слайд 11
ДЗ
Составить программу подсчёта N! Факториала. N вводится с
клавиатуры. Использовать цикл ФОР.
Пояснение 1!=1
2!=1*2
3!=1*2*3
N!=1*2*3*4*……..*N
Слайд 12
«Датчик» случайных чисел
s:= random(32); Генерируется случайное
число в диапазоне от 0 до 31.
Слайд 13
Program primer;
uses GraphABC;
var
k,i,s:integer;
begin
cls;
writeln('ÏÊ çàãàäàëî ÷èñëî! Óãàäàéòå åãî');
k:=0;
i:=random(100);
repeat;writeln('ââåäèòå ÷èñëî');
readln(s) ;
if s begin
writeln('íåïðàâèëüíî,íóæíî áîëüøå');
end;
if s>i then
begin
writeln('íåïðàâèëüíî,íóæíî ìåíüøå');
end;
k:=k+1;
until s=i;
writeln('ïðàâèëüíî ýòî ÷èñëî= ',s);
writeln('Óãàäàëè çà ',k,' øàãîâ');
end.
«Угадайка»
Угадайка
Слайд 14
Program primer;
uses GraphABC;
var
x,i,y,s,t:integer;
begin
cls;
for t:=1 to
100 do
begin
x:=random(600);
y:=random(400);
circle(x,y,2);FloodFill(x,y,clRed);
end;
for t:=1 to 100 do
begin
x:=random(600);
y:=random(400);
circle(x,y,2);
FloodFill(x,y,clBlue);
end;
end.
Звёздное небо из красных и голубых звёзд
