Шпаргалка по программированию на Турбо Паскаль

Подождите немного. Документ загружается.

Пример: вычислить z = ln(b-y)/(b-y)

Величину z можно вычислить при b-y > 0. В противном случае на экран следует вывести

сообщение «b-y <= 0». Алгоритм решения представлен на рисунке.

Текст программы на Паскале:

var b,y,z: real;

begin

writeln(‘введите данные’);

write(‘y=’);

readln(y);

write(‘b=’);

readln(b);

if b-y<=0 then write(‘b-y<=0’)

else

begin

z:=ln(b-y)/(b-y);

write(‘z=’,z);

end;

end.

При разветвлении в Паскале используют также оператор выбора вида

case c of

c1:a1;

c2:a2;

...

cn:an;

end;

Здесь с – выражение, с1, с2, …, сn – константы, а1, а2, …, an – операторы. Если значение

выражения равно одной из констант, выполняется соответствующий ей оператор. Если

значение выражения не совпадает ни с одной константой, управление передается за

пределы оператора case.

Пример: составить программу для вывода на экран дня недели по введённому его номеру.

Текст программы на Паскале:

var day: integer;

begin

write (‘введите номер дня ’);

readln (day);

case day of

1: writeln (‘понедельник’);

2: writeln (‘вторник’);

3: writeln (‘среда’);

4: writeln (‘четверг’);

5: writeln (‘пятница’);

6: writeln (‘суббота’);

7: writeln (‘воскресенье’);

end;

end.

10. Программирование циклов с известным числом

поаторений

Циклы – это многократно повторяемые последовательности однотипных действий.

Бывают циклы с известным числом повторений и с неизвестным числом повторений. Для

организации цикла с известным числом повторений в Паскале служит оператор вида

for i:=m1 tо m2 do s;

Здесь i – параметр цикла, m1 и m2 – начальное и конечное значения параметра цикла, s –

тело цикла из одного или нескольких операторов. Параметр автоматически увеличивается

на 1 при каждом повторе.

Возможна следующая запись оператора:

for i:=m1 downto m2 do s;

При этом параметр уменьшается на 1 при каждом повторе.

Пример: вычислить и вывести на экран в один столбец пятнадцать значений функции y =

x2 - 2x + 2 при увеличении x от начального значения –4 с шагом 0,2.

Алгоритм решения представлен на рисунке.

Текст программы на Паскале:

Var x,y: real; к: integer;

begin

x:=- 4; {начальное значение х}

for i: =1 to 15 do {начало цикла}

begin

y: = sqr(x)-2*x+2; {расчет значения y}

writeln (y); {вывод на экран значения y}

x:=x + 0.2; {увеличение значения x в цикле}

end {окончание цикла}

end.

11. Программирование циклов с неизвестным числом

повторений

В Паскале циклы с неизвестным числом повторений бывают двух видов:с предусловитем

и с постусловием.

Оператор цикла с предусловием в Паскале можно использовать в циклах с неизвестным

или с известным числом повторений. Вид оператора:

While b do s;

Здесь b – логическое выражение, s – тело цикла. При выполнении оператора

предварительно проверяется значение логического выражения. Пока оно истинно,

выполняется тело цикла, т.е. операторы циклической части. Когда оно становится

ложным, происходит выход из цикла. Если с самого начала значение логического

выражения ложно, тело цикла не выполнится ни разу. Если тело цикла является

составным оператором, его необходимо ограничить операторными скобками begin и end.

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

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

Алгоритм решения представлен на рисунке.

Текст программы на Паскале:

Const k = 10;

Var x: integer;

begin

x : = 1;

while x <= k do

begin

write(x,' ');

x: = x + 1;

end;

end.

Оператор цикла с постусловием в Паскале также используется в циклах с неизвестным

числом повторений и с известным числом повторений. Вид оператора:

repeat s until b;

Здесь s – тело цикла, b - логическое выражение. При выполнении оператора сначала

выполняется тело цикла, а затем проверяется логическое условие. Таким образом,

обеспечивается, по меньшей мере, одно выполнение тела цикла. Цикл повторяется, пока

логическое выражение ложно. Когда оно становится истинным, происходит выход из

цикла.

Пример : Составить программу определения k, при котором x/k становится меньше или

равн а, где k = 1, 2, 3… .

Алгоритм решения представлен на рисунке.

Текст программы на Паскале:

Var x,a,p: real; k:integer;

begin

write (‘x=’);

readln (x); {ввод с клавиатуры значения х}

write (‘a=’);

readln (a); {ввод с клавиатуры значения a}

k : = 0; {начальное значение k перед циклом}

repeat {начало цикла}

k : =k+1; {увеличение k в цикле}

until x/k <= a; {проверка логического условия}

write(‘k=’,k); {вывод найденного значения k на экран}

end.

К циклам с неизвестным числом повторений относятся, в частности, итерационные циклы,

в которых происходит последовательное приближение к результату с заданной

точностью.

12. Программирование вложенных циклов. Массивы.

Циклы могут быть вложены один в другой. Пример: Составить программу для

упорядочивания элементов массива (а

, а

, …а

100

), расположив их по возрастанию в том же

массиве.

Алгоритм решения: каждый i–й элемент массива с первого по 99-й необходимо

сравнивать со всеми j-ми элементами, имеющими более высокий порядковый номер.

Например, первый элемент надо сравнивать со вторым, третьим, четвер-тым и т.д. Второй

элемент надо сравнивать с третьим, четвертым, пятым и т. д. Если значение j-го элемента

окажется меньше, чем i–го, эти элементы надо поменять местами в массиве. Для этого

вводится промежуточная переменная amin. Сначала переменной amin присваивается

значение j-го элемента, затем j-му эле-менту присваивается значение i–го элемента, и

затем i–му элементу присваива-ется значение переменной amin. Во внутреннем цикле

происходит сравнивание и обмен значений элементов, во внешнем цикле меняется номер

i–го элемента. Алгоритм представлен также на рисунке.

Текст программы на Паскале:

Var amin:real; i, j : integer; a:array[1..100] of real;

begin

for i:=1 to 100 do {ввод данных}

readln a[i];

i:=0;

repeat {Внешний цикл}

i:=i+1;

j:=i;

repeat {Внутренний цикл}

j:=j+1;

if a[i]>=a[j] then {Сравнивание и обмен элементов массива}

begin

amin:=a[j]; a[j]:=a[i]; a[i]:=amin;

end;

until j>=100;

until i>=99;

for i:=1 to 100 do {вывод упорядоченного массива на экран}

writeln(a[i]);

end.

13. Процедуры и функции в Паскале

При решении ряда задач необходимо повторять одни и те же действия при различных

значениях параметров в разных частях программы. Для этого используют подпрограммы

– процедуры и функции. Главное различие между ними в том, что функция может быть

использована в выражении, например:

х: =sin(а);

Процедура может быть вызвана, например:

write(a);

Процедуры и функции в Паскале бывают стандартные и нестандартные, т.е. определённые

пользователем. Стандартные функции и процедуры не требуют описания. В Паскале их

существует более 200. Некоторые стандартные функции были перечислены выше.

Примеры стандартных процедур: ClrScr – очистка экрана, курсор перемещается в верхний

левый угол. Delay(t) – задержка программы на t миллисекунд. GotoXY(x,y) – перемещение

курсора в точку с координатами (x,y). Exit – выход из текущего блока или из программы.

Нестандартные процедуры и функции должны быть описаны. Их структура, в принципе,

такая же, как и основной программы. Пример использования нестандартной процедуры:

вычислить

Алгоритм решения: в программе используется процедура step, в которой описано

вычисление выражения вида x

. Значение выражения присваивается переменной s. При

вызове процедуры в блоке операторов основной программы, вместо x,y,s используют-ся

другие параметры. Например, при первом вызове процедуры вычисляется выражение a

значение которого присваивается переменной S1.

Текст программы на Паскале:

program zet;

var a,b,c,S1,S2,S3,k,r,z:real;

{описание процедуры}

procedure step(var x,y,s:real);

begin

s:=exp(y*ln(x));

end;

{блок операторов}

begin

read (a,b,c,); {ввод данных}

step(a,b,S1); {вызов процедуры}

r:=b-c;

step(a,r,S2); {вызов процедуры}

k:= sqr(b)-sqr(c);

step(a,k,S3); {вызов процедуры}

z:=(S1-sqr(S2))/sqrt(S3);

writeln(‘z=’,.z);

end.

В достаточно сложных программах отдельные логические блоки целесообразно

оформлять в виде отдельных процедур. Это могут быть процедуры без параметров. Тогда

раздел операторов будет выглядеть как перечисление имен процедур.

Пример использования нестандартной функции: Рассчитать

Алгоритм решения: в программе используется нестандартная функция fact типа integer с

параметром k, в которой описано вычисление выражения k! При использовании функции

в блоке операторов вместо k указывается какой-либо другой параметр, факториал

которого при этом рассчитывается.

Текст программы на Паскале:

program sochet;

var c,n,m,l: integer;

function fact(k: integer): integer;

var p,i: integer;

begin

p:=1;

for i: =1 to k do

p: = p*i;

fact:=p;

end;

begin

read(n,m);

l:=n-m;

c:=fact(n)/fact(m)/fact(l);

writeln (‘c=’,c);

end.

14. Записи в Паскале.

При организации хранения информации на ЭВМ требуется группировать данные разного

типа, относящиеся к одному объекту. Например, целесообразно объединить данные об

автомобиле и его владельце (номер, марка машины, год выпуска, цвет, фамилия

владельца, его адрес) в одной структуре. Для этого в языке Паскаль предназначен тип,

который называется запись. Записи используют в тех случаях, где желательно

группировать логически связанные элементы в один блок.

Запись – это структурированный тип данных, состоящий из фиксированного числа

компонентов разного типа. Определение записи начинается идентификатором Record и

заканчивается ключевым словом end . Между ними заключён список компонентов,

называемых полями, с указанием идентификаторов (имён) полей и типа каждого поля.

Формат описания типа запись:

Type

<имя типа> = Record

<идентификатор поля>:<тип компонента>;

.......

<идентификатор поля>:<тип компонента>;

end;

Var

<идентификатор, ...> : <имя типа>;

Например, описание записи, содержащей регистрационный номер автомобиля, его марку,

год выпуска, цвет, фамилию и адрес владельца, может выглядеть так:

Type

avto = record

Nomer:string[6]; { Регистрационный номер }

Marka:string[15]; { марка автомобиля }

God:integer; { год выпуска }

Color: string[20]; { цвет }

Fam:string[20]; { фамилия владельца }

Adress:string[40]; { адрес владельца }

end;

Var

m,v:avto;

В данном примере запись avto содержит 6 компонентов: номер, марка машины, год

выпуска, цвет, фамилия владельца, его адрес. Доступ к полям записи осуществляется

через переменные m и v типа record.

Имя поля должно быть уникальным в пределах записи. Объём памяти, необходимый для

хранения записи, складывается из длин полей.

Значения полей записи могут быть использованы в выражениях. Обращение к значению

поля осуществляется с помощью составного имени, включающего идентификатор

переменной и идентификатор поля, разделённые точкой. Например, чтобы получить

доступ к полям записи m типа avto, надо записать:

m.nomer, m.marka, m.god, m.color, m.fam, m.adress .

Для присваивания полям записей значений используются оператор присваивания.

m.nomer:=’ав345х’;

m.marka:=’ВАЗ 2110’;

m.god:=1995;

Составные имена можно использовать, в частности, в операторах ввода-вывода, например:

Write(’Введите фамилию владельца автомобиля ’,m.nomer, ’ ’);

Readln(m.fam);

Допускается применение оператора присваивания к записям в целом, если они имеют

один и тот же тип, например, m:=v. После этого значения полей записи m станут равны

значениям соответствующих полей записи v.

В ряде задач удобно пользоваться массивами из записей. Их можно описать, например,

следующим образом:

Type

Person = record

Fam:string[20]; { фамилия сотрудника }

Pol:char; { Пол сотрудника }

Age:16..60; { возраст сотрудника}

Dolgnost: string[20]; { должность }

end;

Var

otdel:array [1..50] of Person;

Обращение к полям записей имеет несколько громоздкий вид, что особенно заметно при

использовании идентификаторов длиной более 5 символов. Чтобы избежать

этого,применяется оператор with, который имеет следующий формат:

With <переменная типа record> do <оператор>;

Один раз указав имя переменной типа record в операторе with, далее в пределах блока

<оператор> можно работать с именами полей, как с обычными переменными, то есть без

указания перед идентификатором поля имени переменной, определяющей запись:

With Otdel[25] do

begin

fam:=’Васильев’;

Pol:=’М’;

Age:=45;

Dolgnost:=’Директор’;

end;

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

очередь быть записью, соответственно оператор with может быть вложенным.

Записи используются обычно для организации файлов с данными на дисках.

15. Работа с файлами в Паскале

Порядок работы с файлами в Паскале:

1. Описать тип файловой переменной. Например, переменная f в зависимости от типа

файла может быть описана так:

var

f : file of <тип>;

или

var

f : text;

или

var

f : file;

Тип file описывает линейную последовательность компонент, указанного типа. Тип файла

Text означает файл, состоящий из строк символов.

2. Связать файловой переменной с именем файла - команда Assign(f). Одновременно в

программе может быть открыто несколько десятков файлов, каждый из которых должен

иметь свою файловую переменную.

3. Открыть файл командой Rewrite(f) для записи во вновь создаваемый файл или Reset(f)

для чтения/записи уже имеющегося файла. Если открывается существующий текстовый

файл, то используем команду Append(f).

4. Осуществить чтение или запись в файл - команды Read или Write соответственно (для

построчной работы с текстовыми файлами можно использовать соответственно ReadLn

или WriteLn). Например, команда записи в файл выглядит так: Write(f, а), где f -

файловая переменная; а - переменная любого типа (byte, real, string и т. д.,

соответствующая типу файла). При обращении к командам Read/Write позиция

чтения/записи в файле автоматически увеличивается на единицу.

5. Закрыть файл - команда Close(f).

Пример программы, демонстрирующей возможные действия с файлом:

Var

f: text;

Begin

Assign(f, 'TEST.TXT'); { связываем файловую переменную f }

{ c именем файла 'TEST.TXT' }

Rewrite(f); { Создаем новый файл }

WriteLn(f,'Исходный текст'); { Записываем строку в файл }

Close(f); { Закрываем файл }

Append(f); { Открыть файл для добавления}

{ в его конец строки }

WriteLn(f,'Добавляемый текст'); { Добавляем строку }

Close(f); { Закрываем файл}

End.

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

Процедура Append(var f : Text);

Открывает существующий текстовый файл f для дополнения.

Процедура Assign(var f; name : String);

Связывает внешний файл с именем name и переменную файлового типа f. Все

дальнейшие операции с переменной f будут выполняться с указанным внешним файлом.

Процедура Close(var f);

Закрывает открытый файл, связанный с переменной f.

Функция Eof(var f); типа Boolean;

Показывает значение Истина (True) при наличии признака конца файла для

типизированных или нетипизированных файлов, указываемых файловой переменной f.

Функция FilePos(var f); типа Longint;

Показывает текущую позицию в файле, указываемом переменной f. Если эта позиция в

конце файла, то функция возвращает значение, равное длине файла, а если в начале файла,

значение 0.

Функция FileSize(var f); типа Longint;

Показывает текущий размер файла f в байтах. Если файл пуст, то 0.

Процедура Reset(var f [ : file; RecSize : Word ] );

Открытие существующего файла. Имя внешнего файла, связанного с f, должно быть ранее

определено. Необязательный параметр RecSize: размер записи нетипизированного файла.

Процедура Rewrite(var f : file [;RecSize : Word ] );

Создает и открывает новый файл. Если такой файл уже есть, то он удаляется и создается

новый с тем же именем.