Pascal
- Главная
- Разное
- Образование
- Спорт
- Естествознание
- Природоведение
- Религиоведение
- Французский язык
- Черчение
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Математика
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, фоны, картинки для презентаций
- Экология
- Экономика
Презентация, доклад по информатике и ИКТ в 9 классе на тему: Цикл с предусловием и цикл с постусловием в среде программирования Turbo Pascal.
Содержание
- 1. Презентация по информатике и ИКТ в 9 классе на тему: Цикл с предусловием и цикл с постусловием в среде программирования Turbo Pascal.
- 2. Структура программы на Turbo PascalProgram pr1; {………………………….пояснения} Var ………………….. Begin …………………………. Begin …………………………. End; ReadlnEnd.Повторение.
- 3. Повторение.Program f; uses crt; var n,f,i
- 4. Новое на урокеНекоторые новые операторы, которые встретятся
- 5. И, конечно, операторы циклов Цикл с предусловием (While) Цикл с постусловием (repeat… until)
- 6. Слайд 6
- 7. Слайд 7
- 8. Слайд 8
- 9. Слайд 9
- 10. Слайд 10
- 11. Слайд 11
- 12. Слайд 12
- 13. Задача. Вычислить сумму натурального ряда чисел от 1 до n С помощью двух циклов
- 14. Program pr3;Var n,i, s: integer;Begin Writeln ('Vvedite
- 15. Итоги урокаWhile repeat…….Until
- 16. Домашнее задание: учить конспект; составить программу для
Структура программы на Turbo PascalProgram pr1; {………………………….пояснения} Var ………………….. Begin …………………………. Begin …………………………. End; ReadlnEnd.Повторение.
Слайд 2Структура программы на Turbo Pascal
Program pr1;
{………………………….пояснения}
Var …………………..
Begin
………………………….
Begin
………………………….
End;
Readln
End.
Повторение.
Слайд 3Повторение.
Program f;
uses crt;
var n,f,i :integer;
BEGIN
clrscr;
writeln(‘Задайте n’);
readln(n);
for
i:=1 to n do
f:=f*i;
writeln(‘F = ’,f);
readln;
END.
Вычисление факториала натурального числа n! (n! = 1 * 2 * 3 * … * n)
Какая задача выполняется с помощью этой программы?
Слайд 4Новое на уроке
Некоторые новые операторы, которые встретятся на уроке:
Label k
- описание в разделе Var «метка в программе»
…..
K:Writeln( ‘Введите число’); - метка в программе
……
goto k - обращение к метке в программе
A div B - частное от деления А на В с остатком
A mod B - остаток от деления А на В с остатком
Write (i:5); - вывод чисел в строчку с интервалом 5 позиций.
…..
K:Writeln( ‘Введите число’); - метка в программе
……
goto k - обращение к метке в программе
A div B - частное от деления А на В с остатком
A mod B - остаток от деления А на В с остатком
Write (i:5); - вывод чисел в строчку с интервалом 5 позиций.
Слайд 14Program pr3;
Var n,i, s: integer;
Begin
Writeln ('Vvedite naturalnoe chislo N');
Readln(n);
i:=0;
repeat
i:=i+1;
s:=s+i
Until i>=n;
Write
(s:5);
Readln;
End.
Readln;
End.
Program pr4;
Var n,s, i: integer;
Begin
Writeln('Vvedite naturalnoe
chislo N');
Readln(n);
i:=0;
While i
i:=i+1;
s:=s+i;
End;
Write (s:5);
Readln;
End.
Слайд 16
Домашнее задание:
учить конспект;
составить программу для решения
задачи:
Вычислить сумму
всех
нечетных чисел в интервале (1;2k-1)
нечетных чисел в интервале (1;2k-1)
