- Главная
- Разное
- Образование
- Спорт
- Естествознание
- Природоведение
- Религиоведение
- Французский язык
- Черчение
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Математика
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, фоны, картинки для презентаций
- Экология
- Экономика
Презентация, доклад на тему Язык программирования Pascal. Урок 5 (8 класс)
Содержание
- 1. Язык программирования Pascal. Урок 5 (8 класс)
- 2. Тема: Организация циклов
- 3. Циклы с параметром (если известно количество повторений)а)
- 4. Циклы с условиемИспользуются, если неизвестно количество повторений
- 5. б) Циклы с постусловием repeat;until ; тело цикла выполняется до тех пор, пока условие не выполняется.
- 6. Вывести таблицу значений функции y=x2 на отрезке [-5;5] с шагом 0,5. program func;var x,y:real;beginx:=-5;while x
- 7. Вычислить сумму чисел от 1 до 100program summa;var I, s:integer;begins:=0;i:=1; repeat s:=s+i; i:=i+1; until i>100; write(‘s=’,s);end.
Тема: Организация циклов
Слайд 3Циклы с параметром
(если известно количество повторений)
а) с параметром «вверх» (счетчик
цикла увеличивается на 1 при каждом витке)
for i:=1 to 100 do write(‘Привет’);
б) с параметром «вниз» (счетчик цикла уменьшается на 1 при каждом витке)
for j:=100 downto 1 do writeln(‘Привет’);
for i:=1 to 100 do write(‘Привет’);
б) с параметром «вниз» (счетчик цикла уменьшается на 1 при каждом витке)
for j:=100 downto 1 do writeln(‘Привет’);
Слайд 4Циклы с условием
Используются, если неизвестно количество повторений цикла
а) Циклы с предусловием
while
<условие> do begin
<операторы>;
end;
тело цикла выполняется до тех пор, пока выполняется условие.
<операторы>;
end;
тело цикла выполняется до тех пор, пока выполняется условие.
Слайд 5б) Циклы с постусловием
repeat
;
until ;
тело цикла выполняется до тех пор, пока
условие не выполняется.
Слайд 6Вывести таблицу значений функции y=x2 на отрезке
[-5;5] с шагом 0,5.
program
func;
var x,y:real;
begin
x:=-5;
while x<=5 do begin
y:=x*x;
writeln(x:4:5,’ ‘,y:4:5);
x:=x+0.5;
end;
end.
var x,y:real;
begin
x:=-5;
while x<=5 do begin
y:=x*x;
writeln(x:4:5,’ ‘,y:4:5);
x:=x+0.5;
end;
end.
![Вывести таблицу значений функции y=x2 на отрезке [-5;5] с шагом 0,5. program func;var x,y:real;beginx:=-5;while x](/img/thumbs/2416ebdf0b957217474754ad1998857f-800x.jpg "Язык программирования Pascal. Урок 5 (8 класс) Вывести таблицу значений функции y=x2 на отрезке [-5;5] с шагом 0,5. program func;var x,y:real;beginx:=-5;while x")
Слайд 7Вычислить сумму чисел от 1 до 100
program summa;
var I, s:integer;
begin
s:=0;
i:=1;
repeat
s:=s+i;
i:=i+1;
until i>100;
write(‘s=’,s);
end.
