Содержание
-
НЕЛИНЕЙНЫЕ АЛГОРИТМЫ
Язык программирования Паскаль
-
? ? Операторы2 Полное ветвление Неполное ветвление да нет да нет Операторы1 Операторы1 ВЕТВЛЕНИЕ
-
УСЛОВНЫЙ ОПЕРАТОР (оператор ветвления, выбора)
IF THEN ELSE Выполнение условного оператора начинается с вычисления значения логического выражения, записанного в условии. Простые условия записываются в виде равенств или неравенств. Сложные условия составляют из простых с помощью логических операций. Если условие истинно, то выполняется , в противном случае - .
-
ПРОВЕРОЧНЫЙ ВОПРОС Какими будут значения переменныхj, кпосле выполнения условного оператора: If j>k then j: =k-2 else dec(k, 2);dec(k, 2) k:=k-2 если исходные значения переменных равны: 1) j=3,k=5; 2) j=3,k=3; 3) j=3,k=2. 1) j=3,k=3; 2) j=3,k=1; 3) j=0,k=2;
-
Сложные условия
А Х В Y Y A = A) AND (XB(Y B)
-
A > B? A
-
Пример 1. Даны два числа А и В. Найти наибольшее из них program prim1; uses crt; var a,b: integer; begin writeln('введите 2 чucлa'); readln(a, b); if а>b then writeln(a) else writeln(b); End. Д/З:Задание №2 Дано число А. Вывести модуль числа А. Написать программу к блок-схеме
-
Задание №2 Составить блок-схему и программу вычисления значения функции 16.5х+9х2 -1.25х3 если 1 9 1 9 x 9 1
-
начало a, x X9 Y=0 Y=a-x Y= ... Y Да Да
-
Program yy;Uses crt; Var a, x, y: real; Begin Writeln(‘ a, x ‘); Readln(a,x); If x9 then y:=a-x else y:=16.5*х+9*х*x -1.25*х*x*x; Writeln(‘y= ‘ , y:5:2); End.
-
№ 3. Даны три числа а, в, с. Найти М -большее из них. № 4. Дан круг радиуса R и квадрат со стороной А. Впишется ли круг в квадрат? Ответ вывести в словесной форме «да» или «нет» № 5* Определить, принадлежит ли точка М(х, у) кольцу с центром в начале координат, внешним радиусом R1, внутренним радиусом R2 а в с М М(х,у)
-
Циклические алгоритмы
Тело цикла Цикл с предусловием «делать пока» Тело цикла Цикл с постусловием «делать до» Условие выхода из цикла Условие выхода из цикла
-
ЦИКЛ С ПАРАМЕТРОМ
Выполняет тело цикла, пока параметр изменяется от А до В с шагом 1 for :=А to В do begin ; End; Цикл с шагом параметра = 1 for :=А downto В doс шагом = - 1
-
Пример 1.Составить программу вычисления значения выражения у=1+2+3+.. +100 program prim1; uses crt; var n: integer; y: real; Begin y:=0; for n:=1 to 100 do begin y:=y+n; end; writeln('y=', y); end.
-
Пример 2.Составить программу вычисления значения выражения у=1+1/2+1/3+.. +1/20 program prim2; uses crt; var n: integer; y: real; Begin y:=0; for n:=1 to 20 do begin y:=y+1/n; end; writeln('y=', y); end.
-
Пример 3*.Из чисел от 10 до 99 вывести те, сумма цифр которых равна N, причем 0
-
Цикл с предусловием «делать пока»
Тело цикла Условие выхода из цикла
-
ОПЕРАТОР ЦИКЛА С ПРЕДУСЛОВИЕМ:while ...do Пример 4 Дано натуральное число п. Посчитать количество цифр в числе. Алгоритм. Подсчет количества цифр начнем с последней цифры числа. Увеличим счетчик цифр на единицу. Число уменьшим в 10 раз (тем самым мы избавляемся от последней цифры числа). Далее с получившимся числом проделаем ту же последовательность действий и т. д., пока число не станет равным нулю. writeln (‘Введите N=');readln(n); m:=n; k:=0; while т0 do begin; k:=k+1; m:= m div 10; end; writeln('B числе ', N ,’ ‘, k, ' цифр!');
-
Цикл с постусловием«делать до»
Тело цикла Условие выхода из цикла
-
ОПЕРАТОР ЦИКЛА С ПОСТУСЛОВИЕМ repeat (повторять) until (до тех пор, пока) Пример 5 Составить программу планирования закупки товара в магазине на сумму, не превышающую заданную величину. writeln('сумма - '); readln(p); s:=0; repeat;writeln(‘Ценa тов. и его кол '); readln(c, k);s:=s+c*k; Writeln(‘Стоимость покупки’,s:5:2); until s>p; writeln('Суммарная стоимость покупки превысила предельнуюсумму'); readln; end.
-
СПАСИБО ЗА ВНИМАНИЕ Материал для презентаций взят из учебника PASCAL. Практикум/Чернов Н. А., Мамелина С. В., Новосельцев С. В. - Кострома, 2009
Нет комментариев для данной презентации
Помогите другим пользователям — будьте первым, кто поделится своим мнением об этой презентации.