2011.
. Дятченко Д.А. Методичні вказівки до виконання курсової роботи з дисципліни «Програмування та алгоритмічні мови» - Сєверодонецьк, 2005.
. Моїсеєв А. Object Pascal - М .: Москва, 2011.
22. Фаронов В.В. Delphi 4. Навчальний курс.- М .: Нолидж, 2004. - 447с.
. Фаронов В.В. Турбо Паскаль 7.0. Початковий курс. Навчальний посібник.- М .: Нолидж, 2003. - 616с.
. Валентин Озеров «Поради щодо Delphi», 2011.
. Біленький П.П. Навчальний посібник з інформатики - Ростов на дону «Фенікс» 2010. - 448c.
ДОДАТОК
алгоритм дискретність паскаль додаток
У другому розділі в пункті «2.4 Приклади і задачі» я описав наступний приклад завдання, в додатку опишу детальніше з кодом і блок схемою програми.
Код програми на мові Паскаль:
Programm_P1; a, b, c, d, s, v, t, r: integer;
begin ( Введіть довжину приміщення); (a); ( Введіть ширину приміщення); (b); ( Введіть висоту приміщення); (c); ( Введіть кол-під учнів);
readln (d);:=a * b;
v:=s * c;:=s: d;:=v * d; (Площа приміщення на одного учня-, , t); (Обсяг повітря на одного учня, , r); (t, r);.
Програма попросить ввести вихідні дані (розміри приміщення і кількість учнів), а потім виведе на екран результат розрахунків.
Блок схема виглядає так:
Рис. П1
Рис. П2
Ця блок схема є лінійною.
Program lab3;, x1, y, d: real; ( vvedite nachalo posledovatelnosty ); (x); ( vvedite konec posledovatelnosty ); (x1); ( vvedite d ); (d); x lt; x1 dox lt;=1.0000000001 then ( net resheniya, kogda x=, x: 5: 5);:=ln ((X * ln (10)/ln (x ))/ln (2)); ( y=, y: 8: 4) ;;:=x + d ;;;. lab1;, y: real;:=- 0.3; x lt; 1 do beginx gt; 0.5 then begin:=sqr (x) * sqr (x) * sqr (x) + Exp (x) * Exp (x);
writeln ( y:=, y: 3: 2); else if x lt; gt; 0 then begin:=(sin (x)/cos (x))/x; ( y:=, y: 3: 2); ( ERROR !!! Deleniye na 0 );:=x + 0.1 ;;;.
