скатися нижче планки в 1.4 для виконання заданої умови. При цьому площа поверхні сегмента становить 113.42, а неважко перевірити, що найменша площа параллепіпед становить 110.02. Значить, задача вирішена програмними методами вірно.
Оцінка точності не входила в завдання роботи, проте при необхідності неважко буде модифікувати вже існуючу програму (файл Purd.pas).
ВИСНОВОК
Турбо Паскаль був обраний як найкращий мова програмування для навчання основам професійного програмування.
Турбо Паскаль - достатньо «старий» програмний продукт. Слід зауважити, однак, що Паскаль - це жива мова. Відомі, використовуються або знаходяться в стадії розробки компілятори і середовища розробки програм на Паскалі для різних операційних систем, у тому числі і бурхливо розвивається операційної системи Linux. Ці системи іноді частково, а іноді й значною мірою сумісні з Турбо Паскалем, а отже, накопичений досвід може бути використаний і для серйозної, професійної роботи з розробки програм.
Розробка курсового проекту - найкращий спосіб на практиці вивчити мову програмування. Була створена програма. У процесі налагодження програми усунуті всі можливі неприємності і неточності. Програма робоча. Передбачається її подальше удосконалення з тим, щоб вона вирішувала цілий комплекс споріднених програм.
БІБЛІОГРАФІЯ
1. Єфімов О., Моісеєв М., Шафрін Ю. Комп'ютерні технології.- М., 2007
2. Марченко А. І., Марченко Л. І. Програмування в середовищі Turbo Pascal 7.0.- М., Біном Універсал, К .: Юніор, 2007.
3. В.С. Анфілатов, Л.А. Шелутко. Турбо Паскаль. Стандартні підпрограми.- Санкт-Петербург, 2013
4. Н.Б.Культін. Програмування в Turbo Pascal 7.0 і Delphi.-СПб .: BHV - Санкт-Петербург, 2008
5. Завдання для позакласної роботи з геомеров 8-11 класи. Василевський А. Б. - Мінськ: ІП «Екоперспектіва», 2008.
ДОДАТОК I
Лістинг ПРОГРАМИ
program Purdishev;
uses crt;=12.9; (* Радіус кулі *), h_fine, h1, h2, k, r1, r_fine, a, b, c, c1, c2, m, S_segm, S_par: real;
begin;
(* Зміна висоти сегмента *)
h1:=12.8;
h2:=0.2;
k:=- 0.1;
(* Параметри параллепіпед *)
a:=5.0;:=7.7;:=1.3;:=4.3;:=0.1;:=h1; _fine:=h; h gt;=h2 do:=c1; _segm:= 2 * 3.14 * r * h;:=sqrt (h * (2 * rh)); c lt;=c2 do_par:=2 * (a * b + a * c + b * c); (S_segm gt;=S_par) and (h lt; h_fine) then_fine:=h; _fine:=r1 ;;:=c + m ;;:=h + k ;; ( h=, h_fine: 2: 2, r1= raquo ;, r_fine: 2: 2) ;;.
