ПАСКАЛЬ
Pascal ABC
Условный оператор.
Ветвление
7, то выводим на экран Х Блок-схема алгоритма, выводящего число, если оно больше семи: На языке Паскаль такую схему обрабатывает условный оператор IF (если) Да (истина) X7 Вывод Х Нет (ложь) " width="640"
Все программы, которые мы рассматривали на прошлых уроках рассчитывались последовательно шаг за шагом (по линейному алгоритму)
При введении условия, в задаче происходит выбор:
Задача: если Х 7, то выводим на экран Х
Блок-схема алгоритма, выводящего число, если оно больше семи:
На языке Паскаль такую схему обрабатывает условный оператор IF (если)
Да
(истина)
X7
Вывод Х
Нет
(ложь)
=7 program z76 ; var X : integer ; Begin Readln (X) ; IF X = 7 THEN writeln (‘Х = ’, X) ; end . Вывод Х Нет (ложь) z76 " width="640"
Полная и неполная форма оператора if
1. Формат записи неполного условного оператора
If then
если то
Да
(истина)
X=7
program z76 ;
var X : integer ;
Begin
Readln (X) ;
IF X = 7 THEN writeln (‘Х = ’, X) ;
end .
Вывод Х
Нет
(ложь)
z76
= 7, то выводим на экран Х, иначе вывести текст «X IF THEN ELSE если то иначе Да Нет (истина) (ложь) X=7 program z77 ; var X : integer ; Begin Readln (X) ; IF X = 7 THEN writeln (‘Х = ’, X) ELSE writeln (‘ХX:= X+1 ; writeln (‘Х = ’, X) ; end. writeln Х writeln (‘Х X:= X+1 z77 " width="640"
Полная и неполная форма оператора if
1. Формат записи полного условного оператора
Задача: если Х = 7, то выводим на экран Х, иначе вывести текст «X
IF THEN ELSE
если то иначе
Да
Нет
(истина)
(ложь)
X=7
program z77 ;
var X : integer ;
Begin
Readln (X) ;
IF X = 7 THEN writeln (‘Х = ’, X)
ELSE writeln (‘Х
X:= X+1 ;
writeln (‘Х = ’, X) ;
end.
writeln Х
writeln (‘Х
X:= X+1
z77
Структурная форма условного оператора if
Условие IF
THEN
ELSE
true
(истина)
false
(ложь)
S2
S1
S3
S1, S2, S3 - условные обозначения операторов
= 0 Вывод «Нет вещественных корней» да нет D 0 Вывод Вывод «2 корня» «1 корень» конец " width="640"
Написать программу для вычисления количества корней квадратного уравнения по дискриминанту
начало
Ввод коэффициентов А, В, С
Вычисление дискриминанта
нет
да
D = 0
Вывод «Нет вещественных корней»
да
нет
D 0
Вывод
Вывод
«2 корня»
«1 корень»
конец
z78
Основные операторы системы:
Имя программы
Начало и Конец
program
Begin и End.
Переменные
VAR
Целое число
Integer;
Вещественное число
Real;
Вывод на экран
Вывод на экран с новой строки
Write (‘x = ‘, x);
Модуль числа
Writeln (‘x = ‘, x);
Abs (х);
Возведение в квадрат
Sqr (х);
Квадратный корень числа
Sqrt (x);
Синус числа
Косинус числа
Sin (x);
Арктангенс числа
Cos (x);
Arctan (x);
Логарифм числа
Ln (x);
Возведение числа Е в степень Х
Exp (x);
Вычисление числа Пи
Pi;
Отбрасывает дробную часть числа
Trunc (x);
Округление дробного числа до ближайшего целого
Round (x);
Основные операторы системы:
Вызов библиотечного модуля (после имени программы)
USES CRT ;
Ввод с клавиатуры
Read (x);
Ввод с клавиатуры с новой строки
ReadLn (x);
Раздел описания констант (перед Var)
Const
Инициализация датчика случайных чисел
Randomize;
Датчик случайных чисел, Х – max возможное число
Random (Х);
Очистка экрана
ClrScr
Установка цвета экрана
TextBackGround
Переменные для хранения символов. Символьный порядковый тип
Логический тип переменных
Char;
Истина
Boolean;
True
Ложь
False
Условный оператор «Если»
IF
Условный оператор «То»
Условный оператор «Иначе»
THEN
ELSE
ЗАДАНИЕ:
Z76 – Z78) Набрать задачи Z76, Z77, Z78 по образцу в тетради и сохранить под этими названиями в своей папке
Z79) Нарисуйте блок-схему алгоритма и напишите программу, которая анализирует введённое с клавиатуры число и выдает на экран:
- удвоенное число, если число положительное;
- абсолютное значение числа, если число отрицательное.
Z80) Нарисуйте блок-схему алгоритма и напишите программу, которая анализирует введённое с клавиатуры число на чётность и сообщает о результате (используйте операцию нахождения остатка от деления числа на 2)
Z81) Даны три целых числа. Найти количество положительных чисел в целом наборе
= 2 Z83) Даны два числа. Вывести большее из них Z84) Даны три числа, найти меньшее из них. Z85) Даны два числа. Вывести сначала большее, а потом меньшее из них " width="640"
ЗАДАНИЕ:
Z82) Для данного вещественного Х найти значение следующей функции F принимающей вещественные значения:
- х, если х
, если 0
4, если х = 2
Z83) Даны два числа. Вывести большее из них
Z84) Даны три числа, найти меньшее из них.
Z85) Даны два числа. Вывести сначала большее, а потом меньшее из них