Дополнительные задачи. - раздел Программирование, Программирование на языке Паскаль 1. Организовать Меню Из Четырех Пунктов (Интегрирование Функций ...
1. Организовать меню из четырех пунктов (интегрирование функций , , , ). Написать процедуру PrintIntegr, в которую будут передаваться две функции: интегрируемая функция и ее первообразная. Процедура должна выдавать на экран приближенное и точное значения интеграла. При выборе последних двух функций, для которых первообразная неизвестна, передавать в процедуру вместо первообразной значение NIL. Процедура должна корректно обрабатывать этот случай и не выдавать в этом случае точного значения интеграла.
2. Добавить в меню пункт «Выход» и организовать в основной программе внешний цикл WHILE, как в третьей лабораторной работе. Организовать в процедуре PrintIntegr цикл REPEAT, который будет выполняться, пока на запрос «Продолжить вычисление (Y/N) ?» не будет введено «N».
ГОУ Уральский государственный технический университет УПИ... Программирование на языке Паскаль Лабораторный практикум по...
Если Вам нужно дополнительный материал на эту тему, или Вы не нашли то, что искали, рекомендуем воспользоваться поиском по нашей базе работ:
Дополнительные задачи.
Что будем делать с полученным материалом:
Если этот материал оказался полезным ля Вас, Вы можете сохранить его на свою страничку в социальных сетях:
Программирование на языке Паскаль
Лабораторный практикум
по курсу «Информатика» для студентов первых курсов машиностроительных специальностей очных форм обучения
Оформление лабораторных работ
Отчет по лабораторной работе должен содержать название работы и следующие разделы: постановка задачи, математическая модель, описание алгоритма, текст программы, тест.
В математической мод
Алгоритм 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
Основная задача.
Написать программу для численного интегрирования функций и
Математическая модель
Интеграл приближенно заменяем суммой:
,
что эквивалентно замене площади под кривой набором отдельных прямо
Описание алгоритма
Алгоритм Sum. Вход: функция f, отрезок [a,b], количество разбиений n. Выход: приближенное значение интеграла, замененное интегральной суммой
Текст программы
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. Ахо А., Хопкрофт Дж., Ульман Дж. Построение и анализ вычислительных алгоритмов. М.:
Хотите получать на электронную почту самые свежие новости?
Подпишитесь на Нашу рассылку
Наша политика приватности обеспечивает 100% безопасность и анонимность Ваших E-Mail
, 
, 
, 
). Написать процедуру PrintIntegr, в которую будут передаваться две функции: интегрируемая функция и ее первообразная. Процедура должна выдавать на экран приближенное и точное значения интеграла. При выборе последних двух функций, для которых первообразная неизвестна, передавать в процедуру вместо первообразной значение NIL. Процедура должна корректно обрабатывать этот случай и не выдавать в этом случае точного значения интеграла.
Новости и инфо для студентов