Постановка задачи - раздел Программирование, Программирование на языке Паскаль ...
Основная задача.
1. Написать функцию Load для считывания из текстового файла (например, Workers.txt) информации о работниках и заработной плате. В первой строке файла находится количество рабочих дней в месяце. Далее для каждого работника в файле записано по две строки: в первой – фамилия работника, во второй – два числа – количество отработанных дней и месячный оклад. После загрузки файла вывести на экран количество считанных записей.
2. Написать функцию Calc для вычисления зарплаты каждого работника по формуле
с округлением значения до двух десятичных знаков. Функция должна также подсчитать итоговую зарплату.
3. Написать функцию Save для выгрузки в файл ведомости заработной платы в виде следующей таблицы.
Ширина колонок: «Фамилия» – 40 символов, «Дни» – 3 символа, «Оклад» и «Зарплата» – по 10 символов. Фамилию необходимо выравнивать по левому краю, цифры – по правому. Зарплату выводить с двумя десятичными знаками.
4. Написать функцию SortByName для сортировки списка работников по алфавиту методом пузырьковой сортировки.
5. В основной программе: загрузить список из файла Workers.dat, рассчитать зарплату, выгрузить ведомость в файл Pay.txt, отсортировать список по алфавиту, выгрузить ведомость в файл ByName.txt.
ГОУ Уральский государственный технический университет УПИ... Программирование на языке Паскаль Лабораторный практикум по...
Если Вам нужно дополнительный материал на эту тему, или Вы не нашли то, что искали, рекомендуем воспользоваться поиском по нашей базе работ:
Постановка задачи
Что будем делать с полученным материалом:
Если этот материал оказался полезным ля Вас, Вы можете сохранить его на свою страничку в социальных сетях:
Программирование на языке Паскаль
Лабораторный практикум
по курсу «Информатика» для студентов первых курсов машиностроительных специальностей очных форм обучения
Оформление лабораторных работ
Отчет по лабораторной работе должен содержать название работы и следующие разделы: постановка задачи, математическая модель, описание алгоритма, текст программы, тест.
В математической мод
Алгоритм 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. Организовать меню из четырех пунктов (интегрирование функций ,
Математическая модель
Интеграл приближенно заменяем суммой:
,
что эквивалентно замене площади под кривой набором отдельных прямо
Описание алгоритма
Алгоритм 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. Добавить функцию 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
Новости и инфо для студентов