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

2. Монитор:

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

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

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

   • Модель 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

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

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

   1. Microsoft Office

   2. Notepad++

   3. Foxit Reader

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

   1. Everest

   2. Far Manager

   3. Total Commander

   4. Radmin Server 3.0

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

   1. AIMP2

   2. Windows Media Classic

4. Прочее ПО:

   1. Borland Pascal 7.0

   2. Borland Delphi 7

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

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

В программе использовались следующие операторы :

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;

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

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;

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;

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 если","то","иначе" соответственно .';

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 возможность многократного повторения определенных действий .';

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);

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);

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. Тест');

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.

Приложение

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;

1

1

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;

I:=1, N

Вывод:

bazai.vopros;

bazai.otv1;

bazai.otv2;

bazai.otv3;bazai.otv4;Введите правильный ответ -

z=bazai.pr_otv

2

3

+

4

Ввод z

Заключение

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

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

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

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

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

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

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

• Everest;

• CPU-Z;

• GPU-Z;

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

Список литературы

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

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

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

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

   1. http://comp-science.narod.ru/Word/ogl.htm

   2. http://www.excel-vba.ru/Tips_Lists_AutoFill_List.html