Алгоритмические языки: обработка массивов

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

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

По вещественному числу а>0 вычислить величину

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

Листинг программы.

uses crt;

var t:real; - вспомогательные переменные

st1,st2,st3:real; - вспомогательные переменные

a,a2,a3:real; - промежуточные переменные

t1,t2,t3:real; - вспомогательные переменные

Function pow1(x, v: real): real; - функция для возведения числа x в степень v

Begin

if (v = 0.0) then - проверка условия v>0

pow1:= 1

else

if (x = 0.0) then - - проверка условия x<>0

pow1:= 0

else

if (x > 0.0) then

pow1:= exp(v*ln(x)) - вычисление числа в заданной степени

else

if (odd(trunc(v))) then

pow1:= -exp(int(v)*ln(-x))

else

pow1:= exp(int(v)*ln(-x));

End;

BEGIN

clrscr;

st1:=1/3;

st2:=1/6;

st3:=1/7;

writeln('Format vvoda chisla: *.*');

write('Vvedite vewestvennoe chislo "a":');

readln(a);

a2:=a*a+1; - промежуточные вычисления

a3:=3+a; - промежуточные вычисления

t1:= pow1(a,st1);

t2:= pow1(a2,st2);

t3:= (1+pow1(a3,st3));

t:= (t1-t2) / t3; - вычисление заданной формулы

writeln;

write('Otvet: t=',t); - вывод результата

readln;

END.

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

Рис.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 строки, начиная с N до K. Составить блок схему алгоритма и программу.

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

Файл F2.txt

sasa

ss

fedg

dfhdfh

Листинг программы.

uses crt;

var f,g:text; - логические имена файлов

s:string; - вспомогательные переменные

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

BEGIN

clrscr;

assign(f,'D:\FF\F1.txt '); - открытие файла F1.txt из D:\FF\F1.txt

reset(f);

assign(g,'D:\FF\F2.txt'); - открытие файла F2.txt из D:\FF\F2.txt

rewrite(g);

writeln('Kopirovat stroki'); - запрос на копирование строк

write(' s:');

readln(n);

write('po:');

readln(m);

i:=1;

while not EOF(f) do begin - цикл в котором происходит копирование

с позиции n до позиции m

readln(f,s);

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

begin

writeln(g,s);

end;

inc(i);

end;

writeln('Gotovo!'); - результаты выполнения программы в файле F2.txt

close(g);

close(f);

readln;

end.

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

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

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

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

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

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

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

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

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

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

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