Размещение:
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.ОП |
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.ОП |
· Дата производства Декабрь 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.ОП |
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].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[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].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.ОП |
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.ОП |
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.ОП |
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