Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
ТЕМА: Delphi 6.0. Програмування розгалужених обчислювальних процесів
|
|
Мета роботи: Закріплення теоретичного матеріалу та одержання практичних навичок складання та відлагодження програм, що містять розгалуження.
Завдання для самостійної підготовки:
Для успішного виконання даної роботи та послідуючого циклу робіт рекомендується попередньо повторити матеріал по організації розгалужених обчислювальних процесів, використання умовного оператора If та оператора вибору Case, оператора безумовного переходу Goto, проаналізувати приклади розглянуті на лекціях. Результатом домашньої самостійної роботи повинна бути програма, написана на мові Object Pascal, готова до введення на комп’ютері для розв’язання поставлених завдань.
Зміст звіту:
1. Тема та мета роботи.
2.Робоче завдання.
3. Алгоритм виконання завдання у вигляді блок-схеми.
4.Текст розробленої програми з коментарями та результати її роботи.
При захисті лабораторної роботи необхідно вміти відповідати на контрольні запитання.
Контрольні запитання:
1. Який обчислювальний процес називається розгалуженим?
2. Який оператор називають складним?
3. Які існують форми запису умовного оператора If? У чому їх різниця?
4. Вкажіть призначення та правила запису оператора безумовного переходу?
5. Назвіть правила запису оператора Case. Які обмеження закладені в цей оператор?
6. В яких випадках рекомендується використовувати конструкцію з оператором Case?
7. Чи можливе використання конструкції з If замість Case і навпаки?
8. Чи може умовний оператор містити оператор безумовного переходу?
Робоче завдання:
Завдання 1.Скласти програму для обчислення значення заданої функції. Перевірити вірність розробленої програми, тобто виконати її для значень аргументу х, що відповідає різним гілкам заданої функції. Вихідні дані (значення аргументів) та результати роботи програми (значення функції) вивести на екран.
— Регулярная проверка качества ссылок по более чем 100 показателям и ежедневный пересчет показателей качества проекта.
— Все известные форматы ссылок: арендные ссылки, вечные ссылки, публикации (упоминания, мнения, отзывы, статьи, пресс-релизы).
— SeoHammer покажет, где рост или падение, а также запросы, на которые нужно обратить внимание.
SeoHammer еще предоставляет технологию Буст, она ускоряет продвижение в десятки раз, а первые результаты появляются уже в течение первых 7 дней. Зарегистрироваться и Начать продвижение
Приклад
h = 
procedure TForm1.Button1Click(Sender: TObject);
var a, b, x, h: real;
begin
a: =StrToFloat(Edit1.Text);
b: =StrToFloat(Edit2.Text);
x: =StrToFloat(Edit3.Text);
if x< a then
begin
h: =sqrt(sqr(cos(x)))+sqr(a);
Memo1.Lines.Add('h='+FloatToStr(h));
end
else
if x=a then
begin
h: =exp(abs(b+x));
Memo1.Lines.Add('h='+FloatToStr(h));
end
else
begin
h: =ln(1+exp(3*ln(a))+sqr(x));
Memo1.Lines.Add('h='+FloatToStr(h));
end
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Clear;
end;
|
|