Понятие алгоритма, способы описания и виды

В данном задании мы используем вариант с увеличением счетчика, т.е. forI<счетчик>:=1 <начальное значение>ton<конечное значение>dobegin… end<оператор>;

<счетчик> - переменная порядкового типа - параметр цикла;

<начальное значение> и <конечное значение> - начальное и конечное значения - выражения, которые должны быть совместимыми для присваивания с параметром цикла.

<оператор> - это оператор, который выполняется в цикле и образует так называемое тело цикла.

Так как нам необходимо выполнить группу операторов, мы ее в один составной оператор, заключив в операторные скобки begin… end.

forj:=1 tondowrite(a[i, j]:2);

Оператор цикла for организует выполнение последовательности операторов заранее известное число раз. Существуют два варианта оператора: с увеличением счетчия и с уменьшением счетчика

В данном задании мы используем вариант с увеличением счетчика, т.е. forI<счетчик>:=1 <начальное значение>ton<конечное значение>dowrite(a[i, j]:2)<оператор>;

<счетчик> - переменная порядкового типа - параметр цикла;

<начальное значение> и <конечное значение> - начальное и конечное значения - выражения, которые должны быть совместимыми для присваивания с параметром цикла.

<оператор> - это оператор, который выполняется в цикле и образует так называемое тело цикла.

write(a[i, j]:2);

Понятию матрицы, используемому в математике, в программировании соответствует понятие двумерный массив. Для элемента двумерного массива a[i, j] первый индекс - i - обозначает номер строки, а второй индекс - j - обозначает номер столбца.

Readln

Последней в разделе операторов выполняется процедура readln без параметров. Это вызовет приостановку выполнения программы, в результате чего мы сможем увидеть на экране результаты работы программы. Для завершения работы программы следует нажать клавишуEnter.

Задание 5.

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

program Project2;

{$APPTYPE CONSOLE}

uses

SysUtils;

Var

a,b,c,d,u,t1,t2,t3,t4:real;

procedure max(r,k,s,p:real; var x:real);

begin

if r>k then x:=r else x:=k;

if s>x then x:=s;

if p>x then x:=p;

end;

procedure min(r1,k1,s1,p1:real; var x1:real);

begin

if r1<k1 then x1:=r1 else x1:=k1;

if s1<x1 then x1:=s1;

if p1<x1 then x1:=p1;

end;

begin

Writeln('Enter a, b, c, d');

readln(a, b, c, d);

max(a+b,a-c,d*a,b*c,t1);

min(a-c,d+b,c*d,a+d,t2);

min(a-b,a+c,d+a,b*c,t3);

max(a+c,d*b,c-d,a-d,t4);

u:=(t1*t2)/(t3+t4);

Writeln('u=',u:5:4);

readln

end.

Подробнее рассмотрим эту программу

ProgramZadanie_1

Программа начинается с заголовка, в котором указывается зарезервированное слово, Programи имя программы в данном случаеZadanie_1.

{$APPTYPECONSOLE}

В фигурных скобках находится директива компилятора, указывающая на то, что создается консольное приложение.

Uses

SysUtils;

Uses-раздел подключения модулей (библиотек) в данном случае подключен модуль SysUtils данные с подпрограммами которого могут быть использованы нашей программой в процессе всей работы.

Var

a,b,c,d,u,t1,t2,t3,t4:real;

Var-раздел объявления переменных в данном задании объявляется девять переменных (a,b,c,d,u,t1,t2,t3,t4) типа real(в который входят вещественные или действительные числа (1,25; -1,50; 2; 4; 51…)).

procedure max(r,k,s,p:real; var x:real);

begin

if r>k then x:=r else x:=k;

if s>x then x:=s;

if p>x then x:=p;

end;

procedure min(r1,k1,s1,p1:real; var x1:real);

begin

if r1<k1 then x1:=r1 else x1:=k1;

if s1<x1 then x1:=s1;

if p1<x1 then x1:=p1;

end;

Для вычисления значения переменной необходимо два раза найти максимальное из двух чисел и два раза найти минимальное из двух чисел. Это означает, что в решении общей задачи необходимо выделить подзадачу поиска маскимального и минимального из четырех чисел и оформить алгоритм решения в виде процедуры. Назовем процедуры maxиmin. Они будут иметь по пять параметров: четыре входных - r,k,s,p(для мах); r1,k1,s1,p1(для мин) и один выходной - x(для мах);x1(для мин). Следовательно, заголовок процедуры будет иметь вид:

proceduremax(r,k,s,p:real; varx:real); иproceduremin(r1,k1,s1,p1:real; varx1:real);

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

procedure max(r,k,s,p:real; var x:real);

begin

if r>k then x:=r else x:=k;

if s>x then x:=s;

if p>x then x:=p;

end;

и

procedure min(r1,k1,s1,p1:real; var x1:real);

begin

if r1<k1 then x1:=r1 else x1:=k1;

if s1<x1 then x1:=s1;

if p1<x1 then x1:=p1;

end;

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

max(a+b,a-c,d*a,b*c,t1);

min(a-c,d+b,c*d,a+d,t2);

min(a-b,a+c,d+a,b*c,t3);

max(a+c,d*b,c-d,a-d,t4);

Затем мы вычисляем выходные данные по условию задачи:

u:=(t1*t2)/(t3+t4);

Writeln('u=',u:5:4);

Теперь выполняется процедура Writeln, выводящая результаты вычисления на экран. После имени переменной S через двоеточие стоят числа 3 и 2, означающие, что при выводе данных на экран монитора для значения переменной S отводится 3 позиции и 2 для дробной части.

readln

Последней в разделе операторов выполняется процедура readln без параметров. Это вызовет приостановку выполнения программы, в результате чего мы сможем увидеть на экране результаты работы программы. Для завершения работы программы следует нажать клавишуEnter.

Размещено на Allbest.ru