25. Операторы ввода и вывода данных.

 ВВОД-ВЫВОД ДАННЫХ: процедура чтения Read ввод числовых данных, символов, строк и т.д. для последующей их обработки программой. Формат: read(x1,x2,x3…); или read(FV, x1,x2,x3…); , где х1,х2,х3.. — переменные, FV — переменная, связанная с фалом, откуда будет выполнятся чтение. Процедура чтения Readln аналогична процедуре Read, только осуществляется переход на следующую строку. Процедура записи Write производит вывод числовых данных, символов, строк и булевских значений. Формат: Write (x1,x2,x3…); или Write (FV,x1,x2,x3…);

где x — переменные, FV — имя файла, куда производится вывод. Writeln — перевод на другую строку.

26.Операторы ввода данных с клавиатуры.

Read("список переменных");

Readln("список переменных");

Write('введите значение а='); Readln(a);

введите значение а= .

Readln(a); Readln(b); Readln(c); или Readln(a, b, c);

Readln(с1, с2, с3, c4); {ожидает ввода значений символьных переменных с1, с2, с3, c4, например: "У", "Р", "А", "!" и нажатия Enter }

Writeln(с1, с2, с3, c4); выведет на экран надпись: УРА!

27.Оператор выбора.

Служит для выбора одного из помеченных вариантов действий в зависимости от значения параметра

Case "параметр" Of

"список помеченных операторов"

Else "оператор" End;

28.Условный оператор.

Вкл в себя операторы,кот выполняются или не выполняются в зависимости от записанного в операторе условия

IF "условие" Then "оператор1" Else "оператор2";

Например, вычисление квадратного корня из числа "a" проводится при условии a>=0,

IF a >= 0 Then b:= Sqrt(a) Else begin WriteLn ( 'a<0' ); Readln; Halt end;

Оператор Halt прекращает выполнение программы.

29.Оператор цикла.

Применяется при выполнение расчетов или др действий

С параметром

For i:= N1 To N2 Do "оператор";

For i:= N1 DownTo N2 Do "оператор";

С условием

While "условие" DO "оператор";

Repeat "операторы" Until "условие";

"условие" - выражение логического типа (Boolean).

30.Оператор перехода к метке.

Оператор перехода к метке слуцжит для упр-я помеченному оператору

Goto "метка";

M1: Write('Введите x>=0'); Readln(x); If x<0 Then Goto M1;

Метки описываются в разделе описания, например: Label M1;

31.Линейные массивы.

Описание массивов:

Var A: array[ 1. . 30 ] of byte;

S: array[ 1. . 30 ] of string;

SO: array[ 1. . 30 ] of string[12];

Присвоение значений элементам массива:

A[1]:= 5; A[2]:= 4; и т. д.

S[1]:= 'Иванов'; S[2]:= 'Петров'; и т. д.

 Присвоение значения элементам массива "y" по зависимости:

y=sin(x), где x= Pi * i/180, 0<= i <=180 .

For i:= 0 to 180 Do y[i]:= sin(Pi * i/180);

Присвоение случайных значений в диапазоне от -30 до +40 ста элементам массива "R":

Randomize; for i:=1 to 100 Do R[i]:= - 30+Random(71);

32.Двумерные массивы.

Var A:array[1..30,1..7] of byte;

33.Текстовые файлы.

Var f: Text;

Assign(f, 'Name_f');

где Name_f - имя файла.

Например,

Assign(f, 'file. dat'); {файл находится в текущем каталоге}

Assign(f,'C:\Pascal\Work\file.dat') {файл находится}

Открытие файла для записи данных

ReWrite(f);

Запись данных в файл

Write(f,"сп"); или Writeln(f,"сп"); {"сп" - список переменных}

Открытие файла для считывания данных

Reset(f);

Считывание данных

Read(f, "сп"); или Readln(f, "сп");

Закрытие файла

Close(f);

Запись данных в конец закрытого файла

Append(f);