|
||||||||||||||
ПРОГРАММИРОВАНИЕ ЛИНЕЙНЫХ АЛГОРИТМОВ
Пензенский государственный университет Кафедра "Информационно-вычислительные системы" ПРОГРАММИРОВАНИЕ ЛИНЕЙНЫХ АЛГОРИТМОВ Отчет о лабораторной работе №2 по дисциплине «Основы программирования»
Выполнил: ст-т гр. 19КП1 Пучков Д.А. Проверил: доцент каф. ИВС Хохлов А. Е.
1 Формулировка задачи Даны действительные числа a, b, c, d. Если a £ b £ c £ d, то каждое число заменить наибольшим из них; если a > b > c > d, то числа оставить без изменения; в противном случае все числа заменяются их квадратами.
2 Техническое задание
2.1 Требования к программе
Программа должна если a > b > c > d, то числа оставить без изменения; в противном случае все числа заменяются
2.2 Порядок контроля и приёмки
3 Описание программы
Var – описание переменных A,b,c,d – типа real (вещественный) Begin – начало программы A,b,c,d – strtofloat (Строка s в вещественное) Else – оператор Floattostr – (вещественное n в строку)
3.1 Общие сведения
Программа разработана в среде lazarus.
3.2 Функциональное назначение
Программа должна если a > b > c > d, то числа оставить без изменения; в противном случае все числа заменяются 3.3 Описание логической структуры
Схема программы представлена на рисунке 1. Решение задачи начинается с ввода исходных данных a,b,c,d(блоки 2-3). Затем eсли a £ b £ c £ d, то каждое число заменить наибольшим из них. Eсли a > b > c > d, то числа оставить без изменения; в противном случае все числа заменяются их квадратами.
Рисунок 1 – Схема программы
Вывод
В ходе выполнения лабораторной работы было сформулировано и утверждено техническое задание на разработку программы, даны действительные числа a, b, c, d. Если a £ b £ c £ d, то каждое число заменить наибольшим из них; если a > b > c > d, то числа оставить без изменения; в противном случае все числа заменяются их квадратами.
ТЕКСТ ПРОГРАММЫ Приложение А (обязательное) unit Unit1; {$mode objfpc}{$H+} interface uses type { Ta } Ta = class(TForm) public end; var implementation {$R *.lfm} { Ta } procedure Ta.FormCreate(Sender: TObject); end; procedure Ta.Button1Click(Sender: TObject); Var end end; end.
РЕЗУЛЬТАТЫ ИСПЫТАНИЙ Приложение Б (обязательное)
Рисунок 1 Рисунок 2 Рисунок 3
|
||||||||||||||
|