Программный код


с. 1

Гречкина П.В., http://grechkinapv.narod.ru из Кодирование алгоритмов

Блок-схема

Программный код




Begin {начало главной программы}





End. {конец главной программы}


Ввод и вывод значений переменных








Ввод в одной строке:
Write('Введите через пробел три числа: '); readln(a,b,c);
Ввод в отдельных строках:
Write('Введите a='); readln(a);

Write('Введите b='); readln(b);

Write('Введите c='); readln(c);





Ввод в одной строке:
Write('Массив A: ');

For i:=1 to N do Read(A[i]);

Readln;
Ввод в столбец:
Writeln('Массив A: ');

For i:=1 to N do Readln(A[i]);








Ввод с произвольным расположением, в том числе в N строках по M элементов:
Writeln('Введите матрицу A');

For i:=1 to N do

For j:=1 to M do read(A[i,j]);

Readln;
Ввод из N строк по M элементов:


Writeln('Введите матрицу A построчно');

For i:=1 to N do

Begin

Write('Введите ', i ,'-ю строку матрицы: ');



For j:=1 to M do read(A[i,j]);

Readln;


End; {For}




Блок-схема

Программный код





Вывод в одной строке:
Writeln('Значения: a=', a, '; b=', b, '; c= ', c);
Вывод в отдельных строках:
Writeln('Значения: ');

Writeln('a=', a);

Writeln('b=', b);

Writeln('c=', c);








Вывод в одной строке:
Write('Массив A: ');

For i:=1 to N do Write(A[i]:4, ' ');

Writeln;
Вывод в столбец:
Writeln('Массив A: ');

For i:=1 to N do Writeln(A[i]:4);





Вывод на N строках по M элементов:


Writeln('Матрица A: ');

For i:=1 to N do

Begin

For j:=1 to M do write(A[i,j]:4, ' ');



Writeln;

End; {For}


Ветвление. Оператор условного перехода







If Условие then

Оператор

Else


Оператор;

При отсутствии операторов на ветви else:

If Условие then

begin

Оператор1_1;

. . . . . . . . . .

Оператор1_K;

end; {If}


При отсутствии операторов на ветви then:

If not (Условие) then

begin

Оператор2_1;

. . . . . . . . . .

Оператор2_R;

end; {If}




Для нескольких операторов:

If Условие then

begin

Оператор1_1;

. . . . . . . . . .

Оператор1_K;

end {If}


Else

begin


Оператор2_1;

. . . . . . . . . .

Оператор2_R;

end;{Else}







Блок-схема

Программный код

Оператор множественного выбора:








Case Переменная of

Значение1: Оператор1;

Значение2: begin

Оператор2_1;

. . . . . . . . . . . . .



Оператор2_K;

end; {Значение2}



Значение3, Значение4: Оператор3;

else


begin

Оператор_1;

. . . . . . . . . . . . .



Оператор_R;

end; {else}

End; {Case}

Параметрический цикл ДЛЯ








Если НачЗначКонЗнач
For ПарЦикла:=НачЗнач to КонЗнач do

Оператор;
Для нескольких операторов:
For ПарЦикла:=НачЗнач to КонЗнач do

begin


Оператор1;

. . . . . . . . . .



ОператорK;

end; {For}






Если НачЗначКонЗнач
For ПарЦикла:=НачЗнач downto КонЗнач do

Оператор;
Для нескольких операторов:
For ПарЦикла:=НачЗнач downto КонЗнач do

begin


Оператор1;

. . . . . . . . . .



ОператорK;

end; {For}






Блок-схема

Программный код

Итерационные циклы ПОКА и ДО








While Условие_продолжения do

Оператор;
Для нескольких операторов:
While Условие_продолжения do

begin


Оператор_1;

. . . . . . . . . . .



Оператор_K;

end; {While}








Repeat

Оператор;

Until Условие_выхода;


Для нескольких операторов:
Repeat

Оператор_1;

. . . . . . . . . . .



Оператор_K;

Until Условие_выхода;


Подпрограммы: процедуры и функции








Procedure Название(a: ТипA; var b: ТипB; out c: ТипC);

{ Краткое описание }

Begin

. . . . . . . . . . .



End; { Название }
Вызов процедуры:

Название(a, b, c);


Function Название(a: ТипA; var b: ТипB): ТипC;

{ Краткое описание }

Var c: TипC;

Begin


. . . . . . . . . . .

Название:=c;

End; { Название }


Вызов функции:

c:=Название(a, b);




с. 1

скачать файл