Технический паспорт ПЭВМ




Размещение:

1. Кабинет 201

2. Порядковый номер 6

Общие сведения:

1. Полное имя компьютера WS201_6.yfkemsu.local

2. Рабочая группа/домен yfkemsu.local

3. Установленная (ые) ОС Windows XP Professional SP2

Состав ПЭВМ:

1. Системный блок:

· Инвентарный номер 1206

· Тип корпуса Midi Tower

· Блок питания:

a) Производитель Power One

b) Мощность 250W

· Материнская плата:

a) Производитель Gigabyte

b) Модель GA-8SiMLH

c) Количество USB – портов 4

d) Количество PC/2 – портов 2

e) Количество COM – портов 1

f)

Изм.
Лист
№ докум.
Подпись
Дата
Лист
 
230103.АС-09с.10.ОП  
Количество VGA – портов 1

g) Количество DVI – портов нет

h) Количество LPT – портов 1

i) Наличие аудио - разъемов 1

j) Количество LAN – портов 1

k) Количество PCI – слотов 3

l) Количество слотов под ОЗУ 2

· Процессор:

a) Производитель Intel

b) Название Celeron

c) Тип сокета подключения 1 Soket 478

d) Частота 2233MHz

· Видеокарта:

a) Производитель Встроенная

b) Модель Встроенная

c) Объем видеопамяти 128Mb

· ОЗУ:

a) Количество: 2

b) Производитель Transcend

c) Тип DDR

d) Объем памяти 256Mb

· Жесткий диск:

a) Количество: 1

b) Производитель Seagate

c) Модель ST 340014A

d) Объем памяти 40Gb

e) Интерфейс IDE

f) Количество разделов 2

· Аудио карта Встроенная

· Сетевая карта Встроенная

2. Монитор:

· Инвентарный номер 07311249

· Серийный номер 412DixQ9P954

· Производитель LG Flatron

·

Изм.
Лист
№ докум.
Подпись
Дата
Лист
 
230103.АС-09с.10.ОП  
Модель T710BH

· Дата производства Декабрь 2004

· Диагональ 17

· Рабочее разрешение/частота 60Гр

3. Клавиатура Genius

4. Мышь Genius PS/2 совместимая мышь 3 кнопки

5. Прочие устройстванет

6. BIOS:

· Производитель Phoenix Technologies

· Модель Award Modular Bios v 6.00PG

· Дата выпуска 04.08.2004

Установленное ПО:

I. Офисные приложения:

1) Microsoft Office

2) Notepad++

3) Foxit Reader

II. Служебные программы:

1) Everest

2) Far Manager

3) Total Commander

4) Radmin Server 3.0

III. Мультимедийные приложения:

1) AIMP2

2) Windows Media Classic

IV. Прочее ПО:

1) Borland Pascal 7.0

2) Borland Delphi 7

Изм.
Лист
№ докум.
Подпись
Дата
Лист
 
230103.АС-09с.10.ОП  

 

 


Программирование в Turbo Pascal

Задание: написать обучающую программу на тему «Алгоритмические структуры», для контроля использовать проверочный тест, с выставлением оценки.

 

Изм.
Лист
№ докум.
Подпись
Дата
Лист
 
230103.АС-09с.10.ОП  
В программе использовались следующие операторы:

Uses Crt;

Clrscr;

GotoXY(30,1);

TextBackGround(4);

TextColor(14);

 

writeln;

readln(o);

 

repeat until

 

for i:=1 to 10 do

if m[i].nprot=o then

ord()

readkey

Case c of

 

program test;

uses crt;

type FIO=record

name:string;

group:string;

end;

bd=record

vopr:string;

otv1,otv2,otv3:string;

nprot:integer;

end;

const N=15;

var spr:text;

r:string;

i:word;

procent:real;

god:boolean;

a:FIO;

z,otv,count:integer;

m:array[1..N] of bd;

m_pr_otv:array[1..N] of bd;

 

//--------------

Изм.
Лист
№ докум.
Подпись
Дата
Лист
 
230103.АС-09с.10.ОП  


procedure spravka;

begin

textbackground(black);

clrscr;

assign (spr,'c:/spravka.txt');

reset (spr);

count:=1;

while not eof(spr) do

begin

readln(spr,r);

writeln(r);

count:=count+1;

if count=24 then

begin

count:=1;

textcolor(lightcyan);

write('Нажмите "ENTER" для продолжения');

textcolor(10);

readln;

end;

end;

textcolor(lightcyan);

write('Для выхода в меню нажмите "ENTER"');

close(spr);

readln;

Изм.
Лист
№ докум.
Подпись
Дата
Лист
 
230103.АС-09с.10.ОП  
clrscr;

end;

 

//--------------

 

procedure test;

begin

m[1].vopr:='какие ключевые слова используются в операторе IF?';

m[1].otv1:='1 while do to.';

m[1].otv2:='2 if,then,else.';

m[1].otv3:='3 Case i of.';

m[1].nprot:=2;

m[2].vopr:='Выполнение оператора Case начинается с...';

m[2].otv1:='1 Запуска программы.';

m[2].otv2:='2 Конца программы.';

m[2].otv3:='3 Вычислениея выражения-селектора.';

m[2].nprot:=3;

m[3].vopr:='какие ключевые слова используются в операторе repeat? ';

m[3].otv1:='1 Case i of.';

m[3].otv2:='2 repeat,until.';

m[3].otv3:='3 while do to.';

m[3].nprot:=2;

m[4].vopr:='Из чего состоит оператор while? ';

m[4].otv1:='1 Из истины и лжи.';

m[4].otv2:='2 из Заголовка и тела цикла.';

m[4].otv3:='3 из начало и конца.';

m[4].nprot:=2;

Изм.
Лист
№ докум.
Подпись
Дата
Лист
 
230103.АС-09с.10.ОП  
m[5].vopr:='Что обозначаю ключивые слова while и do в операторе while? ';

m[5].otv1:='1 "если","то","иначе" соответственно.';

m[5].otv2:='2 "до тех пор,пока" и "выполняй".';

m[5].otv3:='3 "до тех пор,пока"и "пока отдохни".';

m[5].nprot:=2;

m[6].vopr:='Какие ключивые слова используются в операторе while?:';

m[6].otv1:='1 while и do.';

m[6].otv2:='2 if,then,else.';

m[6].otv3:='3 repeat,until.';

m[6].nprot:=1;

m[7].vopr:='какие ключевые слова используются в операторе FOR? ';

m[7].otv1:='1 if,then,else.';

m[7].otv2:='2 for,do.';

m[7].otv3:='3 while do to.';

m[7].nprot:=2;

m[8].vopr:='Что обозначаю ключивые слова for,do в операторе FOR? ';

m[8].otv1:='1 до тех пор,пока" и "выполняй".';

m[8].otv2:='2 "для" и "выполняй".';

m[8].otv3:='3 если","то","иначе" соответственно.';

m[8].nprot:=2;

m[9].vopr:='Что обозначаю ключивые слова if,then,else в операторе IF? ';

m[9].otv1:='1 если ты не знаешь математику забирай документы.';

m[9].otv2:='2 до тех пор,пока" и "выполняй".';

m[9].otv3:='3 если","то","иначе" соответственно.';

Изм.
Лист
№ докум.
Подпись
Дата
Лист
 
230103.АС-09с.10.ОП  
m[9].nprot:=3;

m[10].vopr:='Что обозначаю ключивые слова repeat,until? ';

m[10].otv1:='1 "для" и "выполняй".';

m[10].otv2:='2 "повторяй" и "пока".';

m[10].otv3:='3 for,do. ';

m[10].nprot:=2;

m[11].vopr:='Линейный алгоритм это?:';

m[11].otv1:='1 Выполнение команд исполняющихся в той последовательности, в которой они записаны в программе.';

m[11].otv2:='2 Выполнение команд из нескольких предложенных действий в зависимости от значения выражения в условии.';

m[11].otv3:='3 Выполнение команд в любой последовательности.';

m[11].nprot:=1;

m[12].vopr:='Ветвление это?:';

m[12].otv1:='1 Выполнение программы которое идет по одной из двух, нескольких или множества ветвей.';

m[12].otv2:='2 Выполнение программы идёт на прямую.';

m[12].otv3:='3 Выполнение программы которая выполняется с низу вверх.';

m[12].nprot:=1;

m[13].vopr:='Функция (подпрограмма) это?:';

m[13].otv1:='1 Выполнение программы.';

m[13].otv2:='2 Команды, отделенные от основной программы.';

m[13].otv3:='3 математический термин.';

m[13].nprot:=2;

m[14].vopr:='Цикл это?:';

m[14].otv1:='1 возможность многократного повторения определенных действий.';

Изм.
Лист
№ докум.
Подпись
Дата
Лист
 
230103.АС-09с.10.ОП  
m[14].otv2:='2 возможность однократного повторения определенных действий.';

m[14].otv3:='3 возможность двукратного повторения определенных действий.';

m[14].nprot:=1;

m[15].vopr:=' Следование это?:';

m[15].otv1:='1 Предполагает последовательное выполнение команд снизу ввверх.';

m[15].otv2:='2 Предполагает последовательное выполнение команд сверху вниз.';

m[15].otv3:='3 Предполагает последовательное выполнение команд с середины программы.';

m[15].nprot:=2;

for i:=1 to N do

begin

textcolor(lightgreen);

writeln(m[i].vopr);

writeln(m[i].otv1);

writeln(m[i].otv2);

writeln(m[i].otv3);

textcolor(lightcyan);

write('Введите правильный ответ - ');

readln(z);

clrscr;

if z=m[i].nprot then

otv:=otv+1;

end;

writeln(a.name);

writeln(a.group);

Изм.
Лист
№ докум.
Подпись
Дата
Лист
 
230103.АС-09с.10.ОП  
writeln('Количество правильных ответов - ',otv);

procent:=otv*100/N;

writeln('Количество в процентах - ',procent:2:1,'%');

textcolor(lightred);

case otv of

1..3:writeln(' НЕУДОВЛЕТВОРИТЕЛЬНО');

4..6:writeln(' УДОВЛЕТВОРИТЕЛЬНО');

7..9:writeln(' ХОРОШО');

10..11:writeln(' ОТЛИЧНО');

end;

readkey;

end;

 

//--------------

 

procedure name;

begin

gotoxy(10,11);

write('"Ф.И.О" - ');

textcolor(lightcyan);

readln(a.name);

textcolor(10);

Изм.
Лист
№ докум.
Подпись
Дата
Лист
 
230103.АС-09с.10.ОП  
gotoxy(10,12);

write('"Группа" - ');

textcolor(lightcyan);

readln(a.group);

clrscr;

test;

end;

 

//--------------

 

begin

clrscr;

god:=true;

while god do

begin

TextBackground(black);

clrscr;

textcolor(lightgreen);

gotoxy(5,9);

writeln(' Выполнил работу студент группы АС09с Пфейфер Даниил);

gotoxy(5,10);

Textcolor(lightred);

writeln(' \\-------------------------------------------------------------//');

textcolor(lightgreen);

writeln(' 1. Справка');

writeln(' 2. Тест');

Изм.
Лист
№ докум.
Подпись
Дата
Лист
 
230103.АС-09с.10.ОП  
writeln(' 3. Выход');

textcolor(lightred);

gotoxy(5,14);

writeln(' \\-------------------------------------------------------------//');

textcolor(lightgreen);

write(' Выберите один из пунктов меню - ');

readln(I);

writeln;

clrscr;

case I of

1:spravka;

2:name;

3:break;

else

gotoxy(10,10);

writeln('Вы ввели символ отличный от цифры,');

gotoxy(10,11);

write('нажмите на клавишу чтобы вернуться в меню');

repeat until keypressed;

end;

end;

end.

Приложение

Вывод: вы ввели символ отличный от цифры  
Нажмите на клавишу чтобы вернуться в меню  
Начало
FIO=record: name, group; bd=record: vopros, otv1, otv2, otv3, otv4, pr_otv; god, I, z, procent baza:1..N; baza_pr_otv:1..N;
god:=true  
god  
Вывод: Выполнил работу студент группы АС-09с Лучкин Павел  
Вывод: 1. Справка 2. Тест 3. Выход  
Вывод: выберите один из пунктов меню  
Ввод I  
I
Spavka
Name  
god=false  
Spravka
count=24
count:=1
not eof (spr)
count:=count+1
count:=1
spr=”a:/spravka.txt”  
spr,, r, count  
Вывод: Нажмите ENTER для продолжения
Вывод: для выхода в меню нажмите ENTER
Выход
Вывод spr в r  
Вывод r  
+
-
+
-nnт
Name
Вывод: "Ф.И.О" -
Ввод a.name
a=FIO
Вывод: "Группа" -
Ввод: a.group
test
конец
Test
baza1.vopros:='1. Какое зарезервированное слово в паскале, обозначающее символьный тип данных?'; baza1.otv1:=' 1. char'; baza1.otv2:=' 2. integer'; baza1.otv3:=' 3. word'; baza1.otv4:=' 4. longient'; baza1.pr_otv:=1; baza2.vopros:='2. Какой диапазон значений может принимать переменная символьного типа данных?'; baza2.otv1:=' 1. 0..255'; baza2.otv2:=' 2. -32768 до 32676'; baza2.otv3:=' 3. 2,9e-39 до 1,7е38'; baza2.otv4:=' 4. 2млрд 147млн 483тысячи 648 до 2млрд 147млн 483тысячи 647'; baza2.pr_otv:=1; baza3.vopros:='3. Какое зарезервированное слово в паскале обозначающее строковый тип данных?'; baza3.otv1:=' 1. char'; baza3.otv2:=' 2. double'; baza3.otv3:=' 3. word'; baza3.otv4:=' 4. string'; baza3.pr_otv:=4; baza4.vopros:='4. Для выводов символов на экран используется кодировка ASCII, каждый символ имеет свой номер и занимает в памяти компьютера 1 байт. Что это?'; baza4.otv1:=' 1. boolean'; baza4.otv2:=' 2. real'; baza4.otv3:=' 3. char'; baza4.otv4:=' 4. word'; baza4.pr_otv:=3; baza5.vopros:='5. Какой тип переменных задается в апострофах?'; baza5.otv1:=' 1. real'; baza5.otv2:=' 2. char'; baza5.otv3:=' 3. boolean'; baza5.otv4:=' 4. word'; baza5.pr_otv:=2; baza6.vopros:='6. Какой тип переменных зависит от минимального числа символов, которые могут составить строку?'; baza6.otv1:=' 1. string'; baza6.otv2:=' 2. char'; baza6.otv3:=' 3. real'; baza6.otv4:=' 4. boolean'; baza6.pr_otv:=1; baza7.vopros:='7. Максимальная количество символов в строковом типе данных?'; baza7.otv1:=' 1. 155'; baza7.otv2:=' 2. 255'; baza7.otv3:=' 3. 256'; baza7.otv4:=' 4. 156'; baza7.pr_otv:=2;
Изм.
Лист
№ докум.
Подпись
Дата
Лист
 
230103.АС-09с.10.ОП  
 
 
Изм.
Лист
№ докум.
Подпись
Дата
Лист
 
230103.АС-09с.10.ОП  
Изм.
Лист
№ докум.
Подпись
Дата
Лист
 
230103.АС-09с.10.ОП  
Изм.
Лист
№ докум.
Подпись
Дата
Лист
 
230103.АС-09с.10.ОП  


baza8.vopros:='8. Если c - строчная латинская буква, то функция возвращает соответствующую прописную латинскую букву, в противном случае символ c возвращается без изменения.Какая это функция?';

baza8.otv1:=' 1. Chr(с: byte): char';

baza8.otv2:=' 2. Ord(c: char): byte;';

baza8.otv3:=' 3. UpCase(c: char): char;';

baza8.otv4:=' 4. Case(c: char): char;';

baza8.pr_otv:=3;

baza9.vopros:='9. Функция возвращает символ по коду, равному значению выражения c. Если c можно представить как числовую константу, то можно также пользоваться записью #c. Какая это функция?';

baza9.otv1:=' 1. Chr(c: byte): char';

baza9.otv2:=' 2. Ord(c: char): byte;';

baza9.otv3:=' 3. UpCase(c: char): char;';

baza9.otv4:=' 4. Case(c: char): char;';

baza9.pr_otv:=1;

baza10.vopros:='10. В данном случае функция возвращает код символа c. Какая это функция?';

baza10.otv1:=' 1. Chr(c: byte): char';

baza10.otv2:=' 2. Ord(c: char): byte;';

baza10.otv3:=' 3. UpCase(c: char): char;';

baza10.otv4:=' 4. Case(c: char): char;';

baza10.pr_otv:=2;

baza11.vopros:='11. Первые 32 символа ASCII-кода являются? ';

baza11.otv1:=' 1. Управляющие символы ASCII';

baza11.otv2:=' 2. Управляющие символы ISO 8859';

baza11.otv3:=' 3. Управляющие символы Unicode';

baza11.otv4:=' 4. Переносимый набор символов';

baza11.pr_otv:=1;

Изм.
Лист
№ докум.
Подпись
Дата
Лист
 
230103.АС-09с.10.ОП  
I:=1, N
Вывод: bazai.vopros; bazai.otv1; bazai.otv2; bazai.otv3;bazai.otv4;Введите правильный ответ -
Ввод z
z=bazai.pr_otv
 
 
+
 


Изм.
Лист
№ докум.
Подпись
Дата
Лист
 
230103.АС-09с.10.ОП  
 
otv:=otv+1
 
 
Вывод: a.name, a.group, Количество правильных ответов -, otv
procent:=otv*100/N
Вывод: Количество в процентах -, procent, %  
otv
Вывод: Неудовлетворительно  
Вывод: Удовлетворительно  
Вывод: Хорошо  
Вывод: Отлично  
1..3
4..6
7..9
10..11
otv:=0
Конец

ЗАКЛЮЧЕНИЕ

При прохождении практики я подробнее изучил текстовый редактор Word, узнал о его многообразных функциях, описал работу с таблицами.

Более подробно изучил электронные таблицы Excel, научился работать с формулами.

Много времени было посвящено работе на языке Pascal, в котором я сделал свою тестовую программу.

Современный мир трудно представить без компьютера, однако многие из пользователей не умеют полностью использовать его возможности. Практика дает возможность исправить это.

Познание сущности компьютера не возможно без программирования, а программирование не возможно без изучения Free Pascal. Ориентирование в Pascal позволяет далее работать в таких программах как Delphi и т.д.

В ходе изучения Free Pascal и Microsoft Office я получил более глубокие знания по этим программам и стал лучше в них ориентироваться.

Технический паспорт заполнялся при помощи программ:

· Everest;

· CPU-Z;

· GPU-Z;

· Свойства компьютера – оборудование – диспетчер устройств.

 

Изм.
Лист
№ докум.
Подпись
Дата
Лист
 
230103.АС-09с.10.ОП  

 

 


Изм.
Лист
№ докум.
Подпись
Дата
Лист
 
230103.АС-09с.10.ОП  
Список литературы

1. Зелинский В.В. – Учебник по Turbo Pascal 7, 2000

2. Рапаков Г.Г., Ржеуцкая С.Ю. – Turbo Pascal для студентов и школьников. – СПб.: БХВ-Петербург, 2005. – 352 с.: ил.

3. Форонов В.В. – Turbo Pascal – СПб.: БХВ-Петербург, 2004 – 1056 с.: ил.

4. Интернет ресурсы:

a. https://comp-science.narod.ru/Word/ogl.htm

b. https://www.excel-vba.ru/Tips_Lists_AutoFill_List.html



Поделиться:




Поиск по сайту

©2015-2024 poisk-ru.ru
Все права принадлежать их авторам. Данный сайт не претендует на авторства, а предоставляет бесплатное использование.
Дата создания страницы: 2019-11-09 Нарушение авторских прав и Нарушение персональных данных


Поиск по сайту: