ОГОУ СПО АПГТ
Специальность «Прикладная информатика в экономике»
ОТЧЕТ
О ПРАКТИКЕ ДЛЯ ПОЛУЧЕНИЯ
ПЕРВИЧНЫХ ПРОФЕССИОНАЛЬНЫХ НАВЫКОВ
Выполнил: студент группы ВТ-21
Тимошенко Р.В
Приняли преподаватели: Иванова Н.И.
Авдонин А.П.
Григорьева Т.А.
Степанова О.В.
Воробьев В.С.
Лебедева Л.В.
Александров 2011
Оглавление
Оглавление 2
Програмирование на языке Pascal 7.0 4
4
1.1.Задание: 4
1.2.Блок-схема алгоритма 6
15
1.3.Текст программы 16
1.4 Результаты рабочей программы 23
2.Программирование на языке Assembler 29
2.1.Задание: 30
2.2 Блок-схема алгоритма 30
2.3Текст программы 31
2.4 Результаты рабочей программы 34
5. Основы компьютерных знаний 39
5.1. Аппаратное обеспечение ПК 40
5.2 Программное обеспечение ПК 42
5.3.Техника безопасности 43
По технике безопасности в компьютерном классе 43
Техника безопасности при работе за компьютером 45
И снова забота о глазах 45
Правила техники безопасности 45
Чистота: приятное с полезным 45
Расслабляться тоже надо уметь 45
Комплекс упражнений для глаз 46
Комплекс упражнений для улучшения мозгового кровообращения 47
6.Список рекомендуемой литературы. 48
Програмирование на языке Pascal 7.0
1.1.Задание:
18 Вариант «Учет поступления товаров на склад магазина»
Составить программу обработки файла записей седующей структуры:
Дата поступления
Код товара
Наименование товара
Производительность товара
Единица измерения
Закупочная цена товара
Колличество
Стоимость
Режимы работы программы:
Ввод с клавиатуры, запись в файл с подсчетом стоимости
Сортировка по коду товара
Расчет итоговых колличества, стоимости и средней цены каждого изделия, хранящегося на складе. Сохранение итогов в новом файле
Вывод на экран итоговой ведомости по всем товарам
Вывод на экран ведомости поступления материальных ценностей на склад
1.2.Блок-схема алгоритма 1 2 3 4 5 6 7 8 9 10 11
1 |
Вывод: '| DATA|Kod|Naimenovanie|Proizvoditel| ed.|Zakyp cena|Kol-vo|Stoimost|' |
1 |
Вывод: a[j-1].kod>a[j].kod |
1.3.Текст программы
program risk;
uses crt;
type
tovar=record
data:string[5];
kod:integer;
imya:string[12];
pr:string[12];
ed:string[5];
cena:integer;
kol:byte;
st:integer;
end;
itog=record
imya:string[12];
cena:integer;
kol:integer;
st:integer;
kod:integer;
src:real;
end;
var
a:array [1..20] of tovar;
f:file of tovar;
e:file of itog;
name,name1:string[15];
n,i,j:word;
w:tovar;
q:itog;
z,c,v:integer;
k1,k2,k3,k4,k7:byte;
menu:boolean;
vid:byte;
procedure fname;
begin
writeln('Vvedite name faila');
readln(name);
end;
procedure fname1;
begin
writeln('Vvedite name itogovogo faila');
readln(name1);
end;
procedure addzap;
begin
writeln('Vvedite daty: ');
readln(w.data);
writeln('Vvedite kod tovara: ');
readln(w.kod);
writeln('Vvedite nazvaniya produkta: ');
readln(w.imya);
writeln('Vvedite proizvoditelya: ');
readln(w.pr);
writeln('Vvedite ed. izmereniya: ');
readln(w.ed);
writeln('Vvedite ceny: ');
readln(w.cena);
writeln('Vvedite kol-vo: ');
readln(w.kol);
w.st:=w.cena*w.kol;
write(f,w);
writeln('|',w.data,'|', w.kod,'|', w.imya,'|', w.pr,'|', w.ed,'|', w.cena,'|', w.kol,'|', w.st,'|');
end;
procedure createf;
begin
fname;
assign(f,name);
rewrite(f);
write('vvedite chislo zapisei: ');
readln(n);
for i:=1 to n do
begin
addzap;
end;
writeln('Kol-vo zapisei: ',filesize(f):2);
close(f);
end;
procedure outzap;
begin
read(f,w);
k2:=length(w.imya);k2:=12-k2;
writeln('|',w.data,'|', w.kod:3,'|', w.imya,' ':k2,'|', w.pr:12,'|', w.ed:4,'|', w.cena:10,'|', w.kol:6,'|',
w.st:8,'|');
end;
procedure outallzap;
begin
fname;
assign(f,name);
{$i-}
reset(f);
{$i+}
if ioresult=0 then
begin
writeln;
writeln;
writeln;
writeln;
writeln('****Tablica****':50);
writeln('|-------------------------------------------------------------------|');
writeln('| DATA|Kod|Naimenovanie|Proizvoditel| ed.|Zakyp cena|Kol-vo|Stoimost|');
writeln('|-------------------------------------------------------------------|');
while not eof(f) do
begin
outzap;
writeln('|-------------------------------------------------------------------|');
end; close(f);
end else writeln('Faila' +name+' Het');
end;
procedure psort_kod;
begin
fname;
assign(f,name);
{$i-}
reset(f);
{$i+}
if ioresult <>0 then writeln('Faqla Net')
else
begin
n:=0;
while not eof(f) do
begin
read(f,w);
inc(n);
a[n]:=w;
end;
close(f);
for i:=2 to n do
for j:=n downto i do
if a[j-1].kod>a[j].kod then
begin
w:=a[j-1];
a[j-1]:=a[j];
a[j]:=w;
end;
fname;
assign(f, name);
rewrite(f);
for i:=1 to n do
write(f,a[i]); close(f); end; end;
procedure itogi;
begin
psort_kod;
fname;
assign(f,name);
{$i-}
reset(f);
{$i+}
if ioresult<>0 then writeln('faila',name,'Net')
else
begin
fname1;
assign(e,name1);
rewrite(e);
read(f,w);
q.kod:=w.kod;
q.imya:=w.imya;
q.kol:=w.kol;
q.st:=w.st;
while not eof(f) do
begin
read(f,w);
if w.kod=q.kod then
begin
q.kol:=q.kol+w.kol;
q.st:=q.st+w.st;
end
else
begin
q.src:=q.st/q.kol;
write(e,q);
q.kod:=w.kod;
q.imya:=w.imya;
q.kol:=w.kol;
q.st:=w.st;
end;
end;
q.src:=q.st/q.kol;
write(e,q);
close(f);
close(e);
end;
end;
procedure outzap_itog;
begin
read(e,q);
k7:=length(q.imya);k7:=12-k7;
writeln('|',q.kod,'|',q.imya,' ':k7,'|',q.kol:6,'|',q.st:8,'|');
end;
procedure prosmotr;
begin
fname1;
assign(e,name1);
{$i-}
reset(e);
{$i+}
if ioresult=0 then
begin
writeln;
writeln;
writeln;
writeln;
writeln('****Itogi****':23);
writeln('|--------------------------------|');
writeln('|Kod|Naimenovanie|Kol-vo|Stoimost|');
writeln('|--------------------------------|');
while not eof(e) do
begin
outzap_itog;
writeln('|--------------------------------|');
end; close(e);
end else writeln('Faila' +name+' Het');
end;
procedure updaterec;
var
namerec:longint;
begin
fname;
assign(f,name);
{$i-}
reset(f);
{$i+}
if ioresult=0 then
begin
write('Bvedite N zapisi :');
readln(namerec);
seek(f,namerec-1);
writeln('Staroe znachenie: ');
outzap;
seek(f,namerec-1);
writeln('Bvedite new znachenie');
addzap;
close(f);
end
else writeln('Faila ',name,'net na diske');
end;
procedure newzap;
var
z:byte;
begin
fname;
assign(f,name);
{$I-} REset(f); {$i+}
if ioresult=0 then
begin
seek(f,filesize(f));
writeln;
writeln('Vvedite kol-vo new zapisei');
readln(z);
writeln('Vvedite new dannie');
for i:=1 to z do
begin
addzap;
writeln;
end;
close(f);
end
else
writeln('Faila',name,'Net na diske');
end;
begin
clrscr;
menu:=false;
repeat
writeln('***Menu***');
writeln;
writeln;
writeln;
writeln('1-Sozdanie Faila');
writeln('2-Prosmotr Faila');
writeln('3-Sortirovka po kody');
writeln('4-Paschitat itogi');
writeln('5-Prosmotr itogov');
writeln('6-izmenit zapis');
writeln('7-dobavlenie zapisi');
writeln('0-Vihod');
writeln('Vash vibor... ');
readln(vid);
case vid of
1:createf;
2:outallzap;
3:psort_kod;
4:itogi;
5:prosmotr;
6:updaterec;
7:newzap;
0:menu:=true;
end;
writeln('Najmite ENTER ');
readln;
clrscr;
until menu;
end.