Практическая работа №22 Тема : Составление программ разветвляющейся структуры. Использование управляющей структуры




Скачать 58.98 Kb.
НазваниеПрактическая работа №22 Тема : Составление программ разветвляющейся структуры. Использование управляющей структуры
Дата публикации27.02.2013
Размер58.98 Kb.
ТипПрактическая работа
uchebilka.ru > Астрономия > Практическая работа
Практическая работа № 22

Тема: Составление программ разветвляющейся структуры. Использование управляющей структуры IF…Then.

Цель: Научиться составлять простейшие программы на языке Object Pascal в среде Delphi c использованием оператора If…Then.

Время: 80 мин.

Задание: Решить задачу согласно варианта, организовав ввод данных и вывод результата в диалоговые окна или в форму Delphi.


    1. Фаронов В.В. Программирование на языке высокого уровня: Учебник для вузов. – СПб.: Питер, 2003.

    2. Бобровский С.И. Delphi 7. Учебный курс. – СПб.: Питер, 2005.
    Литература:



Содержание отчёта:

  • Ответы на вопросы, поставленные в пунктах описания последовательности выполнения работы.

  • Блок-схема алгоритма и текст программы.

  • Выводы по работе (что изучили, чему научились).

Варианты задания:

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

  2. На плоскости расположена окружность радиуса R с центром в начале координат. Ввести заданные координаты точки и определить, лежит ли она на окружности. Результат присвоить символьной переменной. Решить задачу при R=2 для точек с координатами (0; 2), (-1.5; 0.7), (1; 1), (3; 0).
    Считать, что точка с координатами x, y лежит на окружности радиуса R, если

, где e – точность, с которой осуществляется проверка на равенство (можно принять e = 10-5).

  1. Заданы координаты двух точек. Определить, лежат ли они на одной окружности с центром в начале координат. Результат присвоить символьной переменной. Задачу решить для точек с координатами (0; 2), (2; 0); (1; 3), (2, 2). Проверку на равенство осуществлять с точностью e = 10-5.

  2. Заданы площади круга S1 и квадрата S2. Определить, поместится ли квадрат в круге. Задачу решить при 1) S1 = 70, S2 = 36.74; 2) S1 = 0.86, S2 = 0.64

  3. Заданы площади круга S1 и квадрата S2. Определить, поместится ли круг в квадрате. Задачу решить при 1) S1 = 3.2, S2 = 3.5; 2) S1 = 3.2, S2 = 4; 3) S1 = 6, S2 = 9.

  4. Написать программу, которая бы спрашивала сокращённое имя, а печатала полное (например, Гриша – Григорий) для трёх Ваших друзей. Ввод незнакомого имени должен вызывать сообщение типа: «Я с Вами не знаком». Необходимые данные задать самостоятельно.

  5. Составить программу для определения подходящего возраста кандидатуры для вступления в брак, используя следующее соображение: возраст девушки равен половине возраста мужчины плюс 7, возраст мужчины определяется соответственно как удвоенный возраст девушки минус 14. Данные для проверки работы программы задать самостоятельно. (Совет: в начале выполнения программы на экране должен появиться вопрос: «Мужчина или женщина?». Введите МУЖ или ЖЕН. В зависимости от ответа после ввода возраста выводятся соответствующие рекомендации.)

  6. В киоске продаётся газета стоимостью 40 копеек и журнал стоимостью 1 грн. 50 коп. Составить программу, которая спрашивает о желании покупателя (журнал или газета?), принимает деньги (сумма денег вводится с клавиатуры), печатает причитающуюся сдачу или выдаёт сообщение о недостаточности полученной суммы. Исходные данные задать самостоятельно.

  7. Составить программу, контролирующую знание закона Ома. Обучаемый вводит формулу закона Ома в строковую переменную, которая далее сравнивается с правильным ответом, хранящимся в строковой константе.
    (Совет: перед вводом формулы на экране должно появиться точное указание о том, в каком виде и с использованием каких обозначений нужно осуществлять ввод формулы. Например, такое: «Формулу вводить без пробелов. Использовать обозначения: I – сила тока, U – напряжение, R – сопротивление. Выразить I через U и R.» )

  8. Написать программу вычисления значения функции


  9. Написать программу выбора наименьшего из трёх чисел. Исходные данные задать самостоятельно. Числа должны вводиться с клавиатуры. Результат вывести в виде: «Наименьшее из чисел …, …, … - число …».

  10. Написать программу выбора наибольшего из трёх чисел. Исходные данные задать самостоятельно. Числа должны вводиться с клавиатуры. Результат вывести в виде: «Наибольшее из чисел …, …, … - число …».

  11. Написать программу вычисления значения функции

  12. Логической переменной b присвоить значение true, если числа x и y равны, и значение false иначе. X и y вводить с клавиатуры, результат вывести в виде: «Утверждение, что x = y - … (вместо многоточия подставляется false или true)» .

  13. Даны числа a1, b1, c1 и a2, b2, c2. Определить точки пересечения прямых, описываемых уравнениями a1x + b1y = c1 и a2x + b2y = c2 , либо сообщить, что прямые совпадают, не пересекаются или вовсе не существуют. Исх. д. задать самостоятельно.

  14. Даны числа a, b и c (a  0). Найти вещественные корни уравнения ax4 + bx2 + c = 0. Если корней нет, то сообщить об этом. Исходные данные задать самостоятельно.

  15. Найти корни квадратного уравнения ax2 + bx + c = 0, где а  0. Исходные данные задать самостоятельно. Учесть, что если а = 1 или дискриминант (D) = 0, то существует только один корень уравнения, если D < 0, то вещественных корней нет.

  16. Даны произвольные числа a, b и c. Определить, можно ли построить треугольник с такими длинами сторон. Если треугольник прямоугольный, равнобедренный или равносторонний, то сообщить об этом. Исходные данные ввести с клавиатуры.

  17. Для заданного числа a найти корень уравнения f(x) = 0, где
    Исходные данные выбрать самостоятельно.



  1. Написать программу вычисления значения функции
    Исходные данные выбрать самостоятельно.

  2. Написать программу вычисления значения функции
    Исходные данные выбрать самостоятельно.

  3. Написать программу вычисления значения функции

    Исходные данные выбрать самостоятельно.

  4. Написать программу вычисления значения функции
    Исходные данные выбрать самостоятельно.

  5. Написать программу вычисления значения функции



Исходные данные выбрать самостоятельно.



  1. Написать программу вычисления значения функции



Исходные данные выбрать самостоятельно.



  1. Написать программу вычисления значения функции
    Исходные данные выбрать самостоятельно.

  2. Написать программу вычисления значения функции
    Исходные данные выбрать самостоятельно.

  3. Написать программу вычисления значения функции

    Исходные данные выбрать самостоятельно.

  4. Написать программу вычисления значения функции

    Исходные данные выбрать самостоятельно.

  5. Написать программу вычисления значения функции
    Исходные данные выбрать самостоятельно.

Последовательность выполнения работы:

  1. Выделите исходные данные для решения задачи.

Представьте задачу в виде формул, соотношений и ограничений.

Разработайте алгоритм решения задачи. В данной работе он будет иметь вид, изображенный на рис.1.

Запустите Delphi.

  1. Наберите в окне редактора кода текст программы, предусмотрите вывод исходных данных и результата в форму и окно сообщений.

  1. Сохраните все созданные файлы в своём каталоге на сервере в папке ПР22, покажите работу преподавателю и выключите компьютер.
^

Пример решения задачи:


Задача № 1.
Найти значения функции

Область определения функции Y: x  ]-;0[  ]0;1[  ]1;  [.

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


Ввод X

X<0

Y=Exp(x)/(x-1)

Вывод Y

Конец

Нет
2

3

5

6

8

9

4

7

1

Начало

Да


Y=(Sin(x))^3


X0 And X1

Нет


Да

Функция не определена


Рисунок 1.


Словесное описание алгоритма:

  1. Начало.

  2. Ввод значения переменной X.

  3. Если Х < 0, то значение переменной Y вычисляется по формуле: Y = (Sin(x))^3, после чего – переход к пункту 5 (печать Y).

  4. Если X > 0, то значение переменной Y будет вычисляться по формуле: Y = Exp(x) / (x-1). Но функция Y(x)Exp(x) / (x-1) не определена в точке X = 1. Кроме этого, по условию, функция Y(x) не определена в точке X = 0. Поэтому, если X  1 и X  0, Y рассчитывается по вышеуказанной формуле ( Y = Exp(x) / (x-1) ) и переход к пункту 5. Иначе выводится сообщение «В этой точке функция Y не определена», после этого – переход к пункту 6 (конец программы).

  5. Вывод на экран значения Y.

  6. Конец.

Текст программы:


Рисунок 2.
Задача № 2. Найти корни квадратного уравнения ax2+bx+c=0.

Добавить документ в свой блог или на сайт

Похожие:

Практическая работа №22 Тема : Составление программ разветвляющейся структуры. Использование управляющей структуры iconПрактическая работа №2 8 Тема : Составление программ разветвляющейся...
Тема: Составление программ разветвляющейся структуры. Использование управляющей структуры if…Then

Практическая работа №22 Тема : Составление программ разветвляющейся структуры. Использование управляющей структуры iconПрактическая работа №20 Тема : Составление программ линейной структуры...
Тема: Составление программ линейной структуры с использованием стандартных функций

Практическая работа №22 Тема : Составление программ разветвляющейся структуры. Использование управляющей структуры iconПрактическая работа №2 7 Тема : Составление программ линейной структуры...
Тема: Составление программ линейной структуры с использованием стандартных функций. Ввод-вывод данных в Delphi

Практическая работа №22 Тема : Составление программ разветвляющейся структуры. Использование управляющей структуры iconПрактическая работа №21 Тема : Составление программ линейной структуры...
Тема: Составление программ линейной структуры с использованием стандартных функций. Ввод-вывод данных в Delphi

Практическая работа №22 Тема : Составление программ разветвляющейся структуры. Использование управляющей структуры iconПрактическая работа №21 Тема : Составление программ линейной структуры...
Тема: Составление программ линейной структуры с использованием стандартных функций. Ввод-вывод данных в Delphi

Практическая работа №22 Тема : Составление программ разветвляющейся структуры. Использование управляющей структуры iconЛабораторная работа №2 Тема: Программирование алгоритмов разветвляющейся...
Тема: Программирование алгоритмов разветвляющейся структуры в интегрированной среде языка Turbo Pascal

Практическая работа №22 Тема : Составление программ разветвляющейся структуры. Использование управляющей структуры iconЛабораторная работа №3 Тема: Программирование алгоритмов разветвляющейся...
Тема: Программирование алгоритмов разветвляющейся структуры в интегрированной среде языка Turbo Pascal

Практическая работа №22 Тема : Составление программ разветвляющейся структуры. Использование управляющей структуры iconЛабораторная работа №1 Тема: Элементы и структуры языка. Реализация...
Условие задачи, исходные данные, результат, формулы расчета, листинги программ, фотографии экрана выполнения программ с заданными...

Практическая работа №22 Тема : Составление программ разветвляющейся структуры. Использование управляющей структуры iconПрактическая работа №30 Тема : Составление программ с применением...
Тема: Составление программ с применением простейших алгоритмов обработки массивов

Практическая работа №22 Тема : Составление программ разветвляющейся структуры. Использование управляющей структуры iconПрактическая работа №24 Тема : Составление программ с применением...
Тема: Составление программ с применением простейших алгоритмов обработки массивов

Вы можете разместить ссылку на наш сайт:
Школьные материалы


При копировании материала укажите ссылку © 2013
контакты
uchebilka.ru
Главная страница


<