
- •Язык Pascal в популярном изложении
- •§ 1 Постоянные и переменные величины
- •§ 2 Арифметические действия. Элементарные функции
- •§ 3 Арифметические выражения. Скобки
- •§ 4 Вычисление значения арифметического выражения. Команда присваивания
- •§ 5 Типы числовых данных
- •§ 6 Описание числовых переменных
- •§ 7 Обобщение по вещественному типу данных
- •§ 8 Обобщение по целому типу данных
- •§ 9 Простая программа. Команда Writeln
- •§ 10 Исполнение программы. И снова о команде Writeln
- •§ 11 Исполнение программы (продолжение). Сообщения об ошибках
- •§ 12 Учимся самостоятельно писать программы и отлаживать их на компьютере
- •§ 13 Строка символов в команде Writeln
- •§ 14 Ввод исходных данных. Команда Readln
- •§ 15 Отношения между величинами
- •§ 16 Разветвляющиеся алгоритмы. Полное ветвление
- •§ 17 Разветвляющиеся алгоритмы. Неполное ветвление
- •§ 18 Давайте попробуем разработать программу - тест
- •§ 19 Команда множественного выбора case
- •§ 20 Графика в паскаЛе
- •§ 21 Цикл пока в языке Паскаль
- •§ 22 Цикл для каждого в языке Паскаль
- •§ 23 Работа цикла для каждого (for)
- •§ 24 Модификация цикла для каждого
- •§ 25 Некоторые специальные процедуры и функции, используемые в языке
- •§ 26 Разработка мультика
- •§ 27 Строковый тип данных
- •§ 28 Строковые процедуры и функции
- •§ 29 Массивы, размерность, длина, описание массивов
- •§ 30 Процедуры в языке Паскаль
- •1) Процедуры без параметров;
- •§ 31 Процедуры без параметров
- •§ 32 Процедура с параметрами-значениями
- •§ 33 Процедуры с параметрами-переменными
- •§ 33 Функции, определенные пользователем
- •§ 34 Несколько рекомендаций по использованию процедур и функций
§ 17 Разветвляющиеся алгоритмы. Неполное ветвление
Кроме полного ветвления существует понятие неполного ветвления.
С помощью блок-схемы неполное ветвление можно изобразить так:
На языке Паскаль неполное ветвление записывается так:
I f условие Then begin
Ком 1; здесь нужно записать команды,
Ком 2; которые Паскаль должен
…; выполнить, если условие
Ком n; будет выполнено
End;
Встретив такую конструкцию, Паскаль будет действовать так:
проверит выполнение условия;
затем, если условие будет выполнено, выполнит команды, записанные после слова Then, а если не будет выполнено, то сразу перейдет на выполнение команд, записанных после слова End;
Пример. Пусть требуется написать программу, которая с вводимыми числами поступает так:
если вводим отрицательное число, то она меняет его знак на противоположный;
если вводим положительное число или 0, то она выдает само это число.
Коротко можно сказать, что наша программа вычисляет модуль вводимого числа.
Блок схема: Программа:
Var
A:Real;
Begin
Writeln(‘A=’);
Readln(A);
If A<0 Then begin
A:=-A;
end;
Writeln (‘A=’,A);
End.
Задания к § 16
Белоснежка и семь гномомов собирали драгоценные и полудрагоценные камни. Определить, кто собрал больше драгоценностей.
В одно и то же время из деревни ЛОПУХИ, села КАРАЧАРОВО и поселка КУКУШКИНА каждый на своем автомобиле выехали менеджеры для покупки акций особо выгодной нефтяной компании в г.Шкворнике. Написать программу, которая определяет, кто из них прибудет первым, скупит все акции и выведет свой населенный пункт в мировую бизнес-столицу.
В гидрометцентр 3 раза в сутки - в 6, 12 и 18 часов поступает информация о температуре воздуха. Напишите программу для определения максимальной, минимальной и среднедневной температур.
В ЭВМ поступает информация о количестве очков, которые набрали три гроссмейстера на шахматном чемпионате. Напишите программу, которая определит, на сколько очков лидер оторвался от самого слабого.
Написать программу, которая запрашивает результаты трех победителей в соревновании по поднятию тяжестей и сообщает результат спортсмена, занявшего II место.
Написать программу, которая определяет можно ли построить треугольник по трем заданным отрезкам.
Написать алгоритм для решения квадратного уравнения.
Написать программу для решения линейного уравнения вида Ах+В=0, где А и В некоторые числа.
Написать программу, определяющую лежат ли три точки на одной прямой, если известны их координаты.
Написать программу, которая по году рождения человека определяет к какой из 3 возрастных категорий он относится: ребенок (до 18 лет), в полном расцвете сил (до 70 лет), умудрен опытом( свыше 70 лет).
Ракета запускается с точки на экваторе и развивает скорость V км/c. Каков результат запуска?
(Если V<7.8 км/с, ракета упадает на землю;
есди 7.8<V<11.2, ракета станет спутником земли;
если 11.2<V<16.4, ракета станет спутником солнца;
если V>16.4, ракета покинет солнечную систему)
Написать программу для вычисления значения функции
X2
, если X<0
Y=
,
если Х
Написать программу для вычисления значения функции
3Х-12
, если Х>12
Y=
,
если Х
,
где X=5f-12
Написать программу для вычисления значения функции
X
, если X<0
Y= 2X , если 0<=X<9
X+3, если X>=9
Написать программу для вычисления значения функции Z=5y-Y+6, где
X,
если X>6
Y= 5X, если 6>=X>=2
X+3,если X<2
Написать программу для вычисления значения функций:
5х
У= --------------
2X2- 4X +1
F
= 5m + n, где n = 8a - 3
R
= 8* SIN k -
, где k = a+b,
M
= (T-1)2 +5
Q
= 2P + R +3, где
F
= R2*a -1
Q = a2 -p
f = 8a-b, где
R = b2 - k
Психологи рекомендуют учитывать оптимальное соотношение возрастов при вступлении в брак. Оно таково: возраст невесты равен половине возраста жениха плюс 7. Составьте программу для определения, подходят ли жених и невеста друг другу по возрасту.
Заданы координаты двух точек на плоскости. Составьте программу, определяющую лежат ли обе точки на окружности с центром в начале координат.
Заданы координаты двух точек на плоскости. Составьте программу, определяющую, какая из двух точек удалена от начала координат на большее расстояние.
Известны длины всех сторон треугольника. Составьте программу, проверяющую, является ли треугольник прямоугольным.
Известны длины всех сторон треугольника. Составьте программу, проверяющую, является ли треугольник равносторонним.
Известны длины всех сторон треугольника. Составьте программу, проверяющую, является ли треугольник равнобедренным.