Виды алгоритмических структур Линейный алгоритм Разветвляющийся алгоритм Циклический алгоритм

1. ? Виды алгоритмических структур Линейный алгоритм Разветвляющийся алгоритм Циклический алгоритм

2. Разветвляющиеся алгоритмические конструкции.Условный оператор IF

3. Формы ветвления Неполная форма Полная форма Условие Нет Условие Нет Да Да Действие 1 Действие 2 Действие

4. Начало Ввод A Да Нет A>0 X:=sqr(a) X:=abs(a) Вывод X Конец Полное ветвление Begin Writeln (‘Введите число’); Readln(A); If A>0 Then X:=sqr(A) Else X:=abs(A); WriteLn (X); End. ? Сформулируйте условие задачи

5. Правила построения полного оператора IF If логическое выражение Then Оператор 1 Else Оператор 2 ; Перед ELSE ; не ставиться!

6. Неполное ветвление Begin Writeln (‘Введите число’); Readln(A); If A>0 Then A:=sqrt(A); WriteLn (A); End. ? Ввод A A>0 Нет Да Сформулируйте условие задачи A:= sqrt(A) Вывод A

7. Правила построения неполного оператора IF If логическое выражение Then Оператор 1;

8. Операции отношений 2 1 6 5 4 3 (56-х/2) > (x-100*(x-3)) 56-х/2 > x-100*(x-3)

9. С клавиатуры вводятся два различных числа. Если первое число больше второго, то на экран выводится их сумма. В противном случае – произведение. Program Chisla; Uses CRT; Var a,b : integer; Begin ClrScr; Writeln (‘Введите два различных числа’); Readln(a,b); If a>b Then Writeln (‘Сумма чисел: ’, a+b) Else Writeln (‘Произведение чисел: ’, a*b); End.

10. Практическая работа: • С клавиатуры вводится числоотличное от нуля. Определить четное оно или нет. • С клавиатуры вводится четырехзначный номер билета. Определить является ли он счастливым.

11. Практическая работа: • С клавиатуры вводится число, отличное от нуля. Определить четное оно или нет. If A mod 2 = 0 Then WriteLn (‘Число четное’) Else WriteLn (‘Число нечетное’);

12. Практическая работа: 2. С клавиатуры вводится четырехзначный номер билета. Определить является ли он счастливым. If (x1+x2)=(x3+x4) Then WriteLn (‘счастливый’) Else WriteLn (‘несчастливый’); x1 x2 x3 x4 4536