Презентация, доклад по теме Нелинейные алгоритмы

оператора начинается с вычисления значения логического выражения, записанного в условии.
Простые условия записываются в виде равенств или неравенств.
Сложные условия составляют из простых с помощью логических операций.
Если условие истинно, то выполняется <операторы1>, в противном случае - <операторы2>.

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;

(X >= A) AND (X<=B)

Y<А или Y>B (Y < A) OR (Y> B)

Сложные условия

два числа А и В.
Вывести наибольшее из них

Пример 2.
Дано число А.
Вывести модуль числа А

A

B

A

B

A

B

A

B

end.

end.

Начало

Начало

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.

16.5х+9х2 -1.25х3 если 1<= x <= 9
У= 0 если x < 1
a – x если x > 9

1

9

x < 1

x > 9

1<= x <= 9

Y=0

Y= 16.5х+9х2 -1.25х3

Y= a - x

‘);
Readln(a, x);
If x<1 then y:=0
else
if x>9 then y:=a-x
else y:=16.5*х+9*х*x -1.25*х*x*x;
Writeln(‘y= ‘ , y:5:2);
End.

них.
№ 4.
Дан круг радиуса R и квадрат со стороной А. Впишется ли круг в квадрат?
Ответ вывести в словесной форме «да» или «нет»
№ 5*
Определить, принадлежит ли точка М(х, у) кольцу с центром в начале координат, внешним радиусом R1, внутренним радиусом R2

а

в

с

М

М(х,у)

из цикла

Условие выхода из цикла

до В с шагом 1
for <параметр>:=А to В do begin
<тело цикла> ;
End;
Цикл с шагом параметра = 1
for <параметр>:=А downto В do с шагом = - 1

n: integer;
y: real;
Begin
y:=0;
for n:=1 to 100 do begin
y:=y+n;
end;
writeln('y=', y);
end.

n: integer;
y: real;
Begin
y:=0;
for n:=1 to 20 do begin
y:=y+1/n;
end;
writeln('y=', y);
end.

цифр которых равна N, причем 0program prim3;
uses crt;
var n,t,p1,p2,s: integer;
begin
clrscr;
Write(‘ целое число от 1 до 18 n= ');
readln(n);
For t:=10 to 99 do begin
p1:=t div 10; {деление нацело}
р2: =t mod 10; {остаток от деления нацело}
s:=p1+p2;
If s=n then writeln('k= ‘, t);
end;
end.

Посчитать количество цифр в числе.
Алгоритм. Подсчет количества цифр начнем с последней цифры числа. Увеличим счетчик цифр на единицу. Число уменьшим в 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, ' цифр!');

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.