No Image

Цикл if else паскаль

СОДЕРЖАНИЕ
0 просмотров
11 марта 2020

Следует быть внимательными при использовании вложенных операторов if. Предпочтительнее пользоваться схемой else-if (т.е. вкладывать во внешнюю ветку else), а не then-if (т.е не вкладывать во внешнюю ветку if). Так как в последнем случае придется следить за тем, к какой ветке относится соответствующее else. Пренебрежение этим правилом приводит к нагромождению закрывающих else.

Сравните две программы ниже. Они делают одно и то же. Однако предпочтительной является первая.

else-if

then-if

При использовании второго варианта надо помнить следующее общее правило: каждый else относится к ближайшему предшествующему if, еще не имеющему парного else.

При вложении в ветвь else (первый вариант) конструкция получается логически более понятной.

Условный оператор IF THEN позволяют выбрать для выполнения один из операторов (или не выбрать ни одного).

Условный оператор имеет вид:

В выражении должен получаться результат, имеющий стандартный тип Boolean. Если результатом выражения является истинное значение (True), то выполняется оператор, следующий за ключевым словом then.

Если результатом выражения является значение False присутствует ключевое слово else, то выполняется оператор следующий за ключевым словом else. Если ключевое слово else отсутствует, то выполняется оператор, следующий за условным.

В качестве условия может быть:

  1. Операция отношения ( ,>=, ,=).
  2. Логическая переменная.

Главное меню

Популярные статьи

1 Подпрограммы на паскале
2 Циклы с параметрами
3 Ткани растений
4 Письмо в прошлый век Обломову
5 Таблицы
6 Условный оператор if . then . else
7 Класс Насекомые
8 Структура программы на языке Паскаль
9 Элементы комбинаторики
10 Составление термохимического уравнения

Условный оператор if . then . else

Цель: дать понятие об условном операторе, блок-схемах, изображающих такие операторы; ввести понятие и формах записи вещественного типа real. Учить на частных примерах составлять блок-схемы и программы; вводить и выполнять программы, используя компиляторы BPW или Turbo Pascal.

Читайте также:  Схема расположения устройств памяти в системном блоке

Использовать программы: Barland Pascal for Windows (BPW) или Barland Pascal, или Turbo Pascal

Многие представляют ЭВМ как чисто вычислительную машину, что является заблуждением. ЭВМ способна, подобно человеку, принимать решения.
Вот некоторые простые решения, которые принимает человек в зависимости от условия.

Если пойдет дождь, тогда надо взять зонтик,
иначе, зонтик не брать.
Если в комнате темно, тогда надо включить свет.

Человек, принимая какое-то решение, может сомневаться, взвешивать, прикидывать, машина принимает решения категорически: либо – да, либо – нет и никаких сомнений.
Для реализации принимаемых решений на языке Паскаль могут быть использованы операторы if (если), then (тогда) и else (иначе).
После оператора if записывается условие, а после операторов then и else – команды, которые необходимо выполнить.

2. Блок-схемы, изображающие условные операторы

Вы уже знаете, что составление программы можно изображать геометрическими фигурами – блоками, в результате чего образуется схема программы. Такая конструкция называется блок-схемой.
Какой геометрической фигурой принято обозначать условие? Посмотрите на ниже приведенную конструкцию и вы увидите, что условие изображается ромбом (см. рис. 1).

Рис. 5


Для более ясного понимания использования этих операторов, рассмотрим следующий пример.
Пример 1. Составить программу, после выполнения которой меньшее из двух неравных чисел будет увеличено вдвое, а большее оставлено без изменения.

Блок-схема

Рис. 6
Программа

Program Problem2; < Увеличения меньшего из двух целых чисел вдвое >
uses WinCrt;
var
a, b, c : integer;
begin
write("Введите первое целое число "); readln(a);
write("Введите второе целое число "); readln(b);
if a = 0) and (y >= 0).

Program Problem7;
uses WinCrt;
var
x, y, R : real;
begin
write("Введите координаты точки "); readln(x, y);
write("Введите радиус окружности "); readln(R);
if (x*x + y*y = 0) and (y >= 0)
then writeln("Да")
else writeln("Нет")
end.

Читайте также:  Приложение для охлаждения смартфона

Пример 8. Составьте программы определения большего из трех действительных чисел a, b и c.


Рис. 13
Задание 4

1. Используя блок-схему составить и выполнить программу. Изменить программу так, чтобы в случае равных чисел, она выдавала "Числа равны".
2. Даны три числа a, b, c. Написать программу, в результате которой числа удвоятся, если и числа будут заменены на их абсолютные величины в прочих случаях.

8. Вычисление значений функции

Пример 9. Вычислить значение функции по формуле: .

Program Problem9;
uses WinCrt;
var
a, b, c, y : real;
begin
write("Введите значения a, b, c "); readln(a, b, c);
y := a*b + c*sin(a*b);
writeln("Значение функции равно y = ", y:6:6)
end.

Пример 10. Составить программу вычисления значения функции:

Замечание. Надо вспомнить из математики, что если обозначить , тогда логарифмируя по основанию e обе части равенства, получим: , , т. е.

Program Problem10;
uses WinCrt;
var
x, y : real;
begin
write("Введите значение аргумента x = "); readln(x);
if x 0) and (x = 1 then y := 1/(2*sqrt(x))
else y := 1/(4*exp(ln(abs(x))/4));
writeln("Значение функции равно y = ", y:6:6)
end.

Пример 12. Составить программу для вычисления значений функции, заданной графиком:

Program Problem12;
uses WinCrt;
var
x, y : real;
begin
write("Введите значение аргумента x = "); readln(x);
if abs(x)>= 3 then y := 3
else y := abs(x);
writeln("Значение функции равно y = ", y:6:6)
end.

1. Вычислить значение функции по формуле:
2. Точка плоскости задана своими координатами x, y. Написать программу, при выполнении которой определяется, принадлежит ли данная точка плоской фигуре, являющейся кольцом с центром в точке (0, 0), с внутренним радиусом 3 и с наружным радиусом 4.

3. Написать программу, при выполнении которой выводится 1, если данное число x принадлежит отрезку [a, b], где a и b заданные числа, и выводится 0 в противоположной ситуации.
4. Даны положительные числа x, y, z. Выяснить, существует ли треугольник с длинами сторон x, y, z?
5. Определить, верно ли, что при делении целого неотрицательного числа a на целое положительное число b получается заданный остаток r или s.
6. Составить программу решения биквадратного уравнения

Читайте также:  Как войти в safe mode windows 10

Автор: Тишин Владимир Иванович

Зощенко М. М

Родился в семье художника в Петербурге (по другим сведениям, в Полтаве). В 1913 г. после окончания гимназии поступил в Петербургский университет на юридический факультет. Не закончив курса, он отправился на фронт начавшейся первой мировой войны добровольцем; участвовал в боях, отличаясь храбростью и отвагой, за что удостоен пяти орденов; командовал батальоном; был трижды ранен, отравлен .

Тип Кишечнополостные

Кишечнополостных насчитывается свыше 9 тыс. видов. Это низшие, преимущественно морские, многоклеточные животные, прикрепленные к субстрату либо плавающие в толще воды. Несмотря на большое различие во внешнем строении и размерах тела кишечнополостные имеют общие черты организации, главнейшие из которых следующие: Тело мешковидное, образованное двумя слоями .

Единицы измерения времени

Единицы измерения времени Современные единицы измерения времени основаны на периодах обращения Земли вокруг своей оси и вокруг Солнца, а также обращения Луны вокруг Земли. Такой выбор единиц обусловлен как историческими, так и практическими соображениями: необходимостью согласовывать деятельность людей со сменой дня и ночи или сезонов; смена фаз Луны влияет на высоту .

Формирование скоплений галактик

Какова бы ни была природа слабых первичных возмущений в ранней Вселенной, они рано или поздно превращаются в сильные возмущения под действием гравитационной неустойчивости. Независимо от своей предыстории, сильные возмущения — это сгущения вещества, в которых космологическое расширение полностью или почти полностью преодолено их собственным тяготением. Выше .

Комментировать
0 просмотров
Комментариев нет, будьте первым кто его оставит

Это интересно
Adblock detector