1. Дисциплина «Программирование на алгоритмических языках»
|
система точных и понятных предписаний исполнителю совершить последовательность действий для решения поставленной задачи; |
|
дискретность, определенность, массовость; |
|
линейный, циклический, разветвляющийся; |
|
разные операторы в зависимости от некоторого условия; |
|
требуется участок программы (набор операторов) повторить несколько раз подряд в зависимости от некоторого условия; |
|
линейным; |
Присвоить S значение 50 Присвоить Y значение 1 Пока Y<10 повторять: Присвоить S значение S+2Y Присвоить Y значение Y+1 Конец цикла |
9; |
|
смысловые; |
|
транслятор, который обеспечивает покомандный перевод в машинные коды и одновременно выполнение каждой команды программы; |
|
транслятор, который всю программу переводит в машинные команды без выполнения; |
|
Ctrl +F9; |
|
F10; |
|
большие и малые буквы греческого алфавита; |
|
label; |
|
const; |
|
type; |
|
var; |
|
sin(x), cos(x), tan(x); |
|
пояснения к программе, не влияющие на процесс выполнения программы; |
|
буквы, за которой следуют буквы и цифры; |
|
Program dfg; |
|
SOR; |
|
d100; |
|
произвольный идентификатор, предварительно описанный за служебным словом label; |
|
множество допустимых значений, операций и формат внутреннего представления памяти ЭВМ; |
|
integer, real, boolean, char, string; |
|
shortint, integer, longint, byte, word; |
|
целые, логические, символьный, перечисляемый, тип – диапазон; |
|
для диапазона 1..260 лучше всего подходит тип byte; |
Var a: integer: index: 0..5; al,a2: char; diapazon: 100.. 10; ss: array [-5...13] of byte; |
index, al,a2; |
|
'S'; |
|
ABS(X); |
|
округление х до ближайшего целого; |
|
not, and, or, xor, shl, shr; |
|
not имеет высший приоритет; |
|
простые и составные; |
|
операторы цикла; |
|
:= ; |
|
4; |
|
X:=LN(SQRT(SQR(A)+B/C)); |
|
а=5, b=6; |
|
z= -5, t= -5; |
|
0.2 Е03= 20.00; |
|
11div 5 = 1; |
|
trunc (-1.8)= -2; |
|
i and (p=2) при i=true, p=2; |
|
[3,6..8]<=[2..7,9] – true; |
VAR A,B: INTEGER; BEGIN READ (A,B,A); WRITELN (A,B,A); END. если для ввода заданы числа 1,2,3 |
3 2 3; |
|
если после выполнения некоторого оператора надо выполнить не следующий по порядку, а какой-либо другой оператор; |
|
выбора к исполнению одного из возможных действий в зависимости от некоторого условия; |
|
If и Case; |
|
If <условие> then <оператор1> else <оператор2>; |
BEGIN F:=1; I:=2; 1: IF I>N Then GOTO 9; F:=F*I; I:=I+1; GOTO 1; 9: END. |
6; |
|
while, repeat, for; |
|
For <параметр цикла>:=<s1> to <s2> do <оператор>; |
|
Repeat <оператор> until <условие>; |
|
While <условие> do <тело цикла>; |
I:=0; Repeat I:=I+1; Until (I=10): |
10; |
I:=0; While (I<8) do I:=I+1: |
8; |
program f; uses Crt; const n=3; var s, i, f: byte; begin clrscr; s:=1; f:=1; for i:=2 to n do f:=f*i; s:=s+f; write (‘s=’, s) end. |
s=7; |
program с; uses Crt; var s: real; i: byte; begin clrscr; s:=0; i:=0; while i<5 do i:=i+1; s:=s+1/i; write (‘s=’, s:4:2) end. |
s=0.20; |
S:=0; I:=0; While I<5 Do I:=I+1; S:=S+I; |
5; |
S:=0; I:=1; REPEAT S:=S+1/I; I:=I-1 UNTIL I<=1;
|
1; |
|
совокупность ограниченного количества компонентов одного и того же типа; |
|
сортировкой; |
|
бинарная сортировка; |
|
символы языка; |
|
алфавит языка; |
|
var B: array [1..10] of real; |
K:=0; For i:=1 to n do For j:=1 to n do If A[I, J]>0 then k:=k+1; Writeln(k); |
количество положительных элементов массива; |
const A : array [1..2, 1..2] of integer = ((11,12), (21, 22)); var I, j, S : integer; begin for j :=1 to 2 do begin S:=0; for i :=1 to 2 do S :=S + A[i, j]; Write(S, ‘ ‘); End; End. |
32 34; |
|
pos (SUBST, ST); |
|
определяет длину строки st. |
|
Val; |
str : = ‘Инфор’; str 2: = ‘матика’; str : = concat (str , str 2); writeln (copy (str ,3,6)); |
формат; |
|
PAL; |
|
PASCALE; |
|
запись, состоящая из фиксированного числа полей; |
|
оператор присоединения; |
|
указать как имя записи, так и имя компонента; |
type BirthDay = record Day, Month: Byte; Year: Word; end; var с: record Name: String; Bd: BirthDay end; |
c.Bd.Year; |
Var student:record Fam,im:string[20]; Opl:real; Kurs:byte; End; |
49; |
|
PROCEDURE <имя> [(<список формальных параметров>)]; |
|
FUNCTION <имя> [(<список формальных параметров>)]: <тип>; |
|
фиктивные; |
|
<имя процедуры> (<список фактических параметров>); |
|
рекурсия; |
var a,b,c,d: integer; procedure p (var b: integer; c: integer); var d: integer; begin a:=5; b:=6; c:=7; d:=8; end; begin a:=1; b:=2; c:=3; d:=4; p(a, b); writeln (a,b,c,d) end. |
6234; |
var c,d: integer; procedure p (x: integer; var y: integer); begin y:=x+1 end; begin c:=4; d:=0; p(sqr(c)+c, d); writeln (c:3, d:3) end; |
4 21; |
Program pr2; Var c,d:integer; function P(x:integer):integer; begin p:=x+1; end; Begin c:=2; write(P(c)); End. |
3; |
|
Uses graph; Var b: integer; Begin…end. |
for i:=1 to 10 do begin for j:=1 to 10 do write(b[i, j]); writeln; end; |
вывод элементов матрицы в общепринятом виде; |
|
модуль; |
|
локальный блок; |
|
Implementation; |
|
инициирующая; |
unit prim; interface const n=100; var x,y,z,r:real; implementation begin z:=1; r:=1.1;end. Что появиться на экране в результате выполнения программы? program pr100; uses prim; begin writeln(‘x=’,(r*n+z):6:2); r:=5; end. |
X= 111.00; |
unit prim; interface const n=100; r=1.5; var x,y,z:real; implementation begin z:=10; end. Что появиться на экране в результате выполнения программы? program pr100; uses prim; begin writeln(‘x=’,r:6:2) ; r:=5; end. |
X= 1.50; |
|
типизированный файл; |
|
текстовый файл; |
|
нетипизированный файл; |
|
инициирование записи информации в файл; |
|
закрывает файл; |
|
инициирование чтения информации; |
|
инициирует запись информации в ранее существовавший текстовый файл; |
Var f:file of real; Z:real; …. Reset(f); k:=0; While not eof(f) do begin Read(f,z); If z>0 then inc(k); End; Writeln(k); … |
количество положительных вещественных элементов файла; |
... reset(F); read(F,Y); if not EoF(F) then read(F,Y); |
7; |
Var f:file of real; Z:real; …. Reset(f); k:=0; While not eof(f) do begin Read(f,z); inc(k); End; Writeln(k); … |
количество элементов файла; |
Var f:file of real; Z:real; …. Reset(f); k:=0; While not eof(f) do begin Read(f,z); If z<0 then k:=k+sqr(z); End; Writeln(k); … |
сумма квадратов отрицательных элементов файла; |
|
инициирует графический режим работы адаптера; |
|
BGI; |
|
в графическом режиме; |
|
адрес байта памяти; |
|
NEW; |
|
освобождает фрагмент кучи; |
|
несовпадение типов; |
|
трансляция программы и всех связанных с ней подпрограмм; |
|
рисует точку цветом COLOR с координатами х, у; |
|
Vаr b: set of chаr; |
|
инкапсуляция, наследование, полиморфизм; |