- •Www.Msta.Ru
- •Москва – 2005
- •1 Цель и задачи дисциплины
- •2 Тематическое содержание программы
- •3 Перечень рекомендуемых лабораторных работ
- •4 Экзаменационные вопросы по дисциплине
- •1. Введение
- •Var a,d: integer; X: real; d: string;.
- •2. Простейшие операторы языка
- •3. Организация ветвлений
- •Var a,b,c: real;
- •4. Логические функции
- •5. Организация циклов
- •Program p5_2; {другой вариант}
- •Var X,y: real;
- •С помощью этого оператора гораздо проще решить пример 5-2 (program p5_2). Оператор цикла с постусловием:
- •6. Массивы
- •Var X,z: array [1..8] of real;
- •Var I,j: integer;
- •Var n,I,j:integer; s,y,sr:real; X: array [1..10,1..5] of real;
- •Var n,I,j,st,kl,k:integer;
- •7. Символьные данные
- •Var n:integer;y:string;
- •Var X:string[1]; d:string; I:integer;
- •8. Записи
- •Var X:vr; y:array [1..5] of vr;
- •9. Файлы
- •Ввод и вывод информации для типизированных и текстовых файлов производится процедурами:
- •X,y:real;
- •X,y:real; I:integer;
- •Im: string[4];
- •I: integer;
- •Im: string[4];
- •I: integer;
- •10. Подпрограммы
- •11. Графика
- •Var d,I,m,rx,ry:integer;
- •Var d,m,rx,ry:integer;
- •X,y,xn,xk,ymin,ymax,dx:real; msy,msx:real;
Var n,I,j,st,kl,k:integer;
a:array [1..10,1..10] of integer;
begin;
clrscr;
write(‘укажите размерность матрицы (до 10)’); readln(n);
st:=n; kl:=n; k:=1; {текущие строка и колонка, элементы натурального ряда}
a[st,kl]:=k; {начальному элементу a(n,n) присваивается 1}
{цикл - конец вычислений по достижении последнего элемента массива}
while k<n*n do begin
{правая сторона – 1 клетка вверх}
if (kl=n) and (st>1) then begin st:=st-1; k:=k+1; a[st,kl]:=k;
while (st<n) and (kl>0) do begin st:=st+1; kl:=kl-1; k:=k+1; a[st,kl]:=k end; {далее вниз-влево}
end
{нижняя сторона – 1 клетка влево}
else if (kl>1) and (st=n) then begin kl:=kl-1; k:=k+1; a[st,kl]:=k;
while (st>1) and (kl<n) do begin st:=st-1; kl:=kl+1; k:=k+1; a[st,kl]:=k end; {далее вверх-вправо}
end
{верхняя сторона – 1 клетка влево}
else if (kl>1) and (st=1) then begin kl:=kl-1; k:=k+1; a[st,kl]:=k;
while (st<n) and (kl>1) do begin st:=st+1; kl:=kl-1; k:=k+1; a[st,kl]:=k end; {далее вниз-влево}
end
{левая сторона – 1 клетка вверх}
else if(kl=1) and (st>1) then begin st:=st-1; k:=k+1; a[st,kl]:=k;
while (st>1) and (kl>0) do begin st:=st-1; kl:=kl+1; k:=k+1; a[st,kl]:=k end; {далее вверх-вправо}
end;
end;
writeln('вывод результата');
for i:=1 to n do begin for j:=1 to n do write(a[i,j]:4); writeln; end;
end.
7. Символьные данные
Паскаль позволяет обрабатывать не только числовые, но и символьные данные, которые бывают двух типов. Символы описываются в описательной части программы атрибутом CHAR и хранят один знак. Строки это цепочки символов и описываются атрибутом STRING. Например, var ST: char; SM: string[32]; SS: string. Здесь ST – одиночный символ, SM – строка не более чем из 32 символов. Если количество символов не указано, строке присваивается емкость в 255 символа. В программе и символы и строки должны заключаться в апострофы, например: ST:=‘a’; SM:=‘экзамен’;. Над символами и строками с помощью приведенных в таблице функций производятся различные операции.
Функция |
Назначение |
concat (строка1, строка2) |
Соединяет строки строка1 и строка2 в одну (пример: concat('а','б')='аб') |
copy(строка, позиция, количество) |
Копирует из строки, начиная с заданной позиции количество символов (пример: copy('программа',4,5)='грамм') |
delete(строка, количество, позиция) |
Удаляет из строки количество символов, начиная с заданной позиции (пример: delete('программа',4,4)='прома') |
insert(строка1, строка2, позиция) |
Вставляет строку1в строку2, начиная с заданной позиции (пример: insert('сколько стоит','это ',9)='сколько это стоит') |
length(строка) |
Определяет длину строки (пример: length('саша')=4) |
pos(строка1, строка2) |
Отыскивает в строке2 первое вхождение строки1 и определяет номер позиции, с которой она начинается (пример: pos('саша','а')=2) |
upcase(символ) |
Преобразует символ латинского алфавита в заглавный |
str(число, формат, строка) |
Преобразует число типа integer или real в строку по заданному (если есть) формату (примеры: str(5,x) – результат х='5', str(18.3:5:2,y) – результат y='18.30') |
val(строка, число, признак) |
Преобразует строку в целое или вещественное число, если оно прошло успешно, признак =0 (пример: val('12.4',x,k) – получим x=12.4, k=0) |
ord(символ) |
Преобразует символ в целое число – код символа в ASCII-таблице (пример: ord(Я)=159) |
chr(число) |
Преобразует число в символ из ASCII-таблицы с соответствующим кодом (пример: chr(159)='Я') |
Над символьными данными определена операция ‘+’ (аналогичная concat) сцепления. Пример: ‘студент ’+’Петров’= ’студент Петров’.