Смекни!
smekni.com

Язык программирования Паскаль и ветвление (стр. 4 из 4)

(x>=a) and (x<= b).

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

Имеется прямоугольное отверстие со сторонами a и b и кирпичь с рёбрами x, y z. Требуется составить условие прохождения кирпича в отверстие.

Кирпич пройдёт в прямоугольное отверстие, если выполняется сложное условие:

(a>=x) and (b>=y) or

(a>=y) and (b>=x) or

(a>=x) and (b>=z) or

(a>=z) and (b>=x) or

(a>=y) and (b>=z) or

(a>=z) and (b>=y)

Для трёх граней шесть условий получается потому, что можно каждую грань повернуть на 90 и проверить для каждой грани два случая.

Определить принадлёжность точки фигуре. Пусть фигура задана ограничивающими её прямыми.

Для каждой прямой определим полу плоскость, в которой находится фигура- треугольник АВС. Полуплоскость задаётся неравенством.

Полуплоскость, находящаяся выше от оси х определяется неравенством y>0.

Полуплоскость, находящаяся справа от прямой, соединяющей точки (-1,0) и (0,2), задаётся неравенством y-2x-2<0.

Полуплоскость, находящаяся слева от прямой, соединяющей точки (1,0) и (0,2), задаётся неравенством y+2x-2<0.

Условие принадлежности точки (x,y) фигуре :

(y>0) and (y-2*x-2<0) and (y+2*x-2<0).

Приведём пример программы определяющая существования треугольника со сторонами a, b и c. Условие существования треугольника известно из геометрии: сумма двух любых сторон должна быть больше третьей. Следовательно, для всех сторон условие “сумма двух больше третьей” должно выполняться.

Program e4;

Var a, b, c: real;

Begin

Writeln (‘дите длины трёх сторон треугольника’);

Readln (a, b, С);

Write (‘треугольник со сторонами ’, a, b, c);

If (a+b>c) and (b+c>a) and (a+c>b)

Then writeln (‘существуют’)

Else writeln (‘не существуюет’);

Readln

End.

Ш . Технологический пакет к урокам информатики по теме “Ветвление в Паскале”

Задачи с ветвлением и их решение.

Program vetvlenie;

Var t: integer;

Begin

Writeln ('Введите температуру сегодня');

Readln (t);

If t<=-30

Then

Writeln (‘Не идти в школу ')

Else writeln (‘Идти в школу');

End.

Программа показывает идти ученику сегодня в школу или нет. С клавиатуры он вводит сегодняшнюю температуру, и если она меньше -30, то не идти в школу, а если больше то выводится сообщение о том чтобы идти в школу. Теперь попробуйте написать программу:

Сделать так чтобы программа выводила сообщение о том у кого больше денег и у кого меньше.

Переделать программу так чтобы вместо денег выводилось сообщение о том кто больше попрыгал. Значения так же вводятся с клавиатуры.

Рассмотри задачу: Для модельного агентства выбираются девушки с объёмами 90 (грудь), 60 (талия), 90 (бёдра). Составить программу для отбора девушек по этим параметрам.



Вопросы и задачи по всей теме.

Составьте программу, которая из двух вводимых вами целых чисел печатает заключение о том, какое число больше

Составьте программу, проверяющую, верно ли утверждение, что введённое вами число является чётным.

Составить программу, определяющую, входит ли введенная вами цифра в десятичную запись введенного вами трёхзначного числа, и печатуящая сообщение о том, входит ли эта цифра в запись числа или нет.

Напишите программы на Паскале для решения следующих задач.

Даны три числа a, b, c. Выясните верно ли a<b<c. Ответ получите в текстовой форме: верно или не верно.

Даны положительные числа a, b, c, x. Выясните, пройдёт ли кирпич с рёбрами a, b, c в квадратное отверстие со стороной x.

Даны три действительных числа. Выберете те из них, которые принадлежат отрезку [1;3].

Присвойте величине а значение наибольшего из трёх заданных чисел.

Даны два числа. Выведите первое из них, если оно больше второго, и оба числа, если это не так.

Проверьте, если среди трёх заданных чисел равные.

Даны три действительных числа. Найдите наибольшее значение их суммы и произведения.

Напишите программу – модель анализа пожарного датчика в помещении, которая выводит сообщение «пожарная ситуация», если температура (в нашей модели она будет вводиться с клавиатуры) в комнате превысила 600 .

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

Составьте программу, проверяющую, верно ли утверждение, что введённое целое число делится без остатка на 3.

Напишите программу, которая анализирует человека по возрасту и относит его к одному из четырёх групп: дошкольник, ученик, рабочий, пенсионер. Возраст вводится с клавиатуры.

Составьте программу, определяющую, входит ли введённая вами цифра в десятичную запись введённого вами трёхзначного числа, и печатающую сообщение о том, входит ли эта цифра в запись числа или нет.

Составьте программу, которая по трём введённым вами числам определит,

могут ли эти числа быть длинами сторон треугольника, если да, то какой получился треугольник с данными длинами сторон (прямоугольный, остроугольный, тупоугольный).

Составьте программу, определяющую, лежит ли точка с указанными координатами X, Y на окружности радиуса R с центром начала координат.

Составьте программу нахождения корня уравнения ax+b=c, где a, b, c – данные числа.

Даны три действительных числа. Возвести в квадрат те из них, значения которых не отрицательны.

Даны три действительных числа. Выбрать из них те, которые принадлежат отрезку {-5;3}.

Известны результаты соревнования трёх лыжник4ов. Выбрать результат победителя и занявшего третье место.

Дано натуральное четырёхзначное число. Верно ли, что все четыре цифры различны?

Дано натуральное число n(n<100), определяющее возраст человека (в годах). Дать для этого числа наименование «год», «года» или «лет»: например, 21 год, 44 года, 65 лет и т.д.

Тест.

Что такое алгоритм?

А) последовательность выполнения действий.

Б) составление программы.

В) Не знаю.

Что такое Блок-схема?

А) Рисунки квадратиков.

Б) графическое изображение алгоритма.

В) Не имеющие смысла геометрические фигуры.

Для чего нужно ветвление в паскале?

А) Для решения более сложных задач.

Б) Для того чтобы больше подумать над решением задачи.

В) я не знаю.

Какое из этих языков программирования не относится к высшему уровню?

А) Паскаль

Б) Бейсик

В) Машинно – ориентированный

Где чаще всего используется язык программирования Паскаль?

А) Дома

Б) В хакерских группировках

В) В школе и других учебных заведениях.

Каких алгоритмов не существует?

А) Корявых

Б) линейных

В) С ветвлением.

Каких операторов не существует?

А) Условный.

Б) Заумный.

В) Составной.

Почему язык Паскаль такой популярный?

А) Он простой в обучении и изучается в школах

Б) Очень сложный Язык программирования и это мне нравится.

В) Я не знаю.

С какой командой начинается программа?

А) начало

Б) var

В) begin

Как выглядит оператор присваивания?

А) :=

Б) :()

В) =;

Что указывается в операторах?

А) условие

Б) переменные

В) начало и конец.

Заключение.

Цель моей работы достигнута: я рассмотрел различные виды алгоритмических конструкций, изучил конструкцию ветвления, научился решать задачи с ветвлением, подобрал и составил сам задачи, тесты и др. задания.

В дальнейшем я бы хотел продолжить свою работу, рассмотрев в Паскале другие конструкции. Так же мне хотелось бы узнать, как описывается конструкция ветвления в других языках программирования.(C++, Delphi)

126 (6-16)

Список литературы

Введение в програмирование: Учеб. Пособие для уч. Сред.и ст. шк. Возраста / Авт.-сост. В.А. Гольденберг.- Мн.: ООО”Харвест”, 1997.- 528 с. (библиотека школьника).

Бондарев В.М., Гублинский В.И., Качко Е.Г..

Основа програмирования/ худож. – оформитель С.А. Пяткова. – Харьков: Фолио; Ростов Н/Д: Феникс, 1997. –368с.

Турбо Паскаль 7.0 – К.: торгово – издательское бюро BHV, 1996 – 448с.: ил. Т. Рюттяна.

Игошев А.Д. Матинин Е.Г. Express Pascal. Учебное пособие для средних уч. Заведений.

Кузницов А.А. Патапова Н.В. Основы информатики. 8-9 кл.: Учеб. Для общеобразовательных учеб. Заведений 2001 176с.:ил.