Размещено на http://www.allbest.ru/

Государственное автономное профессиональное образовательное учреждение

Свердловской области

«Уральский радиотехнический колледж им. А.С. Попова»

Полевской филиал

Отчет по учебной практике

по специальности 09.02.04 «Информационные системы»



Содержание

Часть 1

1.1 Постановка задачи

1.2 Анализ данных и моделирование

1.3 Блок схема программы

1.4 Листинг

1.5 Экспериментальная часть (содержит скриншоты хода выполнения программы - тестирования)

Часть 2

2.1 Постановка задачи

2.2 Анализ данных и моделирование

2.3 Блок схема программы

2.4 Листинг

2.5 Экспериментальная часть (содержит скриншоты хода выполнения программы - тестирования)

Вывод

Список используемых источников



Часть1

1.1 Постановка задачи

Задание № 20.

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

-увеличить стоимость каждого вида товара на N% от его старой стоимости;

- уменьшить стоимость каждого вида товара на M р.

1.2 Анализ данных и моделирование

Для создания программы мне понадобилось четыре основные переменные вещественного типа (N, M, Cenameat, Prosmeat:real) .

Переменная N - для увеличения стоимости каждого вида товара на N% от его старой стоимости. Переменная M - для уменьшения стоимости каждого вида товара на M р. . Помимо переменных мне понадобилось семь констант для описания цен продуктов.

Const

Milk=100;

Bread=40;

Fish=60;

Vter=7;

tea=50;

fresh=65;

Созданная мной программа имеет прейскурант товаров, содержащий название товара и его стоимость. Для того что бы вывести прейскурант на экран, необходимо нажать на кнопку «Вывести» и прейскурант появится под кнопкой в компоненте Memo1. Так же программа выводит новый прейскурант, если необходимо:

-увеличить стоимость каждого вида товара на N% от его старой стоимости;

- уменьшить стоимость каждого вида товара на M р.

Для вывода нового прейскуранта, необходимо выбрать действие, ввести данные и нажать на кнопку «Вывести» под вводом данных (компонент Edit).

Новый прейскурант появится в компоненте Memo1, заменяя старый прейскурант, если он там содержится.



1.3 Блок схема программы

Размещено на http://www.allbest.ru/

Рисунок 1. Блок схема программы

1.4 Листинг

Описание констант:

const

Meat=50;

Milk=100;

Bread=40;

Fish=60;

Vter=7;

tea=50;

fresh=65;

Вывод прейскуранта на экран:

procedure TForm1.Button1Click(Sender: TObject);

begin

memo1.Lines.Add('Мясо '+ intTostr(meat));

memo1.Lines.Add('Молоко '+ intTostr(milk));

memo1.Lines.Add('Хлеб '+ intTostr(Bread));

memo1.Lines.Add('Рыба '+ intTostr(Fish));

memo1.Lines.Add('Вода '+ intTostr(Vter));

memo1.Lines.Add('Чай '+ intTostr(tea));

memo1.Lines.Add('Сок '+ intTostr(fresh));

Расчет увеличения стоимости каждого вида товара на N% от его старой стоимости:

procedure TForm1.Button2Click(Sender: TObject);

var N:real; // %

Prosmeat:real; //цена при увеличении на n

ProsMilk:real;

ProsBread:real;

ProsFish:real;

ProsVter:real;

Prostea:real;

Prosfresh:real;

begin

n:=strTofloat(edit1.Text);

Prosmeat:=(meat/n)*100;

ProsMilk:=(Milk/n)*100;

ProsBread:=(Bread/n)*100;

ProsFish:=(Fish/n)*100;

ProsVter:=(Vter/n)*100;

Prostea:=(tea/n)*100;

Prosfresh:=(fresh/n)*100;

Расчет уменьшения стоимость каждого вида товара на M р. :

procedure TForm1.Button3Click(Sender: TObject);

var M:real; //на сколько уменьшить цену

Cenameat:real; //цена при уменьшении на m

CenaMilk:real;

CenaBread:real;

CenaFish:real;

CenaVter:real;

Cenatea:real;

Cenafresh:real;

begin

m:=strTofloat(edit2.Text);

Cenameat:=meat -m; //считает цену при уменьшении на m (для каждого товара отдельно)

CenaMilk:=Milk -m;

CenaBread:=Bread -m;

CenaFish:=Fish -m;

CenaVter:=Vter -m;

Cenatea:=tea -m;

Cenafresh:=fresh -m;



1.5 Экспериментальная часть

Рисунок 2. Общий вид программы

Рисунок 3.Вывод прейскуранта

Рисунок 4. Вывод прейскуранта с расчетом



Часть 2

2.1 Постановка задачи

Задание №42

Заданное натуральное число, не превосходящее 1000, записать прописью, то есть вывести, соответствующее количественное числительное, например: 375 - «триста семьдесят пять».

2.2 Анализ данных и моделирование

Для создания программы мне понадобились девять переменных, пять из них целочисленного типа (cislo, j, ed, des, sot:integer) - для описания разрядности чисел и переменная j - вычисляет длину строки. Так же переменные четыре переменные строкового типа (s1, s10, s100, s:string) - для описания разрядности чисел и переменная s - для ввода строки пользователем. Помимо переменных мне понадобились четыре массива строкового типа - для вывода чисел прописью.

Массивы: программа листинг тестирование

sotni : array [0..9] of string=('','сто','двести','триста','четыреста','пятьсот','шестьсот','семьсот','восемьсот','девятьсот'); //сотни

desyatki : array [0..9] of string=('','десять','двадцать','тридцать','сорок','пятьдесят','шестьдесят','семьдесят','восемьдесят','девяносто');// десятки

edenici : array [0..9] of string=('','один','два','три','четыре','пять','шесть','семь','восемь','девять');// единицы

special : array [0..9] of string=('десять','одиннадцать','двенадцать','тринадцать','четырнадцать','пятнадцать','шестнадцать','семнадцать','восемнадцать','девятнадцать'); // //специальные числа

Созданная мной программа записывает прописью введенные числа, не превосходящие 1000. Для ввода данных необходимо записать число в поле ввода (компонент Edit) и нажать на кнопку «Ввод». После нажатия на кнопку ниже появится соответствующее количественное числительное прописью.

2.3 Блок схема программы

Размещено на http://www.allbest.ru/

Рисунок 5. Блок схема программы



2.4 Листинг

Расчет разрядности чисел и вывод на экран:

Case j of

1:begin

ed:=StrToInt(s);

edit2.text:=edenici[ed];

end;

2:begin

If s[1]='1' then

begin

s1:=s[2];

ed:=StrToInt(s1);

edit2.text:=special[ed];

end

else

begin

s10:=s[1];

s1:=s[2];

des:=StrToInt(s10);

ed:=StrToInt(s1);

edit2.text:=desyatki[des]+' '+edenici[ed];

end;

end;

3:begin

s100:=s[1];

s10:=s[2];

s1:=s[3];

des:=StrToInt(s10);

ed:=StrToInt(s1);

sot:=StrToInt(s100);

If s[2]='1' then

Edit2.text:=sotni[sot]+' '+special[ed]

else

edit2.text:=sotni[sot]+' '+desyatki[des]+' '+edenici[ed];

end;

4:begin

end;

End;

If cislo=1000 then edit2.text:='тысяча';

If cislo=0 then edit2.text:='ноль';

end;

2.5 Экспериментальная часть

Рисунок 6. Общий вид программы

Рисунок 7. Работа программы



Вывод

На учебной практике я научилась разрабатывать прикладные программы с различным функционалом и создавать для них блок схемы по ГОСТу. Так же я научилась работать с базами данных, выводить их содержимое в прикладную программу. Я считаю, что справилась с поставленными задачами и разработала программы, которые соответствуют условию.

Я считаю, что такой вид практики очень важен для студентов т.к. он помогает лучше усвоить выученный материал и закрепить его на практике, так же данный метод учит студентов самостоятельному выполнению заданий.



Список используемых источников

1) https://studynote.ru/studgid/otchety-po-praktike/oformlenie-otcheta-po-praktike/ - Оформление отчета;

2) https://ru.wikipedia.org/wiki/%D0%91%D0%BB%D0%BE%D0%BA-%D1%81%D1%85%D0%B5%D0%BC%D0%B0 - Блок схема.

Размещено на Allbest.ru

...