рефераты конспекты курсовые дипломные лекции шпоры

Реферат Курсовая Конспект

Описание алгоритма

Описание алгоритма - раздел Программирование, Программирование на языке Паскаль Алгоритм Sum. Вход: Функция F, Отрезок [A...

Алгоритм Sum. Вход: функция f, отрезок [a,b], количество разбиений n. Выход: приближенное значение интеграла, замененное интегральной суммой .

А. Начать исполнение.

1. Рассчитать .

2. Записать в результат значение 0.

3. Для значений i от 0 до n-1 повторять:

А. Увеличить результат на .

4. Конец цикла.

Б. Закончить исполнение.

 

Алгоритм Integr. Вход: функция f, отрезок [a,b], точность результата δ. Выход: значение интеграла с точностью.

А. Начать исполнение.

1. Присвоить n значение 8.

2. Записать в результат (переменную Result) приближенное значение интеграла функции f на отрезке [a,b] с разбиением на n частей.

3. Повторять:

А. Записать результат в переменную P.

Б. Удвоить n.

В. Записать в результат приближенное значение интеграла функции f на отрезке [a,b] с разбиением на n частей (подпрограмма Sum).

4. Конец цикла при условии |Result-P|<δ (т.е. результат по сравнению с предыдущим изменился менее чем на заданную точность).

Б. Закончить исполнение.

 

Алгоритм PrintIntegr. Вход: функция для интегрирования f и (необязательно) ее первообразная G.

А. Начать исполнение.

1. Повторять:

А. Вывести сообщение "Введите отрезок интегрирования [a,b]".

Б. Ввести a,b.

В. Вывести "Приближенное значение интеграла равно", Integr(f,a,b,10-6), "±0.000001".

Г. Если известна первообразная, то вывести "Точное значение интеграла равно", G(b)-G(a).

Д. Вывести сообщение "Продолжить вычисление (Y/N) ?".

Е. Ввести символ ot.

2. Конец цикла при условии ot='N'.

Б. Закончить исполнение.

 

Алгоритм Lab4.

А. Начать исполнение.

1. Присвоить переменной Loop значение "истина".

2. Пока Loop имеет значение "истина", повторять:

А. Вывести на экран меню: "1 – Интегрирование функции
2 – Интегрирование функции
3 – Интегрирование функции
4 – Интегрирование функции
5 – Выход".

Б. Вывести сообщение "Выберите пункт меню".

В. Ввести n.

Г. Исследовать n:

1. Если n=1, то вызвать подпрограмму PrintIntegr для функции f1 с первообразной G1.

2. Если n=2, то вызвать подпрограмму PrintIntegr для функции f2 с первообразной G2.

3. Если n=3, то вызвать подпрограмму PrintIntegr для функции f3 без первообразной.

4. Если n=4, то вызвать подпрограмму PrintIntegr для функции f4 без первообразной.

5. Если n=5, то присвоить переменной Loop значение "ложь".

3. Конец цикла.

Б. Закончить исполнение.

 

– Конец работы –

Эта тема принадлежит разделу:

Программирование на языке Паскаль

ГОУ Уральский государственный технический университет УПИ... Программирование на языке Паскаль Лабораторный практикум по...

Если Вам нужно дополнительный материал на эту тему, или Вы не нашли то, что искали, рекомендуем воспользоваться поиском по нашей базе работ: Описание алгоритма

Что будем делать с полученным материалом:

Если этот материал оказался полезным ля Вас, Вы можете сохранить его на свою страничку в социальных сетях:

Все темы данного раздела:

Программирование на языке Паскаль
  Лабораторный практикум   по курсу «Информатика» для студентов первых курсов машиностроительных специальностей очных форм обучения  

Оформление лабораторных работ
Отчет по лабораторной работе должен содержать название работы и следующие разделы: постановка задачи, математическая модель, описание алгоритма, текст программы, тест. В математической мод

Алгоритм Lab2.
А. Начать исполнение. 1. Вывести сообщение "Введите стороны треугольника". 2. Ввести a, b, c. 3. Если a≤0, или b≤

Текст программы
program Lab2; {$APPTYPE CONSOLE} uses SysUtils; var a,b,c,p:Real; begin Write('Введите стороны треугольника: '); ReadLn(a,b,c);

Алгоритм Lab3.
А. Начать исполнение. 1. Присвоить переменной Loop значение "истина". 2. Пока Loop имеет значение "истина", повторять: А. Вывести на экр

Текст программы
program Lab3; {$APPTYPE CONSOLE} uses SysUtils; var Loop:Boolean; n:Integer; a,b,c,p,r:Real; ch:Char; begin Loop:=Tr

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

Дополнительные задачи.
1. Организовать меню из четырех пунктов (интегрирование функций ,

Математическая модель
Интеграл приближенно заменяем суммой: , что эквивалентно замене площади под кривой набором отдельных прямо

Текст программы
program Lab4; {$APPTYPE CONSOLE} uses SysUtils; type Func=function (x:Real):Real;   function Sum(f:Func;a,b:Real;n:Integer):Real;

Постановка задачи
Основная задача. 1. Написать функцию Load для считывания из текстового файла (например,

Дополнительные задачи.
1. Добавить функцию SortByPay для сортировки списка по зарплате. В основной программе отсортировать список еще и по зарплате, выгрузить ведомость в файл ByPay.txt. 2.

Математическая модель
Формула расчета заработной платы: . Для сортировки списка будем применять алгоритм пузырьковой сортировки,

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

Алгоритм Calc.
А. Начать исполнение. 1. Присвоить Total значение 0. 2. Для значений i от 1 до n, повторять: А. Рассчитать зарплату для n-го сотрудника по фор

Алгоритм SortByName.
А. Начать исполнение. 1. Присвоить Last значение n. 2. Присвоить Cmp значение 0. 3. Повторять: А. Присвоить Stop значение "истин

Алгоритм Lab5.
А. Начать исполнение. 1. Загрузить список работников из файла "Workers.dat". 2. Рассчитать зарплату. 3. Выгрузить ведомость в файл "Pay

Текст программы
program Lab5; {$APPTYPE CONSOLE} uses SysUtils;   type Worker=record Name:string; Days:Integer; Salary,Pay:Real;

Постановка задачи
Выполнить задание лабораторной работы №3 с использованием средств визуального программирования, т.е. расчет площадей прямоугольника, треугольника и круга с проверкой корректности ввода данных и воз

Математическая модель

Элементы формы
Группа переключателей: Figure: TRadioGroup Caption = ‘Фигура’ Items = ('Прямоугольник', 'Треугольник', 'Круг')  

Текст программы
unit Main; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TMainForm = class(

Библиографический список
1. Архангельский А.Я. Программирование в Delphi 5. 2-е изд., перераб. и доп. М.: Бином, 2000. 2. Ахо А., Хопкрофт Дж., Ульман Дж. Построение и анализ вычислительных алгоритмов. М.:

Хотите получать на электронную почту самые свежие новости?
Education Insider Sample
Подпишитесь на Нашу рассылку
Наша политика приватности обеспечивает 100% безопасность и анонимность Ваших E-Mail
Реклама
Соответствующий теме материал
  • Похожее
  • Популярное
  • Облако тегов
  • Здесь
  • Временно
  • Пусто
Теги