Вашего вуза




Скачать 89.76 Kb.
НазваниеВашего вуза
Дата публикации03.10.2013
Размер89.76 Kb.
ТипКонтрольная работа
www.vbibl.ru > Информатика > Контрольная работа


Название Вашего ВУЗа

Кафедра программирования и информационных технологий


Получено”

Регистрационный номер № _______

от “____” ____________ 200__ г.

Отправлено с замечаниями”

Регистрационный номер № _______

от “____” ____________ 200__ г.

Получено повторно”

Регистрационный номер № _______

от “____” ____________ 200__ г.

КОНТРОЛЬНАЯ РАБОТА № __________

По дисциплине “Основы программирования и алгоритмические языки”

________________“Обработка одномерных массивов”____________________

на тему

Выполнил(ла) студент(ка) ____ курсу, группы_________
___________________________________________________________________

(ФИО)

Проверил:_________________________________________________________ (оценка, дата, подпись преподавателя) (ФИО преподавателя)
Название Вашего город, 2009 г.

Содержание
1. Задание 1. “СИМВОЛЬНЫЕ ТИПЫ ДАННЫХ. РАБОТА СО СТРОКАМИ” 3

2. Задание 2.“ОРГАНИЗАЦИЯ ПРОГРАММ С ИСПОЛЬЗОВАНИЕМ ПРОЦЕДУР И ФУНКЦИЙ” 6 3. Задание 3 “РАБОТА С ФАЙЛАМИ” 9

4. Список использованных источников 13

Задание 1. "СИМВОЛЬНЫЕ ТИПЫ ДАННЫХ. РАБОТА СО СТРОКАМИ"


Краткие теоретические сведения.

Символьный тип (char) представляет собой тип данных, предназначенных для хранения одного символа (буквы, знака или кода).

Функции над символьными переменными:

chr(x) - определение символа из набора символов по порядковому номеру;

ord(x) - определение порядкового номера символа в наборе символов;

upcase(x) - преобразование строчных букв в прописные;

pred(x) - определение предыдущего элемента;

succ(x) - определение последующего элемента.

Тип данных string (строка) специально предназначен для обработки строк (цепочек символов). Переменная типа string состоит из элементов типа char. Переменные типа string могут быть объявлены следующим образом:

var Имя_переменной1: string;

Имя_переменной2 : string[n];

Переменная типа string объявляется, как правило, путем указания имени переменной, зарезервированного слова string и указания (в квадратных скобках) максимального размера (длины) строки, которая может храниться в этой переменной. Если максимальный размер строки не указан, то он автоматически принимается равным 255 - максимально возможная длина строки.

Стандартные процедуры и функции для строк:

функция Length - определение фактической длины текстовой строки, хранящейся в указанной переменной;

функция UpCase - преобразование символа любой литеры из строчного в прописной;

функция Copy - копирование фрагмента некоторой строки из одной переменной в другую;

функция Pos - осуществление в некоторой строке поиска определенного фрагмента;

функция Concut - соединение строк;

процедуры Insert и Delete - вставка фрагмента из одной строки в другую, удаление фрагмента из строки[1-8].

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

В текст, содержащий меньше 20 символов, равномерно вставить пробелы между словами, чтобы его длина составляла ровно 20 символов. Составить блок схему алгоритма и программу.
^ Листинг программы.

uses crt;

var Slovo,st:string; - переменные для хранения исходного текста

i,j,n,k:integer; - вспомогательные переменные
begin
ClrScr;

Writeln(' В тексте 20 символов ');

Writeln;

Writeln('Введите последовательность в формате: <> <> <>');

Read(Slovo);
if length(slovo)>20 then writeln('!В тексте более 20 символов!')

else begin
Slovo:=Slovo+'.'; - признак конца строки

st:=Slovo; j:=1; - н.у. для переменных

while (Length(st)<=20) do begin

while ((st[j]<>'.')and(Length(st)<=20)) do begin

if (st[j]=' ')and(st[j-1]<>' ') then insert(' ',st,j); - добавление пробелов между словами

j:=j+1;

end;

j:=1;

end;

end;
delete(st,21,1);

writeln('____________________');

writeln(st); - вывод результата

readkey;

end.

Блок-схема алгоритма программы.


Начало







Ввод слов






if length(slovo)>20

Да






Нет




Нет


While Length(slovo)<=20



Да


Вставка пробелов

между словами












Вывод

результата




Рис.1 Блок-сема программы задания 1.
Результаты работы программы.



Задание 2.“ОРГАНИЗАЦИЯ ПРОГРАММ С ИСПОЛЬЗОВАНИЕМ ПРОЦЕДУР И ФУНКЦИЙ”


Краткие теоретические сведения.

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

procedure Имя_процедуры (Список параметров);

Список параметров - перечень имен для обозначения исходных данных и результатов работы процедуры с указанием их типов. Параметры, перечисленные в списке, называются формальными. Константа, переменные, типы, описанные в блоке program, называются глобальными. Допускается описание процедуры, не содержащей параметры. Вызов процедуры имеет вид:

Имя_процедуры (Список параметров);

Параметры, содержащиеся в Списке параметров при вызове процедуры, называются фактическими.

Функции - это процедуры особого характера, результатом работы которых является некоторое значение, подобное переменной. Результат работы функции присваивается имени функции. Общая структура функции совпадает со структурой процедуры, за исключением заголовка. Заголовок функции имеет следующий вид:

Function Имя_функции (Список параметров) : Тип_результата;

Процедуры и функции помещаются в главной программе после раздела var и перед bеgіn основного блока программы[1-8].

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

Вычислить значение интеграла методом трапеций (использовать функцию)



Составить блок схему алгоритма и программу.
^ Листинг программы.

program Integral;

uses

Crt, Dos; - подключение библиотек и модулей

var

dx,x1,x2,e,i:real; - переменные границ интегрирования

function Fx(x:real):real; - функция вычисления значения F(x)

begin

Fx:=sqrt(exp(x)-1);

end;
procedure CountViaTrap; - процедура вычисления методом трапеций

var

xx1,xx2,xx3:real; - вспомогательные переменные

c:longint;

begin

writeln('------------------------------------------------');

writeln('-->Метод трапеций');

writeln('Всего итераций:',round(abs(x2-x1)/e));

i:=0;

for c:=1 to round(abs(x2-x1)/e) do begin - процесс вычисления

write('Итерация ',c,chr(13));

xx1:=Fx(x1+c*e);

xx2:=Fx(x1+c*e+e);

if xx2>xx1 then xx3:=xx1 else xx3:=xx2;

i:=i+abs(xx2-xx1)*e+abs(xx3)*e;

end;

writeln('------------------------------------------------');

writeln('Интеграл=',i);

end;
begin

clrscr; - меню программы

writeln('------------------------------------------------');

writeln('-=Программа вычисления определенного интеграла=-');

writeln('Введите исходные значения:');

write('Начальное значение x (x1)=');Readln(x1);

write(‘Конечное значение x (x2)=');Readln(x2);

write('’Точность вычисления (e)=');Readln(e);

CountViaTrap;

writeln('------------------------------------------------');

readln;

end.


Блок-схема алгоритма программы.



Начало




Ввод исходных данных






Выполнение

Proc. CountViaTrap







Выполнение function Fx





Вывод

значения z






Конец


Рис.2 Блок-сема программы задания 2.
Результаты работы программы.




^ Задание 3 “РАБОТА С ФАЙЛАМИ”

Краткие теоретические сведения.

Файл - это последовательность компонент, являющихся объектами одного и того же типа. Количество компонент в файле заранее не оговаривается, компоненты файла не имеют индексов. В Паскале возможно использование трех файловых типов: текстовые файлы, компонентные файлы, бестиповые файлы.

Процедуры и функции, использующиеся при обработке файлов любых типов:

• процедура Assign(Var_file, Road) связывает переменную Var_file с некоторым именем файла, которое хранится в переменной Road;

• процедура Reset(f) открывает файл с именем f для чтения;

• процедура Rewrite(f) создает новый файл f и открывает его для записи;

• процедура Erase(f) стирает существующий файл с диска;

• функция EOF(f) проверяет достижение конца файла;

• функция Close(f) закрывает файл f.

Типизированный, или компонентный файл - это файл с объявленным типом его компонент. Объявление такого типа имеет структуру:

var Имя_переменной_файла : file of Тип_элементов_файла;

Текстовые файлы организуются по строкам и объявляются следующим образом:

var file : text;

Кроме общих для всех файлов процедур и функций, определены еще несколько, работающих только с текстовыми файлами:

• процедура Append(file), открывающая текстовый файл file для дозаписи в конец файла;

• функция EOLn(file), проверяющая достижение конца строки[1-8].
^ Постановка задачи.

Скопировать из файла F1 в файл F2 К- строк, начиная с 4. Составить блок схему алгоритма и программу.
Листинг программы.

uses crt;

var fl,gl:text; - переменные для определения файлов

s:string;

i,n,m:integer; - вспомогательные переменные
BEGIN - тело программы

clrscr;
assign(fl,'D:\F\F1.txt'); - открываем файл F1

reset(fl);
assign(gl,'D:\F\F2.txt'); - открываем файл F2

rewrite(gl);
write('Сколько строк копировать?: ');

readln(m);
i:=1; n:=4; m:=n+m-1; - н.у. переменных

while not EOF(fl) do begin - цикл копирования строк
readln(fl,s);

if (i>=n)and(i<=m) then

begin

writeln(gl,s);

end;

inc(i);

end;
writeln('Программв выполнена. Результат в файле D:\F\F2.txt');

close(gl); - закрываем файлы

close(fl);

readln;

end.

Блок-схема алгоритма программы.


Начало





Исходные данные





Нет





Да



Нет

if (i>=n)and(i<=m)



Да





Запись в файл F2.txt строк











Вывод результата






Начало


Рис.3 Блок-сема программы задания 3.

Результаты работы программы.



Файл F2.txt

starting your

home based business.

If you plan on

starting a

business 6 months from now,

Список использованных источников

1. Абрамов С.А., Зима Е.В. Начала информатики. —М.: Наука, 1990.

2. Грогоно П. Программирование на языке Паскаль. - М.: Мир, 1982.

3. Йенсен К., Вирт H. Паскаль. Руководство для пользователя и описание языка. -М.: Финансы и статистики, 1982.

4. Перминов О.Н. Программирование на языке Паскаль. - М.: Радио и связь, 1988.

5. Пильщиков В.Н. Сборник упражнений по языку Паскаль. - М.: Наука, 1989.

6. Прайс Д. Программирование на языке Паскаль. Практическое руководство. -М.: Мир, 1987.

7. Турбо Паскаль 7.0. - К.: Торгово-издательское бюро BHV, 1996.

8. Фаронов В.В. Турбо Паскаль 7.0. Начальный курс. Учебное пособие.-М.: «Нолидж», 1997.


Добавить документ в свой блог или на сайт

Похожие:

Вашего вуза iconГоу впо «Брянский государственный технический университет» (бгту)...
Приглашаем студентов, аспирантов, преподавателей и сотрудников Вашего вуза принять участие в III международной научно-практической...

Вашего вуза iconТема: Современные проблемы контроля успеваемости и посещаемости студентов вуза
Рассматривается современная проблема контроля успеваемости и посещаемости студентов вуза

Вашего вуза iconП. Я. Чаадаев философические письма*
Повторяю, посудите каково же было мое удивление при получении вашего письма. Вот все, что я имею вам сказать, сударыня, по поводу...

Вашего вуза iconУ вашего ребенка есть любимый сказочный или мультипликационный герой?
Сделайте каждый день вашего пребывания в Holiday Inn неповторимым и незабываемым

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

Вашего вуза iconДа поминаете день исхода вашего от земли Египетския вся дни жития вашего
Ангелам света или к ангелам падшим. С ангелами они составляют по естеству своему

Вашего вуза iconЕ. А. Левкина
Совершенствование финансовой работы подразделения вуза с использованием дистанционных технологий

Вашего вуза iconНазвание вуза
Андреев Иван Александрович,, +7(911)989-91-02, 192281 Санкт-Петербург ул. Ярослава Гашека д2-523

Вашего вуза iconВуза Полностью
«Академия Проф. Мастерства и Искусства» при Московской Консерватории (1995-1998). город Москва

Вашего вуза iconСведения об образовании учителя (наименование вуза или ссуза, выдавшего...

Вы можете разместить ссылку на наш сайт:
Школьные материалы


При копировании материала укажите ссылку © 2013
контакты
www.vbibl.ru
Главная страница