Презентация по информатике на тему Программирование циклов Паскаль

Программирование циклов Этапы решения задач на компьютереПостановка задачи.Математическая формализация.(формула)Создание алгоритма решения.Перевод алгоритма на язык программирования.Ввод, отладка и тестирование программы.Проведение расчетов и анализ результатов.



Постановка задачи.Дано N кубиков, на которых написаны разные буквы. Сколько различных N-буквенных слов можно составить из этих кубиков (слова не обязательно должны иметь смысл)?Пусть искомая величина обозначена F.Дано: N кубиковНайти: F слов
Математическая формализацияПолучим расчетную формулу.ИКИККИКол-во буквКол-во слов1122С3ИКСКСИСИКИСККИССКИ6А424










Кол-во буквКол-во слов223642451206720……103628800КомбинаторикаФакториалF = N!F = 1! = 1F = 2! = 1*2F = 3! = 1*2*3F = N! = 1*2*3*…*N



Построение алгоритмаЦикл – это команда исполнителю многократно повторить указанную последовательность команд. шагнач ЛинияВпередине край?кон ЛинияданетРешение:пока впереди не край, повторять шаг конец цикла
Подход{ пока ( впереди_свободно ) { вперед(1); }направо; пока ( не база) вперед (1);}Когда Робот выполнял команду «Вперед (1);»?Когда Робот перестал выполнять команду «Вперед (1);»?

началоВвод NF:=1R:=1R<=NF:=F * RR:=R + 1Вывод FконецнетдаТрассировочнаятаблица
началоВвод NF:=1R:=1R<=NF:=F * RR:=R + 1Вывод FконецнетдаПеревод алгоритма на язык программирования. Оператор цикла с предусловиемWhile <условие> do begin <тело цикла> end;Структура «цикл с предусловием»тело циклаусловиеданет




началоВвод NF:=1R:=1R<=NF:=F * RR:=R + 1Вывод FконецнетдаProgram Kubiki;Var N,F,R: integer;BeginWriteln(‘Введи N’);read(N);F:=1;R:=1;While R<=N do begin F:=F * R; R:=R + 1; end;Writeln (‘Из ‘, N, ’ кубиков получится’, F, ’слов’);end.F = N! = 1*2*...*N Ввод, отладка и тестирование программы.Шаг без входа в подпрограммуЛокальные переменные

Задачи:1. Дано N кубиков, на которых написаны разные буквы. Сколько различных N-буквенных слов можно составить из этих кубиков ?2. Измените предыдущую программу так, чтобы подсчитать сумму чисел от 1 до N.S = 1 + 2 + 3 + … + NЧисло N задается вводом с клавиатуры началоВвод NF:=1R:=1R<=NF:=F * RR:=R + 1Вывод FконецнетдаProgram Kubiki;Var N,F,R: integer;BeginWriteln(‘Введи N’);read(N);F:=1;R:=1;While R<=N do begin F:=F * R; R:=R + 1; end;Writeln (‘Из ‘, N, ’ кубиков получится’, F, ’слов’);end.F = N! = 1*2*...*NF = 1+2+3+...+N
Задачи:Составить программу для нахождения суммы целых чисел от 1 до N (sum=1+2+..+N).Дано целое число X и натуральное N. Составить программу вычисления X N (X N=X*X*X*..).В январе литр бензина стоил 50 рублей. Каждый месяц стоимость бензина увеличивается на 5 %по отношению к предыдущему месяцу. Составить программу определения, в каком месяце стоимость 1 л бензина впервые превысит 100 рублей. Для проверки выводить стоимость бензина в каждый месяц.