Стоимость туристической путевки определяется в зависимости от времени года. базовая стоимость путевки умножается на сезонный коэффициент, который определяется следующим образом: октябрь, май, январь - коэффициент 1; июнь, июль август, сентябрь - коэффициент 1.2; ноябрь, декабрь, февраль, март, апрель - коэффициент 0.8. составить программу определения стоимости путевки, если известна ее базовая стоимость и месяц, на который приобретается путевка.

 

program polik1907; uses crt; var   tur: real;   mes: integer; begin  writeln('***************************************');   writeln('*      мы рады вас            *');   writeln('*                в нашем турагентстве              *');   writeln('*                p o l i k    1 9 0 7                *');   writeln('*                            ! ! !                                 *');   writeln('***************************************');   writeln();   writeln('введите базовую стоимость путёвки: ');   readln(tur);   writeln('month введите номер месяца: ');   readln(mes);   case mes of      1,5,10: writeln('стоимость вашей путёвки составит ',tur,'  рублей');       6,7,8,9:   writeln('стоимость вашей путёвки составит ',tur*1.2,'  рублей');       2,3,4,11,12:   writeln('стоимость вашей путёвки составит ',tur*0.8,'  рублей');       else writeln('введите правильный номер месяца');   end; end.

Const n=6; var    m,k,i: integer;   var a: array[1..n] of integer; begin   m: =integer.minvalue;   writeln ('исходный массив');   for i: =1 to n do begin     a[i]: =random(20);     write (a[i]: 3);     if a[i]> m       then begin m: =a[i]; k: =i; end;   end;   writeln;     writeln ('наибольший элемент массива: a[',k,'] = ',m); end. исходный массив   2   1 12 12 16   4 наибольший элемент массива: a[5] = 16 const n=50; var    sa: real;   i,k: integer;   var a: array[1..n] of integer; begin   sa: =0; k: =0;   writeln ('исходный массив');   for i: =1 to n do begin     a[i]: =random(3);     write (a[i]: 2);     sa: =sa+a[i];   end;   sa: =sa/n;     writeln;   writeln ('среднее арифметическое = ',sa);   writeln;   writeln ('элементы массива, равные среднему арифметическому: ');   for i: =1 to n do begin     if a[i]=sa       then begin writeln ('a[',i,'] = ',a[i]); k: =1; end;   end;   if k=0 then writeln ('нет таких элементов'); end. исходный массив   0 0 0 0 1 2 1 2 1 1 2 1 1 0 0 1 0 0 1 2 1 1 1 2 2 1 0 1 1 2 0 1 1 0 0 0 2 2 1 1 2 1 2 0 2 1 2 1 1 2 среднее арифметическое = 1 элементы массива, равные среднему арифметическому: a[5] = 1 a[7] = 1 a[9] = 1 a[10] = 1 a[12] = 1 a[13] = 1 a[16] = 1 a[19] = 1 a[21] = 1 a[22] = 1 a[23] = 1 a[26] = 1 a[28] = 1 a[29] = 1 a[32] = 1 a[33] = 1 a[39] = 1 a[40] = 1 a[42] = 1 a[46] = 1 a[48] = 1 a[49] = 1 ps: как правило эта программа выводит пустой результат. т.е. нет элементов, равных среднему арифметическому. возможно что-то упущено в условии .

алгоритмом называется алгоритм, целиком используемый в составе другого алгоритма. понятие «» не определяет какой-то особый класс алгоритмов, им может быть любой алгоритм, если он использован в составе основного алгоритма. при решении многих возникает необходимость в проведении одних и тех же вычислений на различных этапах выполнения программы при различных значениях данных. повторение одной и той же последовательности действий может быть оформлено в виде подпрограммы ( алгоритма). при этом повторяющиеся группы операторов записываются в подпрограмме по отношению к некоторым  формальным параметрам, а в нужных местах основной программы обеспечивается лишь обращение к подпрограмме с указаниемфактических параметров. использование подпрограмм позволяет следоватьпринципам структурного программирования, т.е. разбивать сложную на простые , в результате основная программа собирается в виде обращения к подпрограммам.

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

«любое имя до его использования должно быть описано или определено.»

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